equal
deleted
inserted
replaced
448 procedure ScriptPrepareAmmoStore; |
448 procedure ScriptPrepareAmmoStore; |
449 var i: ShortInt; |
449 var i: ShortInt; |
450 begin |
450 begin |
451 ScriptAmmoStore:= ''; |
451 ScriptAmmoStore:= ''; |
452 for i:=1 to ord(High(TAmmoType)) do |
452 for i:=1 to ord(High(TAmmoType)) do |
453 ScriptAmmoStore:= ScriptAmmoStore + '00'; |
453 ScriptAmmoStore:= ScriptAmmoStore + '0000'; |
454 end; |
454 end; |
455 |
455 |
456 procedure ScriptSetAmmo(ammo : TAmmoType; count, propability: Byte); |
456 procedure ScriptSetAmmo(ammo : TAmmoType; count, propability: Byte); |
457 begin |
457 begin |
458 if (ord(ammo) < 1) or (count > 9) or (count < 0) or (propability < 0) or (propability > 8) then |
458 if (ord(ammo) < 1) or (count > 9) or (count < 0) or (propability < 0) or (propability > 8) then |