|
********************************************
********************************************
********************************************
Script kodu : chest sistemi
Scriptin Serveri : Sydras
Script Kodlayıcısı : lawyer
script kodlayıcısının maili : [email protected] & [email protected]
Script kodlanma zamanı : 04.temmuz.2011
script bilgisi : uo-developer'a armaganımdır.
*********************************************
**********************************************
************************************************
[chardef c_chest_npc]
defname c_chest_npc
name Chest Of Npc
id c_man
ARmor 90
SOUND=snd_MONSTER_DAEMON1
DESIRES=i_gold,t_wand
AVERSIONS=r_water,r_mountains
can mt_walk|mt_run|mt_usehands|mt_equip|MT_FIRE_IMMUNE
Category Avanger
Subsection Monster
Description Nazgul
On=@Create
npc brain_monster
color 0835
str 5500
dex 1200
int 0
karma -9999
fame 10000
fencing {90.0 100.0}
anatomy {95.0 99.0}
wrestling {90.0 98.0}
tactics 100.0
magicresistance 100.0
meditation 100.0
parrying 50.0
healing 100.0
ITEMNEWBIE=i_light_source
ITEM=i_bilet,65000
ITEM=i_bilet,65000
ITEM=i_gold,65000
ITEM=i_yenisistem
ITEM=i_deed_viola
ITEM=i_deed_viola
itemnewbie i_tc_mr15
color 0455
itemnewbie i_kryss_force
Color 0455
itemnewbie i_shield_chaos
color 0455
item i_mt_ostard_desert
name Night Ostard
timer -1
color 0455
on=@click
message @0481,1,1,1,1 [Özel Chest sandiği,R1]
message @48,1,1,1,1, Chest Boss
return 1
on=[url=u-death-9220.html]@death[/url]
serv.allclients sysmessage @0481,1,1,1 * Boss Ölüm * : Özel Chest Bossu <act.name> tarafından <region.name> civarlarında öldürüldü
On=@SpellEffect
if (<argn> == 3) || (<argn> == 47) || (<argn> == 5) || (<argn> == 1) || (<argn> == 3) || (<argn> ==8)
sayu * Etkilenmez *
return 1
Endif
On=@EnvironChange
if (<findlayer(25)>)
findlayer(25).more2 <uid>
endif
On=@NPCSeeNewPlayer
if (<src.color> == 0835)
return 1
endif
On=@HitTry
if (<src.color> == 0835)
memoryfindtype.memory_fight.color 040
leave 5
flee
endif
On=@Hit
if (<src.memoryfindtype.memory_ipet>)
src.damage 300
else
src.damage {10 25}
endif
if (rand(3) == 1)
src.poison 2000
endif
////////////////
deedler ve itemler
[itemdef i_yenisistem]
id i_crate_small
name Yeni Sistem Hocam
type t_script
on=@create
color 0455
on=@click
message @0481,1,1,1 Ozel Kilitli Chest
src.sysmessage @0481,1,1,1, Not Bunu Sadece Safe Alanda Kullanabilirsiniz
return 1
on=@dclick
if (strmatch('<region.name>','green acres 2')
src.yenisistem
src.sysmessage @0481,1,1,1, 60 saniyeniz var chesti acmak ve icindekinleri almak icin aksi taktirde 60 saniye sonra chest silinicektir.
remove
return 1
else
src.sysmessage @0481,1,1,1 Bu itemi sadece safe alaninda kullanabilirsiniz ,
return 1
endif
[function yenisistem]
serv.newitem=i_hazine55
new.attr 08050
new.p <p>
//////////////////////
[TEMPLATE loot_hazinebea]
DEFNAME=loot_rare
CATEGORY=Item Templates
SUBSECTION=Monster Loot Templates
DESCRIPTION=Hazinebe
CONTAINER=i_bag
ITEM=i_hazine_key
ITEM=RANDOM_WEAPON_vanq,R10
[itemdef i_hazine_key]
name Treasure Lockpick
id i_lockpick
type t_eq_script
on=@create
timer 60*100
color 0810
on=@click
message @0481,1,1,1 <serv.name> Chest Sistemi
message @0481,1,1,1 <timer> zaman sonra silinicek
return 1
on=@dclick
if (<timer> = 0) || (<timer> = -1)
remove
src.sysmessage @55 Anahtar kullanamayacak kadar eskimis.
elseif !(<cont.uid> == <src.findlayer(21).uid>)
src.sysmessage @033 Lockpickler uzerinizde olmali.
elseif (<src.flags>&statf_hidden) || (<src.flags>&statf_invisible)
src.sysmessage @56 Gizlenmis durumdayken bunu kullanamazsiniz.
else
target
src.sysmessage @0481,1,1,1 Hangi <serv.name> Chest'i acacaksin ?
endif
return 1
on=@timer
remove
return 1
on=@targon_item
if (<src.targ.morex> = 1) && (<src.lockpicking> <= 0)
src.sysmessage @55 Hazine kasasini acabilmek icin 60.0 lockpicking gerekli.
elseif (<src.targ.morex> = 2) && (<src.lockpicking> <= 0)
src.sysmessage @55 Hazine kasasini acabilmek icin 70.0 lockpicking gerekli.
elseif (<src.targ.morex> = 3) && (<src.lockpicking> <= 0)
src.sysmessage @55 Hazine kasasini acabilmek icin 80.0 lockpicking gerekli.
elseif (<src.targ.morex> = 4) && (<src.lockpicking> <= 0)
src.sysmessage @55 Hazine kasasini acabilmek icin 90.0 lockpicking gerekli.
//elseif (<src.targ.morex> = 5) && (<src.lockpicking> <= 0)
//src.sysmessage @55 Hazine kasasini actiniz , tebrikler!
elseif (<src.targ.morex>=1)||(<src.targ.morex>=2)||(<src.targ.morex>=3)||(<src.targ.morex>=4)||(<src.targ.morex>=5)
src.say @0481,1,1,1,1 Kiliti Acar
src.sysmessage @0481,1,1,1, Kilidi acmayi basardiniz.
serv.allclients sysmessage @0481,1,1,1,1 * Anons * : <src.name> adli oyuncu <serv.name> chest'i acti.
src.targ.type t_container
src.sound=511
src.targ.color 00
src.targ.morex 0
src.newnpc {binekid ( örnek) c_llama 2 }
src.act.newitem i_hazine_spawn_del
src.act.act.cont <src.act.uid>
src.consume i_hazine_key
else
src.sysmessage @033 Lockpickleri bunun uzerinde kullanamazsiniz.
endif
return 1
[typedef t_hazinekasa]
on=@create
timer 60
return 1
on=@timer
remove
return 1
ON=@dclick
if (<type> = t_hazinekasa)
src.sysmessage @07a5,1,1 Bunu sadece Locksmith'ler acabilir.
return 1
else
return 0
endif
on=@click
message @0481,1,1,1 <serv.name> Chest Sistemi
message @0481,1,1,1,1 <timer> saniye sonra silinicek
return 1
[ITEMDEF 014fb]
//DEFNAME2=LOCKPICK
DEFNAME=i_lockpick
TYPE=T_LOCKPICK
FLIP=1
RESOURCES=2 i_ingot_iron
VALUE=19
WEIGHT=1
CATEGORY=Items by Professions
SUBSECTION=Thief
DESCRIPTION=Lockpick
DUPELIST=014fc
SKILLMAKE=TINKERING 48.5
ON=@dclick
if !(<cont.uid> == <src.findlayer(21).uid>)
src.sysmessage @033 Lockpickler uzerinizde olmali.
return 1
elseif (<src.flags>&statf_hidden) || (<src.flags>&statf_invisible)
src.sysmessage @56 Gizlenmis durumdayken bunu kullanamazsiniz.
return 1
else
target
src.sysmessage @033 Hangi kasayi acacaksiniz ?
return 1
endif
on=@targon_item
if (<src.targ.type>=t_hazinekasa) //calisma kasasi
if (<src.targ.distance>>2) && ( <src.targ.TOPOBJ.UID> != <SRC.UID> ) //distance check
src.sysmessage @033 Kasaya cok uzaksiniz.
return 1
endif
endif
if (<src.lockpicking><30.0) //acilma randlari
IF RAND(2)==1
src.sysmessage @033 Kasayi acmaya calisirken lockpickleriniz kirildi.
SRC.CONSUME 1 i_hazine_key
src.sound 242
return 1
endif
elseif (<src.lockpicking><40.0)
IF RAND(2)==1
src.sysmessage @033 Kasayi acmaya calisirken lockpickleriniz kirildi.
SRC.CONSUME 1 i_hazine_key
src.sound 242
return 1
endif
elseif (<src.lockpicking><50.0)
IF RAND(3)==1
SRC.CONSUME 1 i_hazine_key
src.sound 242
src.sysmessage @033 Kasayi acmaya calisirken lockpickleriniz kirildi.
return 1
endif
elseif (<src.lockpicking><60.0)
IF RAND(4)==1
SRC.CONSUME 1 i_hazine_key
src.sound 242
src.sysmessage @033 Kasayi acmaya calisirken lockpickleriniz kirildi.
return 1
endif
elseif (<src.lockpicking><70.0)
IF RAND(6)==1
src.sound 242
SRC.CONSUME 1 i_hazine_key
src.sysmessage @033 Kasayi acmaya calisirken lockpickleriniz kirildi.
return 1
endif
elseif (<src.lockpicking><80.0)
IF RAND(8)==1
src.sound 242
SRC.CONSUME 1 i_hazine_key
src.sysmessage @033 Kasayi acmaya calisirken lockpickleriniz kirildi.
return 1
endif
elseif (<src.lockpicking><90.0)
IF RAND(10)==1
src.sound 242
src.sysmessage @033 Kasayi acmaya calisirken lockpickleriniz kirildi.
SRC.CONSUME 1 i_hazine_key
return 1
endif
elseif (<src.lockpicking><98.0)
IF RAND(15)==1
src.sysmessage @033 Kasayi acmaya calisirken lockpickleriniz kirildi.
src.sound 242
SRC.CONSUME 1 i_hazine_key
return 1
endif
endif
//kasayi ac
if (<src.targ.morex>=1) || (<src.targ.morex>=2) ||(<src.targ.morex>=3) ||(<src.targ.morex>=4) ||(<src.targ.morex>=5)
src.sysmessage @033 Treasure chest'leri yalnizca Treasure Lockpick ile acabilirsiniz..
return 1
endif
if (<src.targ.morex>=6)
src.targ.color 00
src.targ.update
src.targ.timer 60*5
src.sayua 480,6,6,0 *kilidi acar*
src.sysmessage @55 Kilidi acmayi basardiniz.
src.gainpickingskill
src.targ.type t_container
src.sound=511
src.targ.color 00
src.targ.morex 0
else
src.sysmessage @07a1 Lockpickleri bunun uzerinde kullanamazsiniz.
endif
return 1
[itemdef i_hazine1_conts]
id i_chest_metal
name chest
type t_container
on=@create
type t_hazinekasa
attr attr_decay|attr_move_never|attr_static
color 0455
morex 1
timer 800
on=@pickup_ground
return 1
on=@timer
remove
return 1
[itemdef i_hazine2_conts]
id i_chest_metal
name chest
type t_container
on=@create
type t_hazinekasa
attr attr_decay|attr_move_never|attr_static
color 0455
morex 2
timer 800
on=@pickup_ground
return 1
on=@timer
remove
return 1
[itemdef i_hazine3_conts]
id i_chest_metal
name chest
type t_container
on=@create
type t_hazinekasa
attr attr_decay|attr_move_never|attr_static
color 0455
morex 3
timer 800
on=@pickup_ground
return 1
on=@timer
remove
return 1
[itemdef i_hazine4_conts]
id i_chest_metal
name chest
type t_container
on=@create
type t_hazinekasa
attr attr_decay|attr_move_never|attr_Static
color 0455
morex 4
timer 800
on=@pickup_ground
return 1
on=@timer
remove
return 1
[itemdef i_hazine5_conts]
id i_crate_small
name chest
type t_container
on=@create
type t_hazinekasa
attr attr_decay|attr_move_never|attr_static
color 0455
morex 5
timer 800
on=@pickup_ground
return 1
on=@timer
remove
return 1
[TEMPLATE i_hazine55]
CATEGORY=Hazine Kasasi
SUBSECTION=Hazine
DESCRIPTION=LEVEL 5
CONTAINER=i_hazine5_conts
TIMER=60
ITEM=i_uo-developer
ITEM=i_uo-developer
ITEM=i_uo-developer
ITEM=i_uo-developer
ITEM=i_uo-developer
ITEM=i_uo-developer
ITEM=i_uo-developer
ITEM=i_uo-developer
ITEM=i_uo-developer
ITEM=i_uo-developer
ITEM=i_uo-developer
[ITEMDEF 014fc]
//lockpick
DUPEITEM=014fb
[ITEMDEF 014fd]
DEFNAME=i_lockpick_set
//DEFNAME2=LOCKPICKS
TYPE=T_LOCKPICK
FLIP=1
RESOURCES=3 i_LOCKPICK
WEIGHT=1
CATEGORY=Items by Professions
SUBSECTION=Thief
DESCRIPTION=Lockpicks (Set)
DUPELIST=014fe
[ITEMDEF 014fe]
//lockpicks
DUPEITEM=014fd
[TEMPLATE goldekle]
CONTAINER=i_bag
ITEM=i_gold,{30000}
[EOF]
|
|
| Konu | Kategori | Son cevap | Son yazan | Mesaj | Görüntüleme | |
|---|---|---|---|---|---|---|
|
|
Otomatik Av Sistemi
Son cevap: 07-06 12:33 · Son yazan: mithbar · Mesaj: 8 · Görüntü: 3324
|
Derleme Scriptler | 07-06 12:33 | 8 | 3324 | |
|
|
Ödül sistemi ip sorgulama
Son cevap: 05-11 22:03 · Son yazan: Knuth* · Mesaj: 8 · Görüntü: 3783
|
Script Yardımı | 05-11 22:03 | 8 | 3783 | |
|
|
Random Spawn sistemi yardım
Son cevap: 02-09 16:44 · Son yazan: Stark35 · Mesaj: 12 · Görüntü: 6122
|
Derleme Scriptler | 02-09 16:44 | 12 | 6122 | |
|
|
Hesap Kayıt Sistemi Hakkında
Son cevap: 22-10 18:58 · Son yazan: Joshepx · Mesaj: 1 · Görüntü: 1746
|
Client ve Account Sistemleri | 22-10 18:58 | 1 | 1746 | |
|
|
Kredi Barbut Zar Sistemi
Son cevap: 22-11 13:36 · Son yazan: xrambo · Mesaj: 3 · Görüntü: 3164
|
Grafik Araçları | 22-11 13:36 | 3 | 3164 |