Инскрипт Пойзон

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

Инскрипт Пойзон

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

;-----------------------------------------------------
; Автор: СаНеК (ася 340022777, майл saskuk@ukr.net )
; Дата создания: в начале 2006года
; Дата последнего изменения: 10/06/2007
; Версия: (2.0)
; Тестил на: изя 1.5 клинет 306 инжект 4.0.
; Задумка: Кастует пойзон на ванды когда больше 20 инты. В паке лежат ванды и Найтшейды
; Внесены изменения:
;-----------------------------------------------------
Set %maxmana #INT - 30
goSub OpenStatus
msg $,cancelmenu$
Goto Poison
Poison:
msg $
msg ,automenu 'Choose a Circle' 'Third Circle'$
wait 1s
msg ,automenu 'Choose the Spell' 'Poison'$
wait 1s
Goto Begin

Begin:
Finditem IFF C_ , %backpack
If #Findkind = 1
{
Ignoreitem #Findid
Goto Begin
}
If #Findkind < 0
{
Event Sysmessage Empty Wand's not found... End!
halt
}
Set #Ltargetid #Findid
Set %wand #Findid
Goto Mana
Mana:
If #Mana < %maxmana
{
Event Macro 13 46
wait 3s
Goto Mana
}
Store:
If #Mana > 20
{
Event Macro 13 23
Target 9
Event Macro 22 0
wait 4s
Goto Store
}
Goto Begin

Sub OpenStatus
Event Macro 8 1
Event Macro 8 2
Event Macro 8 7
Finditem ZJF C_ , #CHARID
Set %backpack #FINDID
return
avatar
Mazunchik
Admin

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

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

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

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


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