changeset 1850 | a0332e79fdc9 |
parent 1849 | 2a989e5abda6 |
child 1865 | ebc6dfca60d4 |
1849:2a989e5abda6 | 1850:a0332e79fdc9 |
---|---|
223 end |
223 end |
224 end; |
224 end; |
225 |
225 |
226 procedure SetWeapon(weap: TAmmoType); |
226 procedure SetWeapon(weap: TAmmoType); |
227 begin |
227 begin |
228 ParseCommand('/setweap ' + char(LongInt(weap)+33), true) |
228 ParseCommand('/setweap ' + char(weap), true) |
229 end; |
229 end; |
230 |
230 |
231 procedure DisableSomeWeapons; |
231 procedure DisableSomeWeapons; |
232 var i, slot, a: Longword; |
232 var i, slot, a: Longword; |
233 t: TAmmoType; |
233 t: TAmmoType; |