footballjds
12-26-2007, 07:40 PM
why does this Script not find talking randoms? it finds other ones, ie it found and solved demon... to test it i set the nickname to he, and typed in the. and it didn't find it, any clues? please look at script b4 answer thanks!
program HighAlcher;
{.include srl/srl.scar}
{.include SRL/SRL/skill/Magic.scar}
var
StopAmount : integer;
const
Your_SRL_ID = ''; // don't have this? go to:
Your_SRL_Pass = ''; // http://www.stats.srl-forums.com/
//Note the above is uneeded but very nice!
////////////////////////////////////////////////////////////////////////////////
procedure SetupPlayers;
begin
NumberOfPlayers(1);//Don't Change This
Players[0].Nick := 'he';//Nick Name
Players[0].Integers[0] := 21;//Number Of Alchs to do
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure CastHighAlch;
begin
CastSpell(35);
wait(10+random(50));
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure OnLongbows;
begin
wait(30+random(10));
if(IsUpTextMultiCustom(['longbow', 'long', 'ong', 'bow', 'ew', 'apl', 'agi', 'ngb'])) then
begin
MouseBox(694, 324, 716, 348, True);
end;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure AntiBan;
begin
case random(500) of
0, 2, 3: Begin
KeyDown(VK_Down);
Wait(random(1000));
KeyUp(VK_Down);
end;
4, 5, 6: Begin
KeyDown(VK_Left);
Wait(random(1000));
KeyUp(VK_Left);
end;
7, 8, 9: Begin
KeyDown(VK_Right);
Wait(random(1000));
KeyUp(VK_Right);
end;
10, 11, 12: Begin
KeyDown(VK_Up);
KeyDown(VK_Left);
Wait(random(1000));
KeyUp(VK_Up);
Wait(random(800));
KeyUp(VK_Left);
end;
13: Begin
HoverSkill('magic', False);
end;
14, 15: Begin
PickUpMouse;
end;
16: Begin
AlmostLogout;
end;
17, 18: Begin
BoredHuman;
end;
end;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure MainLoop;
var
DoneAmount : integer;
begin
repeat
StopAmount := (Players[0].integers[0]);
CastHighAlch;
FindNormalRandoms;
OnLongbows;
If FindFight Then
Begin
RunAwayDirection('W');
Wait(5000+random(3000));
RunAwayDirection('E');
Setrun(false);
end;
wait(1050+random(300));
wait(1050+random(300));
AntiBan;
DoneAmount := DoneAmount +1;
until(DoneAmount >= StopAmount)
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
begin
MouseSpeed := 13;
If FindRs Then
begin
ActivateClient;
end else
begin
Writeln('No RS');
TerminateScript;
end;
SetupSRL;
SetupPlayers;
MainLoop;
end.
////////////////////////////////////////////////////////////////////////////////
program HighAlcher;
{.include srl/srl.scar}
{.include SRL/SRL/skill/Magic.scar}
var
StopAmount : integer;
const
Your_SRL_ID = ''; // don't have this? go to:
Your_SRL_Pass = ''; // http://www.stats.srl-forums.com/
//Note the above is uneeded but very nice!
////////////////////////////////////////////////////////////////////////////////
procedure SetupPlayers;
begin
NumberOfPlayers(1);//Don't Change This
Players[0].Nick := 'he';//Nick Name
Players[0].Integers[0] := 21;//Number Of Alchs to do
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure CastHighAlch;
begin
CastSpell(35);
wait(10+random(50));
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure OnLongbows;
begin
wait(30+random(10));
if(IsUpTextMultiCustom(['longbow', 'long', 'ong', 'bow', 'ew', 'apl', 'agi', 'ngb'])) then
begin
MouseBox(694, 324, 716, 348, True);
end;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure AntiBan;
begin
case random(500) of
0, 2, 3: Begin
KeyDown(VK_Down);
Wait(random(1000));
KeyUp(VK_Down);
end;
4, 5, 6: Begin
KeyDown(VK_Left);
Wait(random(1000));
KeyUp(VK_Left);
end;
7, 8, 9: Begin
KeyDown(VK_Right);
Wait(random(1000));
KeyUp(VK_Right);
end;
10, 11, 12: Begin
KeyDown(VK_Up);
KeyDown(VK_Left);
Wait(random(1000));
KeyUp(VK_Up);
Wait(random(800));
KeyUp(VK_Left);
end;
13: Begin
HoverSkill('magic', False);
end;
14, 15: Begin
PickUpMouse;
end;
16: Begin
AlmostLogout;
end;
17, 18: Begin
BoredHuman;
end;
end;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure MainLoop;
var
DoneAmount : integer;
begin
repeat
StopAmount := (Players[0].integers[0]);
CastHighAlch;
FindNormalRandoms;
OnLongbows;
If FindFight Then
Begin
RunAwayDirection('W');
Wait(5000+random(3000));
RunAwayDirection('E');
Setrun(false);
end;
wait(1050+random(300));
wait(1050+random(300));
AntiBan;
DoneAmount := DoneAmount +1;
until(DoneAmount >= StopAmount)
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
begin
MouseSpeed := 13;
If FindRs Then
begin
ActivateClient;
end else
begin
Writeln('No RS');
TerminateScript;
end;
SetupSRL;
SetupPlayers;
MainLoop;
end.
////////////////////////////////////////////////////////////////////////////////