hey i need some help with the script by Sleziak she has a script and is gone away on vacation, this is hers >>>then this is a anothers that updated it, but it cant find the store keeper -.-Code:program new; {.include SRL/SRL/misc/Smart.Scar} {.Include SRL\SRL.SCAR} {.include SRL/SRL/Skill/Magic.scar} const Username = ''; //Your Runescape username Password = ''; //Your Runescape password Nickname = 'cle'; //Few letters from your name Example: Username = 'Zezima' then the nickname would be 'Zez' ToDo = 1000; //How many rings do you want to alch logo = false; //Log out after doing the desired ammount of alches/Using all your nature runes? var x,y,a,b,counter,exp : integer; procedure DeclarePlayers; begin HowManyPlayers := 1; NumberOfPlayers(HowManyPlayers); CurrentPlayer := 0; Players[0].Name := Username; Players[0].Pass := Password; Players[0].Nick := Nickname; Players[0].Active:= true; end; procedure FindIrksol; var TMT, Times: Integer; begin TMT := 0; if not ShopScreen then begin wait(2000+random(3000)) if(FindSymbolIn(x, y, 'gem stall', MMX1, MMY1, MMX2, MMY2)) then begin writeln('Walking to gem stall'); flag; Mouse(x + 12, y, 0, 0, true) Flag; end; repeat Times:=0; TMT := TMT + 1 if FindObjCustom(x, y, ['Talk-to Irk'], [2965826, 2965826], 4) then begin Wait(50 + Random(20)); Mouse(X, Y, 1, 1, false); Wait(50 + Random(20)); if ChooseOption('rade') then begin repeat Times:= Times + 1 wait(100); until (ShopScreen) or (Times > 20); if shopscreen then begin writeln('Trading Irksol'); exit; end; end; end; until (TMT > 5); if (not(ShopScreen)) then begin if(FindSymbolIn(x, y, 'gem stall', MMX1, MMY1, MMX2, MMY2)) then begin Mouse(x + 12, y, 0, 0, true) Players[CurrentPlayer].loc := 'gem stall'; FindIrksol; end; end else Writeln('Could Not Find Irksol.'); end else Logout; end; Procedure BuyRings; begin FindIrksol; begin wait(random(2000)); MouseBox(74,101,85,111, 3) if(IsUpText('Ruby'))then begin writeln('Buying rings'); getmousepos(x, y) wait(100) Mouse(x,y,0,0,false) ChooseOption('Buy X') Wait(1000) TypeSend(IntToStr(RandomRange(28, 99))); CloseWindow; end else begin MouseBox(50, 70, 116, 79, 1) wait(random(600)) BuyRings; end; Wait(400) end; end; procedure Progress; begin Cleardebug; if (loggedin=false) or (Counter > ToDo) then begin Writeln('----------------------------------------------'); Writeln(' _____________________________________________'); Writeln('- Sleziak''s Zanaris alcher '); Writeln('- Ran for: ' + (TimeRunning) + ' '); Writeln('- Alched ' +IntToStr(Counter)+ ' rings '); writeln('- You have gained ' + IntToStr(exp) + ' Exp!' ); Writeln('- Succesfully alched all requested rings '); Writeln('- Post this proggy please ;) '); Writeln('-_____________________________________________'); Writeln('----------------------------------------------'); terminatescript; end else begin Cleardebug; if(Counter < ToDo) then begin Writeln('----------------------------------------------'); Writeln(' _____________________________________________'); Writeln('- Sleziak''s Zanaris alcher '); Writeln('- Ran for: ' + (TimeRunning) + ' '); Writeln('- Alched ' +IntToStr(Counter)+ ' rings '); Writeln('- You have gained ' + IntToStr(exp) + ' Exp! '); Writeln('- Still running! '); Writeln('- Post this proggy please ;) '); Writeln('-_____________________________________________'); Writeln('----------------------------------------------'); end end end; procedure Checkrunes; begin if (FindBlackChatMessage('ature')) then TerminateScript; end; Procedure Alch; begin repeat if (not(LoggedIn)) then LoginPlayer; FindNonInventoryRandoms; wait(400+random(100)); Cast('high level alchemy'); findcolortolerance(a,b,1749707,555,213,722,453,2); mmouse(a+random(5),b+random(5),0,0) wait(1600+random(100)); if not findcolortolerance(a,b,1749707,555,213,722,453,2) then begin buyrings; end else mouse(a,b,0,0,true); checkrunes; exp:= exp + 65; counter:= counter + 1; progress; until(false); end; Procedure ScriptTerminate; Begin progress; WriteLn('Out of runes!'); if logo = true then logout else WriteLn('Finished script/Out of runes!'); end; begin SetupSrl; SmartSetupEx(100, True, True, False); SetTargetDC(SMARTGetDC); DeclarePlayers; LogInPlayer; Wait(2000); repeat SetAngle(True); MakeCompass('N'); SetRun(True); BuyRings alch; findnormalrandoms; checkrunes; progress; wait(2000); until(loggedin=false) end.
>>>i see many ppl alching so many ppl must be able to figure this out any assistance?Code:program new; {.include SRL/SRL/misc/Smart.Scar} {.Include SRL\SRL.SCAR} {.include SRL/SRL/reflection/Reflection.scar} const Username = 'cleaned you2'; //Your Runescape username Password = ''; //Your Runescape password Nickname = 'cle'; //Few letters from your name Example: Username = 'Zezima' then the nickname would be 'ezi' ToDo = 2000; //How many rings do you want to alch? If you're using all your nature runes, set 1 higher. logo = false; //Log out after doing the desired ammount of alches/Using all your nature runes? var cx, cy, Counter, Exp, OldItemSlots, NewItemSlots, dtmHAlch, dtmRing: integer; FirstCast: boolean; ItemSlots, ItemSlots2: TIntegerArray; procedure DeclarePlayers; begin Status('Declaring Players.'); HowManyPlayers := 1; NumberOfPlayers(HowManyPlayers); CurrentPlayer := 0; Players[0].Name := Username; Players[0].Pass := Password; Players[0].Nick := Nickname; Players[0].Active:= true; end; procedure LoadDTM; //Thanks to cycrocism for the dtm of the ring and akwardsaw for the dtm of the high alch begin dtmHAlch := DTMFromString('78DA63B46662604860644006BFBEF18069982' + '8A31D504D04AA1A982C5C8D03116A9C816A5209A83102AA4922A0' + 'C61EA82604BF1A004F1D05B8'); dtmRing := DTMFromString('78DA638C626060286340011EF6C6609A11CA6' + '78C011239A86A36A88AA2AA89031225A86A2E6C934455130D24AA51D' + '5EC592A8EAA26144854A1AAB9B4430A554D389028445533BB5D18554' + 'D3C90C84355D3262380A206000F1D0DF9'); end; function FindKeeper : boolean; var jNPC : TNPC; begin if (FindNPC('Irksol', jNPC)) then begin Mouse(jNPC.ms.x, jNPC.ms.y, 2, 2, false); Result := ChooseOption('rade'); Flag; end; end; procedure BuyRings; begin Status('Finding storekeeper.'); FirstCast := true; repeat FindKeeper; Flag; Wait(Random(1000)); until (ShopScreen); Status('Buying rings.'); if FindDTM(dtmRing, cx, cy, MSX1, MSY1, MSX2, MSY2) then begin Mouse(cx, cy, 7, 7, false); Wait(100 + Random(200)); ChooseOption('uy X'); end; Wait(1000); case Random(8) of 0: TypeSend('28'); 1: TypeSend('32'); 2: TypeSend('54'); 3: TypeSend('55'); 4: TypeSend('65'); 5: TypeSend('65'); 6: TypeSend('98'); 7: TypeSend('87'); end; CloseWindow; end; procedure Progress; begin ClearDebug; if (loggedin=false) or (Counter > ToDo) then begin Writeln('----------------------------------------------'); Writeln(' _____________________________________________'); Writeln('- Sleziak''s Zanaris alcher '); Writeln('- Ran for: ' + (TimeRunning) + ' '); Writeln('- Alched ' + IntToStr(Counter) + ' rings '); writeln('- You have gained ' + IntToStr(Exp) + ' Exp!' ); Writeln('- Succesfully alched all requested rings '); Writeln('- Post this proggy please ;) '); Writeln('-_____________________________________________'); Writeln('----------------------------------------------'); TerminateScript; end else begin Cleardebug; Writeln('----------------------------------------------'); Writeln(' _____________________________________________'); Writeln('- Sleziak''s Zanaris alcher '); Writeln('- Ran for: ' + (TimeRunning) + ' '); Writeln('- Alched ' + IntToStr(Counter) + ' rings '); Writeln('- You have gained ' + IntToStr(Exp) + ' Exp! '); Writeln('- Still running! '); Writeln('- Post this proggy please ;) '); Writeln('-_____________________________________________'); Writeln('----------------------------------------------'); end; end; procedure Checkrunes; begin if not InventoryContains(562, ItemSlots2) then TerminateScript; end; procedure Alch; begin repeat if (not(LoggedIn)) then LoginPlayer; FindNonInventoryRandoms; if InventoryContains(1642, ItemSlots) then begin OldItemSlots := Length(ItemSlots); Wait(200 + random(100)); if (FirstCast = true) then begin if (GetCurrentTab <> 7) then begin GameTab(7); Wait(500 + Random(500)); end; end; if FindDTM(dtmHAlch, cx, cy, 559, 336, 583, 360) then begin Status('alching.'); Mouse(cx, cy, 7, 7, true); FirstCast := false; end; Wait(random(100)); MouseItem(ItemSlots[0], true); Wait(1600 + random(100)); CheckRunes; Exp := Exp + 65; Counter := Counter + 1; Progress; InventoryContains(1642, ItemSlots); NewItemSlots := Length(ItemSlots); Wait(100); if (OldItemSlots = NewItemSlots) then begin FirstCast := true; Exp := Exp - 65; Counter := Counter - 1; end; end else begin BuyRings; end; until(false); end; procedure ScriptTerminate; begin Progress; WriteLn('Out of runes!'); if logo = true then Logout else WriteLn('Finished script/Out of runes!'); end; begin SetupSrl; SmartSetupEx(100, True, True, False); SetTargetDC(SMARTGetDC); SetupReflection; DeclarePlayers; LogInPlayer; Wait(2000); LoadDTM; FirstCast := true; repeat SetAngle(True); MakeCompass('N'); SetRun(True); Alch; FindNormalRandoms; CheckRunes; Progress; Wait(2000); until(loggedin = false); end.
thread >> http://www.villavu.com/forum/showthread.php?t=44376


Reply With Quote