| changeset 1849 | 2a989e5abda6 |
| parent 1784 | dfe9bafb4590 |
| child 1850 | a0332e79fdc9 |
| 1848:1eb88d41ccc6 | 1849:2a989e5abda6 |
|---|---|
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(weap), true) |
228 ParseCommand('/setweap ' + char(LongInt(weap)+33), 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; |