33 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
33 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
34 |
34 |
35 implementation |
35 implementation |
36 {$J+} |
36 {$J+} |
37 uses uMisc, uStore, Types, uConsts, uGears, uTeams, uIO, uKeys, uWorld, uLand, |
37 uses uMisc, uStore, Types, uConsts, uGears, uTeams, uIO, uKeys, uWorld, uLand, |
38 uRandom, uAmmos, uTriggers, uStats, uGame, uChat, SDLh; |
38 uRandom, uAmmos, uTriggers, uStats, uGame, uChat, SDLh, uSound; |
39 |
39 |
40 const cLineWidth: LongInt = 0; |
40 const cLineWidth: LongInt = 0; |
41 cLinesCount = 256; |
41 cLinesCount = 256; |
42 |
42 |
43 type PVariable = ^TVariable; |
43 type PVariable = ^TVariable; |
241 RegisterVariable('casefreq', vtLongInt, @cCaseFactor , false); |
241 RegisterVariable('casefreq', vtLongInt, @cCaseFactor , false); |
242 RegisterVariable('landadds', vtLongInt, @cLandAdditions , false); |
242 RegisterVariable('landadds', vtLongInt, @cLandAdditions , false); |
243 RegisterVariable('gmflags' , vtLongInt, @GameFlags , false); |
243 RegisterVariable('gmflags' , vtLongInt, @GameFlags , false); |
244 RegisterVariable('turntime', vtLongInt, @cHedgehogTurnTime, false); |
244 RegisterVariable('turntime', vtLongInt, @cHedgehogTurnTime, false); |
245 RegisterVariable('fort' , vtCommand, @chFort , false); |
245 RegisterVariable('fort' , vtCommand, @chFort , false); |
|
246 RegisterVariable('voicepack',vtCommand, @chVoicepack , false); |
246 RegisterVariable('grave' , vtCommand, @chGrave , false); |
247 RegisterVariable('grave' , vtCommand, @chGrave , false); |
247 RegisterVariable('bind' , vtCommand, @chBind , true ); |
248 RegisterVariable('bind' , vtCommand, @chBind , true ); |
248 RegisterVariable('addhh' , vtCommand, @chAddHH , false); |
249 RegisterVariable('addhh' , vtCommand, @chAddHH , false); |
249 RegisterVariable('hat' , vtCommand, @chSetHat , false); |
250 RegisterVariable('hat' , vtCommand, @chSetHat , false); |
250 RegisterVariable('hhcoords', vtCommand, @chSetHHCoords , false); |
251 RegisterVariable('hhcoords', vtCommand, @chSetHHCoords , false); |