[FUNCTION hataliev]
src.newitem i_hataliev
src.act.equip
[DIALOG d_hataliev]
10,10
page 0
resizepic 15 15 5054 300 162
resizepic 19 19 3000 290 152
button 35 45 2117 2118 1 0 1
button 35 70 2117 2118 1 0 2
button 35 95 2117 2118 1 0 3
button 35 120 2117 2118 1 0 4
button 35 145 2117 2118 1 0 5
text 65 25 0 0
text 55 45 0 1
text 55 70 0 2
text 55 95 0 3
text 55 120 0 4
text 55 145 0 5
[DIALOG d_hataliev TEXT]
Hatali Ev Listesi
<tag.signid1name>
<tag.signid2name>
<tag.signid3name>
<tag.signid4name>
<tag.signid5name>
[DIALOG d_hataliev BUTTON]
ON=1 // 1.BUTTON
if (strmatch('<tag.signid1name>','Ihbar Yok'))
src.sysmessage @066d,3,3,0 Bu blokta hatali ev ihbari yok.
ELSE
src.gouid <tag.signid1>
uid.040000de0.tag.signid1
uid.040000de0.tag.signid1name Ihbar Yok
try uid.040000de0.more <eval (<uid.040000de0.more> +- 1)>
ENDIF
ON=2 // 2.BUTTON
if (strmatch('<tag.signid2name>','Ihbar Yok'))
//if (0<tag.signid2> == Bos)
src.sysmessage @066d,3,3,0 Bu blokta hatali ev ihbari yok.
ELSE
src.gouid <tag.signid2>
uid.040000de0.tag.signid2
uid.040000de0.tag.signid2name Ihbar Yok
try uid.040000de0.more <eval (<uid.040000de0.more> +- 1)>
ENDIF
ON=3 // 3.BUTTON
if (strmatch('<tag.signid3name>','Ihbar Yok'))
src.sysmessage @066d,3,3,0 Bu blokta hatali ev ihbari yok.
ELSE
src.gouid <tag.signid3>
uid.040000de0.tag.signid3
uid.040000de0.tag.signid3name Ihbar Yok
try uid.040000de0.more <eval (<uid.040000de0.more> +- 1)>
ENDIF
ON=4 // 4.BUTTON
if (strmatch('<tag.signid4name>','Ihbar Yok'))
src.sysmessage @066d,3,3,0 Bu blokta hatali ev ihbari yok.
ELSE
src.gouid <tag.signid4>
uid.040000de0.tag.signid4
uid.040000de0.tag.signid4name Ihbar Yok
try uid.040000de0.more <eval (<uid.040000de0.more> +- 1)>
ENDIF
ON=5 // 5.BUTTON
if (strmatch('<tag.signid5name>','Ihbar Yok'))
src.sysmessage @066d,3,3,0 Bu blokta hatali ev ihbari yok.
ELSE
src.gouid <tag.signid5>
uid.040000de0.tag.signid5
uid.040000de0.tag.signid5name Ihbar Yok
try uid.040000de0.more <eval (<uid.040000de0.more> +- 1)>
ENDIF
[itemdef i_hataliev]
id i_memory
type t_eq_script
name HATALI EV
on=@equip
target @0961,3,3,0 Hangi ev hatali ?
timer 20
On=@TargOn_Item
if !(<src.targ.baseid> == i_sign_brass) && !(<src.targ.dispid> == 0bd0)
cont.sysmessage @066d,3,3,0 Bu bir ev tabelasi degil.
return 1
endif
if (strmatch('<src.targ.uid>','<uid.040000de0.tag.signid1>')) || (strmatch('<src.targ.uid>','<uid.040000de0.tag.signid2>')) || (strmatch('<src.targ.uid>','<uid.040000de0.tag.signid3>')) || (strmatch('<src.targ.uid>','<uid.040000de0.tag.signid4>')) || (strmatch('<src.targ.uid>','<uid.040000de0.tag.signid5>'))
cont.sysmessage @066d,3,3,0 Bu ev zaten hatali.
return 1
endif
if (<eval <src.targ.tag.hataliev>> == 1)
src.sysmessage @066d,3,3,0 Bu ev zaten hatali.
return 1
endif
if (strmatch('<uid.040000de0.tag.signid1>',''))
uid.040000de0.tag.signid1 <src.targ.uid>
uid.040000de0.tag.signid1name <src.targ.link.name>
try uid.040000de0.more <eval (<uid.040000de0.more> +1)>
cont.sysmessage @100 Oneriniz kayitlara tutuldu.
var.smsgx 020
serv.allclients f_stpublish Hatali ev ihbari yapildi.
return 1
elseif (strmatch('<uid.040000de0.tag.signid2>',''))
uid.040000de0.tag.signid2 <src.targ.uid>
uid.040000de0.tag.signid2name <src.targ.link.name>
try uid.040000de0.more <eval (<uid.040000de0.more> +1)>
cont.sysmessage @100 Oneriniz kayitlara tutuldu.
var.smsgx 020
serv.allclients f_stpublish Hatali ev ihbari yapildi.
return 1
elseif (strmatch('<uid.040000de0.tag.signid3>',''))
uid.040000de0.tag.signid3 <src.targ.uid>
uid.040000de0.tag.signid3name <src.targ.link.name>
try uid.040000de0.more <eval (<uid.040000de0.more> +1)>
cont.sysmessage @100 Oneriniz kayitlara tutuldu.
var.smsgx 020
serv.allclients f_stpublish Hatali ev ihbari yapildi.
return 1
elseif (strmatch('<uid.040000de0.tag.signid4>',''))
uid.040000de0.tag.signid4 <src.targ.uid>
uid.040000de0.tag.signid4name <src.targ.link.name>
try uid.040000de0.more <eval (<uid.040000de0.more> +1)>
cont.sysmessage @100 Oneriniz kayitlara tutuldu.
var.smsgx 020
serv.allclients f_stpublish Hatali ev ihbari yapildi.
return 1
elseif (strmatch('<uid.040000de0.tag.signid5>',''))
uid.040000de0.tag.signid5 <src.targ.uid>
uid.040000de0.tag.signid5name <src.targ.link.name>
try uid.040000de0.more <eval (<uid.040000de0.more> +1)>
cont.sysmessage @100 Oneriniz kayitlara tutuldu.
var.smsgx 020
serv.allclients f_stpublish Hatali ev ihbari yapildi.
return 1
else
cont.sysmessage @066d,3,3,0 Stoklarin hepsi dolu oldugu icin kayitlara tutulamadi.
endif
return 1
On=@TargOn_Char
src.sysmessage @066d,3,3,0 Sadece ev tabelalarini secebilirsiniz.
target
return 1
on=@timer
attr attr_decay
remove
return 1
[itemdef i_hataliev_stone]
name Hatali Evler
id i_grave_stone
dispid i_grave_stone
type t_container
weight 2000
On=@Create
attr attr_move_never
color 07d5
On=@Click
message @07d5,3,1 [<eval (<uid.040000de0.more>)> Hatali Ev]
return 1
On=@PickUp_Ground
return 1
On=@Dclick
if (strmatch('<src.account>','accname'))
src.sysmessage @100,3,1 Gorevli staff olarak menuye erisim yaptiniz.
dialog d_hataliev
elseif (strmatch('<src.account.plevel>','7'))
src.sysmessage @100,3,1 Owner olarak giris yaptiniz.
dialog d_hataliev
else
src.sysmessage @066d,3,3,0 Sadece gorevli kisiler kullanabilir.
return 1
endif
[EOF]
