z0mg, i didnt even think of that.
edit:
SCAR Code:
program New;
{.include SRL/SRL/Misc/Smart.scar}
{.Include SRL/SRL.scar}
{.include srl/srl/reflection/reflection.scar}
procedure DeclarePlayers;
begin
//To add more players, copy and paste the player set up
//and change numbers accordingly
//remember to change HowManyPlayers!
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := 'grody';
Pass := '';
Nick := 'rod';
Active := True;
Integers[0] := 10; //loads, not currently used
Integers[1] := 20; //what SMART world would you like to go on?
Booleans[0] := false; //weilding hatchet?
Strings[0] := 'willow'; //what logs do you want to cut, not currently used
BoxRewards := ['XP', 'ostume'];
end;
end;
var logs, xp: integer; exp: extended;
procedure AntiBan;
begin
R_FindRandoms;
wait(100 + random(2000));
case random(30) of
0: Gametab(1+random(13));
2: wait(1000 + random(3000));
3: begin
MakeCompass(IntToStr(random(361)));
SleepAndMoveMouse(1000+random(500));
MakeCompass(IntToStr(random(361)));
end;
end;
gametab(tab_inv);
MakeCompass(0);
end;
Function Chopwillow: boolean;
var
T : tpointarray;
i, x, y, d: integer;
label goback;
begin
result:= true;
d:= 0;
repeat
if not loggedin then exit;
ColorToleranceSpeed(3);
FindColorsSpiralTolerance(MSCX, MSCY, T, 6063478, MSX1, MSY1, MSX2, MSY2, 15);
if Length(T) = 0 then
begin
writeln('color not found');
result:= false;
exit;
end;
for i:= 0 to high(t) do
begin
mmouse(T[i].X, T[i].Y, 0, 0);
if isuptext('illow') then
begin
getmousepos(x, y);
mouse(x, y, 0, 0, true);
wait(100 + random(2000));
goback:
While (CharacterMoving or CharacterAnimating) do AntiBan; //
if not (CharacterMoving or CharacterAnimating) then //
begin //
wait(100 + random(400)); //
inc(d); //all added to
writeln(inttostr(d)); //help debug
if d > 5 then exit; //
goto goback; //
end;
break;
end;
if invfull then exit;
Break;
end;
While (CharacterMoving or CharacterAnimating) do AntiBan;
until invfull or result = false;
if not result then
writeln('Something has gone wrong, willows not found.');
end;
procedure DropLogs;
var c: integer;
begin
if not loggedin then exit;
if not invfull then exit;
if players[CurrentPlayer].booleans[0] then
begin
dropall;
incex(logs, 28);
exp:= logs * 67.5
xp:= round(exp);
end;
if not players[CurrentPlayer].booleans[0] then
begin
for c:= 2 to 28 do
DropItem(c);
incex(logs, 27);
exp:= logs * 67.5
xp:= round(exp);
end;
end;
begin
DeclarePlayers;
Smart_Server := players[currentplayer].Integers[1];
SetupSRL;
mousespeed:= 10;
if not loggedin then loginplayer;
while not gametab(tab_inv) do wait(10);
setangle(true);
Chopwillow;
DropLogs;
end.
i changed stuff around to help debug it, hopefully it didnt fuck it up lol
edit edit: is it me or does chooseoption not work in SMART?