Help with weap spawn script

[Kavukamari]

can someone please help me make this script work?

Code: [Select]

var
  WNUM, PNUM: string;

function OnCommand(ID:Byte;Text:string):boolean;
begin
  if Copy(lowercase(Text), 1, 7) = '/spawn ' then begin
    try
      WNUM := GetPiece(Text, ' ', 2)
      PNUM := GetPiece(Text, ' ', 3)
      if (WNUM = (GetObjectStat(ID,Type))) then begin
        if GetPlayerStat(strtoint(PNUM), 'active') = true then begin
          SpawnObject(GetPlayerStat(PNUM,'x'),GetPlayerStat(PNUM,'y'),WNUM);
        end;
      end;
  end;
end;

help T_T

[Avarax]

1st and 2nd: your color codes are too long, i guess you added the alpha values which are however not supported. for black text, you use either $000000 or RGB(0,0,0).

3rd: Don't use nades as bullettype, i think they are blocked or something. Use the m79 grenade instead ( = bullettype 4)

[Kavukamari]

I'm needin more help now

(see first post)

[Avarax]

replace

Code: [Select]

CreateBullet(GetPlayerStat(1,'x'), GetPlayerStat(1,'y'), 0, 0,100, 4, 1);with

Code: [Select]

CreateBullet(GetPlayerStat(ID,'x'), GetPlayerStat(ID,'y'), 0, 0,100, 4, ID);

[Kavukamari]

O.o that easy? thanks, ur teh best

just one more thing, I need it to not be used too much, how do I make a cooldown (not trying to copy hexer, but this might lag if 10 ppl use it at same time )

Date Posted: August 14, 2007, 08:23:46 PMand then theres !sacrifice spamming, and I don't want that

[Avarax]

do it like this:

Code: [Select]

var antispam: integer;

procedure AppOnIdle(Ticks: integer);
begin
  If antispam > 0 then
    antispam:=antispam-1;
end;

procedure OnPlayerSpeak(ID: byte; Text: string);
begin
  if (Text = '!sacrifice') and (antispam = 0) then begin
    CreateBullet(GetPlayerStat(ID,'x'), GetPlayerStat(ID,'y'), 0, 0,100, 4, 1);
    CreateBullet(GetPlayerStat(ID,'x') - 75, GetPlayerStat(ID,'y'), -50, 0,100, 4, 1);
    CreateBullet(GetPlayerStat(ID,'x') + 75, GetPlayerStat(ID,'y'), 50, 0,100, 4, 1);
    CreateBullet(GetPlayerStat(ID,'x'), GetPlayerStat(ID,'y') - 75, 0, -50,100, 4, 1);
    CreateBullet(GetPlayerStat(ID,'x') - 75, GetPlayerStat(ID,'y') - 75, -50, -50,100, 4, 1);
    CreateBullet(GetPlayerStat(ID,'x') + 75, GetPlayerStat(ID,'y') + 75, 50, 50,100, 4, 1);
    CreateBullet(GetPlayerStat(ID,'x'), GetPlayerStat(ID,'y') + 75, 0, 50,100, 4, 1);
    CreateBullet(GetPlayerStat(ID,'x') - 75, GetPlayerStat(ID,'y') + 75, -50, 50,100, 4, 1);
    CreateBullet(GetPlayerStat(ID,'x') + 75, GetPlayerStat(ID,'y') - 75, 50, -50,100, 4, 1);
    DoDamage(ID,4444);
    antispam:=Insert here how many seconds you want to prevent !sacrifice after it was used;
  end;
end;

[Kavukamari]

can you figure out what's wrong with this one too?

Code: [Select]

var
  WNUM, PNUM: string;

function OnCommand(ID:Byte;Text:string):boolean;
begin
  if Copy(lowercase(Text), 1, 7) = '/spawn ' then begin
    try
      WNUM := GetPiece(Text, ' ', 2)
      PNUM := GetPiece(Text, ' ', 3)
      if (WNUM = (GetObjectStat(ID,Type))) then begin
        if GetPlayerStat(strtoint(PNUM), 'active') = true then begin
          SpawnObject(GetPlayerStat(PNUM,'x'),GetPlayerStat(PNUM,'y'),WNUM);
        end;
      end;
  end;
end;

it's sposed to be a weap spawn script

[Tosty]

if i were to add another command like

begin
DoDamage(ID,-1000);
 antispam:=75;
 end;

