[chardef c_cpvp_duello]
name Duello Hakemi
id c_man
can mt_equip|mt_nonmover
On=@Create
str 9500
dex 1000
int 1000
magery 100
speechcolor 1953
food 990
color 01
npc 1
itemnewbie random_male_hair
color 01
itemnewbie random_facial_hair
color 01
itemnewbie i_robe_mage
color 0455
on=@gethit
return 1
on=@spelleffect
return 1
on=@death
hits 100
return 1
on=@attack
return 1
on=@hit
return 1
on=@click
messageua 0481,6,6,enu [Duello Hakemi]
return 1
on=@dclick
if (<src.findid.i_duellocu>)
src.findid.i_duellocu.remove
endif
if (<src.account.plevel>==7) && (<src.isgm>)
sdialog d_cpvp_duello_ayar
elif (<src.account.plevel>==1) || (<src.account.plevel>==7)
if (<distance> >3)
src.sysmessage @1953,1,1,1 Yetisemiyorsunuz...
return 1
endif
sdialog d_cpvp_duello
endif
return 1
[dialog d_cpvp_duello_ayar]
0,0
resizepic 100 100 5120 300 200
resizepic 110 110 9350 280 180
dhtmlgump 170 120 300 20 0 0 <serv.servname> Duello Sistemi
button 120 150 210 211 1 0 1
button 120 175 210 211 1 0 2
button 120 200 210 211 1 0 3
button 120 225 210 211 1 0 4
button 120 250 210 211 1 0 5
dhtmlgump 142 150 400 20 0 0 Normal Koordinati: <tag0.koordinat1>
dhtmlgump 142 175 400 20 0 0 Gerisayim Koordinati: <tag0.koordinat2>
dhtmlgump 142 200 400 20 0 0 Pvp'deki Koordinati: <tag0.koordinat3>
dhtmlgump 142 225 400 20 0 0 1.Player: <tag0.koordinat4>
dhtmlgump 142 250 400 20 0 0 2.Player: <tag0.koordinat5>
[dialog d_cpvp_duello_ayar button]
onbutton 1
var.hakemuid <uid>
targetfg hakemkoordinat 1
onbutton 2
var.hakemuid <uid>
targetfg hakemkoordinat 2
onbutton 3
var.hakemuid <uid>
targetfg hakemkoordinat 3
onbutton 4
var.hakemuid <uid>
targetfg hakemkoordinat 4
onbutton 5
var.hakemuid <uid>
targetfg hakemkoordinat 5
[dialog d_cpvp_duello]
0,0
resizepic 100 100 5120 300 270
resizepic 110 110 9350 280 250
dhtmlgump 170 120 300 20 0 0 <serv.servname> Duello Sistemi
dhtmlgump 120 150 50 20 0 0 Bahis:
dtextentry 160 150 100 20 910 1 0
checkbox 120 180 210 211 0 1
checkbox 120 205 210 211 0 2
checkbox 120 230 210 211 0 3
dhtmlgump 143 180 300 20 0 0 Silaha poison var
dhtmlgump 143 205 300 20 0 0 Loot var
dhtmlgump 143 230 300 20 0 0 Magical var
dcroppedtext 120 260 120 20 0 Max Bandage: [0:sinirsiz]
dtextentry 250 260 70 20 910 2 0
dcroppedtext 120 280 120 20 0 Max Potion : [0:sinirsiz]
dtextentry 250 280 70 20 910 3 0
button 220 310 4023 4025 1 0 1
[dialog d_cpvp_duello button]
onbutton 1
if !(<isnum <argtxt[1]>>) || !(<isnum <argtxt[2]>>) || !(<isnum <argtxt[3]>>)
src.sysmessage @1953,1,1,1 Sadece sayi yazabilirsiniz..
return 1
endif
serv.newitem i_duellocu
src.new.link <uid>
src.new.tag.bahis <argtxt[1]>
src.new.tag.maxbandage <argtxt[2]>
src.new.tag.maxpotion <argtxt[3]>
src.new.tag.poison <argchk[1]>
src.new.tag.loot <argchk[2]>
src.new.tag.magical <argchk[3]>
src.new.timer 45
src.new.equip
[dialog d_cpvp_duello_teklif]
0,0
resizepic 100 100 5120 300 280
resizepic 110 110 9350 280 260
dtext 170 120 0 <serv.servname> Duello Sistemi
dtext 120 150 0 <cont.name> Duello teklifinde bulundu.
resizepic 123 187 5100 5 5
resizepic 123 209 5100 5 5
resizepic 123 231 5100 5 5
resizepic 123 253 5100 5 5
resizepic 123 275 5100 5 5
resizepic 123 297 5100 5 5
dtext 130 180 0 Bahis: <eval <tag.bahis>> sp
dtext 130 202 0 Silaha poison <qval (<tag0.poison>) ? var:yok>
dtext 130 224 0 Loot <qval (<tag0.loot>) ? var:yok>
dtext 130 246 0 Magical silah <qval (<tag0.magical>) ? var:yok>
dtext 130 268 0 Max Bandage: <eval <tag.maxbandage>>
dtext 130 290 0 Max Potion: <eval <tag.maxpotion>>
button 123 320 4023 4025 1 0 1
dtext 156 320 0 Kabul Ediyorum
[dialog d_cpvp_duello_teklif button]
onbutton 0
cont.sysmessage @1976,1,1,1 <src.name> teklifi kabul etmedi..
remove
onbutton 1
if (<eval <link.tag.pvpdeyim>>==1)
src.sysmessage @1953,1,1,1 Duello alani su anda dolu..
cont.sysmessage @1953,1,1,1 <src.name> teklifi kabul etti, ancak duello alani su anda dolu
return 1
endif
if (<src.restest <eval <tag.bahis>> i_fctn_silvr>) && (<cont.restest <eval <tag.bahis>> i_fctn_silvr>)
cont.consume <eval <tag.bahis>> i_fctn_silvr
src.consume <eval <tag.bahis>> i_fctn_silvr
else
src.sysmessage @1976,1,1,1 <cont.name> veya sizde <eval <tag.bahis>> sp yok..
cont.sysmessage @1976,1,1,1 <src.name> veya sizde <eval <tag.bahis>> sp yok..
return 1
endif
if (<src.findlayer.25>) || (<cont.findlayer.25>)
src.sysmessage @1953,1,1,1 Senin yada onun altinda binek var..
cont.sysmessage @1953,1,1,1 Senin yada onun altinda binek var..
return 1
endif
var.uid1 <src.uid>
var.uid2 <cont.uid>
forchars 25
if (<memoryfindtype.memory_ipet>)
if (<memoryfindtype.memory_ipet.link>==<var.uid1>) || (<memoryfindtype.memory_ipet.link>==<var.uid2>)
try uid.<var.uid1>.sysmessage @1953,1,1,1 Sizin veya rakibinizin binekleri etrafta oldugu surece duello baslamayacaktir.
try uid.<var.uid2>.sysmessage @1953,1,1,1 Sizin veya rakibinizin binekleri etrafta oldugu surece duello baslamayacaktir.
return 1
endif
endif
endfor
var.uid1
var.uid2
timer -1
src.duellokoy
src.events -e_duellogiris
src.tag.events -e_duellogiris
src.go <link.tag.koordinat4>
src.food 15
src.tag.cpvp_duello_rakip.events -e_duellogiris
src.tag.cpvp_duello_rakip <cont.uid>
src.tag.cpvp_duello_karma <src.karma>
src.tag.cpvp_duello_kills <src.kills>
src.tag.cpvp_duello_fame <src.fame>
cont.go <link.tag.koordinat5>
cont.food 15
cont.events -e_duellogiris
cont.tag.cpvp_duello_rakip.events -e_duellogiris
cont.tag.cpvp_duello_rakip <src.uid>
cont.tag.cpvp_duello_karma <cont.karma>
cont.tag.cpvp_duello_kills <cont.kills>
cont.tag.cpvp_duello_fame <cont.fame>
link.tag.pvpdeyim 1
serv.newitem i_cpvp_duello_gerisayim
new.timer 1
new.morex 5
new.cont <link.uid>
link.go <link.tag.koordinat2>
link.tag.player1 <src.uid>
link.tag.player2 <cont.uid>
//-----------------------------------------------------------------------------------------
// Functions
[function hakemkoordinat]
try uid.<var.hakemuid>.tag.koordinat<args> <src.targp>
src.sysmessage @1953,1,1,1 Yeni koordinat ayarlandi : <src.targp>
[function cpvp_duello_loot]
serv.newitem i_bag
src.new.cont <src.findlayer.29>
local.bag <src.new>
var.lfor
//for <uid.<args>.rescount>
//if (<uid.<args>.findcont.<eval <var.lfor>>.attr>&attr_newbie)
var.lfor <eval <var.lfor>> +1
else
//try uid.<args>.findcont.<eval <var.lfor>>.cont <uid.<local.bag>>
endif
endfor
//-----------------------------------------------------------------------------------------
// Items
[itemdef i_duellocu]
id i_memory
type t_eq_script
name duellocu
on=@equip
target @1953,1,1,1 Kiminle duello yapacaksiniz?
on=@targon_cancel
remove
on=@timer
remove
return 1
on=@targon_char
if !(<src.targ.isplayer>)
src.sysmessage @1952,1,1,1 Sadece playerlarla duello yapabilirsiniz
return 1
elif (<src.targ.isevent.e_cpvp_duello>)
src.sysmessage @1952,1,1,1 <src.targ.name> zaten duello yapiyor.
return 1
elif (<src.isevent.e_cpvp_duello>)
src.sysmessage @1952,1,1,1 Zaten pvp yapiyorsunuz
return 1
elif (<src.uid>==<src.targ.uid>)
src.sysmessage @1952,1,1,1 Kendinizle duello yapamazsiniz
return 1
endif
trysrc <src.targ.uid> sdialog d_cpvp_duello_teklif
src.sysmessage @1976,1,1,1 Teklif yapildi. Lutfen bekleyiniz.
timer 45
return 1
[itemdef i_cpvp_duello_gerisayim]
id i_memory
type t_eq_script
name gerisayim
on=@timer
if (<morex>==0)
cont.say Basarilar..
cont.go <cont.tag.koordinat3>
try uid.<cont.tag.player1>.events e_cpvp_duello
try uid.<cont.tag.player2>.events e_cpvp_duello
try uid.<cont.tag.player1>.findlayer.1.bounce
try uid.<cont.tag.player1>.events -e_cpvp_area
try uid.<cont.tag.player2>.events -e_cpvp_area
try uid.<cont.tag.player2>.findlayer.1.bounce
remove
else
timer 1
morex -=1
cont.say 10 Saniye sonra basliyorsunuz..
endif
return 1
[events e_cpvp_duello]
on=@itemtargon_char
if (<findid.i_duellocu>)
obj <findid.i_duellocu.uid>
else
obj <uid.<tag.cpvp_duello_rakip>.findid.i_duellocu.uid>
endif
if !(<eval <obj.tag.maxbandage>>==0) && (<act.baseid>==i_bandage)
if (<eval <src.tag.bandagekullandim>> > <eval <obj.tag.maxbandage>-1>)
src.sysmessage @1976,1,1,1 Daha fazla bandage kullanamazsiniz
return 1
else
src.tag.bandagekullandim <eval <src.tag.bandagekullandim>>+1
src.sysmessage @1976,1,1,1 <eval <eval <obj.tag.maxbandage>> - <eval <src.tag.bandagekullandim>>> bandage kullanma hakkiniz kaldi
endif
endif
on=@itemdclick
if (<act.baseid>==i_runebook)
src.sysmessage @1976,1,1,1 Pvp'de runebook kullanamazsiniz
return 1
endif
if (<act.baseid>==i_deed_animal)
src.sysmessage @1976,1,1,1 Duelloda bunu yapamazsin..
return 1
endif
if (<findid.i_duellocu>)
obj <findid.i_duellocu.uid>
else
obj <uid.<tag.cpvp_duello_rakip>.findid.i_duellocu.uid>
endif
if !(<eval <obj.tag.maxpotion>>==0) && (strmatch(*t_potion*,<act.type>))
if (<eval <src.tag.potionkullandim>> > <eval <obj.tag.maxpotion>-1>)
src.sysmessage @1976,1,1,1 Daha fazla potion kullanamazsiniz
return 1
else
src.tag.potionkullandim <eval <src.tag.potionkullandim>>+1
src.sysmessage @1976,1,1,1 <eval <eval <obj.tag.maxpotion>> - <eval <src.tag.potionkullandim>>> potion kullanma hakkiniz kaldi
endif
endif
on=@itemequip
if (<findid.i_duellocu>)
obj <findid.i_duellocu.uid>
else
obj <uid.<tag.cpvp_duello_rakip>.findid.i_duellocu.uid>
endif
if (<eval <obj.tag.poison>>==0) && (strmatch(*t_weapon*,<act.type>)) && (<eval <act.morez>> >0)
src.sysmessage @1976,1,1,1 Poisonlu silah kullanamazsiniz..
act.unequip
endif
if (<eval <obj.tag.magical>>==0) && (strmatch(*t_weapon*,<act.type>)) && (<act.attr>&attr_magic)
src.sysmessage @1976,1,1,1 Magical silah kullanamazsiniz..
act.unequip
endif
on=@spellcast
if (<argn>==45) || (<argn>==32) || (<argn>==52)
src.sysmessage @1976,1,1,1 Pvpde bu buyuleri kullanamazsiniz..
f_fizzle
skill fail
return 1
endif
On=@Death
src.f_cpvp_duello_death
src.events -e_cpvp_duello
return 1
[function f_cpvp_duello_death]
act <tag.cpvp_duello_rakip>
if (<findid.i_duellocu>)
obj <findid.i_duellocu.uid>
else
obj <act.findid.i_duellocu.uid>
endif
obj.link.go <obj.link.tag.koordinat1>
obj.link.tag.pvpdeyim
obj.link.tag.player1
obj.link.tag.player2
go <obj.link.tag.koordinat1>
if (<memoryfindtype.memory_sawcrime>)
memoryfindtype.memory_sawcrime.remove
endif
tag.cpvp_duello_fame <eval <tag.cpvp_duello_fame>>
tag.cpvp_duello_karma <eval <tag.cpvp_duello_karma>>
tag.cpvp_duello_kills <eval <tag.cpvp_duello_kills>>
tag.cpvp_duello_rakip
act.go <obj.link.tag.koordinat1>
if (<act.memoryfindtype.memory_sawcrime>)
act.memoryfindtype.memory_sawcrime.remove
endif
act.tag.cpvp_duello_fame <eval <act.tag.cpvp_duello_fame>>
act.tag.cpvp_duello_karma <eval <act.tag.cpvp_duello_karma>>
act.tag.cpvp_duello_kills <eval <act.tag.cpvp_duello_kills>>
act.tag.cpvp_duello_rakip
sysmessage @1976,1,1,1 Duelloyu kaybettiniz...
events +e_duellogiris
act.sysmessage @1976,1,1,1 Tebrikler..Duelloyu kazandiniz!
act.events +e_duellogiris
obj.remove
hits <str>
if (<eval <obj.tag.bahis>> >0)
trysrc <act> paraver <eval <obj.tag.bahis>*2>
act.sysmessage @1976,1,1,1 <eval <obj.tag.bahis>*2> Sp bankaniza aktarildi.
endif
if (<eval <obj.tag.loot>>==1)
findlayer.1.cont <findlayer.21>
findlayer.2.cont <findlayer.21>
findlayer.3.cont <findlayer.21>
findlayer.4.cont <findlayer.21>
findlayer.5.cont <findlayer.21>
findlayer.6.cont <findlayer.21>
findlayer.7.cont <findlayer.21>
findlayer.8.cont <findlayer.21>
findlayer.10.cont <findlayer.21>
findlayer.12.cont <findlayer.21>
findlayer.13.cont <findlayer.21>
findlayer.17.cont <findlayer.21>
findlayer.18.cont <findlayer.21>
findlayer.19.cont <findlayer.21>
findlayer.20.cont <findlayer.21>
findlayer.22.cont <findlayer.21>
findlayer.23.cont <findlayer.21>
findlayer.24.cont <findlayer.21>
trysrc <act> cpvp_duello_loot <findlayer.21>
endif
if (strmatch(*pvp*,<act.region.name>))
act.events +e_cpvp_area
endif
act.events -e_cpvp_duello
if (strmatch(*pvp*,<region.name>))
events +e_cpvp_area
endif
events -e_cpvp_duello
return 1
[events e_cpvp_area]
on=@attack
return 1
on=@hit
return 1
on=@gethit
return 1
on=@spellcast
if !(<src.uid>==<act.uid>)
f_fizzle
return 1
endif
on=@skillgain
return 1
[function cpvp_duello_loot]
serv.newitem i_bag
src.new.cont <src.findlayer.29>
local.bag <src.new>
var.lfor
//for <uid.<args>.rescount>
//if (<uid.<args>.findcont.<eval <var.lfor>>.attr>&attr_newbie)
var.lfor <eval <var.lfor>> +1
else
//try uid.<args>.findcont.<eval <var.lfor>>.cont <uid.<local.bag>>
endif
endfor
[ITEMDEF 0ee9]
DUPEITEM=0e21
[ITEMDEF 0e22]
DUPEITEM=0e20
[ITEMDEF 0e21]
DEFNAME=i_bandage
RESOURCES=i_cloth
TYPE=T_BANDAGE
NAME=Bandage%s
WEIGHT=0.2
DUPELIST=0ee9
CATEGORY=Items by Professions
SUBSECTION=Healer
DESCRIPTION=clean bandages
On=@DClick
if !(<topobj.uid> == <src.uid>)
src.sysmessage @38,,1 Bandajlar cantanizda olmali.
return 1
elif (<src.findid.i_mem_healing.timer> < 0)
src.findid.i_mem_healing.remove
return 0
elif (<src.findid.i_mem_healing>)
src.sysmessage @38,,1 Bandajlari su an kullanamazsiniz.
return 1
else
return 0
endif
On=@Targon_Char
src.skill fail
if !(<src.restest 1 i_bandage>)
src.sysmessage @38,,1 Bandajiniz yok.
return 1
elif (<src.targ.distance> > 3)
src.sysmessage @38,,1 Hedefe ulasamiyorsunuz.
return 1
elif !(<src.targ.canseelos>)
src.sysmessage @38,,1 Hedefi goremiyorsunuz.
return 1
elif (<eval <src.p.z>+8> < <src.targ.p.z>) || (<eval <src.p.z>-8> > <src.targ.p.z>)
src.sysmessage @38,,1 Bu kisinin yukseklik seviyesi sizden daha fazla yada alcak!
return 1
elif (<src.targ.npc> == 10) ||(<src.targ.npc> == 11) || (<src.targ.npc> == 12) || (<src.targ.npc> == 13)
src.sysmessage @38,,1 Bunu iyilestiremezsiniz.
return 1
elseif (<src.hits> == 0)
src.hata Ölü halde bandaj kullanamazsınız.
return 1
elif (<src.targ.npc> == 1)
if (<src.targ.id> == c_m_golem_tinker1) || (<src.targ.id> == c_m_golem_tinker2) || (<src.targ.id> == c_m_golem)
src.sysmessage @38,,1 Golem'leri bandajla iyilestiremezsiniz.
elif !((<src.targ.hits> < <src.targ.str>) || (<src.targ.findid.i_rune_poison>))
src.sysmessage @38,,1 <src.targ.name> tedaviye ihtiyac duymuyor.
return 1
elif (<src.targ.findid.i_rune_poison>)
if ((<src.veterinary> < 60.0) || (<src.animallore> < 60.0))
src.sysmessage @38,,1 Hayvan uzerindeki zehiri tedavi edecek kadar yetenekli degilsiniz.
return 1
endif
else
var.nx1 (<src.veterinary> / {20 50})
var.nx2 (<src.animallore> / 50)
var.nx3 <eval (<var.nx1> + <var.nx2> + {3 10})>
endif
src.sd 1
src.anim 17
src.newitem i_mem_healing
new.morey <eval <var.nx3>>
new.morex 3
new.link <src.targ.uid>
new.equip
src.face
return 1
elif (<src.targ.flags>&statf_dead)
if ((<src.healing> < 80.0) || (<src.anatomy> < 80.0))
src.sysmessage @38,,1 Henuz oluleri diriltecek kudrete sahip degilsiniz.
elif !(<src.restest 5 i_bandage>)
src.sysmessage @38,,1 Diriltme islemi icin 5 bandaja ihtiyaciniz var.
else
if (<src.targ.kills> > 5)
src.criminal 1
src.sayua 044,6,6,0 * <src.targ.name> Adli Katili Resler *
src.targ.dialogclose d_die
elif (<src.targ.flags>&statf_criminal)
src.criminal 1
src.sayua 048,6,6,0 * <src.targ.name> Adli Sucluyu Resler *
src.targ.dialogclose d_die
elif (<src.memoryfindtype.memory_town>) && (<src.targ.memoryfindtype.memory_town>) && (<src.memoryfindtype.memory_town.link> != <src.targ.memoryfindtype.memory_town.link>)
src.criminal 1
elif (<src.memoryfindtype.memory_guild.link.align>) && (<src.targ.memoryfindtype.memory_guild.link.align>) && (<src.memoryfindtype.memory_guild.link.align> != <src.targ.memoryfindtype.memory_guild.link.align>)
src.criminal 1
endif
src.sd 2
src.face
src.anim 17
src.consume 5 i_bandage
src.targ.spelleffect s_resurrection 1000
src.targ.sayua 044,6,6,0 * <src.name> Sayesinde Reslenir *
src.dialogclose d_die
endif
return 1
elif (<src.targ.memoryfindtype.memory_guild.link.align> > 0) && !(<src.memoryfindtype.memory_guild.link.align>)
src.sysmessage @38,,1 Order/Chaos uyelerini iyilestiremezsiniz.
return 1
elif !((<src.targ.hits> < <src.targ.str>) || (<src.targ.findid.i_rune_poison>))
if !(<src.targ.uid> == <src.uid>)
src.sysmessage @38,,1 <src.targ.name> tedaviye ihtiyac duymuyor.
else
src.sysmessage @38,,1 Tedaviye ihtiyaciniz yok.
endif
return 1
elif (<src.targ.findid.i_rune_poison>)
if ((<src.healing> < 60.0) || (<src.anatomy> < 60.0))
src.sysmessage @38,,1 Zehiri tedavi edecek kadar yetenekli degilsiniz.
return 1
endif
elif (<src.targ.findid.i_bleeding>) || (<src.targ.findid.i_bleeding2>) ///Bleeding
if ((<src.healing> < 70.0) || (<src.anatomy> < 70.0))
src.sysmessage @38,,1 Yarayi tedavi edecek kadar yetenekli degilsiniz.
return 1
endif
else
var.nx1 (<src.healing> / {20 50})
var.nx2 (<src.anatomy> / 50)
var.nx3 <eval (<var.nx1> + <var.nx2> + {3 10})>
endif
src.sd 1
src.anim 17
src.newitem i_mem_healing
new.morey <eval <var.nx3>>
if !(<src.targ.uid> == <src.uid>) // heal other
new.morex 1
new.link <src.targ.uid>
src.face
endif
new.equip
return 1
[itemdef i_mem_healing]
ID=i_memory
TYPE=t_eq_script
NAME=healing mem
On=@Create
attr attr_decay|attr_newbie
On=@Equip
src.newitem i_bandajvar
new.equip
src.events +e_healing
timer 4,5
On=@UnEquip
cont.events -e_healing
On=@Timer
if (<morey>)
if (<morex> == 3) // veterinary
if !(<link.hits> < <link.str>) && !(<link.findid.i_rune_poison>)
cont.sysmessage @38,,1 <link.name> tedaviye ihtiyac duymuyor.
remove
return 1
elif (<link.findid.i_rune_poison>)
if (<cont.veterinary> < 60.0) || (<cont.animallore> < 60.0)
cont.sysmessage @38,,1 Zehiri tedavi edecek kadar yetenekli degilsiniz.
remove
return 1
endif
elif (<link.findid.i_bleeding>) || (<link.findid.i_bleeding2>) ///////Hayvanlarda bleeding
if (<cont.veterinary> < 70.0) || (<cont.animallore> < 70.0)
cont.sysmessage @38,,1 Yarayi tedavi edecek kadar yetenekli degilsiniz.
remove
return 1
endif
elif !(<cont.restest 1 i_bandage>)
cont.sysmessage @38,,1 Bandajiniz yok.
remove
return 1
endif
cont.consume 1 i_bandage
if (<link.findid.i_rune_poison>) // cure animal
if !(rand(5) == 1)
link.findid.i_rune_poison.remove
link.effect 3,0376a,2,10,1
link.sayu * Iyilestirilir *
else
cont.sayua 38,6,6,0 * <link.name> Zehirini Iyilestiremez *
endif
elif (<link.findid.i_bleeding>) || (<link.findid.i_bleeding2>) //hayvanlarda yara iyilestirme poff 
if !(rand(5) == 1)
link.findid.i_bleeding.remove
link.findid.i_bleeding2.remove
link.effect 3,0376a,2,10,1
link.sayua 044,6,6,0 * Yarasi Iyilestirilir *
else
cont.sayua 38,6,6,0 * <link.name> Yarasini Iyilestiremez *
endif
else // heal animal
link.hits <eval (<link.hits> + <morey>)>
link.effect 3,0376a,2,10,1
if (<link.hits> > <link.str>)
link.hits <link.str>
endif
link.sayu * Tedavi Gorur *
link.update
endif
if (<cont.dex> < 35)
timer 6
else
timer 4
endif
elif (<morex>) // others
if !(<link.hits> < <link.str>) && !(<link.findid.i_rune_poison>)
cont.sysmessage @38,,1 <link.name> tedaviye ihtiyac duymuyor.
remove
return 1
elif (<link.hits> < 1)
cont.sysmessage @38,,1 <link.name> tedavi esnasinda hayatini kaybetti.
remove
return 1
elif (<link.findid.i_rune_poison>)
if (<cont.healing> < 60.0) || (<cont.anatomy> < 60.0)
cont.sysmessage @38,,1 Zehiri tedavi edecek kadar yetenekli degilsiniz.
remove
return 1
endif
elif !(<cont.restest 1 i_bandage>)
cont.sysmessage @38,,1 Bandajiniz yok.
remove
return 1
endif
cont.consume 1 i_bandage
if (<link.findid.i_rune_poison>) // cure other
if !(rand(5) == 1)
link.findid.i_rune_poison.remove
link.effect 3,0376a,2,10,1
if (<link.kills> > 5)
cont.criminal 1
cont.sayua 048,6,6,0 * <link.name> Adli Katili Iyilestirir *
elif (<link.flags>&statf_criminal)
cont.criminal 1
cont.sayua 048,6,6,0 * <link.name> Adli Sucluyu Iyilestirir *
else
link.sayua 048,6,6,0 * <cont.name> Tarafindan Iyilestirilir *
if (<link.memoryfindtype.memory_town>) && (<cont.memoryfindtype.memory_town>) && (<cont.memoryfindtype.memory_town.link> != <link.memoryfindtype.memory_town.link>)
cont.criminal 1
elif (<link.memoryfindtype.memory_guild.link.align>) && (<cont.memoryfindtype.memory_guild.link.align>) && (<cont.memoryfindtype.memory_guild.link.align> != <link.memoryfindtype.memory_guild.link.align>)
cont.criminal 1
endif
endif
else
cont.sayua 38,6,6,0 * <link.name> Zehirini Iyilestiremez *
endif
elif (<link.findid.i_bleeding>) || (<link.findid.i_bleeding2>)//Bleeding
if !(rand(5) == 1)
link.findid.i_bleeding.remove
link.findid.i_bleeding2.remove
link.effect 3,0376a,2,10,1
if (<link.kills> > 5)
cont.criminal 1
cont.sayua 044,6,6,0 * <link.name> Yarasini Iyilestirir.*
elif (<link.flags>&statf_criminal)
cont.criminal 1
cont.sayua 044,6,6,0 * <link.name> Adli Suclunun Yarasini Iyilestirir *
else
link.sayua 044,6,6,0 * <cont.name> Tarafindan Yarasi Iyilestirilir. *
if (<link.memoryfindtype.memory_town>) && (<cont.memoryfindtype.memory_town>) && (<cont.memoryfindtype.memory_town.link> != <link.memoryfindtype.memory_town.link>)
cont.criminal 1
elif (<link.memoryfindtype.memory_guild.link.align>) && (<cont.memoryfindtype.memory_guild.link.align>) && (<cont.memoryfindtype.memory_guild.link.align> != <link.memoryfindtype.memory_guild.link.align>)
cont.criminal 1
endif
endif
else
cont.sayua 38,6,6,0 * <link.name> Yarasini Tedavi Edemez *
endif ////////////////////////////////////////////////////////////
else // heal other
link.hits (<link.hits> + <morey>)
link.effect 3,0376a,2,10,1
if (<link.hits> > <link.str>)
link.hits <link.str>
endif
if (<link.kills> > 5)
cont.criminal 1
cont.sayua 044,6,6,0 * <link.name> Adli Katili Tedavi Eder *
elif (<link.flags>&statf_criminal)
cont.criminal 1
cont.sayua 044,6,6,0 * <link.name> Adli Sucluyu Tedavi Eder *
else
link.sayua 044,6,6,0 * <cont.name> Tarafindan Tedavi Edilir *
if (<link.memoryfindtype.memory_town>) && (<cont.memoryfindtype.memory_town>) && (<cont.memoryfindtype.memory_town.link> != <link.memoryfindtype.memory_town.link>)
cont.criminal 1
elif (<link.memoryfindtype.memory_guild.link.align>) && (<cont.memoryfindtype.memory_guild.link.align>) && (<cont.memoryfindtype.memory_guild.link.align> != <link.memoryfindtype.memory_guild.link.align>)
cont.criminal 1
endif
endif
endif
if (<cont.dex> < 35)
timer 6
else
timer 4
endif
else
if !(<cont.hits> < <cont.str>) && !(<cont.findid.i_rune_poison>)
cont.sysmessage @38,,1 Tedaviye ihtiyac duymuyorsunuz.
remove
return 1
elif (<cont.hits> < 1)
remove
return 1
elif (<cont.findid.i_rune_poison>)
if (<cont.healing> < 60.0) || (<cont.anatomy> < 60.0)
cont.sysmessage @38,,1 Zehiri tedavi edecek kadar yetenekli degilsiniz.
remove
return 1
endif
elif !(<cont.restest 1 i_bandage>)
cont.sysmessage @38,,1 Bandajiniz yok.
remove
return 1
endif
cont.consume 1 i_bandage
if (<cont.findid.i_rune_poison>) // cure self
if !(rand(5) == 1)
cont.findid.i_rune_poison.remove
cont.effect 3,0376a,2,10,1
cont.sayua 044,6,6,0 * Zehiri Iyilestirir *
else
cont.sayua 38,6,6,0 * Zehiri Iyilestiremez *
endif
elif (<cont.findid.i_bleeding>) || (<cont.findid.i_bleeding2>)/////////Bleeding bana bleed
if !(rand(5) == 1)
cont.findid.i_bleeding.remove
cont.findid.i_bleeding2.remove
cont.effect 3,0376a,2,10,1
cont.sayua 044,6,6,0 * Yarayi Iyilestirir *
else
cont.sayua 38,6,6,0 * Yarayi Iyilestiremez *
endif
else // heal self
cont.hits (<cont.hits> + <morey>)
cont.effect 3,0376a,2,10,1
cont.sayua 044,6,6,0 * Kendini Tedavi Eder *
if (<cont.hits> > <cont.str>)
cont.hits <cont.str>
endif
endif
if (<cont.dex> < 35)
timer 14
else
timer 8
endif
endif
morey 0 // memory'yi etkisiz hale getir
cont.events -e_healing // eventi kaldir artik gerek yok
return 1
endif
remove
return 1
[events e_healing]
On=@GetHit
if (rand(3) == 1)
sayua 38,6,6,0 * Bandajları Yırtılır *
findid.i_mem_healing.remove
src.frozenbandaj
endif
On=@Death
findid.i_mem_healing.remove
On=@Logout
findid.i_mem_healing.remove
[itemdef i_mageryfix]
ID=i_memory
TYPE=t_eq_script
NAME=magery fix
On=@Create
attr attr_newbie|attr_decay
On=@Equip
src.flags <src.flags>|04
timer 3
endif
On=@Timer
cont.flags <cont.flags>&~04
remove
return 1
[function frozenbandaj]
if (<src.flags> <src.flags>|04)
src.flags <src.flags>&~04
src.findid.i_mem_frozen.remove
else
src.sysmessage
return 1
endif
[itemdef i_bandajvar]
ID=i_memory
TYPE=t_eq_script
NAME=bandajvar
On=@Create
attr attr_decay|attr_newbie
On=@Equip
timer 3
On=@Timer
remove
return 1
[EOF]