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
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...
There are currently 1 users browsing this thread. (0 members and 1 guests)