Mich1103's scripting thread

[mich1103]

So i can wait ?

[DarkCrusade]

You can and you must.

[mich1103]

How many time before it will be released ?

[DarkCrusade]

Who knows..

[mich1103]

EnEsCe 

[zyxstand]

i doubt it.

[mich1103]

How can i do a shield skills !
like your invincible for 20 second !

[zyxstand]

here's the basic pseudo code
function OnPlayerDamage(Victim,Shooter: Byte;Damage: Integer;Weapon: Byte) : integer;
  if (Victim is invincible) Result := 0 else Result := Damage

someone confirm this: i'm not sure if this works with m79/law/nade instant kill - i guess u can check it out!

[DarkCrusade]

If you want real invincibility you must set the result to -9999. I'm not sure whether you use some other stuff in OnPlayerDamage, if that's so you must exit after you've set the result to the new value.

Example:

Code: (pascal) [Select]

Function OnPlayerDamage(Victim,Shooter:Byte; Damage:Integer):Integer;
begin
  Result := Damage;
  if (Soldier[Victim].Godmode) then begin
    Result := -99999;
    Exit;
  end;
  // Other stuff here
end:

[mich1103]

But for the timer of 20 second ?

[DarkCrusade]

Code: (pascal) [Select]

type
  Stats=Record
  GodTime:Integer;
  end;

var
  Soldier: Array[1..32] of Stats;

Procedure OnJoinGame(ID,Team:Byte);
begin
  Soldier[ID].GodTime := -1;
end;

Function OnPlayerCommand(ID:Byte; Text:String):Boolean;
begin
  if (LowerCase(Copy(Text,1,4)) = '/god') then begin
    Soldier[ID].GodTime := 20;
    WriteConsole(ID,'You are invincible for 20 seconds!',$FFFFFF);
  end;
  Result := false;
end;

Function OnPlayerDamage(Victim,Shooter:Byte; Damage:Integer):Integer; 
begin 
 Result := Damage; 
 if (Soldier[Victim].GodTime <> -1) then begin 
   Result := -99999; 
   Exit; 
 end; 
 // Other stuff here 
end; 

Procedure AppOnIdle(Ticks:Integer);
var
  i:Byte;
begin
  for i := 1 to 32 do if (GetPlayerStat(i,'Active') = true) then
    if (Solder[i].GodTime <> -1) then begin
      Solder[i].GodTime := Soldier[i].GodTime - 1;
      if (Soldier[i].GodTime = 0) then begin
        Soldier[i].GodTime := -1;
        WriteConsole(i,'You are mortal again..',$CC0000);
      end;
end;

[mich1103]

And for the command i do it like that ?

Code: [Select]

if regExpMatch('^/(god|shield)$', Text) then
  begin
if (soldier[ID].level >= 60) then begin
soldier[ID].GodTime :=20;
WriteConsole(ID,'You are invincible for 20 seconds!',$FFFFFF);
end else begin
writeconsole(ID, 'You are not lvl 60 +', Color);
end;
Result := false;
end;
end;



[DarkCrusade]

Yes.

Also you'll love to use this:

Function LowerCase(Input:String):String;

Returns the input string in lowercase. Example:

Input = 'fOoBAR'
Result = 'foobar'

[mich1103]

What it is supposed to do ?

From: July 26, 2010, 11:13:21 am

• shop -> [Error] (736:1): 'BEGIN' expected

[DarkCrusade]

If the error is 'BEGIN' expected then you have an 'END' too much and viceversa.

[zyxstand]

i think you want to take out the "end" on line 726
also, perhaps you should nest all your "If Text = 'lol' then begin" with else lines so that it doesn't have to check it against every possible command and will stop as soon as the first one has been reached.  Also, your code is very crowded. Any chance you can break it up into multiple parts??

[mich1103]

i need a cooldown of 2 min ... for the god script !

[DarkCrusade]

Just add another timer for the cooldown.. you should be able to do that, and if you need help you can still ask

[mich1103]

I've tried but 'I FAILED' 

[DarkCrusade]

So show me what you tried? And please not the whole script