Kod:
[dialog d_taming_gorev]
50,50
bozobag 10,10,420,300
alphablack 20 20 400 280
dtext 50 20 0850 Görev ve Adet
dtext 180 20 0850 NPC
dtext 280 20 0850 Ödül
if !(<src.findid.i_taming_sure>)
dtext 50 50 0481 Brown Horse (120)
tilepichue 170 50 <serv.itemdef.i_pet_horse_brown_dk.id> 0
dtext 280 50 0845 Giant Beetle
button 30 50 2118 2117 1 0 1
else
dtext 50 50 0481 Giant Bettle <f_zamangoster <src.findid.i_taming_sure.timer>> tekrar açılacak.
endif
if !<src.tag0.peacegorev>
dtext 50 100 0481 Cow (2000)
tilepichue 170 100 <serv.itemdef.i_pet_cow.id> 0
dtext 280 100 0845 +10 Peacemaking Skill
button 30 100 2118 2117 1 0 2
else
dtext 50 100 0481 (Cow) Görev Başarıyla tamamlanmış ödül alınmıştır.
endif
if !<src.tag0.taminggorev>
dtext 50 150 0481 Dog (3000)
tilepichue 157 150 <serv.itemdef.i_pet_dog.id> 0
dtext 280 150 0845 +5 Animal Taming Skill
button 30 150 2118 2117 1 0 3
else
dtext 50 150 0481 (Dog) Görev Başarıyla tamamlanmış ödül alınmıştır.
endif
if !<src.tag0.loregorev>
dtext 50 200 0481 Pig (1000)
tilepichue 170 200 <serv.itemdef.i_pet_pig.id> 0
dtext 280 200 0845 +5 Animal Lore Skill
button 30 200 2118 2117 1 0 4
else
dtext 50 200 0481 (Pig) Görev Başarıyla tamamlanmış ödül alınmıştır.
endif
[dialog d_taming_gorev button]
on 1 4
if (<src.findid.i_deed.tag0.gorev>)
if !(<src.findid.i_deed.tag0.gorev> == <dargn>)
src.sysmessage @,,1 Almış olduğunuz başka bir görev var !
return 1
endif
endif
if (<src.findid.i_deed.dtag.gorev> == <dargn>)
targetf f_tamingbitti <dargn>
src.tag0.taminggorev1 <dargn>
else
src.taminggorev <dargn>
endif
[function f_tamingbitti]
if (<argo.tag0.npcsayi> > 1)
src.sysmessage @,,1 Bu görev bitmemiş.
return 1
//elif !(<argo.more1> == <src.uid>)
//src.sysmessage @,,1 Bu size ait değil !
//return 1
else
if (<argv0> == 1)
newnpc <argo.tag0.odulnpc>
new.p <p>
ref1 <new.uid>
new.food 999
new.tag0.p <new.p>
new.tag0.owner <src.uid>
new.tag0.sahip <src.uid>
new.karma 3500
new.updatex
newitem i_memory
new.attr 04
new.more1 04
new.more2 <serv.time>
new.morep <ref1.p>
new.color memory_ipet
new.timer -1
new.link <src.uid>
new.cont <ref1.uid>
ref1.flags <ref1.flags>&statf_pet
ref1.update
argo.remove
src.say @,,1 Tebrikler!!
src.tag0.taminggorev<argv0> 0
serv.newitem i_taming_sure
new.tag0.gorev <argv0>
src.tag0.gorevsure<argv0> <new>
new.timer <suresimiz <argv0>>
new.more1 <argv0>
src.equip <new>
else
if (<argv0> == 2)
serv.newitem <argo.tag0.odulnpc>
new.bonusskill1 peacemaking
new.bonusskill1amt 10.0
new.attr attr_newbie
src.bounce <new>
argo.remove
src.tag0.peacegorev 1
elif (<argv0> == 3)
serv.newitem <argo.tag0.odulnpc>
new.bonusskill1 taming
new.bonusskill1amt 5.0
new.attr attr_newbie
src.bounce <new>
argo.remove
src.tag0.taminggorev 1
elif (<argv0> == 4)
serv.newitem <argo.tag0.odulnpc>
new.bonusskill1 animallore
new.bonusskill1amt 5.0
new.attr attr_newbie
src.bounce <new>
argo.remove
src.tag0.loregorev 1
endif
endif
endif
[function suresimiz]
if <argv0> == 1
return 86400
endif
[function taminggorev]
serv.newitem i_deed
ref1=<new>
ref1.attr attr_newbie
ref1.type t_taming_deed
src.bounce <ref1>
ref1.gorevselect <argv0>
[function gorevselect]
if (<argv0> == 1)
tag0.npc c_horse_brown_dk
tag0.npcsayi 120
tag0.odulnpc c_giant_beetle
tag0.gorev 1
more1 <src.uid>
name Animal Contract (Horse)
color 0455
elif (<argv0> == 2)
tag0.npc c_cow_brown
tag0.npcsayi 2000
tag0.odulnpc i_earrings_gold
tag0.gorev 2
more1 <src.uid>
name Animal Contract (Cow)
color 0450
elif (<argv0> == 3)
tag0.npc c_dog
tag0.npcsayi 3000
tag0.odulnpc i_bracelet_gold
tag0.gorev 3
more1 <src.uid>
name Animal Contract (Dog)
color 0850
elif (<argv0> == 4)
tag0.npc c_pig
tag0.npcsayi 2000
tag0.odulnpc i_ring_gold
more1 <src.uid>
tag0.gorev 4
name Animal Contract (Pig)
color 0845
endif
[typedef t_taming_Deed]
on=@ClientTooltip
if (<dtag.npcsayi> > 0)
src.addcliloc <def.empty_cliloc>,<def.bfont_green>Kalan: [<dtag.npcsayi>]
else
src.addcliloc <def.empty_cliloc>,<def.bfont_red>Tamamlanmış
endif
on=@Dclick
target @,,1 Hedefi seçiniz
return 1
ON=@DropOn_Char
RETURN 1
ON=@DropOn_Ground
REMOVE
ON=@DropOn_Item
IF (<ARGO>!=<SRC.FINDLAYER(21).UID>)
RETURN 1
ENDIF
on=@Targon_char
if (<src.targ.isplayer>)
target @,,1 Hedefi seçiniz
return 1
elif !(<src.targ.owner> == <src.uid>)
src.message @,,1 Bu size ait değil !
target @,,1 Hedefi seçiniz
return 1
elif !(<src.targ.id> == <tag0.npc>)
src.sysmessage @,,1 Bu npc görev ile eşleşmiyor.
return 1
elif !(<src.targ.tag0.owner_count>)
src.sysmessage @,,1 BU npc tame edilmemiş.
return 1
else
if (<dtag.npcsayi> > 1)
tag0.npcsayi --
src.message @,,1 Kalan: <dtag.npcsayi>
argo.remove
resendtooltip 1
target @,,1 Hedefi seçiniz
return 1
else
src.sysmessage @,,1 Bu görev tamamlanmış hemen gidip teslim et !
return 1
endif
endif
[itemdef i_taming_sure]
NAME=Taming sure
ID=I_MEMORY
TYPE=T_EQ_SCRIPT
LAYER=LAYER_SPECIAL
WEIGHT=0
on=@Timer
cont.tag0.taminggorev<more1>
cont.sysmessage @,,1 Giant bettle gorevi tekrar açılmıştır.
remove
return 1
on=@Destroy
cont.tag0.taminggorev<more1>
Kod:
ON=@ContextMenuRequest
SRC.AddContextEntry 102,6209
SRC.AddContextEntry 103,3006103
ON=@ContextMenuSelect
if (<argn> == 102)
sdialog d_taming_gorev
endif
IF <ARGN> == 103
HEAR BUY
ENDIF
bu kodu da taming vendoruna ekliyoruz.
Kod:
[FUNCTION BOZOBAG]
RESIZEPIC <argv[0]> <argv[1]> 5054 <argv[2]> <argv[3]>
CHECKERTRANS <eval <argv[0]>+10> <eval <argv[1]>+10> <eval <argv[2]>-20> <eval <argv[3]>-20>
diğer sistemlerde paylaşmamışım dialoglar gözükmezse diye bunu da ekleyin.