
Originally Posted by
geerhedd
program nats;
////////////////////////////////////////ALL PROCEDURES IN THIS SCRIPT WERE STOLEN FROM OTHER SCRIPTS, ////
/////////////MOST FROM FAKAWIS GOBLIN SCHEDULER, OTHERS FROM FAKAWIS AGENT SMITH/////////////////////////
////////////////////NONE OF THIS CODE IS MINE///I DID NOT HAVE PERMISSION TO USE IT /////////////////////
/////////I APOLOGIZE FOR STEALING PROCEDURES, PLEASE FORGIVE ME/////////////////////////////////////
/////THE ORIGINAL SCRIPT JUST HAD THEIVING PROCEDURE AND I DONT KNOW WHERE I CAME FROM////////////////////
{.include SRL/SRL.scar}
{.include SRL/SRL/extended/XAntiRandoms.scar}
const
chestcolor = 4018280;
StartPlayer = 0;
var
traps: integer;
var
SST1, SST2, FindNorMalRandomsTime, FindFastRandomsTime: LongInt;
procedure loadbmps;
begin
traps := BitmapFromString(31, 8, 'z78DA33304000371CC0000310' +
'AF92BAEA89770F7E35F414C70F88D7457C9890E7424AE2885 435B' +
'40E5BF252C2F0703925A98592BC4F6ACAA71C0C94BD83D9E5 0010' +
'C54578');
end;
//----------------------------------------------------------------------------//
Function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 8 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if FindFight then
begin
RunTo('W',False);
end;
end;
end;
wait(1);
end;
end;
//----------------------------------------------------------------------------//
Procedure DeclarePlayers;
begin
HowManyPlayers:=1;
NumberOfPlayers(HowManyPlayers);
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active := True;
end;
//----------------------------------------------------------------------------//
Procedure DoChats;
Begin
SetChat('On', 1);
SetChat('On', 1);
SetChat('Off', 2);
SetChat('Off', 2);
SetChat('Off', 3);
SetChat('Off', 3);
End;
//----------------------------------------------------------------------------//
//---> Waits while Checking for Randoms;
//----------------------------------------------------------------------------//
Procedure FTWaitAll(Time:Integer);
var T: integer;
begin
For T := 1 to Time do
begin
if not LoggedIn then exit;
Wait(200 + Random(50));
FindTalk;
RC;
end;
FindTalk;
MarkTime(FindNorMalRandomsTime);
if FindNorMalRandomsTime - SST1 >(10000 + Random(5000)) then
begin
FindNorMalRandoms;
MarkTime(SST1);
end;
MarkTime(FindFastRandomsTime);
if FindFastRandomsTime - SST2 >(1500 + Random(1500)) then
begin
FindFastRandoms;
MarkTime(SST2);
end;
end;
procedure theiving;
begin
findcolorspiral(x,y,chestcolor,5,5,515,336);
Wait(5000 + Random(50));
mouse(x,y,5,5,false);
findbitmap(traps,x,y);
Wait(200 + Random(5));
mouse(x,y,5,5,true);
end;
//----------------------------------------------------------------------------//
Procedure MyAntiBan;
var
DBanMe : Integer;
begin
if ( not ( LoggedIn )) then Exit;
DBanMe:= Random(50);
case DBanMe of
1: RandomRClickEvery(2 + Random(13));
2: hoverskill('random', false);
3: RandomChatEvery(10 + Random(5));
4: RotateEvery(20 + Random(10));
5: LeaveScreenEvery(5 + Random(5));
6: HoverEvery(15 + Random(5),'random');
8: PickUpMouse;
9: BoredEvery(9 + Random(24));
10: if ExistsItem ( 1 ) then
DragItem(1, 1+Random(18));
11: GameTab(1 + Random(12));
12: DoEmote(1 + Random(20));
end;
end;
procedure findrandoms;
begin
FindNormalRandoms;
end;
begin
setupsrl;
BenMouse := True;
loadbmps;
ClearReport;
MarkTime(SST1); // global timers for FTWaitAll;
MarkTime(SST2);
DeclarePlayers;
LoginPlayer;
SetScreenName(Players[CurrentPlayer].Nick); // in case we where already logged in.
DoChats;
repeat
theiving;
Findrandoms;
FindFastRandoms;
MyAntiBan;
until(false)
end.