Ready made: PlaceBot

[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.