heh, never thought of that… well i'm gonna put in the magic antirands. Thanks for reminding me!
EDIT: there arent magic anti-randoms…
EDIT: ok… i guess i am forced to show my script… i just would like to learn from my mistakes and, if possible, learn more better procedures and functions to use.
PORT SARIM MAGER
{this will, of course, mage black knights in port sarim jail and buy runes at
aggies rune shop}
{will buy 100 of every rune you choose}
{INSTRUCTIONS!
1. have low quality
2.have 32-bit config
3.have as much money as you want in the first slot
4.setup below!
5. start in the rune shop at the doorway
6. have your runes already in your inventory
7.FACE NORTH ON MINIMAP!
8. you must be able to attack the knight with one left click
9.Use a staff with the spell already enabled}
{.include\SRL\SRL.scar}
Var
x,y,h:integer;
///////////////////SETUP THIS PART!////////////////////////////////////////
const
////colors! put colors here!!/////
runeshopsymbol= 1142014; ///////////color of the rune shop symbol,
foodshopsymbol= 6396346; ///////////color of the food shop symbol,
jewlerysymbol= 1451203;////////////color of the jewlery symbol
minigame= 3291597;////////////color of the minigame symbol
fishingsymbol= 10721281;////////////color of the fishing symbol
doorsymbol= 229;///////////a door symbol on minimap
bettypants= 1184277;////////////color of bettie's pants (black)
blackknight= 5921378;////////////color of the black knight
////////////////rune buyer setup/////////
rune1= 0;{0 fire,1 water,2 air,3 earth,4 minds,5 body,6 chaos,7 deaths}
rune2= 2;/////^^^^^^^^^^^^^^^^^^^^^^^^^////
rune3= 4;/////^^^^^^^^^^^^^^^^^^^^^^^^^////
//////////////miscellanious things///////////
autologout= 1;/////how many times to buy runes? 0= unlimited
//////////END OF SETUP! DO NOT MODIFY ANYTHING ELSE!!!!////////
procedure movetojail;
Begin
findcolortolerance(x,y,jewlerysymbol,617,112,656,153,3)
clickmouse(x+18,y,True)
wait(14000)
findcolortolerance(x,y,minigame,664,137,693,144,8)
clickmouse(x,y,True)
wait(14000)
findcolortolerance(x,y,fishingsymbol,615,98,656,144,8)
clickmouse(x,y+25,True)
wait(14000)
findcolortolerance(x,y,foodshopsymbol,638,112,674,143,4)
clickmouse(x,y,True)
wait(14000)
findcolortolerance(x,y,doorsymbol,621,120,648,151,7)
clickmouse(x,y,True)
end;
procedure attack;
Begin
repeat
findcolortolerance(x,y,9819,626,112,138,7)
clickmouse(x,y,True)
wait(8000)
clickmouse(681,91,True)
wait(8000)
findcolortolerance(x,y,blackknight,88,118,316,325,5)
clickmouse(x,y,True)
repeat
if findcolortolerance(x,y,blackknight,88,118,316,325,5)then
wait(4000)
until(findcolortolerance(x,y,blackknight,88,118,316,325,5)False)
until(wait(200000)
end;
procedure goback;
begin
repeat
sendarrowsilent(3)
until(findcolortolerance(x,y,15000811,614,36,614,36,5)
wait(8000)
findcolortolerance(x,y,doorsymbol,605,22,628,37,5)
clickmouse(x,y,True)
wait(14000)
findcolortolerance(x,y,foodshopsymbol,621,17,673,58,5)
clickmouse(x,y,True)
wait(14000)
clickmouse(664,14,True)
wait(14000)
findcolortolerance(x,y,minigame,626,28,674,47,5)
clickmouse(x,y,True)
wait(10000)
findcolortolerance(x,y,jewlerysymbol,609,11,656,44,5)
x+30
clickmouse(x,y,True)
wait(14000)
findcolortolerance(x,y,runeshopsymbol,623,18,663,55,5)
clickmouse(x,y,True)
wait(14000)
findcolortolerance(x,y,bettypants,52,40,394,288,5)
clickmouse(x,y,False)
wait(1000)
x-18
y+42
clickmouse(x,y,True)
wait(2000)
end;
procedure buyrunes;
begin
if rune1:=0 then
repeat
x:=99
y:=90
h:=0
clickmouse(x,y,False)
x-33
y-58
clickmouse(x,y,True)
wait(1000)
h+1
until(h>=10)else
if rune1:=1 then
repeat
x:=141
y:=87
h:=0
clickmouse(x,y,False)
x-35
y-66
clickmouse(x,y,True)
wait(1000)
h+1
until(h>=10)else
if rune1:=2 then
repeat
x:=191
y:=85
h:=0
clickmouse(x,y,False)
x-8
y-68
clickmouse(x,y,True)
wait(1000)
h+1
until(h>=10)else
if rune1:=3 then
repeat
x:=242
y:=90
h:=0
clickmouse(x,y,False)
x-33
y-58
clickmouse(x,y,True)
wait(1000)
h+1
until(h>=10)else
if rune1:=4 then
repeat
x:=283
y:=87
h:=0
clickmouse(x,y,False)
x-35
y-66
clickmouse(x,y,True)
wait(1000)
h+1
until(h>=10)else
if rune1:=5 then
repeat
x:=332
y:=86
h:=0
clickmouse(x,y,False)
x-8
y-68
clickmouse(x,y,True)
wait(1000)
h+1
until(h>=10)else
if rune1:=6 then
repeat
x:=380
y:=86
h:=0
clickmouse(x,y,False)
x-8
y-68
clickmouse(x,y,True)
wait(1000)
h+1
until(h>=10)else
if rune1:=7 then
repeat
x:=426
y:=86
h:=0
clickmouse(x,y,False)
x-8
y-68
clickmouse(x,y,True)
wait(1000)
h+1
until(h>=10)
end;
begin
SetupSRL
repeat
autologout:=autologout-1
DwarfItem;
FixChat;
movetojail;
LoadNpcArray;
FindDead;
FindNewBox;
FindTalk;
TalkToRand;
attack;
goback;
buyrunes;
until(autologout>=0)
end.