Помощь - Поиск - Пользователи - Календарь
Полная версия: Ньюби дунгеон
UoKit.com Форумы > Ultima Online : Dev > Sphere Server > Архив готовых скриптов
*off*
Написал от нечего делать...
Код
// ########################################################################## 
// ######################### Script writed by: off ##########################
// ############# You can contact with me by e-mail: off@off.lv ##############
// ############### or write in mIRC on server irc.lv /msg off ###############
// ##########################################################################
// ################### Script is tested on sphere: 55i ######################
// #################### Date of script birth: 4.01.05 #######################
// ##########################################################################
// ################################ Описание: ###############################
// #### Это ньюби стоне... он запускает плайеров у каторых карма и киллы ####
// # впорядке и выпускает их туда от куда они пришли при телепортирование в #
// ### ньюби дунгеон, плайер неможет аттачить других плайеров и не может ####
// ##кастовать различные стены: Парализ, Фире, Поисон, а также неразрешает ##
// ##################### реколиться и маркировать. ##########################
// ##########################################################################

[ITEMDEF i_stone_nd]
ID=i_gravestone_7
Name=Newbie Dungeon
TYPE=t_normal

ON=@Create
Color=0448
ATTR=08000

ON=@DClick
IF (<SRC.Kills>>=1)
Src.Message This Place is not for Killers.
Return 1
ELIF ((<SRC.Tactics>>=75.0) || (<SRC.Swordsmanship>>=75.0) || (<SRC.Archery>>=75.0) || (<SRC.Magery>>=75.0) || (<SRC.Fencing>>=75.0) || (<SRC.Macefighting>>=75.0))
Src.Sysmessage You are not a newbie
Return 1
ELIF (<SRC.Restest i_memory_nd>)
SRC.Sysmessage Do Not Hurry.
Return 1
ELIF (<SRC.TARG.TOPOBJ.DISTANCE> > 3)
SRC.MESSAGE=You can't reach that.
RETURN
elseif (<src.flags>&020)
SRC.MESSAGE You are preoccupied with thoughts of battle.
return 1
ELSE
SRC.Newitem i_memory_nd
SRC.ACT.Equip
SRC.Sysmessage Please wait 5 Seconds
Return 1
ENDIF

[ITEMDEF i_gt_exit]
ID=i_moongate_blue
Name=Exit
TYPE=t_telepad

ON=@Create
Color=0448
ATTR=00010

ON=@Step
SRC.Events=-e_ndevent
SRC.Go <SRC.TAG.Enterposition>
SRC.TAG.Enterposition=
Return 1

[ITEMDEF i_memory_nd]
ID=i_memory
Name=Memory Item
TYPE=t_eq_script
Layer=30

ON=@Create
ATTR=00080

ON=@Equip
TIMER=5

ON=@Timer
CONT.TAG.Enterposition=<CONT.P>
CONT.Events=+e_ndevent
CONT.Go 5212,1291
Remove
Return 1

[EVENTS e_ndevent]
ON=@Spellcast
IF ((<Actarg1>==24)||(<actarg1>==28)||(<actarg1>==47)||(<actarg1>==45)||(<actarg1>==32))   // stenki, fire field, paraliz field , mark , recall
src.message You cannot cast this spells in Newbie Dungeon.
Return 1
elseif ((<act.body>=c_man) || (<act.body>=c_woman)) && (<SRC.TARG.EVENTS> == e_ndevent)
src.sysmessage You cannot cast this spell on players here!
return 1
endif

on=@hittry
if <SRC.BRAIN>
return 0
else
sysMessage You cannot attack other players here!
return 1
endif

[EOF]

Copyright ©off
Joanne d'Arc
Я поставила, там можно драться в нём ... =(
Breaker
Цитата(Joanne d'Arc @ 22.4.2010, 22:24) *

Я поставила

Аааа у меня паника, женщины на корабле ааа мы все утонем... аааа....
Kanibal
Цитата(Breaker @ 11.8.2010, 17:51) *

Аааа у меня паника, женщины на корабле ааа мы все утонем... аааа....


Забери меня море, и ё....и об скалы! cool.gif
Aspire
а мож ни чо такая =)
з\ы Owner Joanne d'Arc of Pink Shard =))))))
Wap
Проснулись... smile.gif
Joanne d'Arc
Цитата(Aspire @ 11.8.2010, 19:46) *

з\ы Owner Joanne d'Arc of Pink Shard =))))))


huh.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.
Русская версия Invision Power Board © 2001-2024 Invision Power Services, Inc.