Simple Kamikaze script !

[mich1103]

Script Name: Simple Kamikaze
Script Description: This is a simple kamikaze script that able human player too explode when they die and too explode by typing /boom. You can also explode all human in your server (/Bomball)
(This script can easily be added to big script to make skills or other thing (be creative )
Original Author(s): Mich1103 (Some help by FalconPL)
Core Version: 2.6.5
Code:

Code: [Select]

Procedure Kamikaze(ID: byte);
var
  X, Y: single;
 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);
       DoDamage(ID,4000);
      WriteConsole(0,Getplayerstat(ID,'name')+' has been blowed up !',color);
     end;I dont know if there is error or a better way to do it ...
Anyway its my first script so ...

[kosik231]

Code: [Select]

function OnCommand(ID: Byte; Text: string): boolean;
begin
   for i:= 1 to 32 do if GetPlayerStat(i,'Human') then begin
   if Text = '/bomball' then begin
       WriteLn('*You explode all human in your server !*');
   Kamikaze(i);
   end;           
    end;
         end;erm... If Text = '/boomall' in loop...? i think its wrong wirst text check, then loop...

[mich1103]

Code: [Select]

function OnCommand(ID: Byte; Text: string): boolean;
begin
   for i:= 1 to 32 do if GetPlayerStat(i,'Human') then begin
   if Text = '/bomball' then begin
       WriteLn('*You explode all human in your server !*');
   Kamikaze(i);
   end;           
    end;
         end;

that was like that ....

[kosik231]

i think its not...

Code: [Select]

function OnCommand(ID: Byte; Text: string): boolean;
var i: integer;
begin
if Text = '/bomball' then begin
  for i:= 1 to 32 do
if GetPlayerStat(i,'Human') then begin
Kamikaze(i);
WriteLn('*You explode all human in your server !*');
end;       
end;
Result := false;     
end;

[amb2010]

You really should compile and test the scripts, not just post them and say "I don't think there is an error" Also kosik231 is right, you should check the text then loop it since that part there would really mess up the entire script. Right now it loops and checks 32 times whether the admin typed /bomball which if true would blow all the players up 32 times in a row which is not what you want it to do. So again you really should compile and test your script before you post it.

(Edit) Also you forgot a semi-colon( ; ) on the GetPlayerXY(ID,X,Y)