Таминг

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

Таминг

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

;-----------------------------------------------------
; Автор: СаНеК (ася 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
avatar
Mazunchik
Admin

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

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

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

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


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