ok, here's the deal, i wrote this script, and i think it's all going to work, but i get a syntax error right in the very last section, so if someone could help me out it'd be awesome, thnx
ok, here's the deal, i wrote this script, and i think it's all going to work, but i get a syntax error right in the very last section, so if someone could help me out it'd be awesome, thnx
WARNING!!! This Message Contains Explicit Material Not Suitable For Idiots.
This should work. You added and extra until
SCAR Code://-------------------------------------------------------------------------------//
//-------------------------------------------------------------------------------//
//--- /| |\ || [||] |\ /| ||||||||| \|| /\ ---//
//--- //| ||\ || || ||\ /|| || || //\\ ---//
//--- //|| ||\\ || || ||\\ //|| || / // \\ ---//
//--- // || || \\ || || || \\ // || || \\ ---//
//--- // || || \\ || || || \\// || || \\ ---//
//--- // || || \\ || || || \/ || |||||| \\ ---//
//--- //====|| || \\ || || || || || \\ ---//
//--- // || || \\ || || || || || \\ ---//
//--- // || || \\|| || || || || \\ // ---//
//--- // || || \|| || || || || \\// ---//
//--- // || || \| [||] || || ||||||||| \/ ---//
//---// ---//
//-------------------------------------------------------------------------------//
//-------------------------------------------------------------------------------//
//-------------------------- Reguar Tree Chop 'N Drop ---------------------------//
//-------------------------------------------------------------------------------//
//-------------------------------------------------------------------------------//
//------ Play with 32 bit color and max brightness ------//
//------ Place Characters near trees that you want to chop and equip axe ------//
//------ Fill out lines 32-36 and 47-74 ------//
//-------------------------------------------------------------------------------//
//-------------------------------------------------------------------------------//
//-------------------------------------------------------------------------------//
//-------------------------------------------------------------------------------//
program ChopNdrop;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Woodcutting.scar}
const
Tree1= 4419473;//color of tree
Tree2= 2374991;
var
Clicks, Loads: Integer;
RLog : Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 5;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'name';
Players[0].Pass := '0000';
Players[0].Nick := 'nam';
Players[0].Active:=True;
Players[1].Name := 'name2';
Players[1].Pass := '1111';
Players[1].Nick := 'nam';
Players[1].Active:=True;
Players[2].Name := 'name3';
Players[2].Pass := '2222';
Players[2].Nick := 'nam';
Players[2].Active:=True;
Players[3].Name := 'name4';
Players[3].Pass := '3333';
Players[3].Nick := 'nam';
Players[3].Active:=True;
Players[4].Name := 'name5';
Players[4].Pass := '4444';
Players[4].Nick := 'nam';
Players[4].Active:=True;
end;
Procedure Setup;
begin
ActivateClient;
If(Not(LoggedIn)) Then LoginPlayer;
HighestAngle;
MakeCompass('n');
GameTab(4);
If(FindAxeHeadColor) Then
begin
If(Players[CurrentPlayer].Boolean1=True) Then
begin
MouseItem(1,true)
End
end Else
begin
Logout
end
end;
procedure LoadDTMs;
begin
RLog := DTMFromString('78DA631463606010624001A9BEBA0C0F81342' +
'310FF0702466920838D010D302291409A1B4870619A83A2861548' +
'88123047044848A3AAA84BB04455A30424C450D5640719A2AA910' +
'7127CA86A0C141450D40000A9CC0A2D');
end;
function FindFastRandoms: Boolean; //stolen from WT-Fakawi
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
procedure KillAntiRandoms;
begin
if(not(LoggedIn))then
Exit;
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(3005));
RunBack;
FindFastRandoms;
FindTalk;
end;
end;
procedure AntiBan; //theived
begin
if(not(LoggedIn))then
Exit;
case Random(10) of
0: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
1: FindFastRandoms;
2: PickUpMouse;
3: begin
HoverSkill('Woodcutting', False);
wait(2000+random(2000));
GameTab(4);
end;
5: BoredHuman;
6: PickUpMouse;
8: AlmostLogout;
10: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
end;
end;
Procedure ChopIt; // Chops Tree Using Colors
begin
if(FindMSColor(x,y,Tree1)) then
begin
MMouse(x,y,1,1)
If(IsUpText('ree')) Then
begin
Mouse(x,y,0,0,true)
Flag
end
If(Not(IsUpText('ree'))) Then
begin
If(FindMSColor(x,y,Tree1)) Then
begin
Mouse(x,y,0,0,true)
Flag
end
end
end
end;
Procedure ChopIt2; // Chops Tree Using Colors
begin
if(FindMSColor(x,y,Tree2)) then
begin
MMouse(x,y,1,1)
If(IsUpText('ree')) Then
begin
Mouse(x,y,0,0,true)
Flag
end
If(Not(IsUpText('ree'))) Then
begin
If(FindMSColor(x,y,Tree2)) Then
begin
Mouse(x,y,0,0,true)
Flag
end
end
end
end;
procedure DropTheLogs;
begin
If (InvFull) then
begin
repeat
If (FindDTM(RLog,x,y,MIX1,MIY1,MIX2,MIY2)) then
begin
Mouse(x,y,3,3,false);
ChooseOption(x,y,'rop');
If ( Not (LoggedIn) ) Then NextPlayer (False)
wait(100+random(100));
end;
Until (FindDTM(RLog,x,y,MIX1,MIY1,MIX2,MIY2)) = false
end;
end;
begin
SetupSRL;
DeclarePlayers;
LoadDTMs;
If(Not(LoggedIn)) then LoginPlayer;
repeat
ChopIt;
ChopIt2;
DropTheLogs;
until(false);
end.
On vacation from July 2nd till middle of August
Account Creator and Tutorial Island Runner (member | public) Errors fixed
Check out my Complete forms tutorial. It will teach you everything you need to know about forms.
thnx for the help, works nicely now
WARNING!!! This Message Contains Explicit Material Not Suitable For Idiots.
There are currently 1 users browsing this thread. (0 members and 1 guests)