Inscription+Magery+Meditation

Предыдущая тема Следующая тема Перейти вниз

Inscription+Magery+Meditation

Сообщение  Mazunchik в Сб Май 15, 2010 2:38 am

Собствено я на етом макросе выкачал межек групу, щитаю макрос очень не плохои. Ложыте реги в пак пару вандов и вперед, все шо вам нада будет ето перед кастом стоит точка з запятои там де вы ее убераете тот каст и будет работать:

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
avatar
Mazunchik
Admin

К-ть повідомлень : 91
Очки : 233
Дата регистрации : 2010-05-14
Возраст : 30
Звідки : СССР

Посмотреть профиль http://cccp-rip.ukrainianforum.net

Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу


 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения