sharpy172
2009-04-26 02:15:50
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 -.-
>>>
i see many ppl alching so many ppl must be able to figure this out any assistance?
thread >> http://www.villavu.com/forum/showthread.php?t=44376
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.then this is a anothers that updated it, but it cant find the store keeper -.-
>>>
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.i see many ppl alching so many ppl must be able to figure this out any assistance?
thread >> http://www.villavu.com/forum/showthread.php?t=44376