[function away]
if (strmatch('<src.tag0.awayim>','01'))
src.stone 0
src.sysmessage @080a Away Moddan Ciktiniz.
src.name <src.tag0.ismimiver>
src.s Away Moddan Ciktim.
src.tag0.awayim 00
try uid.<src.tag0.deedbenim>.remove
return 1
else
src.dialog d_away_sebeb
src.sysmessage @1153 Away Olma Sebebinizi Yaziniz.
return 1
endif


[dialog d_away_sebeb]
100, 20
PAGE 0



resizepic 2 2 3500 450 100
resizepic 20 40 3000 400 35
dtext 25 15 1153 Lutfen Away Olma Sebebinizi Yaziniz!
dtextentry 27 47 600 600 990 1 0
button 423 50 3 4 1 0 1


[dialog d_away_sebeb button]
on=1
if (strmatch('<argtxt[1]>',''))
src.sysmessage @1153 Lutfen Away olma Sebebinizi yaziniz.
return 1
elseif ((strlen(<argtxt[1]>)) > 40)
src.sysmessage @080a En fazla 40 harf olabilir
return 1
elseif ((strlen(<argtxt[1]>)) < 5)
        src.sysmessage @080a En Az 5 Harf Olabilir
        return 1
else
        src.deed Awayim:<argtxt[1]>
        tag0.deedbenim <src.act.uid>
        src.stone 1
        src.tag0.awayim 01
        src.s Awayim:<argtxt[1]>
        src.tag0.ismimiver <src.name>
        src.name <name> (Away)
        return 1
endif

on=0
src.sysmessage @080a Away Moda gecmekten Vazgectiniz.
return 1

[function deed]
src.newitem i_deed_oto
src.act.name @1153 <args> /<src.name>
src.act.color 0480
src.act.attr 010
src.act.bounce
src.act.drop
return 1

[itemdef i_deed_oto]
id=i_deed
weight=0
name=
type=t_eq_script

on=@Create
attr 010
color 0840

on=@Click
message @080a [Dikkat!]

on=@Dclick
src.sysmessage @1153 Deede Tek Tiklayarak Uyariyi Ogrenebilirsiniz...
return 1