[event e_create]
on=@itemcreate
if (<src.account.plevel> > 1)
try uid.<argo.uid>.tag.creator <eval <src.uid>>
try uid.<argo.uid>.tag.Tarih <serv.rtime>
endif

On=@ItemClick
if !(<act.TAG0.creator>==0)
act.message @1153 Item [<serv.uid.<act.TAG0.creator>.name>] [account: <serv.uid.<act.TAG0.creator>.account>] tarafindan cikartildi.
act.message @1153 Tarih : <act.tag0.tarih>
act.message @1153 <act.name>
return 1
endif

[itemdef i_sehirkayit]
id i_grave_stone
name Sehir Kayit Tasi
type t_script
name Sehir Kayit

on=@create
attr 010
color 0455
tag.uyesayisi=0

on=@click
if (<eval <tag0.uyesayisi>> > 0) // 56b icin <dtag0.uyesayisi>
message @1153 <eval <tag0.uyesayisi>> Uye
else
message @1153 Uye yok
endif

message @1153 <region.name> Sehri
message @1153 <name>
return 1

on=@dclick
obj=<uid>

if (<src.flags>&statf_dead)
return 1
endif

if !(<src.tag0.home>)
src.sdialog d_sehirkayit
else
src.sysmessage @1153 Zaten '<src.tag0.sehir>' Sehri Uyesisin.
endif
return 1


[dialog d_sehirkayit]
0,0
page 0
resizepic 60 80 3600 400 200

dtext 80 100 920 <src.name>
dtext 80 120 920 <obj.region.name> Sehrine Uye olmaya emin misin?
dtext 80 150 920 Uye olursan , olu halde iken
dtext 80 165 920 'home home home 'yazarak buraya teleport olabilirsin.


button 80 200 4005 4006 1 0 1
dtext 120 200 920 Uye Ol

[dialog d_sehirkayit button]
on=1
src.tag.home <src.p>
src.tag.sehir <obj.region.name>
obj.tag.uyesayisi +=1
src.sysmessage @1153 <obj.region.name> Sehrine Uye Oldunuz