// this script was compiled with wurst 1.8.1.0-jenkins-Wurst-1367 globals integer array A_nextFree integer A_firstFree=0 integer A_maxIndex=0 integer array A_x endglobals native testSuccess takes nothing returns nothing function initGlobals takes nothing returns nothing endfunction function error takes string msg returns nothing call BJDebugMsg(msg + "\n" + "") endfunction function init_test takes nothing returns nothing local integer x = 42 local integer a local integer b local integer i local integer j local integer this local integer this_1 local integer this_2 local integer x_1 local integer this_3 local integer x_2 local integer this_4 local integer this_5 local integer this_6 local integer x_3 local integer this_7 if A_firstFree == 0 then if A_maxIndex < 32768 then set A_maxIndex = A_maxIndex + 1 set this_1 = A_maxIndex else call error("Out of memory: Could not create A.") set this_1 = 0 endif else set A_firstFree = A_firstFree - 1 set this_1 = A_nextFree[A_firstFree] endif set this = this_1 set this_2 = this set x_1 = x set this_3 = this_2 set A_x[this_3] = 1 set A_x[this_2] = x_1 set a = this set x_2 = 43 if A_firstFree == 0 then if A_maxIndex < 32768 then set A_maxIndex = A_maxIndex + 1 set this_5 = A_maxIndex else call error("Out of memory: Could not create A.") set this_5 = 0 endif else set A_firstFree = A_firstFree - 1 set this_5 = A_nextFree[A_firstFree] endif set this_4 = this_5 set this_6 = this_4 set x_3 = x_2 set this_7 = this_6 set A_x[this_7] = 1 set A_x[this_6] = x_3 set b = this_4 set i = a set j = b if A_x[2 * i + j - j - i] == 42 then call testSuccess() endif endfunction function main takes nothing returns nothing call initGlobals() call init_test() endfunction function config takes nothing returns nothing endfunction