[Fun] Player Cloning Script

[rayanaga]

Script Name: Player Cloning Script
Script Description:

A useless but humorous script that clones player on your server and adds them as bots!

I made this one in like 15 minutes just to get a kick of what it would be like to fight yourself.

All you need to do is unzip the scripts into your scripts/ directory and add temp.bot to your bots/ directory. Make sure temp.bot is CHMODDED to 0777!

Script Screenshots:
Spawning a Clone
Clones Copying your chat
Even more Clones
The CLONE WARS

Original Author(s): Rayanaga
Core Version: 2.6.3
Code:

Code: [Select]

//Player Cloner Script
//Fight with your clones!
const
BOTFILE = 'bots/temp.bot';
CLONECHAT = true;

procedure ActivateServer();
begin
if FileExists(BOTFILE) = false then WriteLn('[*] WARNING!!!! ' + BOTFILE + ' DOES NOT EXIST!');
end;

procedure OnPlayerSpeak(ID: Byte; Text: string);
var
username,data,ending: String;
i: integer;
begin
if (CLONECHAT = true) and (Text <> '!clone') then
begin
for i:=1 to 32 do
begin
if (GetPlayerStat(i,'Active') = true) and (IDToName(i) = IDToName(ID)) then
BotChat(i,Text);
end;
end;

if Text = '!clone' then
begin
data := IDToName(ID);
username := ReadINI(BOTFILE,'BOT','Name','*ERROR*');
ending := GetPiece(ReadFile(BOTFILE),username,1);
WriteFile(BOTFILE,'[BOT]' + chr(13)+chr(10) + 'Name=' + data + ending);
Command('/addbot' + GetPlayerStat(ID,'Team') + ' temp');
end;

if Text = '!kickclones' then
begin
for i:=1 to 32 do
begin
if (GetPlayerStat(i,'Active') = true) and (IDToName(i) = IDToName(ID)) and (GetPlayerStat(ID,'Human') = false) then
Command('/kick ' + inttostr(i));
end;
end;
end;

Feel free to flame, comment, glorify(), or edit the script.

[BombSki]

quite funny ^^
thinking about adding some mod with clones to my server, got some idea already. maybe you can make it into a snippet /function

[iDante]

heh
nice.

Just one thing that always bugs me...

Code: [Select]

if FileExists(BOTFILE) = false then WriteLn('[*] WARNING!!!! ' + BOTFILE + ' DOES NOT EXIST!');
please oh plllleeeeaaase make it:

if not FileExists(BOTFILE) then ...

and in other places... just get rid of all "= true"s... they hurt my soul.

[rayanaga]

Ah yes, the =true is very unnecessary. It works without it. 

*smacks self for adding it*

[DorkeyDear]

Also, FileExists won't work on every OS until next server verison, so it'd be better to do if ReadFile(...) <> '' then ...

[UnknownSniper]

Fun mini-game with this would be making non-reg users Remote admin(for 0 ping) and make a bunch of clones of them and try to find which is the real one.

[DorkeyDear]

"Wheres Waldo" gamemode, lol

[blackdevil0742]

That would be awesome

[BombSki]

Fun mini-game with this would be making non-reg users Remote admin(for 0 ping) and make a bunch of clones of them and try to find which is the real one.

you only get 0 ping if you are actually hosting the server

[rayanaga]

"Wheres Waldo" gamemode, lol

When I was playing my friend, we all wore the same gostek and cloned like 12 copies of me and 12 copies of my friend.

If you killed the human version, you won!

[UnknownSniper]

Fun mini-game with this would be making non-reg users Remote admin(for 0 ping) and make a bunch of clones of them and try to find which is the real one.

you only get 0 ping if you are actually hosting the server

Oh, well I wouldn't really know. Thanks for the correction. =p

[Irlandec]

Funny! Nice work , pal

[Gizd]

Great, but i upgraded it :
- /clone <id> <1/0> to enabled/disable cloning for player
- clones on respawn get same weapons that player choosen

If original autor want, i can paste it

Oh, i forgot :
- clones are kicked when original leaves


[edit]
I found some errors :
- !kickclones doesn't work
- clones are orange

[rayanaga]

Go ahead and post our version.

I'd love to see it.

[Gizd]

http://rafb.net/p/lKbBUs18.html

There are still errors i written coz i don't know how to fix themĀ 

[you360]

Can you add a clone limit ?
because someone crashed my server
Nice script