Look at my last post
Look at my last post
What error are you receiving? I don't tend to personally run/compile this script but just look at where the error is occuring and fixing it.
You may contact me with any concerns you have.
Are you a victim of harassment? Please notify me or any other staff member.
| SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |
Its right before this
Code:Function FindFastRandoms: Boolean; // By WT-Fakawi. var i: Integer; begin for i:=1 to 12 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: if NoGameTab then begin Result := True; Players[CurrentPlayer].loc := 'No GameTab'; Logout; Exit; end; 8 : If RC Then Result := True; 9: If FindTalk Then Result := True; 10: If HandleTrade Then Result := True; 11: If SolveChatRandom Then Result := True; 12: ClickToContinue; End; Wait(1); end; end; // New Randoms Checking. Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer; Var I, iX,iY: Integer; Begin For I := iFrom To ITo Do Begin iX := Round(Distance * Sin(I * Pi / 180)) + 648; iY := Round(-Distance * Cos(I * Pi / 180)) + 80; If GetColor(iX, iY) = 65536 Then Begin Result := Result + 1; End; End; End; procedure AntiBanage; begin if(not(LoggedIn))then Exit; case Random(13) of 0: RandomRClickEvery(3 + Random(3)); 1: begin HoverSkill('Fishing', false); wait(2000+random(1000)); GameTab(4); end; 2: begin HoverSkill('Cooking', false); wait(2000+random(1000)); GameTab(4); end; 3: JADCompass; 4: RandomChatEvery(4 + Random(4)); 5: LeaveScreenEvery(10 + Random(4)); 6: PickUpMouse; 7: BoredEvery(10 + Random(5)); 8: begin GameTab(1 + Random(12)); wait(1000+random(1000)); GameTab(4); end; 9: begin case random(4) of 0: TypeSend('Fishing lvls?'); 1: TypeSend('Fishing levels'); 2: TypeSend('Cooking lvls'); 3: TypeSend('Cooking levels'); end; end; 10: MouseBox(MSX1,MMY1,MMX2,MMY2,3); 11: AntiBan; 12: SleepAndMoveMouse(600000+random(300000)); end; end; Begin if not LoggedIn then WriteIn(Not logged in); Terminate Script; if LoggedIn then repeat Typed_Message; TypedTimes := TypedTimes + 1; until(IsFkeyDown(8)) or (TypedTimes >= TimesToTypeMessage1)(TypedTimes >= TimesToTypeMessage2)(TypedTimes >= TimesToTypeMessage1)// this makes it stop if the press F8 or the typed times is >= TimesToType end.
What error do u get
EDIT:
It's because this procedure:
Doesn't have a name..SCAR Code:begin
SetupSRL;
if (FindRS) then
begin
ActivateClient;
Writeln('Runescape Found');
end else
begin
Writeln('Runescape Not Found, Terminating Script');
TerminateScript;
end;
end; //end here =]
Just make it like:
Then put that in your main loop.SCAR Code:Procedure Setup; //like this
begin
SetupSRL;
if (FindRS) then
begin
ActivateClient;
Writeln('Runescape Found');
end else
begin
Writeln('Runescape Not Found, Terminating Script');
TerminateScript;
end;
end; //end here =]
SCAR Code:Begin
Setup; //like so
if not LoggedIn then
WriteIn(Not logged in);
Terminate Script;
if LoggedIn then
repeat
Typed_Message;
TypedTimes := TypedTimes + 1;
until(IsFkeyDown(8)) or (TypedTimes >= TimesToTypeMessage1)(TypedTimes >= TimesToTypeMessage2)(TypedTimes >= TimesToTypeMessage1)// this makes it stop if the press F8 or the typed times is >= TimesToType
end.
With evilbob pops up?
Uninstall SRL completely, then install rev 9
[CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]
Wait new error that i gots no idea how to fix....
SCAR Code:program AutoTalker;
{.include SRL/SRL.scar}
var
TypedTimes : Integer;
WriteIn
{start to edit here}
const
Message1 = 'I think scar is cool';//input message here
TimesToTypeMessage1 = 3;//how many times you wana type it
Message2 = 'Do you think scar is cool?';//input 2nd message
TimesToTypeMessage2 = 3;//how many times you wana type it
Message3 = 'What I never heard you!';//input 3nd message
TimesToTypeMessage3 = 3;//how many times you wana type it
procedure Typed_Message;
begin
SetupSRL;
if (IsFkeyDown(1)) then
TypeSend(Message1);
Wait(2000+random(1000))//this adds a random amount of time in between type sends
if (IsFkeyDown(2)) then
TypeSend(Message2);
Wait(2000+random(1000))//this adds a random amount of time in between type sends
if (IsFkeyDown(3)) then
TypeSend(Message3);
Wait(2000+random(1000))//this adds a random amount of time in between type sends
end;
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1; //Number of PLAYERS. active or not.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //Player to start on.
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
End;
{----------Stop Editing---------}
Procedure Setup;
begin
SetupSRL;
if (FindRS) then
begin
ActivateClient;
Writeln('Runescape Found');
end else
begin
Writeln('Runescape Not Found, Terminating Script');
TerminateScript;
end;
end; //end here =]
Function FindFastRandoms: Boolean; // By WT-Fakawi.
var
i: Integer;
begin
for i:=1 to 12 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: if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
8 : If RC Then Result := True;
9: If FindTalk Then Result := True;
10: If SolveChatRandom Then Result := True;
12: ClickToContinue;
End;
Wait(1);
end;
end;
// New Randoms Checking.
Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;
Var
I, iX,iY: Integer;
Begin
For I := iFrom To ITo Do
Begin
iX := Round(Distance * Sin(I * Pi / 180)) + 648;
iY := Round(-Distance * Cos(I * Pi / 180)) + 80;
If GetColor(iX, iY) = 65536 Then
Begin
Result := Result + 1;
End;
End;
End;
Procedure Logged_In;
Begin
if not LoggedIn then
WriteIn('Not Logged In');
TerminateScript;
if LoggedIn then
if (IsFkeyDown(1) then
TypedTimes := TypedTimes + 1;
until(IsFkeyDown(8)) or (TypedTimes >= TimesToTypeMessage1)
if (IsFkeyDown(2) then
TypedTimes := TypedTimes + 1;
until(IsFkeyDown(8)) or (TypedTimes >= TimesToTypeMessage2)
if (IsFkeyDown(3) then
TypedTimes := TypedTimes + 1;
until(IsFkeyDown(8)) or (TypedTimes >= TimesToTypeMessage3)
end.
Take out line 6:
"WriteIn"
actually BTW it is WriteLn (with an L not an I)![]()
Really![]()
thx
Final Problem
I get this:SCAR Code:program AutoTalker;
{.include SRL/SRL.scar}
var
TypedTimes : Integer;
PS, W, L, SE, LZ, T, PG: Word;
x, y, DBAxe, Symbol, Death, Middle, Ammo, RewardScreen, Start, Time1, SquirePt: Integer;
GamesDone, Tries, NotFound, Logins, b, CP: Byte;
RangeType, Boat: string;
Ancients, Relog, SkipSearch, Limited, C, D: Boolean;
MonsterColor: array [0..13] of integer;
Monster: array [0..6] of string;
{start to edit here}
const
Message1 = 'I think scar is cool';//input message here
TimesToTypeMessage1 = 3;//how many times you wana type it
Message2 = 'Do you think scar is cool?';//input 2nd message
TimesToTypeMessage2 = 3;//how many times you wana type it
Message3 = 'What I never heard you!';//input 3nd message
TimesToTypeMessage3 = 3;//how many times you wana type it
procedure Typed_Message;
begin
SetupSRL;
if (IsFkeyDown(1)) then
TypeSend(Message1);
Wait(2000+random(1000))//this adds a random amount of time in between type sends
if (IsFkeyDown(2)) then
TypeSend(Message2);
Wait(2000+random(1000))//this adds a random amount of time in between type sends
if (IsFkeyDown(3)) then
TypeSend(Message3);
Wait(2000+random(1000))//this adds a random amount of time in between type sends
end;
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1; //Number of PLAYERS. active or not.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //Player to start on.
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
End;
{----------Stop Editing---------}
Procedure Setup;
begin
SetupSRL;
if (FindRS) then
begin
ActivateClient;
Writeln('Runescape Found');
end else
begin
Writeln('Runescape Not Found, Terminating Script');
TerminateScript;
end;
end; //end here =]
Function FindFastRandoms: Boolean; // By WT-Fakawi.
var
i: Integer;
begin
for i:=1 to 12 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: if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
8 : If RC Then Result := True;
9: If FindTalk Then Result := True;
10: If SolveChatRandom Then Result := True;
12: ClickToContinue;
End;
Wait(1);
end;
end;
function FindNormalRandomsA: Boolean; //Not by me
var //occasionally confusing the find-dead procedure
i: byte; //also added findfight
begin
if not LoggedIn then Exit;
w_UpdateLastLine;
for i := 1 to 7 do
begin
case I of
1: SolveNonTalkingRandoms;
2: Respond;
3: Result := FindTalk;
4: Result := FindDead;
5: Result := FindLamp(LampSkill);
6: if FindBox then
Result := SolveBox;
7: Result := RC;
end;
if FindFight then RunTo('N',True);
if Result then Break;
end;
end;
// New Randoms Checking.
Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;
Var
I, iX,iY: Integer;
Begin
For I := iFrom To ITo Do
Begin
iX := Round(Distance * Sin(I * Pi / 180)) + 648;
iY := Round(-Distance * Cos(I * Pi / 180)) + 80;
If GetColor(iX, iY) = 65536 Then
Begin
Result := Result + 1;
End;
End;
End;
procedure AntiBan(Limited:Boolean); //Not By me
var
AB: byte;
begin
Status('Performing antiban');
if Limited then AB := RandomRange(0,19) else AB := RandomRange(0,29);
case AB of
0: MMouse(Random(MSX2), Random(MSY2), 0, 0);
1: GameTab(1 + random(10));
2: begin //less lengthy version of hoverskill,
GameTab(2); //now that hovering shows remaining xp till lvl.
Wait(RandomRange(100,400));
MMouse(635, 327, 100, 140); //Randomize Coords
Wait(RandomRange(1000,1700));
end;
3: SleepAndMoveMouse(500 + Random(500));
4: PickupMouse;
5: begin
MMouse(x, y, (10 + random(400)) , (10 + random(400)));
MMouse(x, y, (10 + random(400)) , (10 + random(400)));
MMouse(x, y, (10 + random(400)) , (10 + random(400)));
end;
6,7,8,9: MMouse(x, y, (10 + random(400)) , (10 + random(400)));
10,11,12:
begin
MMouse(x, y, (10 + random(400)) , (10 + random(400)));
MMouse(x, y, (10 + random(400)) , (10 + random(400)));
end;
13,14,15: GameTab(1 + random(13));
16: begin
GameTab(1 + random(13));
GameTab(1 + random(13));
end;
17: begin
GameTab(1 + random(13));
MMouse(x, y, (10 + random(400)) , (10 + random(400)));
end;
18: begin
MMouse(10, -100, (RandomRange(10,40)) , (RandomRange(10,40)));
MMouse(x, y, (RandomRange(10,40)) , (RandomRange(10,40)));
end;
19: MouseSpeed := 12 + Random(5);
20: MakeCompass('N'); //if waiting for game to start
21: MakeCompass('E'); //it won't move compass
22: MakeCompass('W');
23: MakeCompass('S');
24: RandomMovement;
25: case Random(2) of
0:begin
KeyDown(VK_Left);
Wait(RandomRange(100,600));
KeyUp(VK_Left);
Wait(RandomRange(100,600));
end;
1:begin
KeyDown(VK_Right);
Wait(RandomRange(100,600));
KeyUp(VK_Right);
Wait(RandomRange(100,600));
end;
end;
26: HighestAngle;
27,28: LowestAngle;
29: case Random(2) of
0:begin
KeyDown(VK_Down);
Wait(RandomRange(100,600));
KeyUp(VK_Down);
Wait(RandomRange(100,600));
end;
1:begin
KeyDown(VK_Up);
Wait(RandomRange(100,600));
KeyUp(VK_Up);
Wait(RandomRange(100,600));
end;
end;
end;
Status('');
end;
Procedure Logged_In;
Begin
if not LoggedIn then
Writeln('Not Logged In');
TerminateScript;
if LoggedIn then
if (IsFkeyDown(1)) then
TypedTimes := TypedTimes + 1;
until(IsFkeyDown(8)) or (TypedTimes >= TimesToTypeMessage1)
if (IsFkeyDown(2)) then
TypedTimes := TypedTimes + 1;
until(IsFkeyDown(8)) or (TypedTimes >= TimesToTypeMessage2)
if (IsFkeyDown(3)) then
TypedTimes := TypedTimes + 1;
until(IsFkeyDown(8)) or (TypedTimes >= TimesToTypeMessage3)
end.
Now i thought that when i entered This:Code:Line 241: [Error] (16231:1): Identifier expected in script
scar would realize that theSCAR Code:const
Message1 = 'I think scar is cool';//input message here
TimesToTypeMessage1 = 3;//how many times you wana type it
Message2 = 'Do you think scar is cool?';//input 2nd message
TimesToTypeMessage2 = 3;//how many times you wana type it
Message3 = 'What I never heard you!';//input 3nd message
TimesToTypeMessage3 = 3;//how many times you wana type it
identafier is 3 but it does not how do i make it realize this?
SCAR Code:Function FindFastRandoms: Boolean; // By WT-Fakawi.
var
i: Integer;
begin
for i:=1 to 12 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: if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
8 : If RC Then Result := True;
9: If FindTalk Then Result := True;
10: If SolveChatRandom Then Result := True;
12: ClickToContinue;
end; //end here
End;
Wait(1);
end;
end;
I think this will solve the problem!!!
Formerly known as Cut em2 it
You may contact me with any concerns you have.
Are you a victim of harassment? Please notify me or any other staff member.
| SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |
This edited script should work (Some pc's have trouble with the IsFkeyDown function...)
But I strongly suggest that you should learn the basics of SCAR(I assume you don't know the basics by looking the posts in this topic, so no offfence if you do) before adding AntiRandoms and Antiban (And anyway I dunno why you have them on an auto-Talker).
So I commented all the stuff that you don't need out.
I did not test this script but in theory it should work.
Links:
http://www.srl-forums.com/forum/tuto...sland-f46.html - Go here for tuts
and I really recomend you to read this one:
http://www.villavu.com/forum/showthread.php?t=4625 -Unmatched noob tut
SCAR Code:program AutoTalker;
{.include SRL/SRL.scar}
var
TypedTimes1, TypedTimes2, TypedTimes3: Integer;
{PS, W, L, SE, LZ, T, PG: Word;
x, y, DBAxe, Symbol, Death, Middle, Ammo, RewardScreen, Start, Time1, SquirePt: Integer;
GamesDone, Tries, NotFound, Logins, b, CP: Byte;
RangeType, Boat: string;
Ancients, Relog, SkipSearch, Limited, C, D: Boolean;
MonsterColor: array [0..13] of integer;
Monster: array [0..6] of string; }
{start to edit here}
const
Message1 = 'I think scar is cool';//input message here
TimesToTypeMessage1 = 3;//how many times you wana type it
Message2 = 'Do you think scar is cool?';//input 2nd message
TimesToTypeMessage2 = 3;//how many times you wana type it
Message3 = 'What I never heard you!';//input 3nd message
TimesToTypeMessage3 = 3;//how many times you wana type it
{
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1; //Number of PLAYERS. active or not.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //Player to start on.
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
End;
}
{----------Stop Editing---------}
{
Procedure Setup;
begin
SetupSRL;
if (FindRS) then
begin
ActivateClient;
Writeln('Runescape Found');
end else
begin
Writeln('Runescape Not Found, Terminating Script');
TerminateScript;
end;
end; //end here =]
Function FindFastRandoms: Boolean; // By WT-Fakawi.
var
i: Integer;
begin
for i:=1 to 12 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: if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
8 : If RC Then Result := True;
9: If FindTalk Then Result := True;
10: If SolveChatRandom Then Result := True;
12: ClickToContinue;
End;
Wait(1);
end;
end;
function FindNormalRandomsA: Boolean; //Not by me
var //occasionally confusing the find-dead procedure
i: byte; //also added findfight
begin
if not LoggedIn then Exit;
w_UpdateLastLine;
for i := 1 to 7 do
begin
case I of
1: SolveNonTalkingRandoms;
2: Respond;
3: Result := FindTalk;
4: Result := FindDead;
5: Result := FindLamp(LampSkill);
6: if FindBox then
Result := SolveBox;
7: Result := RC;
end;
if FindFight then RunTo('N',True);
if Result then Break;
end;
end;
// New Randoms Checking.
Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;
Var
I, iX,iY: Integer;
Begin
For I := iFrom To ITo Do
Begin
iX := Round(Distance * Sin(I * Pi / 180)) + 648;
iY := Round(-Distance * Cos(I * Pi / 180)) + 80;
If GetColor(iX, iY) = 65536 Then
Begin
Result := Result + 1;
End;
End;
End;
procedure AntiBan(Limited:Boolean); //Not By me
var
AB: byte;
begin
Status('Performing antiban');
if Limited then AB := RandomRange(0,19) else AB := RandomRange(0,29);
case AB of
0: MMouse(Random(MSX2), Random(MSY2), 0, 0);
1: GameTab(1 + random(10));
2: begin //less lengthy version of hoverskill,
GameTab(2); //now that hovering shows remaining xp till lvl.
Wait(RandomRange(100,400));
MMouse(635, 327, 100, 140); //Randomize Coords
Wait(RandomRange(1000,1700));
end;
3: SleepAndMoveMouse(500 + Random(500));
4: PickupMouse;
5: begin
MMouse(x, y, (10 + random(400)) , (10 + random(400)));
MMouse(x, y, (10 + random(400)) , (10 + random(400)));
MMouse(x, y, (10 + random(400)) , (10 + random(400)));
end;
6,7,8,9: MMouse(x, y, (10 + random(400)) , (10 + random(400)));
10,11,12:
begin
MMouse(x, y, (10 + random(400)) , (10 + random(400)));
MMouse(x, y, (10 + random(400)) , (10 + random(400)));
end;
13,14,15: GameTab(1 + random(13));
16: begin
GameTab(1 + random(13));
GameTab(1 + random(13));
end;
17: begin
GameTab(1 + random(13));
MMouse(x, y, (10 + random(400)) , (10 + random(400)));
end;
18: begin
MMouse(10, -100, (RandomRange(10,40)) , (RandomRange(10,40)));
MMouse(x, y, (RandomRange(10,40)) , (RandomRange(10,40)));
end;
19: MouseSpeed := 12 + Random(5);
20: MakeCompass('N'); //if waiting for game to start
21: MakeCompass('E'); //it won't move compass
22: MakeCompass('W');
23: MakeCompass('S');
24: RandomMovement;
25: case Random(2) of
0:begin
KeyDown(VK_Left);
Wait(RandomRange(100,600));
KeyUp(VK_Left);
Wait(RandomRange(100,600));
end;
1:begin
KeyDown(VK_Right);
Wait(RandomRange(100,600));
KeyUp(VK_Right);
Wait(RandomRange(100,600));
end;
end;
26: HighestAngle;
27,28: LowestAngle;
29: case Random(2) of
0:begin
KeyDown(VK_Down);
Wait(RandomRange(100,600));
KeyUp(VK_Down);
Wait(RandomRange(100,600));
end;
1:begin
KeyDown(VK_Up);
Wait(RandomRange(100,600));
KeyUp(VK_Up);
Wait(RandomRange(100,600));
end;
end;
end;
Status('');
end;
}
procedure TypeMessage;
begin
if (IsFkeyDown(2)) then
begin
repeat
TypeSend(Message1);
Wait(2000+random(1000))//this adds a random amount of time in between type sends
TypedTimes1 := TypedTimes1 +1;
until(IsFkeyDown(8)) or (TypedTimes1 >= TimesToTypeMessage2)
end
if (IsFkeyDown(3)) then
begin
repeat
TypeSend(Message2);
Wait(2000+random(1000))//this adds a random amount of time in between type sends
TypedTimes2 := TypedTimes2 +1;
until(IsFkeyDown(8)) or (TypedTimes2 >= TimesToTypeMessage2)
end
if (IsFkeyDown(4)) then
begin
repeat
TypeSend(Message3);
Wait(2000+random(1000))//this adds a random amount of time in between type sends
TypedTimes3 := TypedTimes3 +1;
until(IsFkeyDown(8)) or (TypedTimes3 >= TimesToTypeMessage2)
end
end;
Begin
SetupSRL;
TypedTimes1 := 0;
TypedTimes2 := 0;
TypedTimes3 := 0;
repeat
if not LoggedIn then
begin
Writeln('Not Logged In');
TerminateScript;
end
if LoggedIn then
begin
TypeMessage;
end
until false
end.
WOw you guess right but try this my Fina; form
Works with : SRL#9 Scar Divi 3.12
But have i mind im just satring on the testing :PSCAR Code:program AutoTalker;
{.include SRL/SRL.scar}
var
TypedTimes : Integer;
x, y : Integer;
{start to edit here}
const
Message1 = 'I think scar is cool';//input message here
TimesToTypeMessage1 = 3;//how many times you wana type it
Message2 = 'Do you think scar is cool?';//input 2nd message
TimesToTypeMessage2 = 3;//how many times you wana type it
Message3 = 'What I never heard you!';//input 3nd message
TimesToTypeMessage3 = 3;//how many times you wana type it
procedure Typed_Message;
begin
SetupSRL;
if (IsFkeyDown(1)) then
TypeSend(Message1);
Wait(2000+random(1000))//this adds a random amount of time in between type sends
if (IsFkeyDown(2)) then
TypeSend(Message2);
Wait(2000+random(1000))//this adds a random amount of time in between type sends
if (IsFkeyDown(3)) then
TypeSend(Message3);
Wait(2000+random(1000))//this adds a random amount of time in between type sends
end;
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1; //Number of PLAYERS. active or not.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //Player to start on.
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
End;
{----------Stop Editing---------}
Procedure Setup;
begin
SetupSRL;
if (FindRS) then
begin
ActivateClient;
Writeln('Runescape Found');
end else
begin
Writeln('Runescape Not Found, Terminating Script');
TerminateScript;
end;
end; //end here =]
Function FindFastRandoms: Boolean; // By WT-Fakawi.
var
i: Integer;
begin
for i:=1 to 12 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: if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
8 : If RC Then Result := True;
9: If FindTalk Then Result := True;
10: If SolveChatRandom Then Result := True;
12: ClickToContinue;
End;
Wait(1);
end;
end;
function FindNormalRandomsA: Boolean; //Not by me
var //occasionally confusing the find-dead procedure
i: byte; //also added findfight
begin
if not LoggedIn then Exit;
w_UpdateLastLine;
for i := 1 to 7 do
begin
case I of
1: SolveNonTalkingRandoms;
2: Respond;
3: Result := FindTalk;
4: Result := FindDead;
5: Result := FindLamp(LampSkill);
6: if FindBox then
Result := SolveBox;
7: Result := RC;
end;
if FindFight then RunTo('N',True);
if Result then Break;
end;
end;
// New Randoms Checking.
Function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;
Var
I, iX,iY: Integer;
Begin
For I := iFrom To ITo Do
Begin
iX := Round(Distance * Sin(I * Pi / 180)) + 648;
iY := Round(-Distance * Cos(I * Pi / 180)) + 80;
If GetColor(iX, iY) = 65536 Then
Begin
Result := Result + 1;
End;
End;
End;
procedure AntiBan(Limited:Boolean); //Not By me
var
AB: byte;
begin
Status('Performing antiban');
if Limited then AB := RandomRange(0,19) else AB := RandomRange(0,29);
case AB of
0: MMouse(Random(MSX2), Random(MSY2), 0, 0);
1: GameTab(1 + random(10));
2: begin //less lengthy version of hoverskill,
GameTab(2); //now that hovering shows remaining xp till lvl.
Wait(RandomRange(100,400));
MMouse(635, 327, 100, 140); //Randomize Coords
Wait(RandomRange(1000,1700));
end;
3: SleepAndMoveMouse(500 + Random(500));
4: PickupMouse;
5: begin
MMouse(x, y, (10 + random(400)) , (10 + random(400)));
MMouse(x, y, (10 + random(400)) , (10 + random(400)));
MMouse(x, y, (10 + random(400)) , (10 + random(400)));
end;
6,7,8,9: MMouse(x, y, (10 + random(400)) , (10 + random(400)));
10,11,12:
begin
MMouse(x, y, (10 + random(400)) , (10 + random(400)));
MMouse(x, y, (10 + random(400)) , (10 + random(400)));
end;
13,14,15: GameTab(1 + random(13));
16: begin
GameTab(1 + random(13));
GameTab(1 + random(13));
end;
17: begin
GameTab(1 + random(13));
MMouse(x, y, (10 + random(400)) , (10 + random(400)));
end;
18: begin
MMouse(10, -100, (RandomRange(10,40)) , (RandomRange(10,40)));
MMouse(x, y, (RandomRange(10,40)) , (RandomRange(10,40)));
end;
19: MouseSpeed := 12 + Random(5);
20: MakeCompass('N'); //if waiting for game to start
21: MakeCompass('E'); //it won't move compass
22: MakeCompass('W');
23: MakeCompass('S');
24: RandomMovement;
25: case Random(2) of
0:begin
KeyDown(VK_Left);
Wait(RandomRange(100,600));
KeyUp(VK_Left);
Wait(RandomRange(100,600));
end;
1:begin
KeyDown(VK_Right);
Wait(RandomRange(100,600));
KeyUp(VK_Right);
Wait(RandomRange(100,600));
end;
end;
26: HighestAngle;
27,28: LowestAngle;
29: case Random(2) of
0:begin
KeyDown(VK_Down);
Wait(RandomRange(100,600));
KeyUp(VK_Down);
Wait(RandomRange(100,600));
end;
1:begin
KeyDown(VK_Up);
Wait(RandomRange(100,600));
KeyUp(VK_Up);
Wait(RandomRange(100,600));
end;
end;
end;
Status('');
end;
Procedure Logged_In;
Begin
if not LoggedIn then
Cleardebug;
Writeln('Not Logged In');
TerminateScript;
if LoggedIn then
Cleardebug;
repeat Typed_Message;
if (IsFkeyDown(1)) or (IsFkeyDown(2)) or (IsFkeyDown(3)) then
TypedTimes := TypedTimes + 1;
until(IsFkeyDown(8)) or (TypedTimes >= TimesToTypeMessage1) or (TypedTimes >= TimesToTypeMessage2) or (TypedTimes >= TimesToTypeMessage3)
end;
Begin
end.
@JonOve I just added randoms and such as fail safes and want my Auto Talker to be the BEST one there is and its theres no such thing and being to safe
Can i just modify your though i will give you credits.....h):
Yea just use that script I wrote
Good luck with your scripting!
There are currently 1 users browsing this thread. (0 members and 1 guests)