how would i do it becouse i just cant get it right

Code: [Select]

var antispam: integer;

procedure AppOnIdle(Ticks: integer);
begin
 if (Text = '!Heal') and (antispam = 0) then begin
 antispam:=antispam-1;
end;

procedure OnPlayerSpeak(ID: byte; Text: string);
begin
 if (Text = '!sacrifice') and (antispam = 0) then begin
 CreateBullet(GetPlayerStat(ID,'x'), GetPlayerStat(ID,'y'), 0, 0,100, 4, 1);
 CreateBullet(GetPlayerStat(ID,'x') - 75, GetPlayerStat(ID,'y'), -50, 0,100, 4, 1);
 CreateBullet(GetPlayerStat(ID,'x') + 75, GetPlayerStat(ID,'y'), 50, 0,100, 4, 1);
 CreateBullet(GetPlayerStat(ID,'x'), GetPlayerStat(ID,'y') - 75, 0, -50,100, 4, 1);
 CreateBullet(GetPlayerStat(ID,'x') - 75, GetPlayerStat(ID,'y') - 75, -50, -50,100, 4, 1);
 CreateBullet(GetPlayerStat(ID,'x') + 75, GetPlayerStat(ID,'y') + 75, 50, 50,100, 4, 1);
 CreateBullet(GetPlayerStat(ID,'x'), GetPlayerStat(ID,'y') + 75, 0, 50,100, 4, 1);
 CreateBullet(GetPlayerStat(ID,'x') - 75, GetPlayerStat(ID,'y') + 75, -50, 50,100, 4, 1);
 CreateBullet(GetPlayerStat(ID,'x') + 75, GetPlayerStat(ID,'y') - 75, 50, -50,100, 4, 1);
 DoDamage(ID,4444);
 antispam:=65;
begin
 if (Text = '!Heal') and (antispam = 0) then begin
 DoDamage(ID,-1000);
antispam:=75;
end;
 end;
end;
Im new so i come out w this can u show me the correct way to do this

[DorkeyDear]

can you figure out what's wrong with this one too?

Code: [Select]

var
  WNUM, PNUM: string;

function OnCommand(ID:Byte;Text:string):boolean;
begin
  if Copy(lowercase(Text), 1, 7) = '/spawn ' then begin
    try
      WNUM := GetPiece(Text, ' ', 2)
      PNUM := GetPiece(Text, ' ', 3)
      if (WNUM = (GetObjectStat(ID,Type))) then begin
        if GetPlayerStat(strtoint(PNUM), 'active') = true then begin
          SpawnObject(GetPlayerStat(PNUM,'x'),GetPlayerStat(PNUM,'y'),WNUM);
        end;
      end;
  end;
end;

it's sposed to be a weap spawn script

function SpawnObject(X,Y:Single; ObjType: Byte): integer;

The bolded part is supposed to be a byte, not a string. replace your "WNUM" with "StrtoInt(WNUM)"

Date Posted: August 15, 2007, 12:16:25 PM

if i were to add another command like

begin
DoDamage(ID,-1000);
 antispam:=75;
 end;

how would i do it becouse i just cant get it right

Code: [Select]

var antispam: integer;

procedure AppOnIdle(Ticks: integer);
begin
 if (Text = '!Heal') and (antispam = 0) then begin
 antispam:=antispam-1;
end;

procedure OnPlayerSpeak(ID: byte; Text: string);
begin
 if (Text = '!sacrifice') and (antispam = 0) then begin
 CreateBullet(GetPlayerStat(ID,'x'), GetPlayerStat(ID,'y'), 0, 0,100, 4, 1);
 CreateBullet(GetPlayerStat(ID,'x') - 75, GetPlayerStat(ID,'y'), -50, 0,100, 4, 1);
 CreateBullet(GetPlayerStat(ID,'x') + 75, GetPlayerStat(ID,'y'), 50, 0,100, 4, 1);
 CreateBullet(GetPlayerStat(ID,'x'), GetPlayerStat(ID,'y') - 75, 0, -50,100, 4, 1);
 CreateBullet(GetPlayerStat(ID,'x') - 75, GetPlayerStat(ID,'y') - 75, -50, -50,100, 4, 1);
 CreateBullet(GetPlayerStat(ID,'x') + 75, GetPlayerStat(ID,'y') + 75, 50, 50,100, 4, 1);
 CreateBullet(GetPlayerStat(ID,'x'), GetPlayerStat(ID,'y') + 75, 0, 50,100, 4, 1);
 CreateBullet(GetPlayerStat(ID,'x') - 75, GetPlayerStat(ID,'y') + 75, -50, 50,100, 4, 1);
 CreateBullet(GetPlayerStat(ID,'x') + 75, GetPlayerStat(ID,'y') - 75, 50, -50,100, 4, 1);
 DoDamage(ID,4444);
 antispam:=65;
