//Macros has been loaded with http://o-player.narod.ru

set #mine 0 
set #basex 1344 
set #basey 1887
set #baseruneid 10742879443 
set #maxweight 430
set #KirkaID 1099928722//* ID kirka
set #bintID 1099574031

set #mine_num 10  
set #rune1id 1099475718 //rune id
set #rune2id 1099406276
set #rune3id 1099405387
set #rune4id 1099404627
set #rune5id 1099404876
set #rune6id 1099425647
set #rune7id 1099592518
set #rune8id 1099403711
set #rune9id 1099403514
set #rune10id 1099654094
set #rune11id 1099419186


set $not there is
set $try try mining in rock
set $can't you can't see
set $noline you have no
set $wh where do
set $um you must 

set $put you put the
set $loos you loosen


set $paralized you are frozen
set $fizl spell fizzles
set $hide you have hidden
set $see you see
set $unhide you have been revealed
set $what what do you want

set $see you see
set #hidden 0 
set #usee 0

start_script 1

:main 

set #hidden 0


if ( charposx <> #basex ) and ( charposy <> #basey ) 
gosub recalltobasebook 
end_if

while ( hits < str )
set lastobjectid #bintID
wait 100
send f3 //lastobject
wait 3000
end_while 

:check_wght
if (wght > 250)
for #x 1083, 1221 5 //Пак верхний левый угол х1, нижний правый угол х2
for #y 69, 165 5 //Пак верхний левый угол у1, нижний правый угол у2
set lastobjecttype 1
double_left #x, #y
wait 500
send escape
if (lastobjecttype = 6584) or (lastobjecttype = 6585) or (lastobjecttype = 6586) or (lastobjecttype = 6583)
left_down #x, #y
wait 500
say
wait 500
left_up 371, 198 //Координаты ящика куда кидаешь 
wait 500 
end_if
end_for
end_for
end_if
return


while ( mana < int ) and ( charposx = #basex ) and ( charposy = #basey ) 
send f7 // meditation
wait 3000
end_while 

set #usee 0

if ( charposx = #basex ) or ( charposy = #basey ) 
send f7 // медитация
wait 5000
end_if 
gosub recalltomine


while ( charposx <> #basex ) or ( charposy <> #basey ) or ( #usee <> 0 )
gosub diging
if ( charposx = #basex ) or ( charposy = #basey ) or ( wght > #maxweight ) or ( lastmsg = $see ) or ( #usee <> 0 )
goto main
end_if 
gosub move
if ( lastmsg = $see ) or ( #usee <> 0 )
goto main
end_if 

end_while 

goto main

:move
set #npx charposx - 2
set timer
while ( #npx < charposx )
if timer > 4000
goto main
end_if 
send up 500
send f11 // all names
wait 100
if (lastmsg = $unhide)
set #hidden 0
end_if
if ( lastmsg = $see ) or ( charposx = #basex ) or ( charposy = #basey )
break
end_if 
end_while
return

:diging

if (#hidden = 0)
send f12 // hiding
set timer
while ( lastmsg <> $hide ) 
if ( charposx = #basex ) or ( charposy = #basey ) 
return
end_if
if ( timer > 2500 ) 
break
end_if 
send f11 // all names 
wait 100
if ( lastmsg = $see ) 
return
end_if 
end_while
if (lastmsg <> $hide)
goto diging
else
set #hidden 1
end_if
end_if



set lastobjecttype 3717 // кирка
set lastobjectid #KirkaID
set lasttargetkind 3 //static
set lasttargetID 1073770843

set #x charposx 
set #y charposy
set #x #x - 2
set #y #y - 2

repeat 5
repeat 5

if ( charposx = #basex ) or ( charposy = #basey ) or ( wght > #maxweight )
break
end_if 
set lasttargetx #x
set lasttargety #y
send f1 // lastobjest>lasttarget
wait 500
while ( ( lastmsg = $wh ) or ( lastmsg = $um ) ) and ( #usee = 0 )
send f11 // all names
wait 100
if ( lastmsg = $see ) 
set #usee 1
end_if 
end_while
while ( lastmsg = $loos ) and ( #usee = 0 )
send f1 // lastobjest>lasttarget 
wait 300
while ( ( lastmsg = $wh ) or ( lastmsg = $um ) ) and ( #usee = 0 )
send f11 // all names
wait 100
if ( lastmsg = $see ) 
set #usee 1
end_if 
end_while
end_while 

set #y #y + 1 
if ( #usee <> 0 )
break
end_if 
end_repeat

if ( charposx = #basex ) or ( charposy = #basey ) or ( wght > #maxweight ) or ( #usee <> 0 ) 
break
end_if 

set #y charposy
set #y #y - 2
set #x #x + 1 
end_repeat

return



:recalltobasebook
set lasttargetkind 1 //item
set lasttargetid #baseruneid
send f2 2500 //recoll book
set timer
while (charposx <> #basex) or (charposy <> #basey)
if (timer > 3000)
break
end_if
wait 100
end_while
if (charposx <> #basex) or(charposy <> #basey) //???? ?? ?? ?? ???? ??
goto recalltobasebook
end_if
return


:recalltomine
set #mine #mine + 1 
if (#mine = 1)
set #lastruneid #rune1id
end_if
if (#mine = 2)
set #lastruneid #rune2id
end_if
if (#mine = 3)
set #lastruneid #rune3id
end_if
if (#mine = 4)
set #lastruneid #rune4id
end_if
if (#mine = 5)
set #lastruneid #rune5id
end_if
if (#mine = 6)
set #lastruneid #rune6id
end_if
if (#mine = 7)
set #lastruneid #rune7id
end_if
if (#mine = 8)
set #lastruneid #rune8id
end_if
if (#mine = 9)
set #lastruneid #rune9id
end_if
if (#mine = 10)
set #lastruneid #rune10id
end_if
if (#mine = 11)
set #lastruneid #rune11id
end_if

say будем копать в шахте № #mine 
if (#mine > #mine_num )
set #mine 0 //повтор
end_if
set lasttargetkind 1 //item
set lasttargetid #lastruneid
send f6 //cast spell recall/waitfortarget/last target
wait 3000
while lastmsg = fizzles
send f6
wait 3000
end_while 
return