Код:
;-----------------------------------------------------
; Автор: СаНеК (ася 340022777, майл saskuk@ukr.net )
; Дата создания: в начале 2006года
; Дата последнего изменения:
; Версия: (1.0)
; Тестил на: изя 1.5 клинет 306 инжект 4.0.
; Задумка: таминг. Елси у чара меньше Хп он хайдиться и хилится
; Реализовано
;-Внесены изменения:
;-----------------------------------------------------
Initevents
Set %tame #SCNT + 3
Set %heal #SCNT + 4
Begin:
FindItem WN_YE_KG
If #FINDDIST < 2
GoSub MovOut
Wait 1s
GoSub Tame
GoSub Heal
If #HITS < 60
{
Msg ,useskill 'Hiding' $
Wait 3s
}
Goto Begin
Sub MovOut
If #CHARPOSX = 2142
{
Move 2142 729 0 2s
Move 2145 729 0 2s
Move 2145 727 0 2s
Move 2144 727 0 2s
Wait 1s
}
else
{
Move 2144 725 0 2s
Move 2141 725 0 2s
Move 2141 727 0 2s
Move 2142 727 0 2s
Wait 1s
}
Return Sub Tame
If #SCNT > %tame
{
If #HITS > 100
{
Msg all release $
Msg ,useskill 'Animal Taming' #FINDID $
}
Set %tame #SCNT + 3
}
Return
Sub Heal
If #SCNT > %heal
{
Msg 'pc heal self $
Set %heal #SCNT + 4
}
Return
Сам не успел потестить, буду признателен за инфу по макросу.