Jhangir
2011-12-25 15:01:47
program SnapeGrass;
//{$define SMART}
{$i srl/srl.scar}
{$i sps/sps.simba}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].Pin := '';
end;
end;
Procedure Antiban;
Begin
case Random(250) Of
0: HoverSkill('random', False);
1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
2: ExamineInv;
3: RandomAngle(1);
4: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv); End;
5: HoverSkill('random', False);
End;
End;
Procedure StatsGuise(wat:String);
begin
Status(wat);
Disguise(wat);
end;
Procedure StartScript;
Begin
SetUpSRL;
MouseSpeed := 15;
ActivateClient;
DeclarePlayers;
If (Not LoggedIn) then
LoginPlayer;
SetAngle(True);
MakeCompass('n');
End;
Procedure WalkToBank;
var
ToBanker:TPointArray;
Begin
If Not FindNormalRandoms Then
Begin
SPS_Setup(RUNESCAPE_SURFACE, ['13_4']);
ToBanker := [Point(5626, 1840), Point(5636, 1833), Point(5640, 1811), Point(5640, 1796), Point(5637, 1780), Point(5636, 1761)];
StatsGuise('Heading to Banker');
WriteLn('Heading to Banker');
SPS_WalkPath(ToBanker);
StatsGuise('Arrived at Banker');
WriteLn('Arrived at Banker');
End;
End;
Function Bank: Boolean;
Var
x, y:Integer;
begin
Flag;
Wait(2000+RandomRange(25,50));
If FindObjCustom(x, y, ['anker'], [10117444, 6723765], 25) Then
begin;
MMouse(x, y, 1, 1);
Wait(200+RandomRange(50,100));
Mouse(x, y, 0, 0, False);
Wait(200+Randomrange(100,150));
ChooseOption('ank Frem');
Wait(2000+RandomRange(25,50));
if PinScreen then
if (Players[CurrentPlayer].Pin <> '') then
InPin(Players[CurrentPlayer].Pin)
else
begin;
writeln('NO PIN ENTERED!');
TerminateScript;
end;
end;
end;
Procedure Withdrawrunes;
begin
DepositAll;
Withdraw(0, 0, 2);
Wait(200+RandomRange(50,100));
Withdraw(1, 0, 1);
Wait(200+RandomRange(50,100));
Withdraw(2, 0, 1);
Wait(200+RandomRange(50,100));
CloseBank;
StatsGuise('Banked snape grass and withdrew runes');
WriteLn('Banked snape grass and withdrew runes');
end;
begin
StartScript;
WalkToBank;
Bank;
Withdrawrunes;
end.Im really frustrated right now I changed the coords so many times. I want my char to go to the banker after it teleports to daemonheim but it keep going in other ******* directions. sometimes it goes past the banker and keeps going north. Sometimes it keeps going west. I changed the coords and the surface png so many times but it keeps going to wrong places.
Procedure WalkToBank;
var
ToBanker:TPointArray;
Begin
If Not FindNormalRandoms Then
Begin
SPS_Setup(RUNESCAPE_SURFACE, ['13_4']);
ToBanker := [Point(5626, 1840), Point(5636, 1833), Point(5640, 1811), Point(5640, 1796), Point(5637, 1780), Point(5636, 1761)];
StatsGuise('Heading to Banker');
WriteLn('Heading to Banker');
SPS_WalkPath(ToBanker);
StatsGuise('Arrived at Banker');
WriteLn('Arrived at Banker');
End;
End;