mightyz
04-03-2012, 05:34 AM
Hello, i just started scripting on saturday and it all seems to be going well so far and i just started making my own power miner and the issue is that after starting the script it instantly says successfully executed and stops the script and i don't know why so hopefully one of you guys could help me out.
program PowerMiner;
{$DEFINE SMART}
{$i srl/srl.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Players[0].Name := ''; // Username
Players[0].Pass := 'd'; // Password
Players[0].Nick := 'umbe'; // 3-4 lowercase letters from username;
Players[0].Active := True; // Set to true if you want to use Player 0
Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
end;
end;
//Anti Ban
procedure Antiban;
begin
if(not(LoggedIn))then Exit;
begin
case Random(100) of
10: RandomRClick;
30: PickUpMouse;
50: RandomMovement;
70: BoredHuman;
89: ExamineInv;
end;
end;
end;
// Failsafe
Procedure FailSafe(Reason:String);
begin
Players[CurrentPlayer].Loc := Reason;
Logout;
Stats_Commit;
//ProgressReport;
TerminateScript;
End;
Function MineIron:Boolean;
var
x, y: Integer;
Begin
If FindObjTPA(x, y, 2437196, 9, 2, 40, 40, 200, ['ine'])Then
Begin
Case Random(2) Of
0: Mouse(X, Y, 5, 5, True);
1: Begin
Mouse(X, Y, 5, 5, False);
WaitOption('ine', 500);
end;
end;
result:= true;
end else result:= false;
end;
begin
//Smart_Server := 0;
//Smart_Members := True;
//Smart_Signed := True;
//Smart_SuperDetail := False;
SetupSRL;
ClearDebug;
DeclarePlayers;
LoginPlayer;
MineIron;
end.
program PowerMiner;
{$DEFINE SMART}
{$i srl/srl.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Players[0].Name := ''; // Username
Players[0].Pass := 'd'; // Password
Players[0].Nick := 'umbe'; // 3-4 lowercase letters from username;
Players[0].Active := True; // Set to true if you want to use Player 0
Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
end;
end;
//Anti Ban
procedure Antiban;
begin
if(not(LoggedIn))then Exit;
begin
case Random(100) of
10: RandomRClick;
30: PickUpMouse;
50: RandomMovement;
70: BoredHuman;
89: ExamineInv;
end;
end;
end;
// Failsafe
Procedure FailSafe(Reason:String);
begin
Players[CurrentPlayer].Loc := Reason;
Logout;
Stats_Commit;
//ProgressReport;
TerminateScript;
End;
Function MineIron:Boolean;
var
x, y: Integer;
Begin
If FindObjTPA(x, y, 2437196, 9, 2, 40, 40, 200, ['ine'])Then
Begin
Case Random(2) Of
0: Mouse(X, Y, 5, 5, True);
1: Begin
Mouse(X, Y, 5, 5, False);
WaitOption('ine', 500);
end;
end;
result:= true;
end else result:= false;
end;
begin
//Smart_Server := 0;
//Smart_Members := True;
//Smart_Signed := True;
//Smart_SuperDetail := False;
SetupSRL;
ClearDebug;
DeclarePlayers;
LoginPlayer;
MineIron;
end.