possible kickbot script (no work yet)

[Kavukamari]

If anyone can get this kickbot script to work I would be happy to let ANYONE use it

if we can get it to work...

[EnEsCe]

That has to be the worst attempt at coding I have ever seen..

doing "then end;" does not exit the code section, it just ends that conditional... And learn2loop... Use the for i := 1 to 32 loop

[mikembm]

LOL! Like enesce said the "then end;" does nothing. Also all text from onCommand begins with a /

Fixed script:

Code: [Select]

function OnCommand(ID:Byte;Text:string):boolean;
var
i: byte;
begin
result := false
if (Text = '/botbgone') then for i:=1 to 32 do if GetPlayerStat(ID,'Human') = false then KickPlayer(ID);
end;


[Kavukamari]

thanx, now anyone who wants it can have it

EDIT::: nevermind, soldat was open when I started soldatserver

Date Posted: August 22, 2007, 12:09:41 AMhey EnEsCe, you should make a function that automatically kicks bots, and a function that deletes maps from the map list

function KickBots(ID: Byte); //(ID to 0 to kick all bots)
function DelMaps(Similar: string);
function AddMaps(Similar: string);

[EnEsCe]

KickBots is dumb.
DelMaps already exists. Command('/delmap Arena');
AddMaps already exists. Command('/addmap Arena');

[Kavukamari]

I mean deletes or adds all maps with (example:) ctf in their name or all without ctf in their name

[Toumaz]

Just read the maps from mapslist.txt, rip out the ones you want, write them back, /loadlist mapslist.

[BurnedKirby]

Would the script work if I changed "KickPlayer(ID);" to "KillPlayer(ID);" ?

[Toumaz]

There's no function called KillPlayer(), what you'd want to do instead is Command('/kill '+inttostr(ID));.

[BurnedKirby]

That code wont work... I doubt the command thing works in this script.

[EnEsCe]

Did you even try it? It works. noob

[BurnedKirby]

I have tried it. It wouldn't work. In soldat, the command wont work, and in the Admin program I'm using, it says
 

• [Error] botkiller -> (OnCommand): Invalid variant operation

(The name of the script folder is botkiller.)
I used the same exact script posted above, and changed the command to kill instead of kick as posted by Toumaz.

[DorkeyDear]

You need to do:
if (Text = '/botbgone') then for i:=1 to 32 do if GetPlayerStat(i,'Active') = true then if GetPlayerStat(i,'Human') = false then KickPlayer(i);

I'm not sure if this would bring up an error but it might, but its the "if _ and _" instead of "if _ then if _ then _" which is the way that i know won't bring the 1 error

if (Text = '/botbgone') then for i:=1 to 32 do if (GetPlayerStat(i,'Active') = true) and (GetPlayerStat(i,'Human') = false) then KickPlayer(i);

[BurnedKirby]

Thanks, that finally fixed the problem.