[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