// arşivden buldum sadece herkesin yararlanmasını istedim yararlı bi scp//KeLL =) //



[plevel 2]

away



[function away]

if (<eval <src.tag.awayacik>> == 1)

src.tag.awayacik 0

src.sysmessage @0bb7 Away mode kaptildi.

src.stone 0

src.events -e_away

else

sdialog d_away

endif



[events e_away]

ON=@click

message @6 [Away: <tag.away>]



[dialog d_away]

100,50

resizepic 190 175 5120 335 150

resizepic 200 185 3000 315 130

resizepic 220 235 3000 270 22

dhtmlgump 220 220 250 20 0 0 Away Sebebiniz ne olsun? (Max. 15 Harf)

dhtmlgump 220 200 250 20 0 0 Tamam

dhtmlgump 255 277 250 20 0 0 Vazgec

button 220 275 4006 4007 1 0 1	

button 400 275 4018 4019 1 0 0	

dtextentry 225 237 253 25 0 1 <src.tag.away>



[dialog d_away BUTTON]

On=1

if (strmatch('<argtxt[1]>',''))

src.sysmessage @55 Away nedenini yaziniz lutfen Bos birakmayin.

src.tag.awayacik 0

return 1

elseif ((strlen(<argtxt[1]>)) > 15)

src.sysmessage @55 15 Harf te away sebebinizi acikca belirtin lutfen.

src.tag.awayacik 0

return 1

else

src.tag.away <argtxt[1]>

src.sysmessage @0bb7 Away mode acildi.

src.stone 1

src.events +e_away

src.invis 0

src.tag.awayacik 1

return 1

endif

Değerlendirmeler

0

Total votes: 0