It's a power chopper.. any help? I know i suck lol... I'm not even in high school so don't blame me =P
Printable View
It's a power chopper.. any help? I know i suck lol... I'm not even in high school so don't blame me =P
Haha, you're not that bad dude.
The dtm isnt declared at all though.
That would declare it in a procedure (load it).Code:procedure LoadDtm;
begin
logdtm: = logdtm := DTMFromString('78DA63DCC5CCC050C7C8800CD2FDF518E6B73' +
'1328044FF0301E336A09A5254350C0C8C482490DE0F54534440CD' +
'21A09A0A026A8E01D534A3AA315050C0B4AB9D809A8D40359DA86' +
'A4A836550D5AC04AA6944551365278CA20600D6BD126A');
end;
Hope that helps, of course I could be totally wrong because I never use dtms in the scripts I write, but I dont think I am =P
Edit: Also loadsdone needs to be declared as an integer, i.e.
In the variables.Code:loadsdone : Integer;
Also the ; need to be taken of the begin. I think vx needs to be chagnes th mx or just x in the mouse function.
Also, haha, the LoadDtm procedure a) needs to be declared in the main loop and freed afterwards, and b) logdtm needs to be delcared as a string I presumed. i.e.
Don't think thats entirely correct but im slightly drunk so i've fixed a few compile errors, but not sober enough to think about the rest.Code:procedure LoadDtm;
var
logdtm : string;
begin
logdtm := DTMFromString('78DA63DCC5CCC050C7C8800CD2FDF518E6B73' +
'1328044FF0301E336A09A5254350C0C8C482490DE0F54534440CD' +
'21A09A0A026A8E01D534A3AA315050C0B4AB9D809A8D40359DA86' +
'A4A836550D5AC04AA6944551365278CA20600D6BD126A');
end;
The script with the errors i've fixed so far:
Code:program PowerChopper;
{.include SRL/SRL.scar}
{.include SRL\SRL\Skill\Woodcutting.SCAR}
var LoadsNumB, Loads : integer;
loadsdone : Integer;
const
TreeColor1 = 1779752; //the first color
TreeColor2 = 2381896; // the second color
TreeColor3 = 1929312; // the third color
Wield= False; // True= Wielded, False= in inventory
LoadsToDo= 1; // Number of loads
run = 's';
Timetowait = 100;
procedure DeclarePlayers;
begin
HowManyPlayers := 6; //Number of total players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //Which player starts first?
Players[0].Name := 'Username';
Players[0].Pass := 'Password';
Players[0].Nick := 'Nick';
Players[0].Active := True;
Players[1].Name := 'UserName';
Players[1].Pass := 'Password';
Players[1].Nick := '3-4 letters of UserName';
Players[1].Active := False;
Players[2].Name := 'UserName';
Players[2].Pass := 'Password';
Players[2].Nick := '3-4 letters of UserName';
Players[2].Active := False;
Players[3].Name := 'UserName';
Players[3].Pass := 'Password';
Players[3].Nick := '3-4 letters of UserName';
Players[3].Active := False;
Players[4].Name := 'UserName';
Players[4].Pass := 'Password';
Players[4].Nick := '3-4 letters of UserName';
Players[4].Active := False;
Players[5].Name := 'UserName';
Players[5].Pass := 'Password';
Players[5].Nick := '3-4 letters of UserName';
Players[5].Active := False;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
/////////////////////////////////////
procedure SwitchPlayers;
begin
NextPlayer(True);
LoadsNumB:=0;
HighestAngle;
MakeCompass('N');
Writeln('Switched players');
end;
//ChoppingDownTree//
Procedure Click;
var randomize1, qq :integer;
begin;
Randomize1 := Random(5);
qq:= 0;
if (Randomize1 = 1) then begin
Mouse(x,y,1,2,False);
repeat;
qq := 1
if qq = 3 then exit;
until(ChooseOption(x,y,'Chop'));
exit;
end;
Mouse(x,y,1,2,true);
end;
//Drop logs//
procedure DropTheLogs;
begin
If(Wield = True) Then DropTo(1,28);
If(Wield = False) Then DropTo(2,28);
End;
function FindFastRandoms: Boolean; //By 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 FindRandoms;
begin
FindFastRandoms;
FindNormalRandoms;
end;
procedure MyAntiBanSelfMade;
var h : integer;
begin
for h := 1 to 11 do
begin
case Random(10) of
1: RotateEvery(1+random(2));
2: RandomChatEvery(6+random(4));
3: RandomRClickEvery(3+random(3));
4: LeaveScreenEvery(1+random(2));
5: AntiBan;
6: PickUpMouse;
7: TypeSend('Wc lvs? Mines 70 hehe');
8: AntiBan;
9: begin
HoverSkill('Woodcutting',true);
wait(3000+random(2000));
GameTab(4)
end;
10: SleepAndMoveMouse(800000+random(200000));
11: TypeSend('So many bots nowdays...')
end;
End;
end;
Procedure ProgressReport;
begin
ClearDebug;
Writeln('PowerCutterProgressReport');
Writeln('| Ran for '+TimeRunning);
Writeln('| Attempted '+IntToStr(Attempts)+' Times');
Writeln('\\-----------------------------------//');
end;
procedure LoadDtm;
var
logdtm : string;
begin
logdtm := DTMFromString('78DA63DCC5CCC050C7C8800CD2FDF518E6B73' +
'1328044FF0301E336A09A5254350C0C8C482490DE0F54534440CD' +
'21A09A0A026A8E01D534A3AA315050C0B4AB9D809A8D40359DA86' +
'A4A836550D5AC04AA6944551365278CA20600D6BD126A');
end;
//mainloop//
begin
Setupsrl;
Declareplayers;
Wait(3000);
If(Not(Loggedin)) then LoginPlayer;
PerfectNorth;
setChat('hide',1);
setChat('friends',2);
setChat('off',3);
ActivateClient;
if (not(FindAxeHeadColor)) then begin;
LogOut;
WriteLn('No Axe Found');
NextPlayer(True);
LoadsDone := 0;
Played;
end;
repeat
repeat
repeat
Chop;
FindRandoms;
MyAntiBanSelfMade;
until(InvFull)
DropTheLogs;
FindRandoms;
MyAntiBanSelfMade;
Until(Loads = LoadsToDo)
Logout;
NextPlayer(True);
Until (false);
end.
toSCAR Code:var LoadsNumB, Loads : integer; loadsdone
SCAR Code:var
LoadsNumB, Loads, loadsdone : integer;
You never declared what "loadsdone" is.
Umm.. the played whats that for?
Ok i edited it but now it says duplicaite identifier error...