|
//--- Artiz Taming ---//
// Coder :Toxic //
// 20 Haziran 2010 //
[ITEMDEF i_deed_animal]
DEFNAME=i_deed_animal
NAME=Animal Contract
ID=i_deed
WEIGHT=20.0
TYPE=t_script
VALUE=50
CATEGORY=Custom Items
SUBSECTION=Deeds
DESCRIPTION=Animal Trading Contract
On=@Create
color 08ac
On=@Click
if (<more2>)
message @256,,1 Trade :: <tag.trade>
message @0 [Str :: <eval <tag.trade_str>> Dex :: <eval <tag.trade_dex>>]
return 1
else
if <tag0.trade_id>
message @0790,,1 Binegin Ismi : <name> , Dogal ismi : <serv.chardef.<tag.trade_id>>
return 1
else
message @0790,,1 <name>
return 1
endif
endif
On=@DClick
//if (<src.account.plevel> > 1) && !(strmatch('<src.account>','akillis')) && !(strmatch('<src.account>','cyclone'))
//src.sysmessage @050,1,1 UYARI: Amac ne ? Kaydettim bunu. uid:xxxxx
//return 1
//else
if (<topobj.uid> != <src.uid>)
src.sysmessage @07A5,1,1 Bunu kullanabilmeniz icin cantanizda olmali.
return 1
elseif (<more2>)
if (<src.flags>&statf_hidden) || (<src.flags>&statf_invisible)
src.sysmessage @07A5,1,1 Gizlenmis durumdayken bunu kullanamazsiniz.
return 1
endif
try serv.newnpc <tag.trade_id>
link <new.uid>
link.name <tag.trade_name>
link.karma <tag.trade_karma>
link.fame <tag.trade_fame>
link.str <tag.trade_str>
link.hits <tag.trade_str>
link.dex <tag.trade_dex>
link.int <tag.trade_int>
link.food 9999
link.color <color>
if (<link.color> == 0835)
link.color 0481
endif
link.oskin <link.color>
link.newitem i_memory
link.act.attr 04
link.act.more1 04
link.act.more2 <serv.time>
link.act.morep <link.p>
link.act.color memory_ipet
link.act.timer -1
link.act.link <src.uid>
link.act.cont <link.uid>
link.flags <link.flags>&statf_pet
link.update
link.anim 5
link.bark 3
remove
else
target
src.sysmessage @07A5,1,1 Kucultulecek hayvani secin.
endif
return 1
On=@TargOn_Item
src.sysmessage @07A5,1,1Esyalari kucultemezsiniz.
return 1
On=@TargOn_Char
if !(<src.targ.npc>)
src.sysmessage @07A5,1,1 Oyunculari kucultemezsiniz.
elseif !(<src.targ.ismypet>)
src.sysmessage @07A5,1,1 Bu hayvan size ait degil.
elseif (<src.targ.flags>&statf_stone) || (<src.targ.flags>&statf_freeze)
src.sysmessage @07A5,1,1 Hayvani su anki durumunda kucultemezsiniz.
elseif ((<src.targ.body> == c_man) || (<src.targ.body> == c_woman))
src.sysmessage @07A5,1,1 Sadece hayvanlari kucultebilirsiniz.
elseif (<src.targ.flags>&statf_invul) || (<src.targ.color> == 07fff)
src.sysmessage @07A5,1,1 Bu hayvani kucultemezsiniz.
elseif (<src.targ.memoryfindtype.memory_war_targ>)
src.sysmessage @07A5,1,1 Hayvan su anda cok kizgin.
elseif (<src.targ.findid.i_rune_summon_creature>)
src.sysmessage @07A5,1,1 Buyu ile yaratilmis hayvanlari kucultemezsiniz.
elseif ((<src.targ.id> == c_llama_pack) || (<src.targ.id> == c_horse_pack))
src.sysmessage @07A5,1,1 Pack hayvanlari kucultemezsiniz.
elseif (<src.targ.food> < 3)
src.sysmessage @07A5,1,1 Bu hayvan acikmis.
elseif (<src.targ.hits> < <src.targ.str>)
src.sysmessage @07A5,1,1 Bu hayvan yaralanmis.
elseif (<src.targ.findid.i_rune_poison>)
src.sysmessage @07A5,1,1 Bu hayvan zehirlenmis.
elseif (<src.targ.findid.i_rune_bless>)
src.sysmessage @07A5,1,1 Bu hayvan buyunun etkisi altindadir kucultumezsiniz.
elseif (<src.targ.findid.i_rune_strength>)
src.sysmessage @07A5,1,1 Bu hayvan buyunun etkisi altindadir kucultumezsiniz.
elseif (<src.targ.findid.i_rune_CUNNING>)
src.sysmessage @07A5,1,1 Bu hayvan buyunun etkisi altindadir kucultumezsiniz.
elseif (<src.targ.findid.i_rune_Agility>)
src.sysmessage @07A5,1,1 Bu hayvan buyunun etkisi altindadir kucultumezsiniz.
elseif !(<src.targ.canseelos>)
src.sysmessage @07A5,1,1 Hayvana ulasamiyorsunuz.
elseif (<src.targ.distance> > 3)
src.sysmessage @07A5,1,1 Hayvana yeterince yakin degilsiniz.
elseif (<src.targ.id> == c_m_golem_tinker1)
serv.newitem i_pet_golem1
new.name <src.targ.name>
new.bounce
src.targ.remove
remove
elseif (<src.targ.id> == c_m_golem_tinker2)
serv.newitem i_pet_golem2
new.name <src.targ.name>
new.bounce
src.targ.remove
remove
else
name Animal Contract
attr 00
more2 1
color <src.targ.color>
if (<color> == 0481)
color 0835
endif
tag.trade <src.targ.job>
tag.trade_id <src.targ.id>
tag.trade_name <src.targ.name>
tag.trade_str <src.targ.str>
tag.trade_dex <src.targ.dex>
tag.trade_int <src.targ.int>
tag.trade_karma <src.targ.karma>
tag.trade_fame <src.targ.fame>
tag.trade_food 9999
src.targ.bark 2
src.targ.remove
src.sysmessage @07A1,1,1 <tag.trade>: kontrat haline getirildi.
endif
return 1
[function distcheck]
if (<tag.hayvanx> > <p.x>)
if (<eval <tag.hayvanx> - 5> > <p.x>)
sysmessage @021,,1 Hayvandan uzaklastiniz.
tag.animalaway=1
return 1
endif
else
if (<eval <tag.hayvanx> + 5> < <p.x>)
sysmessage @021,,1 Hayvandan uzaklastiniz.
tag.animalaway=1
return 1
endif
endif
if (<tag.hayvany> > <p.y>)
if (<eval <tag.hayvany> - 5> > <p.y>)
sysmessage @021,,1 Hayvandan uzaklastiniz.
tag.animalaway=1
return 1
endif
else
if (<eval <tag.hayvany> + 5> < <p.y>)
sysmessage @021,,1 Hayvandan uzaklastiniz.
tag.animalaway=1
return 1
endif
endif
[ITEMDEF i_staff_taming]
ID=i_staff_gnarled
NAME=Taming Staff
TYPE=T_WEAPON_MACE_STAFF
VALUE=254
TWOHANDS=Y
LAYER=2
WEIGHT=10
DAM=5,10
On=@Create
attr=04
color 0128
more2 0
timer -1
hitpoints 5
On=@DClick
if (<topobj.uid> != <src.uid>)
src.sysh_trk Bunu kullanabilmeniz için üzerinizde olmalı.
return 1
elseif (<src.flags>&statf_hidden) || (<src.flags>&statf_invisible)
src.sysh_trk Gizlenmiş durumdayken bunu kullanamazsınız.
return 1
elseif (<src.targ.region.defname> == a_townZoo)
src.sysh_trk Bu bölgede taming yasaktır.
return 1
elseif (<timer> == -1)
equip
target
src.sys_trk Hangi hayvanı tame etmek istiyorsunuz ?
return 1
endif
On=@UnEquip
more2 0
timer -1
link -1
On=@Timer
CONT.CHECKS <LINK.UID>
IF !(<VAR.SEE>)
CONT.sysh_trk Hayvan görüş alanınızdan çıktı.
link -1
more2 0
return 1
ELIF (<LINK.NPC> != brain_animal)
CONT.sysh_trk Bu hayvanı tame edemezsiniz.
link -1
more2 0
return 1
ELIF !(<LINK.TAMING>)
CONT.sysh_trk Bu hayvanı tame edemezsiniz.
link -1
more2 0
return 1
ELIF (<EVAL <CONT.TAMING>> < <LINK.TAMING>)
CONT.sysh_trk Bu hayvanı tame edebilmek için <act.taming> taming skilline ihtiyacınız vardır.
link -1
more2 0
return 1
ELIF (<CONT.FLAGS> & (statf_dead|statf_freeze|statf_invisible|statf_sleeping|statf_polymorph|statf_stone|statf_hidden))
CONT.sysh_trk Şuanki durumunuzda hayvan tameleyemezsiniz.
link -1
more2 0
return 1
ELIF (<LINK.MEMORYFINDTYPE.memory_ipet>)
CONT.sysh_trk Bu hayvan zaten tame edilmiş.
link -1
more2 0
return 1
ELIF (<LINK.MEMORYFINDTYPE.memory_fight>)
CONT.sysh_trk Bu hayvan sinirli.
link -1
more2 0
return 1
ELIF (<VAR.DIST> > 5)
CONT.sysh_trk Hayvana yeterince yakın değilsiniz.
LINK.TAG.LASTTAMER=0
link -1
more2 0
return 1
ELIF (<cont.flags>&statf_hidden) || (<cont.flags>&statf_invisible)
cont.sysh_trk Gizlenmiş durumdayken bunu kullanamazsınız.
link.tag.lasttamer 0
more2 0
link -1
return 1
ELSE
if (<more2> < 6)
dorand 8
cont.sayua 1153,6,6,0 Gel artiz gel..
cont.sayua 1153,6,6,0 Seni Bazarda Satacam..
cont.sayua 1153,6,6,0 Sakin ol artiz....
cont.sayua 1153,6,6,0 Her zaman senin gibi bir artiz sahibi olmak istemiştim..
cont.sayua 1153,6,6,0 Çok tatlısın artiz.
cont.sayua 1153,6,6,0 Artiz ne arar la spawnda ?
cont.sayua 1153,6,6,0 Spawnda ne tikirti var ne sikirti var.
cont.sayua 1153,6,6,0 Gel Katip Amcana.
enddo
dorand 2
cont.anim 17
cont.anim 19
enddo
timer 2
more2 (<more2> + 1)
return 1
endif
more2 0
if !(<link.npc> == 1)
cont.sysh_trk Bunu ehlileştiremezsiniz.
return 1
endif
if (rand(100) < 90)
if (<link.memoryfindtype.memory_ispawned>)
link.memoryfindtype.memory_ispawned.remove
endif
link.karma -50
link.memorydel <cont.uid>
link.newitem i_memory
link.act.attr 04
link.act.more1 04
link.act.more2 <serv.time>
link.act.morep <link.p>
link.act.color memory_ipet
link.act.timer -1
link.act.link <cont.uid>
link.act.cont <link.uid>
link.flags <link.flags>&statf_pet
cont.sys_trk Artiz sizi sahibi olarak kabul etti !
serv.allclients sysmessage @56,1,1,1 [SPAWN] : Artiz bir binek olan <link.name> , Katip Amca <cont.name> tarafindan tamelenmistir.
link.tag.tamer <cont.uid>
link -1
else
cont.sysh_trk Artizi ehlilleştirmeyi başaramadınız.
link -1
endif
return 1
On=@TargOn_Char
more2 0
if !(<src.targ.region.defname> == a_townZoo)
if ((<src.targ.npc> == 1) && (<src.targ.id> != c_h_vendor))
if !(<src.targ.canseelos>)
src.sysh_trk Artize ulaşamıyorsunuz.
return 1
elseif (<src.targ.distance> > 4)
src.sysh_trk Artize yeterince yakın değilsiniz.
return 1
elseif (<src.targ.memoryfindtype.memory_ipet>)
if (<src.targ.memoryfindtype.(memory_ipet|memory_guard).link> == <src.uid>)
src.sysh_trk Artiz <src.targ.name> zaten size ait.
src.targ.flags <src.targ.flags>&statf_pet
return 1
else
src.sysh_trk <src.targ.name> bir başkasına ait.
return 1
endif
elseif (<src.targ.memoryfindtype.memory_fight>)
src.sysh_trk Artiz şu an müsait değil.
more2 0
return 1
elseif (<src.targ.memoryfindtype.memory_war_targ.link> == <src.uid>)
src.sysh_trk Artiz şu an size çok kızgin.
more2 0
return 1
elseif (<src.targ.findid.i_rune_summon_creature>)
src.sysh_trk Artizler tarafindan yaratılmış hayvanları ehlileştiremezsiniz.
elseif (<src.targ.hits> < <src.targ.str>)
src.sysh_trk Bu artiz yaralı.
more2 0
return 1
elseif (0<src.targ.tag.tamer> == 0<src.uid>)
src.sysh_trk Artiz artık sizi umursamıyor.
more2 0
return 1
elseif (<src.targ.memoryfindtype.MEMORY_ISPAWNED.link.distance> > 4)
src.sysh_trk Artiz bazarindan çok uzakta.
more2 0
return 1
elseif (<src.taming> < <src.targ.taming>)
src.anim 19
src.sysh_trk <src.targ.name> için taming skilliniz yeterli değil. (gerekli skill: <src.targ.taming>)
return 1
elseif (<src.animallore> < <src.targ.animallore>)
src.anim 19
src.sysh_trk <src.targ.name> için animal lore skilliniz yeterli değil. (gerekli skill: <src.targ.animallore>)
return 1
else
link <src.targ.uid>
src.anim 19
timer 2
endif
else
src.sysh_trk Bunu ehlilleştiremezsiniz.
return 1
endif
else
src.sysh_trk Bu bölgede Artiz taming yasaktır.
return 1
endif
return 1
On=@targon_item
src.sysh_trk Bu bir hayvan değil.
target
return 1
On=@targon_ground
src.sysh_trk Bu bir hayvan değil.
target
return 1
[FUNCTION checks]
NEWITEM i_checks
ACT.LINK <ARGN>
EQUIP <ACT.UID>
[ITEMDEF i_checks]
ID=i_memory
TYPE=t_eq_script
NAME=Checks
ON=@Equip
VAR.DIST <LINK.DISTANCE>
VAR.SEE <LINK.CanSeeLOS>
REMOVE
[EVENTS e_taming_f]
ON=@Hittry
IF (rand(2) =1)
SYSMESSAGE @95,,1 Konsantrasyonunuzu kaybettiniz, evcillestiremiyorsunuz.
//findlayer(2).skill fail
//findlayer(2).action - 1
EVENTS= -e_taming_f
findlayer(2).more2 0
findlayer(2).timer -1
findlayer(2).link -1
ENDIF
ON=[url=u-death-9220.html]@death[/url]
findlayer(2).unequip
EVENTS= -e_taming_f
ON=@spelleffect
IF (rand(2) =1)
IF (<argn> == 1) || (<argn> == 3) || (<argn> == 5) || (<argn> == 8) || (<argn> == 12) || (<argn> == 18) || (<argn> == 20) || (<argn> == 27) || (<argn> == 30) || (<argn> == 31) || (<argn> == 37) || (<argn> == 38) || (<argn> == 39) || (<argn> == 42) || (<argn> == 43) || (<argn> == 46) || (<argn> == 47) || (<argn> == 49) || (<argn> == 51) || (<argn> == 53) || (<argn> == 55) || (<argn> == 57)
SYSMESSAGE @95,,1 Konsantrasyonunuzu kaybettiniz, evcillestiremiyorsunuz.
//src.findlayer(2).skill fail
//src.findlayer(2).action - 1
EVENTS= -e_taming_f
src.findlayer(2).more2 0
src.findlayer(2).timer -1
src.findlayer(2).link -1
ENDIF
ENDIF
[Itemdef i_hede]
name hodo
id i_handr_1
type t_eq_script
ON=@Equip
timer 0
ON=@Unequip
var.uzaklik <link.distance>
var.canseelos <link.canseelos>
ON=@Timer
attr attr_decay
remove
[Function kontroluzaklik]
newitem i_hede
act.link <argn>
act.cont <serial>
act.timer 0
[FUNCTION skillliste]
forchars 65100
if !(<npc>)
if (<account.plevel>==1)
if (<skilltotal> > 8000)
src.sysmessage <name>:<account> <skilltotal>
endif
endif
endif
end
forcharsidle 65100
if !(<npc>)
if (<account.plevel>==1)
if (<skilltotal> > 8000)
src.sysmessage <name>:<account> <skilltotal>
endif
endif
endif
end
[ITEMDEF i_staff_dragon]
ID=i_staff_gnarled
NAME=dragon taming staff
TYPE=t_weapon_mace_staff
VALUE=50
TWOHANDS=Y
LAYER=2
WEIGHT=10
DAM=5,10
FLIP=1
On=@Create
color 025
morez 05
more2 0
attr 04
hitpoints 5
On=@Click
if (<morex> > 0)
message [<eval <morez>> charges]
endif
On=@DClick
if (<morez> < 1)
src.sysmessage @07A5,1,1 Staff kullanilamayacak derecede kadar eskimis...
return 1
endif
if (<src.taming> != 100.0)
src.sysmessage @07A5,1,1 Bu staff'i kullanacak kadar bilgili degilsiniz.
return 1
endif
if (<more2> == 0)
target Hangi dragonu ehlillestirmek istiyorsunuz?
endif
return 1
On=@UnEquip
timer -1
On=@Timer
if (<more2> < 9)
if (<link.distance> > 3)
cont.sysmessage @07A5,1,1 Dragona yeterince yakin degilsiniz.
return 1
elseif (<link.memoryfindtype.memory_ipet>)
cont.sysmessage @07A5,1,1 <src.targ.name>, ugraslariniz sirasinda, baska biri tarafindan ehlilestirildi.
return 1
endif
dorand 10
cont.sayua 1153,6,6,0 Gel artiz gel..
cont.sayua 1153,6,6,0 Seni Bazarda Satacam..
cont.sayua 1153,6,6,0 Sakin ol artiz....
cont.sayua 1153,6,6,0 Her zaman senin gibi bir artiz sahibi olmak istemiştim..
cont.sayua 1153,6,6,0 Çok tatlısın artiz.
cont.sayua 1153,6,6,0 Artiz ne arar la spawnda ?
cont.sayua 1153,6,6,0 Spawnda ne tikirti var ne sikirti var.
cont.sayua 1153,6,6,0 Gel Katip Amcana.
enddo
dorand 2
cont.anim 17
cont.anim 19
enddo
timer 2
more2 (<more2> + 1)
return 1
endif
more2 0
if (rand(100) < 75)
if <link.memoryfindtype.memory_ispawned>
link.memoryfindtype.memory_ispawned.remove
endif
link.karma 2500
link.memoryfindtype.memory_speak.color (memory_ipet|memory_guard)
link.memoryfindtype.(memory_ipet|memory_guard).name <cont.name>
link.memoryfindtype.(memory_ipet|memory_guard).link <cont.uid>
link.memoryfindtype.(memory_ipet|memory_guard).timer -1
link.flags <link.flags> & 08000000
cont.sysmessage @0482 <link.name> sizi sahibi olarak kabul etti.
serv.allclients sysmessage @56,1,1,1 [SPAWN] : <link.name> , <cont.name> tarafindan tamelenmistir.
morez (<morez> - 1)
link 04fffffff
else
cont.sysmessage @027 Hayvani ehlillestirmeyi basaramadiniz.
link 04fffffff
endif
return 1
On=@TargOn_Char
if (<src.targ.flags> == 024000000)
src.sysmessage @0482 Buyu ile yaratilmis hayvanlari ehlilestiremezsiniz.
src.action -1
return 1
endif
if !(<src.targ.region.defname> == a_townZoo)
if (<src.targ.npc> == 13)
if (<src.targ.distance> > 4)
src.sysmessage Hayvana yeterince yakin degilsiniz.
return 1
elseif (<src.targ.memoryfindtype.memory_ipet>)
src.sysmessage <src.targ.name> zaten ehlillestirilmis.
return 1
else
link <src.targ.uid>
src.anim 19
dorand 10
cont.sayua 1153,6,6,0 Gel artiz gel..
cont.sayua 1153,6,6,0 Seni Bazarda Satacam..
cont.sayua 1153,6,6,0 Sakin ol artiz....
cont.sayua 1153,6,6,0 Her zaman senin gibi bir artiz sahibi olmak istemiştim..
cont.sayua 1153,6,6,0 Çok tatlısın artiz.
cont.sayua 1153,6,6,0 Artiz ne arar la spawnda ?
cont.sayua 1153,6,6,0 Spawnda ne tikirti var ne sikirti var.
cont.sayua 1153,6,6,0 Gel Katip Amcana.
enddo
timer 2
return 1
endif
else
src.sysmessage Bunu ehlillestiremezsiniz.
return 1
endif
else
src.sysmessage Bu bolgede taming yasaktir.
return 1
endif
On=@TargOn_Item
return 1
[function memorydel] // memory silen loop
if (0<args>)
if (<findid.i_memory.link> == <args>)
findid.i_memory.remove
memorydel <args>
endif
endif
[EOF]
|
|
| Konu | Kategori | Son cevap | Son yazan | Mesaj | Görüntüleme | |
|---|---|---|---|---|---|---|
|
|
Roulette system
Son cevap: 27-10 19:53 · Son yazan: Tehliqely · Mesaj: 5 · Görüntü: 2609
|
Derleme Scriptler | 27-10 19:53 | 5 | 2609 | |
|
|
dee-PK Level system Shard.
Son cevap: 12-09 20:57 · Son yazan: Daedhelon · Mesaj: 2 · Görüntü: 2841
|
Ultima Online Genel | 12-09 20:57 | 2 | 2841 | |
|
|
APK Reborn (Level System)
Son cevap: 11-09 19:24 · Son yazan: smagg · Mesaj: 1 · Görüntü: 3247
|
Server Reklam, Tartışma | 11-09 19:24 | 1 | 3247 | |
|
|
Party Healing System
Son cevap: 01-07 18:13 · Son yazan: Marshall Longcloak · Mesaj: 4 · Görüntü: 4388
|
Script Yardımı | 01-07 18:13 | 4 | 4388 | |
|
|
Taming görevi
Son cevap: 25-01 17:43 · Son yazan: Andrien · Mesaj: 1 · Görüntü: 3366
|
Derleme Scriptler | 25-01 17:43 | 1 | 3366 |