diff -r a9126661f613 -r 344b0dbd9690 hedgewars/uCommandHandlers.pas --- a/hedgewars/uCommandHandlers.pas Fri Apr 20 23:03:20 2012 +0400 +++ b/hedgewars/uCommandHandlers.pas Sat Apr 21 19:51:13 2012 +0400 @@ -659,90 +659,191 @@ ZoomValue:= cDefaultZoomLevel; end; +procedure chMapGen(var s: shortstring); +begin +val(s, cMapGen) +end; + +procedure chTemplateFilter(var s: shortstring); +begin +val(s, cTemplateFilter) +end; + +procedure chInactDelay(var s: shortstring); +begin +val(s, cInactDelay) +end; + +procedure chReadyDelay(var s: shortstring); +begin +val(s, cReadyDelay) +end; + +procedure chCaseFactor(var s: shortstring); +begin +val(s, cCaseFactor) +end; + +procedure chHealthCaseProb(var s: shortstring); +begin +val(s, cHealthCaseProb) +end; + +procedure chHealthCaseAmount(var s: shortstring); +begin +val(s, cHealthCaseAmount) +end; + +procedure chSuddenDTurns(var s: shortstring); +begin +val(s, cSuddenDTurns) +end; + +procedure chWaterRise(var s: shortstring); +begin +val(s, cWaterRise) +end; + +procedure chHealthDecrease(var s: shortstring); +begin +val(s, cHealthDecrease) +end; + +procedure chDamagePercent(var s: shortstring); +begin +val(s, cDamagePercent) +end; + +procedure chRopePercent(var s: shortstring); +begin +val(s, cRopePercent) +end; + +procedure chGetAwayTime(var s: shortstring); +begin +val(s, cGetAwayTime) +end; + +procedure chMineDudPercent(var s: shortstring); +begin +val(s, cMineDudPercent) +end; + +procedure chLandMines(var s: shortstring); +begin +val(s, cLandMines) +end; + +procedure chExplosives(var s: shortstring); +begin +val(s, cExplosives) +end; + +procedure chGameFlags(var s: shortstring); +begin +val(s, GameFlags) +end; + +procedure chHedgehogTurnTime(var s: shortstring); +begin +val(s, cHedgehogTurnTime) +end; + +procedure chMinesTime(var s: shortstring); +begin +val(s, cMinesTime) +end; + +procedure chFastUntilLag(var s: shortstring); +var i: LongInt; +begin +val(s, i); +fastUntilLag:= i <> 0 +end; procedure initModule; begin //////// Begin top sorted by freq analysis not including chatmsg - RegisterVariable('+right' , vtCommand, @chRight_p , false); - RegisterVariable('-right' , vtCommand, @chRight_m , false); - RegisterVariable('+up' , vtCommand, @chUp_p , false); - RegisterVariable('-up' , vtCommand, @chUp_m , false); - RegisterVariable('+left' , vtCommand, @chLeft_p , false); - RegisterVariable('-left' , vtCommand, @chLeft_m , false); - RegisterVariable('+attack' , vtCommand, @chAttack_p , false); - RegisterVariable('+down' , vtCommand, @chDown_p , false); - RegisterVariable('-down' , vtCommand, @chDown_m , false); - RegisterVariable('hjump' , vtCommand, @chHJump , false); - RegisterVariable('ljump' , vtCommand, @chLJump , false); - RegisterVariable('nextturn', vtCommand, @chNextTurn , false); - RegisterVariable('-attack' , vtCommand, @chAttack_m , false); - RegisterVariable('slot' , vtCommand, @chSlot , false); - RegisterVariable('setweap' , vtCommand, @chSetWeapon , false); + RegisterVariable('+right' , @chRight_p , false); + RegisterVariable('-right' , @chRight_m , false); + RegisterVariable('+up' , @chUp_p , false); + RegisterVariable('-up' , @chUp_m , false); + RegisterVariable('+left' , @chLeft_p , false); + RegisterVariable('-left' , @chLeft_m , false); + RegisterVariable('+attack' , @chAttack_p , false); + RegisterVariable('+down' , @chDown_p , false); + RegisterVariable('-down' , @chDown_m , false); + RegisterVariable('hjump' , @chHJump , false); + RegisterVariable('ljump' , @chLJump , false); + RegisterVariable('nextturn', @chNextTurn , false); + RegisterVariable('-attack' , @chAttack_m , false); + RegisterVariable('slot' , @chSlot , false); + RegisterVariable('setweap' , @chSetWeapon , false); //////// End top by freq analysis - RegisterVariable('gencmd' , vtCommand, @chGenCmd , false); - RegisterVariable('flag' , vtCommand, @chFlag , false); - RegisterVariable('script' , vtCommand, @chScript , false); - RegisterVariable('proto' , vtCommand, @chCheckProto , true ); - RegisterVariable('spectate', vtBoolean, @fastUntilLag , false); - RegisterVariable('capture' , vtCommand, @chCapture , true ); - RegisterVariable('rotmask' , vtCommand, @chRotateMask , true ); - RegisterVariable('rdriven' , vtCommand, @chTeamLocal , false); - RegisterVariable('map' , vtCommand, @chSetMap , false); - RegisterVariable('theme' , vtCommand, @chSetTheme , false); - RegisterVariable('seed' , vtCommand, @chSetSeed , false); - RegisterVariable('template_filter', vtLongInt, @cTemplateFilter, false); - RegisterVariable('mapgen' , vtLongInt, @cMapGen , false); - RegisterVariable('maze_size',vtLongInt, @cTemplateFilter, false); - RegisterVariable('delay' , vtLongInt, @cInactDelay , false); - RegisterVariable('ready' , vtLongInt, @cReadyDelay , false); - RegisterVariable('casefreq', vtLongInt, @cCaseFactor , false); - RegisterVariable('healthprob', vtLongInt, @cHealthCaseProb, false); - RegisterVariable('hcaseamount', vtLongInt, @cHealthCaseAmount, false); - RegisterVariable('sd_turns', vtLongInt, @cSuddenDTurns , false); - RegisterVariable('waterrise', vtLongInt, @cWaterRise , false); - RegisterVariable('healthdec', vtLongInt, @cHealthDecrease, false); - RegisterVariable('damagepct',vtLongInt, @cDamagePercent , false); - RegisterVariable('ropepct' , vtLongInt, @cRopePercent , false); - RegisterVariable('getawaytime' , vtLongInt, @cGetAwayTime , false); - RegisterVariable('minedudpct',vtLongInt,@cMineDudPercent, false); - RegisterVariable('minesnum', vtLongInt, @cLandMines , false); - RegisterVariable('explosives',vtLongInt,@cExplosives , false); - RegisterVariable('gmflags' , vtLongInt, @GameFlags , false); - RegisterVariable('turntime', vtLongInt, @cHedgehogTurnTime, false); - RegisterVariable('minestime',vtLongInt, @cMinesTime , false); - RegisterVariable('fort' , vtCommand, @chFort , false); - RegisterVariable('grave' , vtCommand, @chGrave , false); - RegisterVariable('hat' , vtCommand, @chSetHat , false); - RegisterVariable('quit' , vtCommand, @chQuit , true ); - RegisterVariable('forcequit', vtCommand, @chForceQuit , true ); - RegisterVariable('confirm' , vtCommand, @chConfirm , true ); - RegisterVariable('halt', vtCommand, @chHalt , true ); - RegisterVariable('+speedup', vtCommand, @chSpeedup_p , true ); - RegisterVariable('-speedup', vtCommand, @chSpeedup_m , true ); - RegisterVariable('zoomin' , vtCommand, @chZoomIn , true ); - RegisterVariable('zoomout' , vtCommand, @chZoomOut , true ); - RegisterVariable('zoomreset',vtCommand, @chZoomReset , true ); - RegisterVariable('ammomenu', vtCommand, @chAmmoMenu , true); - RegisterVariable('+precise', vtCommand, @chPrecise_p , false); - RegisterVariable('-precise', vtCommand, @chPrecise_m , false); - RegisterVariable('switch' , vtCommand, @chSwitch , false); - RegisterVariable('timer' , vtCommand, @chTimer , false); - RegisterVariable('taunt' , vtCommand, @chTaunt , false); - RegisterVariable('put' , vtCommand, @chPut , false); - RegisterVariable('+volup' , vtCommand, @chVol_p , true ); - RegisterVariable('-volup' , vtCommand, @chVol_m , true ); - RegisterVariable('+voldown', vtCommand, @chVol_m , true ); - RegisterVariable('-voldown', vtCommand, @chVol_p , true ); - RegisterVariable('findhh' , vtCommand, @chFindhh , true ); - RegisterVariable('pause' , vtCommand, @chPause , true ); - RegisterVariable('+cur_u' , vtCommand, @chCurU_p , true ); - RegisterVariable('-cur_u' , vtCommand, @chCurU_m , true ); - RegisterVariable('+cur_d' , vtCommand, @chCurD_p , true ); - RegisterVariable('-cur_d' , vtCommand, @chCurD_m , true ); - RegisterVariable('+cur_l' , vtCommand, @chCurL_p , true ); - RegisterVariable('-cur_l' , vtCommand, @chCurL_m , true ); - RegisterVariable('+cur_r' , vtCommand, @chCurR_p , true ); - RegisterVariable('-cur_r' , vtCommand, @chCurR_m , true ); + RegisterVariable('gencmd' , @chGenCmd , false); + RegisterVariable('flag' , @chFlag , false); + RegisterVariable('script' , @chScript , false); + RegisterVariable('proto' , @chCheckProto , true ); + RegisterVariable('spectate', @chFastUntilLag , false); + RegisterVariable('capture' , @chCapture , true ); + RegisterVariable('rotmask' , @chRotateMask , true ); + RegisterVariable('rdriven' , @chTeamLocal , false); + RegisterVariable('map' , @chSetMap , false); + RegisterVariable('theme' , @chSetTheme , false); + RegisterVariable('seed' , @chSetSeed , false); + RegisterVariable('template_filter', @chTemplateFilter, false); + RegisterVariable('mapgen' , @chMapGen , false); + RegisterVariable('maze_size',@chTemplateFilter, false); + RegisterVariable('delay' , @chInactDelay , false); + RegisterVariable('ready' , @chReadyDelay , false); + RegisterVariable('casefreq', @chCaseFactor , false); + RegisterVariable('healthprob', @chHealthCaseProb, false); + RegisterVariable('hcaseamount', @chHealthCaseAmount, false); + RegisterVariable('sd_turns', @chSuddenDTurns , false); + RegisterVariable('waterrise', @chWaterRise , false); + RegisterVariable('healthdec', @chHealthDecrease, false); + RegisterVariable('damagepct',@chDamagePercent , false); + RegisterVariable('ropepct' , @chRopePercent , false); + RegisterVariable('getawaytime' , @chGetAwayTime , false); + RegisterVariable('minedudpct',@chMineDudPercent, false); + RegisterVariable('minesnum', @chLandMines , false); + RegisterVariable('explosives',@chExplosives , false); + RegisterVariable('gmflags' , @chGameFlags , false); + RegisterVariable('turntime', @chHedgehogTurnTime, false); + RegisterVariable('minestime',@chMinesTime , false); + RegisterVariable('fort' , @chFort , false); + RegisterVariable('grave' , @chGrave , false); + RegisterVariable('hat' , @chSetHat , false); + RegisterVariable('quit' , @chQuit , true ); + RegisterVariable('forcequit', @chForceQuit , true ); + RegisterVariable('confirm' , @chConfirm , true ); + RegisterVariable('halt', @chHalt , true ); + RegisterVariable('+speedup', @chSpeedup_p , true ); + RegisterVariable('-speedup', @chSpeedup_m , true ); + RegisterVariable('zoomin' , @chZoomIn , true ); + RegisterVariable('zoomout' , @chZoomOut , true ); + RegisterVariable('zoomreset',@chZoomReset , true ); + RegisterVariable('ammomenu', @chAmmoMenu , true); + RegisterVariable('+precise', @chPrecise_p , false); + RegisterVariable('-precise', @chPrecise_m , false); + RegisterVariable('switch' , @chSwitch , false); + RegisterVariable('timer' , @chTimer , false); + RegisterVariable('taunt' , @chTaunt , false); + RegisterVariable('put' , @chPut , false); + RegisterVariable('+volup' , @chVol_p , true ); + RegisterVariable('-volup' , @chVol_m , true ); + RegisterVariable('+voldown', @chVol_m , true ); + RegisterVariable('-voldown', @chVol_p , true ); + RegisterVariable('findhh' , @chFindhh , true ); + RegisterVariable('pause' , @chPause , true ); + RegisterVariable('+cur_u' , @chCurU_p , true ); + RegisterVariable('-cur_u' , @chCurU_m , true ); + RegisterVariable('+cur_d' , @chCurD_p , true ); + RegisterVariable('-cur_d' , @chCurD_m , true ); + RegisterVariable('+cur_l' , @chCurL_p , true ); + RegisterVariable('-cur_l' , @chCurL_m , true ); + RegisterVariable('+cur_r' , @chCurR_p , true ); + RegisterVariable('-cur_r' , @chCurR_m , true ); end; procedure freeModule;