ok so it compiles and everything but when it doing the walking to the mine it does the main walking (radialwalk) but it gives me there error after it completed itCode:{ ty to FrÕzÑ_§ÕµL for his auto responder setup 1 fill in delcare palyers 2 drag crosshairs over runescape window 3 start in the varrock east mine hit play post proggies or else i wont be adding any more mines to this project of mine} //{.include srl/srl/misc/smart.scar} {.include srl/srl.scar} {.include srl/srl/skill/mining.scar} var g, x, y, mines,loads,ores,i: Integer; const pin=0000;//bank pin number {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//} {------------------------------------------------------------------------------} {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\} procedure DeclarePlayers;//add more if needed begin HowManyPlayers := 1; NumberOfPlayers(HowManyPlayers); CurrentPlayer := 0; Players[0].Name := ''; Players[0].Pass := ''; Players[0].Nick := ''; Players[0].Active := True; // Use this account? Players[0].Integers[1]:= 1000; // How many Loads Players[0].Booleans[0] := false;//pick weilded???? Players[0].BoxRewards := ['XP', 'ostume', 'mote', 'Gem', 'ithril', 'oal']; Players[0].Loc := 'start';//no touchy { Players[1].Name := ''; Players[1].Pass := ''; Players[1].Nick := ''; Players[1].Active := True; // Use this account? Players[1].Integers[1] := 1000; // How many Loads Players[1].Booleans[0] := false;//pick weilded???? Players[1].BoxRewards := ['XP', 'ostume', 'mote', 'Gem', 'ithril', 'oal']; Players[1].Loc := 'start';//no touchy Players[2].Name := ''; Players[2].Pass := ''; Players[2].Nick := ''; Players[2].Active := True; // Use this account? Players[2].Integers[1] := 1000; // How many Loads Players[2].Booleans[0] := false;//pick weilded???? Players[2].BoxRewards := ['XP', 'ostume', 'mote', 'Gem', 'ithril', 'oal']; Players[2].Loc := 'start';//no touchy } end; {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//} {------------------------------------------------------------------------------} {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\} procedure DontBanMeBro; begin If(not LoggedIn)then Exit; Case Random(9) of 0: MMouse(Random(MSX2),Random(MSY2),0,0); 1: PickupMouse; 2: SleepAndMoveMouse(400+Random(1500)); 3: if Random(2) = 1 then MMouse(1, 338, 515, 165); 4: if Random(2) = 1 then MMouse(515, 1, 250, 503); 5: RandomMovement; 6..9: begin case Random(3) of 0: begin KeyDown(VK_RIGHT); Wait(500+Random(2000)); KeyUp(VK_RIGHT); end; 1: begin KeyDown(VK_Left); Wait(500+Random(2000)); KeyUp(VK_Left); end; 2: begin case Random(2) of 0: begin KeyDown(VK_RIGHT); Wait(500+Random(1400)); KeyUp(VK_RIGHT); end; 1: begin KeyDown(VK_Left); Wait(500+Random(1400)); KeyUp(VK_Left); end; end; end; end; end; end; end; {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//} {------------------------------------------------------------------------------} {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\} procedure findrandoms; begin LampSkill := 'mining'; FindNormalRandoms; solvesrlrandoms:=true; if not loggedin then players[currentplayer].loc := 'failed random report it to the forum'; end; procedure Minethestuff; var H, m, cts, inv, invset: integer; mainpoints, TPA, basepoints: TPointArray; ATPA: T2DPointArray; begin disguise('mining'); mines:=0; repeat if not LoggedIn then exit; CTS := GetColorToleranceSpeed; ColorToleranceSpeed(2); SetColorSpeed2Modifiers(0.2, 0.2); FindColorsTolerance(mainpoints, 2701144, MSX1, MSY1, MSX2, MSY2, 5); FindColorsTolerance(basePoints, 1726312, MSX1, MSY1, MSX2, MSY2, 5); TPA := CombineTPA(mainPoints, basePoints); if (Length(TPA) = 0) then Exit; ATPA := SplitTPAEx(TPA, 9, 9); SortATPAFrom(ATPA, Point(MSCX, MSCY)); H := High(ATPA) - 1; for I := 0 to H do begin MiddleTPAEx(ATPA[i], x, y); MMouse(x, y, 3, 3); Wait(100 + Random(200)); if IsUpText('Mine') then begin Marktime(m); Mouse(x, y, 1, 1, True); invset:=invcount; repeat inv:=invcount; wait (100); findrandoms; until ((invset < Inv) or (TimeFromMark(m) > 15000) or FindChatBoxText('availa', 8, 0)); Inc(mines); DontBanMeBro; end; end; until(invfull)or(mines = 40) end; function SetDDTM(ddtmnumber: integer): Integer; var road : integer; dtmMainPoint: TDTMPointDef; dtmSubPoints: Array [0..4] of TDTMPointDef; TempTDTM: TDTM; begin road := findvarrockroadcolor; case ddtmnumber of 1: begin dtmMainPoint.x := 735; dtmMainPoint.y := 309; dtmMainPoint.AreaSize := 0; dtmMainPoint.AreaShape := 0; dtmMainPoint.Color := road; dtmMainPoint.Tolerance := 0; dtmSubPoints[0].x := 735; dtmSubPoints[0].y := 309; dtmSubPoints[0].AreaSize := 0; dtmSubPoints[0].AreaShape := 0; dtmSubPoints[0].Color := road; dtmSubPoints[0].Tolerance := 0; dtmSubPoints[1].x := 744; dtmSubPoints[1].y := 310; dtmSubPoints[1].AreaSize := 0; dtmSubPoints[1].AreaShape := 0; dtmSubPoints[1].Color := road; dtmSubPoints[1].Tolerance := 0; dtmSubPoints[2].x := 743; dtmSubPoints[2].y := 315; dtmSubPoints[2].AreaSize := 0; dtmSubPoints[2].AreaShape := 0; dtmSubPoints[2].Color := road; dtmSubPoints[2].Tolerance := 0; dtmSubPoints[3].x := 734; dtmSubPoints[3].y := 313; dtmSubPoints[3].AreaSize := 0; dtmSubPoints[3].AreaShape := 0; dtmSubPoints[3].Color := road; dtmSubPoints[3].Tolerance := 0; TempTDTM.MainPoint := dtmMainPoint; TempTDTM.SubPoints := dtmSubPoints; Result := AddDTM(TempTDTM); end; 2 :begin dtmMainPoint.x := 810; dtmMainPoint.y := 268; dtmMainPoint.AreaSize := 0; dtmMainPoint.AreaShape := 0; dtmMainPoint.Color := road; dtmMainPoint.Tolerance := 0; dtmSubPoints[0].x := 810; dtmSubPoints[0].y := 268; dtmSubPoints[0].AreaSize := 0; dtmSubPoints[0].AreaShape := 0; dtmSubPoints[0].Color := road; dtmSubPoints[0].Tolerance := 0; dtmSubPoints[1].x := 816; dtmSubPoints[1].y := 267; dtmSubPoints[1].AreaSize := 0; dtmSubPoints[1].AreaShape := 0; dtmSubPoints[1].Color := road; dtmSubPoints[1].Tolerance := 0; dtmSubPoints[2].x := 817; dtmSubPoints[2].y := 272; dtmSubPoints[2].AreaSize := 0; dtmSubPoints[2].AreaShape := 0; dtmSubPoints[2].Color := road; dtmSubPoints[2].Tolerance := 0; dtmSubPoints[3].x := 812; dtmSubPoints[3].y := 273; dtmSubPoints[3].AreaSize := 0; dtmSubPoints[3].AreaShape := 0; dtmSubPoints[3].Color := road; dtmSubPoints[3].Tolerance := 0; TempTDTM.MainPoint := dtmMainPoint; TempTDTM.SubPoints := dtmSubPoints; Result := AddDTM(TempTDTM); end; 3: begin dtmMainPoint.x := 765; dtmMainPoint.y := 333; dtmMainPoint.AreaSize := 0; dtmMainPoint.AreaShape := 0; dtmMainPoint.Color := road; dtmMainPoint.Tolerance := 0; dtmSubPoints[0].x := 765; dtmSubPoints[0].y := 333; dtmSubPoints[0].AreaSize := 0; dtmSubPoints[0].AreaShape := 0; dtmSubPoints[0].Color := road; dtmSubPoints[0].Tolerance := 0; dtmSubPoints[1].x := 772; dtmSubPoints[1].y := 332; dtmSubPoints[1].AreaSize := 0; dtmSubPoints[1].AreaShape := 0; dtmSubPoints[1].Color := road; dtmSubPoints[1].Tolerance := 0; dtmSubPoints[2].x := 773; dtmSubPoints[2].y := 343; dtmSubPoints[2].AreaSize := 0; dtmSubPoints[2].AreaShape := 0; dtmSubPoints[2].Color := road; dtmSubPoints[2].Tolerance := 0; dtmSubPoints[3].x := 771; dtmSubPoints[3].y := 343; dtmSubPoints[3].AreaSize := 0; dtmSubPoints[3].AreaShape := 0; dtmSubPoints[3].Color := road; dtmSubPoints[3].Tolerance := 0; dtmSubPoints[4].x := 774; dtmSubPoints[4].y := 339; dtmSubPoints[4].AreaSize := 0; dtmSubPoints[4].AreaShape := 0; dtmSubPoints[4].Color := road; dtmSubPoints[4].Tolerance := 0; TempTDTM.MainPoint := dtmMainPoint; TempTDTM.SubPoints := dtmSubPoints; Result := AddDTM(TempTDTM); end; end; end; function WalkTobank: Boolean; var WalkDTM, rockdtm: integer; begin WalkDTM := setddtm(1); RockDTM := setddtm(2); repeat if FindDTM(WalkDTM, X, Y, MMx1,MMy1,MMx2,MMcy) then begin Mouse(X, Y, 8, 8, True); WriteLn('Main walker worked.'); FFlag(0); Result := True; end else if RadialWalk(FindvarrockRoadColor, 15, 90, 55, 1, 1) then begin Writeln(' Back-Up worked.'); Result := True; begin Result := False; Writeln(' Failed. Logging Out. Next Player'); if not (Result) then begin Logout; end; end; FreeDTM(WalkDTM); end; until FindDTM(rockDTM, X, Y, MMx1,MMy1,MMx2,MMy2) end; {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//} {------------------------------------------------------------------------------} {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\} function tomine: Boolean; var WalkDTM: integer; begin makecompass('n'); if RadialWalk(findvarrockroadcolor, 0, 90, 70, 1, 1) then begin Writeln(' Main walking 1. - Complete.'); flag; Result := True; end else WalkDTM := SetDDTM(1); if FindDTM(WalkDTM, X, Y, MMx1,MMy1,MMx2,MMy2) then // error line begin Mouse(X, Y, 8, 8, True); WriteLn('Walk backup 1. - Complete.'); FFlag(0); Result := True; end else begin Result := False; Writeln(' Walk Backup 1. - Failed. Logging Out.'); FreeDTM(WalkDTM); if not (Result) then begin terminatescript;//Logout; end; end; if RadialWalk(findvarrockroadcolor, 90, 360, 65, 1, 1) then begin Writeln(' Main walking 1. - Complete.'); flag; Result := True; end else WalkDTM := setDdtm(2); if FindDTM(WalkDTM, X, Y, MMx1,MMy1,MMx2,MMy2) then begin Mouse(X, Y, 8, 8, True); WriteLn('Walk backup 1. - Complete.'); FFlag(0); Result := True; end else begin Result := False; Writeln(' Walk Backup 1. - Failed. Logging Out.'); FreeDTM(WalkDTM); if not (Result) then begin terminatescript;//Logout; end; end; end; procedure intomine; var minebmp:integer; begin If Not LoggedIn then exit; disguise('get in to mine') makecompass('n'); if (FindSymbol(x, y, 'mining site')) then begin Mouse(x, y, 5, 5, True); Writeln('Found the mining symbol'); fflag(10) end else if not (FindSymbol(x, y, 'mining site')) then begin disguise('couldnt find the mining symbol trying bitmap') mineBmp := BitmapFromString(23, 17, 'beNqVk90KgkAUhJ8h6KKoriSS' + 'gjAIgiCjC0NI0CBI6KaH6BF68EYmx+P6E8Eg1p7zndnZNRhn0bzQy' + 'SiqdIsXUp751NOfvY8r6J5toHPwH+QwGlzXw9fWIwQCwYFwtQdCgo' + 'WQIwimcBVPMmUbAgQE/KMaoQRRAdW0jVUV8J0b0XZsO3pbPedJEQg' + 'rUfBIlxaShF5zivWMnxgECDkUIJYDiEaoywKZDyEUCQ7kspswBLZb' + '27WjL5XHPmUhamcgeJftLoiGMjHYcDLhM91PWwmEOOEDAj92Czo+L' + 'FFZWBHsbXHurfxrmyJ8IaWsbZm3x23VBeHdbtr+F0KO4/wnBCEXOR' + 'tIf28XpPZ5hnXIB46QCkg='); FindBitmap(mineBmp,x,y); Mouse(x,y,5,5,true); end; end; {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//} {------------------------------------------------------------------------------} {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\} procedure Setup; begin disguise('set up') ClearDebug; //SMARTSetupEx(2, False, True, False); //Wait(5000); //SetTargetDC(SmartGetDC); // repeat // wait(100); // until(SmartGetColor(253, 233)<>1118604); SetupSRL SetupMining; end; {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//} {------------------------------------------------------------------------------} {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\} procedure getinbank; var Bankers: Integer; begin if not (loggedin) then exit; disguise('in to the bank') Bankers := DTMFromString('78DA636C666660B065640001560608D8B0A69' + '76119508811CA67AC06AA7187F098A1627FFE3031483220A96901CAB' + '81150D3039471C1AF060092960C0C'); if DTMRotated(Bankers, x, y, MMX1, MMY1, MMX2, MMY2) then begin Mouse(X-2,Y+5, 0, 0, True); Flag; end else RadialRoadWalk(findvarrockroadcolor, 180,360, 65, 1, 1); end; procedure gembanking; var gemdtm: integer; begin If Not LoggedIn then begin NextPlayer(Players[CurrentPlayer].Active); minethestuff; end; repeat; GemDTM := DTMFromString('78DA8DD2510E82300C06E06E814C144C500E0' + '3461F603199E869B83127C17F3324F3616BFBB026DB97656BAB46' + '4D6414C5715E2EB422FBDD0DA15E30EADFFC4EF71579862918F38' + '6A904C630E603734A9BC2670BD3A54DE9F324307DFE5FC10C304D' + 'DA1CF67B8E02A31933E47B11CC4347D54A182B30BE3E1BE58D13B' + 'C87998D60EE3057C6DC605A410D6BC68CF9BE7782F909E629308E' + '375FE5310F20'); if not findDTM(GemDTM,x,y,MIX1,MIY1,MIX2,MIY2) then Exit; if findDTM(GemDTM,x,y,MIX1,MIY1,MIX2,MIY2) then Begin Mouse(x,y,2,2,False); wait(random(200)); ChooseOption('Drop'); wait(500 + random(100)) end; Until not FindDTM(GemDTM,x,y,MIX1,MIY1,MIX2,MIY2); end; {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//} {------------------------------------------------------------------------------} {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\} function Banking: Boolean; begin If Not LoggedIn then begin NextPlayer(Players[CurrentPlayer].Active); minethestuff; end; MakeCompass('N') Wait (300 + random(160)); OpenBankQuiet('veb'); if (PinScreen) then InPin('Pin'); If Players[currentplayer].Booleans[0] = true Then begin Deposit(1, 28, True) end; If Players[currentplayer].Booleans[0] = false Then begin Deposit(2, 28, True); Mouse(RandomRange(483, 495), RandomRange(29, 41), 0, 0, True); End; Gembanking; Wait(150 + random (278)); end; {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//} {------------------------------------------------------------------------------} {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\} {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//} {------------------------------------------------------------------------------} {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\} procedure proggy; var mininglvl,exp:integer; begin cleardebug mininglvl:= getskillinfo('mining',false); exp:= XPtillnextlevel('mining'); WriteLn(' _____ ______') WriteLn(' | || \') WriteLn(' | || |') WriteLn(' | || ___/') WriteLn(' /_____/ |__| ') writeLn('____________________________________________') writeln('Script has been running for ' +TimeRunning); WriteLn('Player '+ Players[CurrentPlayer].Nick); WriteLn('current mining lvl ' + IntToStr(mininglvl)); WriteLn('Exp To Next Lvl ' + inttostr(exp)); WriteLn('loads done '+ IntToStr(loads)); WriteLn('amount of ores ' + IntToStr(ores)); writeLn('plz post the proggie here http://www.villavu.com/forum/showthread.php?p=549684#post549684'); end; {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//} {------------------------------------------------------------------------------} {\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\} begin ores:=0 loads:=0 setup; activateclient; {DeclarePlayers; GraphicsSet := true; LoginPlayer; disguise('logging in') repeat repeat gettimerunning; proggy minethestuff; findrandoms; makecompass('n');} //walktobank; //findrandoms; //getinbank; //findrandoms {banking; findrandoms;} tomine; {intomine; inc(loads) if Players[CurrentPlayer].Booleans[0] = false then ores:= ores + 27; if Players[CurrentPlayer].Booleans[0] = true then ores:= ores + 28; Inc(g); until (g= (Players[CurrentPlayer].Integers[1])) or (not LoggedIn); NextPlayer(false); until(AllPlayersInactive); } end.




Reply With Quote












. And yeah, I know it would have an identifier expected error.
