Official Soldat Forums

Server Talk => Scripting Discussions and Help => Topic started by: FORBES on April 10, 2009, 01:06:44 pm

Title: Berserk script?
Post by: FORBES on April 10, 2009, 01:06:44 pm

has anyone got a script or know of a script to give people berserk like for example the invisible script u just type

/invis ?  and he/she gets it then u do /invis ? again to take it away

i love to have this but i cant find it

Title: Re: Berserk script?
Post by: Hacktank on April 10, 2009, 02:52:04 pm

Here, its not tested but it should work.

EDIT All fixed up :)

Commands are:

• /serk - Gives you a beserk once
• /infiserk - Turns on/off infanite beserker

Code: [Select]

var dmg: array[1..32] of single;
time: array[1..32] of integer;
 
function OnPlayerCommand(ID: byte; text: string): boolean;
var hp: integer;
begin
if getpiece(text,' ',0) = '/infiserk' then begin
if dmg[id] = 1 then begin
dmg[ID] := 4;
exit;
end;
if dmg[id] = 4 then begin
dmg[ID] := 1;
exit;
end;
end;
if getpiece(text,' ',0) = '/serk' then begin
dmg[ID] := 4;
time[ID] := 12;
end;
end;

procedure AppOnIdle(Ticks: integer);
var i: byte; hp: integer;
begin
for i := 1 to 32 do begin
if getplayerstat(i,'active') then begin
if time[i] > 0 then begin
dec(time[i],1);
DrawText(i,'Beserk  -  ' + IntToStr(time[i]),60,$FFFF0000,0.12,250,390);
end;
if time[i] = 0 then dmg[i] := 1;
end;
end;
end;

function OnPlayerDamage(Victim,Shooter: Byte;Damage: Integer):integer;
begin
result := damage*dmg[ID];
end;

procedure OnJoinGame(ID, Team: byte);
begin
dmg[ID] := 1;
time[ID] := 0;
end;code]

Title: Re: Berserk script?
Post by: FORBES on April 10, 2009, 04:13:17 pm

thanks