Script request !!!

[mich1103]

when a bot get killed that kick him !!!
i only want that !!!

[Hacktank]

Wrong section, but here.

Code: [Select]

var kick: array[1..32] of boolean;

procedure OnPlayerKill(Killer, Victim: byte;Weapon: string);
begin
if getplayerstat(victim,'human') = false then kick[victim] := true;
end;

procedure AppOnIdle(Ticks: integer);
var i: byte;
begin
for i := 1 to 32 do if getplayerstat(i,'active') = true then if kick[i] then kickplayer(i);
end;

procedure OnJoinGame(ID, Team: Byte);
begin
kick[ID] := false;
end;

Edit: Fixed.

[mich1103]

10-05-26 17:26:30 

• kickbot -> [Error] (12:65): Unknown identifier 'player'

  

[DarkCrusade]

Code: [Select]

var kick: array[1..32] of boolean;

procedure OnPlayerKill(Killer, Victim: byte;Weapon: string);
begin
if getplayerstat(victim,'human') = false then kick[victim] := true;
end;

procedure AppOnIdle(Ticks: integer);
var i: byte;
begin
for i := 1 to 32 do if getplayerstat(i,'active') = true then if kick[i] then kickplayer(i);
end;

procedure OnJoinGame(ID, Team: Byte);
begin
kick[ID] := false;
end;

[Stuffy]

why did you use AppOnIdle for kicking the bot?

Code: [Select]

if not GetPlayerStat(Victim, 'human') then KickPlayer(Victim); does the same, right?

[Gizd]

why did you use AppOnIdle for kicking the bot?

Code: [Select]

if not GetPlayerStat(Victim, 'human') then KickPlayer(Victim); does the same, right?

It's lame when body disappears on hit.

[Swompie]

But it looks gay when you kill bot and it disappears, try it ;|

And f**king use = true for GetPlayerStat because it returns variant and not boolean and it is know of causing errors from time to time when not doing this, thanks.

Btw. I'd go with this (if you're not going to write some uber-huge script..)

Code: (pascal) [Select]

procedure OnPlayerRespawn(ID: byte);
begin
  if (GetPlayerStat(ID, 'Human') = false) and (GetPlayerStat(ID, 'Deaths') > 0) then
    KickPlayer(ID);
end;


[tk]

well, no, you won't be able to see the "you killed..." message if the bot gets kicked on kill.

Also, the code done in more efficient way:

Code: [Select]

var kick: array[1..32] of boolean;
check_kick: boolean;

procedure OnPlayerKill(Killer, Victim: byte;Weapon: string);
begin
  if getplayerstat(victim,'human') = false then begin
    kick[victim] := true;
    check_kick := true;
  end;
end;

procedure AppOnIdle(Ticks: integer);
var i: byte;
begin
  if check_kick then begin
    for i := 1 to 32 do
      if kick[i] then
        kickplayer(i);
    check_kick := false;
  end;
end;

procedure OnJoinGame(ID, Team: Byte);
begin
kick[ID] := false;
end;

procedure OnLeaveGame(ID, Team: byte; Kicked: boolean);
begin
kick[ID] := false;
end;


edit
You propably should try swompie's code too

edit#2

And f**king use = true for GetPlayerStat because it returns variant and not boolean and it is know of causing errors from time to time when not doing this, thanks.

It's not confirmed afaik and never throws errors for me.

[Swompie]

Well, it's just from what I've read all over these months here in the forums.
And actually I find it looks more smooth when theres a true/false behind GetPlayerStat (I think this sure because I always used it and never seen it another way)

Btw. your code would be good if your going to write a bigger script like I said already.

[DarkCrusade]

I always kick bots after they respawn. It looks smooth and is not annoying.

@tk: Neosano's iMod crashes often because he used GetPlayerStat like you did. You also forgot to check whether the ID is active in your loop in AppOnIdle.

[tk]

I removed getplayerstat->active check from that code because it was not needed and would cause only useless cpu usage. There is no possibility that kick[ i] will be true for an inactive id.

[DarkCrusade]

Oh I see, good to know this.

[mich1103]

now i want a script that detect if there is human on the server !
like : when there is human (any number) each 2 min thats add bot !
Can we do that ?

[Hacktank]

Code: [Select]

const
timeper = 120; // # of seconds between bot spawning

var
countdown: integer;

procedure AppOnIdle(Ticks: integer);
begin
if numplayers - numbots > 0 then if countdown > 0 then begin
countdown := countdown - 1;
if countdown = 0 then begin
command('/addbot1 ' + randombot());
countdown := timeper;
end;
end;
if countdown <= 0 then countdown := timeper;
end;


[mich1103]

that detect if there is some human on the server ?

[Hacktank]

Yes. Updated it too as you posted.

[mich1103]

when a bots is added that kick him automaticly !!!
i think is due to the kickbot script !!!

[Hacktank]

Whos version of the kickbot script are you using?

[mich1103]

This one

Code: [Select]

var kick: array[1..32] of boolean;

procedure OnPlayerKill(Killer, Victim: byte;Weapon: string);
begin
if getplayerstat(victim,'human') = false then kick[victim] := true;
end;

procedure AppOnIdle(Ticks: integer);
var i: byte;
begin
for i := 1 to 32 do if getplayerstat(i,'active') = true then if kick[i] then kickplayer(i);
end;

procedure OnJoinGame(ID, Team: Byte);
begin
kick[ID] := false;
end;

[Hacktank]

Oh, my bad. Forgot that OnJoinGame() is not called for bots...

Code: [Select]

var kick: array[1..32] of boolean;

procedure OnPlayerKill(Killer, Victim: byte;Weapon: string);
begin
if getplayerstat(victim,'human') = false then kick[victim] := true;
end;

procedure AppOnIdle(Ticks: integer);
var i: byte;
begin
for i := 1 to 32 do if getplayerstat(i,'active') = true then if kick[i] then kickplayer(i);
end;

procedure OnJoinTeam(ID, Team: Byte);
begin
kick[ID] := false;
end;


[Gizd]

Code: [Select]

var kick: array[1..32] of boolean;

procedure OnPlayerKill(Killer, Victim: byte;Weapon: string);
begin
  if getplayerstat(victim,'human') = false then kick[victim] := true;
end;

procedure AppOnIdle(Ticks: integer);
var i: byte;
begin
  for i := 1 to 32 do if kick[i] then begin
    kickplayer(i);
    kick[i]:= false;
  end;
end;


[mich1103]

A last little thing !
can you do a script that onplayerkill there is 1% to add a bot ?

[Hacktank]

Code: [Select]

procedure OnPlayerKill(Killer, Victim: byte;Weapon: string);
begin
if killer <> victim then if random(1,101) <= 1 then command('/addbot1 '+randombot()); //  the # 1 is the percent chance
end;


[absoulut1234]

it look like MMOD?

[DarkCrusade]

What makes you think that this little script looks like the bigass MMOD which is 1000 times bigger and better and more DIFFERENT?

I'm curious.

[mich1103]

//  the # 1 is the percent chance

which 1 your talking about

[DarkCrusade]

RANDOM(1,101) <<< THE 1 IS THE CHANCE PERCENTAGE

[mich1103]

this one 1,101

[DarkCrusade]

YES!

[Swompie]

Not really.
The one after <=..

[Gizd]

mich: For your own safety ignore DarkCrusade.

As Swompie said:
random(1,101) <= 1

[mich1103]

Ok thanks