Mich1103's scripting thread

[mich1103]

@ DarkCrusade : i already did some skills (Easy one ^^)

thats how i did the regeneration skills !

Code: [Select]

Procedure Heal(ID: integer);
begin
if soldier[ID].level >=25
then begin 
DoDamage(ID,-3);
end;
end;

Procedure AppOnIdle(Ticks: Integer);
Begin
for i:= 1 to 32 do begin
Heal(i);If you want you can see my script in action
IP:soldat.no-ip.ca PORT: 23098

[DarkCrusade]

Whenever you access an ID in AppOnIdle (in general when you loop through the player list) you must check whether the ID is active (whether the ID is a player/bot on the server).

if (GetPlayerStat(ID,'Active') = true) then

[zyxstand]

DC, he's probs not gonna understand that. i'll just give him the code. hopefully he can learn from it...

Code: [Select]

Procedure Heal(ID: integer);
begin
if soldier[ID].level >=25
then begin
DoDamage(ID,-3);
end;
end;

Procedure AppOnIdle(Ticks: Integer);
Begin
for i:= 1 to 32 do if GetPlayerStat(i,'Active') then begin
Heal(i);

Also, I'm not sure if you're aware of this, but a player's health is maximum 150.  check to make sure he has less than maximum health before actually healing. (I'm not sure if you can give more than 150 health anyway, in which case it might not matter too much).  Also, in realistic mode, max health is 65.  good to know.

[mich1103]

Ok now i understand !
Thanks 

[DarkCrusade]

Normal: 150  (200 by scripting)
Realistic: 65  (never tested)

[mich1103]

So with this script !
a player got 200 health ?

[DarkCrusade]

Proximitly.

[mich1103]

I did a small small kamikaze script but the bullet are too high

The procedure

Code: [Select]

Procedure Kamikaze(ID: byte);
 begin
  if soldier[ID].level >= 40
   then begin
    CreateBullet(GetPlayerStat(ID,'x'), GetPlayerStat(ID,'y') - 500, 0, 0,100, 4, 1);
    CreateBullet(GetPlayerStat(ID,'x'), GetPlayerStat(ID,'y') - 500, 1, 1,100, 4, 1);
    CreateBullet(GetPlayerStat(ID,'x'), GetPlayerStat(ID,'y') - 500, 2, 2,100, 4, 1);
   end;
  end; I dont really know how X and Y work

[Falcon`]

Code: [Select]

Procedure Kamikaze(ID: byte);
var
  X, Y: single;
 begin
  if soldier[ID].level >= 40
   then begin
    GetPlayerXY(ID, X, Y)
    CreateBullet(X, Y - 10, 0, 0,100, 4, 1);
    CreateBullet(X, Y - 10, 1, 1,100, 4, 1);
    CreateBullet(X, Y - 10, 2, 2,100, 4, 1);
   end;
  end;

This should spawn all bullets in his ass

[mich1103]

I did a small procedure for a Nuclear bomb !

Code: [Select]

procedure Nuke(ID: byte);
 begin
  if GetPlayerStat(ID,'Human') = False
   then begin
    DoDamage(ID,4000);
   end;
  end;
but the server crash when i do /nuke ... 

Code: [Select]

if regExpMatch('^/(nuke)$', Text) then
  begin
For i := 1 to 32 do     
if soldier[ID].level >= 40 then
        begin
if soldier[ID].money >= 50 then
         begin
          Nuke(i);
 writeconsole(0, 'NUCLEAR BOMB !', Color);
  end else begin writeconsole(ID, 'You are not lvl 40 + or you dont have enough money.', Color);
   end;
    end;
                     end;
         

[DarkCrusade]

Whenever you access an ID in AppOnIdle (in general when you loop through the player list) you must check whether the ID is active (whether the ID is a player/bot on the server).

if (GetPlayerStat(ID,'Active') = true) then

[kosik231]

Code: [Select]

if regExpMatch('^/(nuke)$', Text) then
  begin
if (soldier[ID].level >= 40) and (soldier[ID].money >= 50) then
        begin
For i := 1 to 32 do  begin   
          Nuke(i);
WriteConsole(i, 'NUCLEAR BOMB !', Color);
end;

  end else begin
writeconsole(ID, 'You are not lvl 40 + or you dont have enough money.', Color);
   end;
                     end;that should work, remember... first check money/level, next begin your loop

[mich1103]

Work but i got some error !

[DarkCrusade]

Whenever you access an ID in AppOnIdle (in general when you loop through the player list) you must check whether the ID is active (whether the ID is a player/bot on the server).

if (GetPlayerStat(ID,'Active') = true) then

[mich1103]

Already did    !

Code: [Select]

procedure Nuke(ID: byte);
 begin
  if GetPlayerStat(ID,'Human') = False
   then begin
  if (GetPlayerStat(ID,'Active') = true)
   then begin
    DoDamage(ID,4000);
   end;
  end;
 end;

[DarkCrusade]

What's so hard to understand about "You must check whether the ID is active before you can access any other data"?

[mich1103]

I got it i got no error now 
but with the kamikaze part

Code: [Select]

Procedure Kamikaze(ID: byte);
var
  X, Y: single;
 begin
  if soldier[ID].level >= 40
   then begin
    GetPlayerXY(ID, X, Y)
    CreateBullet(X, Y - 10, 0, 0,120, 4, 1);
    CreateBullet(X, Y - 10, 1, 1,120, 2, 1);
    CreateBullet(X, Y - 10, 2, 2,120, 9, 1);
   end;
  end;The bullet dont do any damage ... !

[DarkCrusade]

function CreateBullet(X, Y, VelX, VelY, HitM: single; sStyle, Owner: byte): integer;

The owner of these bullets should be the ID. The bulletstyle 4 (M79 bullet).

[mich1103]

How can i put like that the nuke kill only bot named ZoMbIe ?

[kosik231]

omg x.X ..... IF GETPLAYERSTAT(ID,'NAME') = 'ZoMbIe'!!! thats hard? -.- // what is your IQ? ^^