// this script was compiled with wurst 1.8.1.0-jenkins-Wurst-1365 globals integer array Cell_nextFree integer Cell_firstFree=0 integer Cell_maxIndex=0 endglobals function initGlobals takes nothing returns nothing set Cell_firstFree = 0 set Cell_maxIndex = 0 endfunction function error takes string msg returns nothing call BJDebugMsg(msg + "\n" + "") endfunction function alloc_Cell takes nothing returns integer local integer this if Cell_firstFree == 0 then if Cell_maxIndex < 32768 then set Cell_maxIndex = Cell_maxIndex + 1 set this = Cell_maxIndex else call error("Out of memory: Could not create Cell.") set this = 0 endif else set Cell_firstFree = Cell_firstFree - 1 set this = Cell_nextFree[Cell_firstFree] endif return this endfunction function Cell_init takes integer this returns nothing endfunction function construct_Cell takes integer this returns nothing call Cell_init(this) endfunction function new_Cell takes nothing returns integer local integer this = alloc_Cell() call construct_Cell(this) return this endfunction function init_test takes nothing returns nothing call new_Cell() endfunction function main takes nothing returns nothing call initGlobals() call init_test() endfunction function config takes nothing returns nothing endfunction