0 Members and 1 Guest are viewing this topic.
constFatalHitChance = 5;color = $FFFFFF;procedure FatalHit(ID :byte);beginDoDamage(ID,4000);end;Function OnPlayerDamage(Victim,Shooter:Byte; Damage:Integer):Integer;begin Result := Damage;if (Random(1,101) <= FatalHitChance) thenFatalHit(Victim);WriteConsole(Shooter,'Fatal Hit !',color)end;end;
constFatalHitChance = 5;color = $FFFFFF;procedure FatalHit(Victim,Shooter:Byte;);beginDoDamageBy(Victim,Shooter,1000)end;Function OnPlayerDamage(Victim,Shooter:Byte; Damage:Integer):Integer;begin Result := Damage;if (Random(1,101) <= FatalHitChance) thenFatalHit(Victim);WriteConsole(Shooter,'Fatal Hit !',color)end;end;
const FatalHitChance = 5; color = $FFFFFF;procedure FatalHit(Victim,Shooter:Byte;);begin DoDamageBy(Victim,Shooter,1000);end;Function OnPlayerDamage(Victim,Shooter:Byte; Damage:Integer):Integer;begin Result := Damage; if (Random(1,101) <= FatalHitChance) then begin FatalHit(Victim); WriteConsole(Shooter,'Fatal Hit !',color) end;end;
Function OnPlayerDamage(Victim,Shooter:Byte; Damage:Integer):Integer;begin Result := Damage;if soldier[shooter].level >= 50 then begin if (Random(1,101) <= LootAmmoChance) then beginLootAmmo(Shooter);end;end;if soldier[shooter].level >= 55 then beginif (Random(1,101) <= FatalHitChance) then beginFatalHit(Victim);WriteConsole(Shooter,'Fatal Hit !',colorr);end;end;end;
if (Victim = Shooter) then Exit;
Function OnPlayerDamage(Victim,Shooter:Byte; Damage:Integer):Integer;begin Result := Damage; if (Victim = Shooter) then Exit; if soldier[shooter].level >= 50 then if (Random(1,101) <= LootAmmoChance) then LootAmmo(Shooter); if soldier[shooter].level >= 55 then if (Random(1,101) <= FatalHitChance) then begin FatalHit(Victim,Shooter); WriteConsole(Shooter,'Fatal Hit !',colorr); end;end;
shop -> [Error] (103:118): Invalid number of parameters
- Added BigTextID parameter to DrawText (after ID) This will allow you to have multiple drawtext events up and not overwrite standard messages.
- Added InterfaceText function- Added WorldText function- Added InterfaceImage function- Added WorldImage function
But soldat 1.5.1 will be realesed soon ?