well here is my autotalker
Hope you enjoy
Version 1:First Release
Version 1.5: Little change, but a big change.
thanks-ashur![]()
well here is my autotalker
Hope you enjoy
Version 1:First Release
Version 1.5: Little change, but a big change.
thanks-ashur![]()
VERSION 1.5 RELEASED
lol..sorry for releasing so fast...but one little change can make a big diffrence![]()
sry fer duble posting, but ur antirandoms will not work, u need to have the loadbmps from the name![]()
![]()
![]()
![]()
P.S just for the purpose of anti-leeching, i made one small error. its soooooo easy fer a scripter to spot.
SCAR Code:program AutoTalker;
{.include SRL/SRL.scar}
const
WhatToSay1='selin full dharoks 3.2m';Put what you want to say
WhatToSay2='selin 5kbs 180ea!';Put what you want to say next
WhatToSay3='buying full veracs';yet another one
WhatToSay4='selling rune trimed pl8';need i say it?
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='';//Name Goes Here
Players[0].Pass :='';//Password Goes Here
Players[0].Nick :='';//3-4 LowerCase Letters Of Your Name
Players[0].Active:=True;//True If Using, False If Not
End;
procedure LoggingIn;
begin
SetUpSRL;
DeclarePlayers;
LoginPlayer;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('E');
Wait(10000 + random(2000));
RunBack;
Writeln('Found a random!')
end;
end;
procedure AmostLogout;
var e,f,TempMouseSpeed:integer;
begin
GameTab(10);
TempMouseSpeed:=MouseSpeed;
MouseSpeed:=MouseSpeed + 20;
e:=5+random(6);
for f:=0 to e do
begin
case random(3) of
0,1:MMouse(583+random(120),361+random(20),0,0);
2:IdleTime(300+random(300),500,0.5);
end
wait(500+random(1000));
end
MouseSpeed:=TempMouseSpeed;
GameTab(4);
end;
procedure Talk1;
begin
Wait(1000+random(200));
TypeSend(WhatToSay1 +chr(13));
Wait(1000+random(200));
DoAntiRandoms;
end;
procedure Talk2;
begin
Wait(1000+random(200));
TypeSend(WhatToSay2 +chr(13));
Wait(1000+random(200));
DoAntiRandoms;
end;
procedure Talk3;
begin
Wait(1000+random(200));
TypeSend(WhatToSay1 +chr(13));
Wait(1000+random(200));
DoAntiRandoms;
end;
procedure Talk4;
begin
Wait(1000+random(200));
TypeSend(WhatToSay1 +chr(13));
Wait(1000+random(200));
DoAntiRandoms;
end;
begin
SetupSRL;
repeat
DeclarePlayers;
LoginPlayer;
DoAntiRandoms;
Talk1;
DoAntiRandoms;
Talk2;
DoAntiRandoms;
Talk3;
DoAntiRandoms;
Talk4;
AmostLogout;
until(false)
end.
Just for the purpose of not screwing people over
SCAR Code:program AutoTalker;
{.include SRL/SRL.scar}
const
WhatToSay1='selin full dharoks 3.2m';//Put what you want to say
WhatToSay2='selin 5kbs 180ea!';//Put what you want to say next
WhatToSay3='buying full veracs';//yet another one
WhatToSay4='selling rune trimed pl8';//need i say it?
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='';//Name Goes Here
Players[0].Pass :='';//Password Goes Here
Players[0].Nick :='';//3-4 LowerCase Letters Of Your Name
Players[0].Active:=True;//True If Using, False If Not
End;
procedure LoggingIn;
begin
SetUpSRL;
DeclarePlayers;
LoginPlayer;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('E');
Wait(10000 + random(2000));
RunBack;
Writeln('Found a random!')
end;
end;
procedure AmostLogout;
var e,f,TempMouseSpeed:integer;
begin
GameTab(10);
TempMouseSpeed:=MouseSpeed;
MouseSpeed:=MouseSpeed + 20;
e:=5+random(6);
for f:=0 to e do
begin
case random(3) of
0,1:MMouse(583+random(120),361+random(20),0,0);
2:IdleTime(300+random(300),500,0.5);
end
wait(500+random(1000));
end
MouseSpeed:=TempMouseSpeed;
GameTab(4);
end;
procedure Talk1;
begin
Wait(1000+random(200));
TypeSend(WhatToSay1 +chr(13));
Wait(1000+random(200));
DoAntiRandoms;
end;
procedure Talk2;
begin
Wait(1000+random(200));
TypeSend(WhatToSay2 +chr(13));
Wait(1000+random(200));
DoAntiRandoms;
end;
procedure Talk3;
begin
Wait(1000+random(200));
TypeSend(WhatToSay1 +chr(13));
Wait(1000+random(200));
DoAntiRandoms;
end;
procedure Talk4;
begin
Wait(1000+random(200));
TypeSend(WhatToSay1 +chr(13));
Wait(1000+random(200));
DoAntiRandoms;
end;
begin
SetupSRL;
repeat
DeclarePlayers;
LoginPlayer;
DoAntiRandoms;
Talk1;
DoAntiRandoms;
Talk2;
DoAntiRandoms;
Talk3;
DoAntiRandoms;
Talk4;
AmostLogout;
until(false)
end.
--------------------------------------------------------- ![]()
Pm me if you need any math functions made. Me = l0ving t3h mathz
--------------------------------------------------------- ![]()
Dw, i hope you enjoy those posts added to you're post count, and bumping my thread...
P.S: There's an edit button
-Ashur
Exam period.
There are currently 1 users browsing this thread. (0 members and 1 guests)