cradlefatal
2013-02-26 13:55:54
okay my script compiles just fine it opens up smart and logs you in but when you are at the mines it does nothing and the mouse disapears can anyone tell me what i'm missing need to change around because no matter what I try to do change the color or the mouse speed every time I run it, it does the same thing
program new;
{$DEFINE SMART8}
{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1; // This is set to the total amount of players (more on multiplayer later ;)), for now, just keep it set as 1
NumberOfPlayers(HowManyPlayers); // This is a procedure in SRL which sets up player arrays (also, more on that later), this will always be the same
CurrentPlayer := 0; // This is the player to start with; the first player will always be 0 (you'll find out when you learn all about arrays)
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // 3-4 lowercase letters from username; used for random event detection
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;
begin
ClearDebug;
SetupSRL;
DeclarePlayers; // Calls the procedure, you can't forget this!
LoginPlayer; // You want your player to login, right?
end.
const
//Credits to YoHoJo for an understandable tutorial video, and Solidone4 for the antiban
begin
Version = 1.0;
Rock = 'Coal'
//Start at Mining Spot with pickaxe wielded
End;
Procedure ProgressReport; Forward;
Var RockPattern: Array Of TIntegerArray;
Var TOres,TLoads,WeMined,StartTime,GemDTM:Integer;
Var RT, ChatBox, TExperiance, LastPainted:Integer;
Procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;
procedure Antiban;
begin
Case Random(20000) Of
0:
begin
HoverSkill('Mining', False);
GameTab(Tab_Inv);
end;
1:
begin
PickUpMouse;
SleepAndMoveMouse(3000 + Random(500));
PickUpMouse;
end;
2: ExamineInv;
3:
begin
RandomAngle(SRL_ANGLE_HIGH);
SetAngle(SRL_ANGLE_HIGH);
end;
4:
begin
GameTab(Tab_Stats);
Wait(3000 + Random(500));
GameTab(Tab_Inv);
end;
5:
begin
HoverSkill('random', False);
GameTab(Tab_Inv);
end;
end;
end;
procedure FailSafe(Reason:String);
begin
Players [CurrentPlayer].Loc:=Reason;
Logout;
Stats_Commit;
ProgressReport;
TerminateScript;
end;
begin
procedure minecoal;
var x, y: integer;
begin
if FindObj(x, y, 'Coal' 'Min' 'oal' 'ine' 'Mine' 'rocks', 81316374,1974561,3160642, 35) then
begin
Mouse(x, y, 2, 2, false);
ChooseOption('Coal');
end;
end;
Function CheckAndClick(UpText:String; X,Y:Integer; RClick:String):Boolean;
Begin
MMouse(x, y, 5, 5);
If WaitUptext(UpText, 150) Then
Begin
Result:=True;
GetMousePos(x, y);
Case RClick Of
'R':
Begin
Mouse(x, y, 0, 0, False);
WaitOption('ine', 500);
//FFlag(3);
End;
'L':
Begin
Mouse(x, y, 0, 0,True);
//FFlag(3);
End;
End;
End;
End;
Smart_FixSpeed:=True;
SRL_SixHourFix:=True;
SetupSRL;
MouseSpeed:=30
DeclarePlayers;
StartTime:=GetSystemTime;
ProgXP;
BasicSetup;
TOres:=0;'
MarkTime(LastPainted);
FindNormRandoms;
StatsGuise(Players[CurrentPlayer].Nick + 'logging in'
LoginPlayer; if (SRL_Logs < 1) then SRL_Logs :=0;
Players[CurrentPlayer].Integers[82];=0;
Players[CurrentPlayer].Level[15]:=GetSkillLevel(Skill_Mining)
GameTab(Tab_Inv)
StatsGuise(Players[CurrentPlayer].Nick + 'Mining Lv' +IntToStr(Players[CurrentPlayer].Level[15]))
SetRun(True)
SetAngle(SRL_ANGLE_High);
FindNormalRandoms;
//Repeat;
//Until(False);
End.