set %runenumber 6
mageteleport:
gosub countgold
if %gold < 10000
halt
msg %gold $
FindItem WTL C_ , #BACKPACKID
If #FINDKIND <> -1
{
ExEvent Drag #FINDID #FINDSTACK
FindItem MPF C_ , #BACKPACKID
If #FINDKIND <> -1
ExEvent Dropc #FINDID
}
Msg ,recall Mageshops %runenumber $
Wait 10s
gosub magebuy
If %runenumber == 11
Set %runenumber 5
Else
Set %runenumber %runenumber + 1
If #Weight >= 399
Gosub DropOff
GoTo mageteleport


sub magebuy
magebuy:
FindItem IS_HS G_5
If #FINDKIND <> -1
{
Set %x #FINDX
Set %y #FINDY
ploop:
event pathfind %x %y
Wait 5
DeleteJournal
ScanJournal
If Can't_Get_There in #JOURNAL
{
IgnoreItem #FINDID
Goto magebuy
}
wait 5s
if #CHARPOSX <> %x || #CHARPOSY <> %y
goto ploop
Msg ,buy 'rune scroll'$
IgnoreItem #FINDID
Goto magebuy
}
return

sub DropOff
Msg ,recall Mageshops 16 $
Wait 5s
DropStuffOff:
Finditem HKF G_1
If #FINDKIND <> -1
{
Set %Container #FINDID
Finditem MZF_JUF_KUF_MMF C_ , #BACKPACKID
If #FINDKIND <> -1
{
ExEvent Drag #FINDID #FINDSTACK
ExEvent DropC %Container
Wait 5
Goto DropStuffOff
}
}
return

sub countgold
set %gold 0
findgold:
FindItem POF C_ , #BACKPACKID
If #FINDKIND = -1
return %gold
set %gold1 #FINDSTACK
set %gold %gold + %gold1
ignoreitem #FINDID
goto findgold


Halt