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

[KwS Pall]

Code: [Select]

var
bots : array[1..6] of byte;
begin
bots[1] := PlaceBot('Poncho',GetPlayerStat(ID,'Team'),GetPlayerStat(ID,'X')+21,GetPlayerStat(ID,'Y'));
bots[2] := PlaceBot('Poncho',GetPlayerStat(ID,'Team'),GetPlayerStat(ID,'X')+10,GetPlayerStat(ID,'Y')+18);
bots[3] := PlaceBot('Poncho',GetPlayerStat(ID,'Team'),GetPlayerStat(ID,'X')-10,GetPlayerStat(ID,'Y')+18);
bots[4] := PlaceBot('Poncho',GetPlayerStat(ID,'Team'),GetPlayerStat(ID,'X')+10,GetPlayerStat(ID,'Y')-18);
bots[5] := PlaceBot('Poncho',GetPlayerStat(ID,'Team'),GetPlayerStat(ID,'X')-10,GetPlayerStat(ID,'Y')-18);
bots[6] := PlaceBot('Poncho',GetPlayerStat(ID,'Team'),GetPlayerStat(ID,'X')-21,GetPlayerStat(ID,'Y'));
end;


[Avarax]

Anyways... I guess you guys are missing the point of this code snippet.

[lewymati]

:E
i'd like to take a look at this but...


"Not Found

The requested document was not found."

if some1 has that code plz send it somewhere :>

[danmer]

:E
i'd like to take a look at this but...


"Not Found

The requested document was not found."

if some1 has that code plz send it somewhere :>

this should be it: http://nopaste.org/p/ak4udcFOk
(copied from mmod)

[shantec]

[offtopic]
I've noticed that many (if not all) Avarax's "Ready Made" scripts have been removed from notepaste :S
Well, luckily at least few guys here, at soldatforums, has them all. Point of this stupid post was nothing, and my intention wasn't to insult anyone. If you however feel insulted, please, tell it to hand. Hand will listen you 
[/offtopic]

[DorkeyDear]

[offtopic]
I've noticed that many (if not all) Avarax's "Ready Made" scripts have been removed from notepaste :S
Well, luckily at least few guys here, at soldatforums, has them all. Point of this stupid post was nothing, and my intention wasn't to insult anyone. If you however feel insulted, please, tell it to hand. Hand will listen you
[/offtopic]

There is a point to what you are saying, don't completely rely on nopaste or any other paste sites.

[frosty]

ok i have read the code, but it doesnt include any commands to do it o_0 either i am utterly confused or missing the point
what are the commands?
and can u plz put this in a zip file?

[Iq Unlimited]

frosty: it's a function to be implimented into your script, not a command or anything.

[Dark Dragon DX]

Now, unless it doesn't work on dedicated servers, everytime I use placebot in any way [PlaceBot('Poncho',GetPlayerStat(ID,'Team'),GetPlayerStat(ID,'X')+21,GetPlayerStat(ID,'Y'));] just like in the brackets, my server won't start.

Nevermind, I just started coding. I forgot to paste the code into my script file.   

[BondJamesBond]

Hi, this is a great script. I changed it just lil' bit so the bots can't be added from ingame - and instead get added through the script.

But I have a problem of the bots warping when they are placed in a waypointed map. They try to jump, but just end up warping back to their spot for spawn.

Occasionally, one of 'em will break free...

Any reason for this? The server has survival mode on as well.

[Gizd]

Code: [Select]

function PlaceBot(botname: string; team: byte; X,Y: single): byte;
var i,n,tempType: byte;
    spawn: array of byte;
    tempX,tempY: single;
begin
  SetArrayLength(spawn,0);
  n:=0;
  for i:=1 to 254 do
    If GetSpawnStat(i,'Active') = true then
      If GetSpawnStat(i,'Style') = team then begin
        n:=n + 1;
        SetArrayLength(spawn,n);
        spawn[n-1]:=i;
        SetSpawnStat(i,'Active',false);
      end;
  for i:=1 to 254 do
    If GetSpawnStat(i,'Active') = false then begin
      SetSpawnStat(i,'Active',true);
      tempType:=GetSpawnStat(i,'Style');
      tempX:=GetSpawnStat(i,'X');
      tempY:=GetSpawnStat(i,'Y');
      SetSpawnStat(i,'Style',team);
      SetSpawnStat(i,'X',X);
      SetSpawnStat(i,'Y',Y);
      break;
    end;
  result:=Command('/addbot' + inttostr(team) + ' ' + botname);
  SetSpawnStat(i,'Active',false);
  SetSpawnStat(i,'Style',tempType);
  SetSpawnStat(i,'X',tempX);
  SetSpawnStat(i,'Y',tempY);
  If n > 0 then
    for i:=0 to n-1 do
      SetSpawnStat(spawn[i],'Active',true);
end;
I copied this from MMod.