112 ((Length(s) > 39) and (Copy(s,1,8) = 'Reserved') and (Copy(s,9,32) <> PlayerHash)) then |
112 ((Length(s) > 39) and (Copy(s,1,8) = 'Reserved') and (Copy(s,9,32) <> PlayerHash)) then |
113 CurrentHedgehog^.Hat:= 'NoHat' |
113 CurrentHedgehog^.Hat:= 'NoHat' |
114 else |
114 else |
115 CurrentHedgehog^.Hat:= s |
115 CurrentHedgehog^.Hat:= s |
116 end; |
116 end; |
117 end; |
|
118 |
|
119 procedure chSetAmmoLoadout(var descr: shortstring); |
|
120 begin |
|
121 SetAmmoLoadout(descr) |
|
122 end; |
|
123 |
|
124 procedure chSetAmmoDelay(var descr: shortstring); |
|
125 begin |
|
126 SetAmmoDelay(descr) |
|
127 end; |
|
128 |
|
129 procedure chSetAmmoProbability(var descr: shortstring); |
|
130 begin |
|
131 SetAmmoProbability(descr) |
|
132 end; |
|
133 |
|
134 procedure chSetAmmoReinforcement(var descr: shortstring); |
|
135 begin |
|
136 SetAmmoReinforcement(descr) |
|
137 end; |
|
138 |
|
139 procedure chAddAmmoStore(var descr: shortstring); |
|
140 begin |
|
141 descr:= ''; // avoid compiler hint |
|
142 AddAmmoStore |
|
143 end; |
|
144 |
|
145 procedure chBind(var id: shortstring); |
|
146 var s: shortstring; |
|
147 b: LongInt; |
|
148 begin |
|
149 s:= ''; |
|
150 if CurrentTeam = nil then exit; |
|
151 SplitBySpace(id, s); |
|
152 if s[1]='"' then Delete(s, 1, 1); |
|
153 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1); |
|
154 b:= KeyNameToCode(id); |
|
155 if b = 0 then OutError(errmsgUnknownVariable + ' "' + id + '"', false) |
|
156 else CurrentTeam^.Binds[b]:= s |
|
157 end; |
117 end; |
158 |
118 |
159 procedure chCurU_p(var s: shortstring); |
119 procedure chCurU_p(var s: shortstring); |
160 begin |
120 begin |
161 s:= s; // avoid compiler hint |
121 s:= s; // avoid compiler hint |