cotton1212
05-27-2012, 05:40 PM
ok iv have tryed to put alot of scripts on but i ceep getting this at the bottom of the screen and the runescape window dosent pop up i downloaded everything checked for updates everything but this is what i get at the bottom
SRL Compiled in 16 msec
SMART Initialized.
Loaded: Server 87, Members: True, Signed: True, Super Detail: False.
and idk what im doing wrong but this happens on every script i try and once it started runescape but it took like 2 hours to get to right befor the loggin screen and it just stoped and on the black screen it said could not request runescape but most of the time it doent even open up rs
this is just on of the scripts i tryed and this is what i put in on the thing were it says like pass and loggin stuff (fake loggin) info but am i missing enything or is this a commen froblem
program new;
{$include srl/srl/misc/smart.simba}
{$I SRL/SRL.simba}
{$I srl/srl/misc/debug.simba}
{$I sps/sps.simba}
var
StartTime,WorldHopped:Integer;
//progress variables
skiller:Boolean;
XP,XPH,Sec:Integer;
procedure DeclarePlayers;
begin
Skiller := False;
HowManyPlayers := 1;
NumberOfPlayers(1);
CurrentPlayer := 1;
Players[0].Name := 'your mom'; // Username
Players[0].Pass := 'password'; // Password
Players[0].Active := True;
Players[0].Pin := '1776';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players
procedure SetupLogin;
begin
ClearDebug;
Smart_Server := 87;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
end;
function IsMining:Boolean;
var
PBox: Tbox;
begin
PBox := IntToBox(231,139,290,193);
//writeLn(AveragePixelShift(PBox,250,1000));
Result := (AveragePixelShift(PBox, 250, 1000) > 800);
end;
function IsUptextAvailable:Boolean;
begin
Result := False;
MouseBox(178,174,222,184,3);
if WaitUptext('posit',750) then
Result := True;
if not IsMining and Result then
ClickMouse2(True);
end;
function RecheckUptext:Boolean;
begin
MMouse(201,177,10,10);
If IsUptext('alk h') then
Result := True else IsUptextAvailable;
end;
procedure MineGold; forward;
function DropFullInv:Boolean;
var
i,EndInvSlot:Integer;
begin
if Skiller then
EndInvSlot := 27 else EndInvSlot := 28;
if InvFull then
begin
for i := 1 to EndInvSlot do
begin
if ExistsItem(i) then
begin
MouseItem(i,0);
ChooseOption('rop');
end;
end;
end;
end;
procedure WorldHop;
begin
if ExitToLobby then
begin
repeat
wait(10);
until LobbyScreen;
if OpenWorldScreen then
ChangeWorld(RandomWorld(True,False));
Inc(WorldHopped);
repeat
wait(10);
until LoggedIn;
GameTab(tab_Inv);
end;
end;
procedure Proggy;
var
OresMined:Integer;
begin
ClearDebug;
XP := GetXPBarTotal - Players[CurrentPlayer].Integers[0];
Sec:= (1+((Getsystemtime-StartTime)/1000));
XPH := (3600*XP) / (SeC);
OresMined := XP / 65;
writeLn('===================================');
writeLn('============S1NLRCMiner============');
writeLn('Time Running: ' + TimeRunning);
writeLn('XP Earned: ' + IntToStr(XP));
writeLn('XP/h: ' + IntToStr(XPH));
writeLn('Ores Mined: ' + IntToStr(OresMined));
writeLn('World Hopped ' + IntToStr(WorldHopped) + ' times');
writelN('===================================');
writeLn('===================================');
end;
procedure MineGold;
begin
if IsUptextAvailable then
writeLn('Ore is available');
while (not InvFull) do
begin
if FindNormalRandoms then
if not LoggedIn then
TerminateScript;
DropFullInv;
if not IsMining then
begin
if RecheckUptext then
begin
writeLn('Uptext not there');
WorldHop;
end;
if LobbyScreen then
WorldHop;
Proggy;
end else
begin
Proggy;
Wait(5000 + Random(500));
if LobbyScreen then
begin
WorldHop;
IsUptextAvailable;
end;
end;
end;
if InvFull then
DropFullInv;
if LobbyScreen then
begin
IsUptextAvailable;
WorldHop;
end;
end;
begin
ClearDebug;
SetupLogin;
DeclarePlayers;
LoginPlayer;
MouseSpeed := RandomRange(22,25);
if loggedIn then
ClickNorth(SRL_ANGLE_HIGH);
ChatsOff;
StartTime:=GetSystemTime;
if (Players[CurrentPlayer].Integers[1] = 0) then
begin
if not IsXPBarOpen then ToggleXPBar(true);
Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
Players[CurrentPlayer].Integers[1] := (Players[CurrentPlayer].Integers[1] + 1);
end;
repeat
MineGold
until AllPlayersInactive;
end.
SRL Compiled in 16 msec
SMART Initialized.
Loaded: Server 87, Members: True, Signed: True, Super Detail: False.
and idk what im doing wrong but this happens on every script i try and once it started runescape but it took like 2 hours to get to right befor the loggin screen and it just stoped and on the black screen it said could not request runescape but most of the time it doent even open up rs
this is just on of the scripts i tryed and this is what i put in on the thing were it says like pass and loggin stuff (fake loggin) info but am i missing enything or is this a commen froblem
program new;
{$include srl/srl/misc/smart.simba}
{$I SRL/SRL.simba}
{$I srl/srl/misc/debug.simba}
{$I sps/sps.simba}
var
StartTime,WorldHopped:Integer;
//progress variables
skiller:Boolean;
XP,XPH,Sec:Integer;
procedure DeclarePlayers;
begin
Skiller := False;
HowManyPlayers := 1;
NumberOfPlayers(1);
CurrentPlayer := 1;
Players[0].Name := 'your mom'; // Username
Players[0].Pass := 'password'; // Password
Players[0].Active := True;
Players[0].Pin := '1776';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players
procedure SetupLogin;
begin
ClearDebug;
Smart_Server := 87;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
end;
function IsMining:Boolean;
var
PBox: Tbox;
begin
PBox := IntToBox(231,139,290,193);
//writeLn(AveragePixelShift(PBox,250,1000));
Result := (AveragePixelShift(PBox, 250, 1000) > 800);
end;
function IsUptextAvailable:Boolean;
begin
Result := False;
MouseBox(178,174,222,184,3);
if WaitUptext('posit',750) then
Result := True;
if not IsMining and Result then
ClickMouse2(True);
end;
function RecheckUptext:Boolean;
begin
MMouse(201,177,10,10);
If IsUptext('alk h') then
Result := True else IsUptextAvailable;
end;
procedure MineGold; forward;
function DropFullInv:Boolean;
var
i,EndInvSlot:Integer;
begin
if Skiller then
EndInvSlot := 27 else EndInvSlot := 28;
if InvFull then
begin
for i := 1 to EndInvSlot do
begin
if ExistsItem(i) then
begin
MouseItem(i,0);
ChooseOption('rop');
end;
end;
end;
end;
procedure WorldHop;
begin
if ExitToLobby then
begin
repeat
wait(10);
until LobbyScreen;
if OpenWorldScreen then
ChangeWorld(RandomWorld(True,False));
Inc(WorldHopped);
repeat
wait(10);
until LoggedIn;
GameTab(tab_Inv);
end;
end;
procedure Proggy;
var
OresMined:Integer;
begin
ClearDebug;
XP := GetXPBarTotal - Players[CurrentPlayer].Integers[0];
Sec:= (1+((Getsystemtime-StartTime)/1000));
XPH := (3600*XP) / (SeC);
OresMined := XP / 65;
writeLn('===================================');
writeLn('============S1NLRCMiner============');
writeLn('Time Running: ' + TimeRunning);
writeLn('XP Earned: ' + IntToStr(XP));
writeLn('XP/h: ' + IntToStr(XPH));
writeLn('Ores Mined: ' + IntToStr(OresMined));
writeLn('World Hopped ' + IntToStr(WorldHopped) + ' times');
writelN('===================================');
writeLn('===================================');
end;
procedure MineGold;
begin
if IsUptextAvailable then
writeLn('Ore is available');
while (not InvFull) do
begin
if FindNormalRandoms then
if not LoggedIn then
TerminateScript;
DropFullInv;
if not IsMining then
begin
if RecheckUptext then
begin
writeLn('Uptext not there');
WorldHop;
end;
if LobbyScreen then
WorldHop;
Proggy;
end else
begin
Proggy;
Wait(5000 + Random(500));
if LobbyScreen then
begin
WorldHop;
IsUptextAvailable;
end;
end;
end;
if InvFull then
DropFullInv;
if LobbyScreen then
begin
IsUptextAvailable;
WorldHop;
end;
end;
begin
ClearDebug;
SetupLogin;
DeclarePlayers;
LoginPlayer;
MouseSpeed := RandomRange(22,25);
if loggedIn then
ClickNorth(SRL_ANGLE_HIGH);
ChatsOff;
StartTime:=GetSystemTime;
if (Players[CurrentPlayer].Integers[1] = 0) then
begin
if not IsXPBarOpen then ToggleXPBar(true);
Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
Players[CurrentPlayer].Integers[1] := (Players[CurrentPlayer].Integers[1] + 1);
end;
repeat
MineGold
until AllPlayersInactive;
end.