--
Зарегистрируй .CO.UA сейчас!

http://nic.co.ua/?pr=ukr.net

scanjournal 1
initevents
msg $,cancelmenu$
-----
;msg $,automenu 'a Circle' Third$
;msg $,automenu Spell Poison$
-----
;msg $,automenu 'a Circle' Seventh$
;msg $,automenu Spell Flame$
-----
;msg $,automenu 'a Circle' Fourth$
;msg $,automenu Spell Recall$
-----
msg $,automenu 'a Circle' Seventh$
msg $,automenu Spell Gate$
-----
;msg $,automenu 'a Circle' Seventh$
;msg $,automenu Spell Meteor$
-----
;msg $,automenu 'a Circle' Sixth$
;msg $,automenu Spell Energy$
-----
;msg $,automenu 'a Circle' Fifth$
;msg $,automenu Spell Blade$
-----
event macro 8 2
event macro 10 2
wait 9
set #contposx 320
wait 4
set #contposy 0
set %hav #scnt
set %minmana 30
set %maxmana #int - 1
set %cycle 0
repall:
gosub eat
gosub meditate
;finditem MMF
finditem IFF
if #findkind = -1
halt
if #findkind <> 0 2
ignoreitem #findid
goto repall
set %scp #findid
repskill:
event macro 13 23
target 9
if #targcurs <> 1
goto repskill
set #LTargetID %scp
set #LTargetKind 1
event macro 22 0
wait 50
goto repall

sub eat
if %hav > #scnt
return
finditem HND
set #LObjectID #findid
event macro 17 0
set %hav #scnt + 120
return

sub meditate
if #mana > %minmana
return
set %cycle %cycle + 1
set %inmedi 0
;;;;gosub repair (без починки -
заремить)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
wait 1s
merss:
wait 2s
if #mana > %maxmana
return
for %n 1 5
{
scanjournal %n
if 2>H;8 in #journal
set %inmedi 1
if 0<_=5_C40;>AL_A:> in #journal 3
event macro 13 46
deletejournal
goto ushfdf
}
if %inmedi = 0
event macro 13 46
ushfdf:
wait 1s
goto merss

sub repair
mers:
event macro 13 4
target 9
if #targcurs <> 1
goto mers
set #LTargetID %scp
set #LTargetKind 1
event macro 22 0
wait 1s
for %n 1 4
{
scanjournal %n
if )] in #journal
goto read
}
if %cycle < 5
return
goto rpr
read:
if =>@<0;L= in #journal
return ;нормальном
if =>20O in #journal
return ;новая
if E>@>H5< in #journal
return ;хорошем
if <5;:8E in #journal
return ;мелких
rpr:
finditem KBG_ZAG
if #findkind = -1 2
event sysmessage No anvil!
return
set #LObjectID #FindID
event macro 17 0
target 9
if #targcurs <> 1
goto rpr
set #LTargetID %scp
set #LTargetID %scp
set #LTargetKind 1
event macro 22 0
wait 1s
finditem %scp
if #findkind = -1
return
scanjournal 1
if >@B5<>=B8@>20=.* in #journal
return ;починили
if 2>AAB0=02 in #journal
return ;восстанавливаете
if =5_=C6405 in #journal
return ;не нуждается
goto mers