begin
 if (Text = '!Heal') and (antispam = 0) then begin
 DoDamage(ID,-1000);
antispam:=75;
end;
 end;
end;
Im new so i come out w this can u show me the correct way to do this

get rid of the "begin" and "end" around the new command.

[Tosty]

i did and i got the message

error (31:1) begin expected

[urraka]

Code: [Select]

var antispam: integer;

procedure AppOnIdle(Ticks: integer);
begin
if (Text = '!Heal') and (antispam = 0) then begin
antispam:=antispam-1;
end;

procedure OnPlayerSpeak(ID: byte; Text: string);
begin
if (Text = '!sacrifice') and (antispam = 0) then begin
  CreateBullet(GetPlayerStat(ID,'x'), GetPlayerStat(ID,'y'), 0, 0,100, 4, 1);
  CreateBullet(GetPlayerStat(ID,'x') - 75, GetPlayerStat(ID,'y'), -50, 0,100, 4, 1);
  CreateBullet(GetPlayerStat(ID,'x') + 75, GetPlayerStat(ID,'y'), 50, 0,100, 4, 1);
  CreateBullet(GetPlayerStat(ID,'x'), GetPlayerStat(ID,'y') - 75, 0, -50,100, 4, 1);
  CreateBullet(GetPlayerStat(ID,'x') - 75, GetPlayerStat(ID,'y') - 75, -50, -50,100, 4, 1);
  CreateBullet(GetPlayerStat(ID,'x') + 75, GetPlayerStat(ID,'y') + 75, 50, 50,100, 4, 1);
  CreateBullet(GetPlayerStat(ID,'x'), GetPlayerStat(ID,'y') + 75, 0, 50,100, 4, 1);
  CreateBullet(GetPlayerStat(ID,'x') - 75, GetPlayerStat(ID,'y') + 75, -50, 50,100, 4, 1);
  CreateBullet(GetPlayerStat(ID,'x') + 75, GetPlayerStat(ID,'y') - 75, 50, -50,100, 4, 1);
  DoDamage(ID,4444);
  antispam:=65;
end;
if (Text = '!Heal') and (antispam = 0) then begin
  DoDamage(ID,-1000);
  antispam:=75;
end;
end;


[Tosty]

ty its workng now (+ i wont have to ask that question again)

Date Posted: August 15, 2007, 05:32:03 PMCan u give me an example of a force weapon script It keeps say

comma (',') expected

When i try to use mine

[DorkeyDear]

ty its workng now (+ i wont have to ask that question again)

Date Posted: August 15, 2007, 05:32:03 PMCan u give me an example of a force weapon script It keeps say

comma (',') expected

When i try to use mine

Code: [Select]

procedure OnPlayerSpeak(ID: byte; Text: string);
begin
  if Text[1] = '%' then begin
    try
      ForceWeapon(ID,StrtoInt(Copy(Text,2,Length(Text))),255,0);
    except
      WriteConsole(ID,'Nooo! That ''tis noo numbuh!',$FFFFFFFF);
    end;
  end;
end;will set the player's primary weapon to whatever weapon number was said after the % and secondary to fist.

procedure ForceWeapon(ID, Primary, Secondary, Ammo: Byte);

[Kavukamari]

Code: [Select]

var
  WNUM, PNUM: string;

function OnCommand(ID:Byte;Text:string):boolean;
begin
  if Copy(lowercase(Text), 1, 7) = '/spawn ' then begin
    try
      WNUM := GetPiece(Text, ' ', 2)
      PNUM := GetPiece(Text, ' ', 3)
      if (strtoint(WNUM) = (GetObjectStat(strtoint(WNUM),'Type'))) then begin
        if GetPlayerStat(PNUM,'active') = true then begin
          SpawnObject(GetPlayerStat(PNUM,'x'),GetPlayerStat(PNUM,'y'),strtoint(WNUM));
        end;
      end;
  end;
Result := false
end;

It still doesn't work

Date Posted: August 15, 2007, 07:57:53 PM...