Ready made: PlaceBot

[Avarax]

6 Dummies placed around the coordinates of my gostek


Teh code...

function PlaceBot(botname: string; team: byte; X,Y: single): byte;

Parameters explain themselves. The function's result will return the ID of the placed bot.

[Duck Boi]

Meatshield script ? Nice.
But not that useful tbh..

[Avarax]

It's useful for other scripters, not server owners.

[Ride]

Ah i see.. With all these scripts your doing. Will there be an update in Trenchwar Domination Script aswell?

I can only hope considering the only use for it right now is Public TW servers.
It isnt accurate to be used in clan wars..

Hope this isnt off topic

Nice Script

[Kavukamari]

hmmm... am I right to believe that "break;" stops a script from working with something?
could it be used like so:

Code: [Select]

...
var
  blah:boolean;
begin
...
  blah:=true;
  break;  //don't want anything to be done from this temporary change
    *do this*
  blah:=false;
...
  if blah = true do this
  *this will not be done because of break?*
end;


[DorkeyDear]

hmmm... am I right to believe that "break;" stops a script from working with something?
could it be used like so:

Code: [Select]

...
var
  blah:boolean;
begin
...
  blah:=true;
  break;  //don't want anything to be done from this temporary change
    *do this*
  blah:=false;
...
  if blah = true do this
  *this will not be done because of break?*
end;


break stops a for or while loop from looping

[Kavukamari]

then what stops something from going after a temp. change

[bulgaria]

nice script

[Avarax]

Use "exit;" to stop an entire procedure / function.

[Kagesha]

This script is really awesome, a fun script to use.

Avarax any chance this maybe implemented in hexer as one of the spells?

[Aquarius]

Cool. To bad we can't chage bot/player appearance via scripting...

[David2204]

I edited the script a little, since there are too many ponchos when you type /test 3-4 times
It kicks all of them after a minute

Code: [Select]

function OnCommand(ID: Byte; Text: string): boolean;
begin
  If text = '/test' then begin
    PlaceBot('Poncho',GetPlayerStat(ID,'Team'),GetPlayerStat(ID,'X')+21,GetPlayerStat(ID,'Y'));
    PlaceBot('Poncho',GetPlayerStat(ID,'Team'),GetPlayerStat(ID,'X')+10,GetPlayerStat(ID,'Y')+18);
    PlaceBot('Poncho',GetPlayerStat(ID,'Team'),GetPlayerStat(ID,'X')-10,GetPlayerStat(ID,'Y')+18);
    PlaceBot('Poncho',GetPlayerStat(ID,'Team'),GetPlayerStat(ID,'X')+10,GetPlayerStat(ID,'Y')-18);
    PlaceBot('Poncho',GetPlayerStat(ID,'Team'),GetPlayerStat(ID,'X')-10,GetPlayerStat(ID,'Y')-18);
    PlaceBot('Poncho',GetPlayerStat(ID,'Team'),GetPlayerStat(ID,'X')-21,GetPlayerStat(ID,'Y'));
    sleep(60000);
    Command('/kick Poncho');
  end;
  Result := false;
end;
Thats all

[DorkeyDear]

I edited the script a little, since there are too many ponchos when you type /test 3-4 times
It kicks all of them after a minute

Code: [Select]

function OnCommand(ID: Byte; Text: string): boolean;
begin
  If text = '/test' then begin
    PlaceBot('Poncho',GetPlayerStat(ID,'Team'),GetPlayerStat(ID,'X')+21,GetPlayerStat(ID,'Y'));
    PlaceBot('Poncho',GetPlayerStat(ID,'Team'),GetPlayerStat(ID,'X')+10,GetPlayerStat(ID,'Y')+18);
    PlaceBot('Poncho',GetPlayerStat(ID,'Team'),GetPlayerStat(ID,'X')-10,GetPlayerStat(ID,'Y')+18);
    PlaceBot('Poncho',GetPlayerStat(ID,'Team'),GetPlayerStat(ID,'X')+10,GetPlayerStat(ID,'Y')-18);
    PlaceBot('Poncho',GetPlayerStat(ID,'Team'),GetPlayerStat(ID,'X')-10,GetPlayerStat(ID,'Y')-18);
    PlaceBot('Poncho',GetPlayerStat(ID,'Team'),GetPlayerStat(ID,'X')-21,GetPlayerStat(ID,'Y'));
    sleep(60000);
    Command('/kick Poncho');
  end;
  Result := false;
end;
Thats all

Your code will freeze up the server sense OnCommand is not threaded.

[Avarax]

Well /test is only for testing purposes, it's not necessary for the actual script.

[David2204]

Your code will freeze up the server sense OnCommand is not threaded.

I know and I like it that way! Since people can't spawn 20 packs of Ponchos at the same time... The only thing that bothers me is that if one person spawns Ponchos and after 15 seconds another person spawns Ponchos, then after 5 seconds both packs will be kicked... Any ideas how to solve this? Avarax?

[Avarax]

No comment o_O

[Iq Unlimited]

Your code will freeze up the server sense OnCommand is not threaded.

I know and I like it that way! Since people can't spawn 20 packs of Ponchos at the same time... The only thing that bothers me is that if one person spawns Ponchos and after 15 seconds another person spawns Ponchos, then after 5 seconds both packs will be kicked... Any ideas how to solve this? Avarax?

Theres no way to stop bots with that name to not be kicked, you'd have to spawn the bots for another pack under a different name.

But, there is no way to stop bots from being kicked. you'd just have to name another pack of bots a different name.

[t3h_n00b]

With a swat mod,it would be fucking omfgling awesome,comrade.

[DorkeyDear]

Your code will freeze up the server sense OnCommand is not threaded.

I know and I like it that way! Since people can't spawn 20 packs of Ponchos at the same time... The only thing that bothers me is that if one person spawns Ponchos and after 15 seconds another person spawns Ponchos, then after 5 seconds both packs will be kicked... Any ideas how to solve this? Avarax?

Doing Command('/addbot...') returns the bot's ID... if you store the ID into an array or something, you can then kick only those IDs when you want to, and not the other ones you don't want.

[David2204]

Great idea, but I dont think I know Pascal enough to do it.... well... i can give it a shot, but it aint a promise