[plevel 2]

notver



[function notver]

sdialog d_notver



[dialog d_notver]

0,0

nomove

resizepic 70 120 5120 230 180

resizepic 100 180 3000 170 30

dtext 100 150 0481 Notu Yaziniz !

dtextentry 105 180 160 16 0481 1

button 120 230 4005 4006 1 0 1

button 200 230 4017 4018 1 0 2



[dialog d_notver Button]

on=1

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

src.sysmessage @025,1,1 Lutfen Bir Not Giriniz.

return 1

endif



if (strlen(<argtxt[1]>) > 15) || (strlen(<argtxt[1]>) < 4)

src.sysmessage @025,1,1 Not en az 4, en fazla 15 karakter olmalidir.

return 1

endif



tag0.not Not:(<argtxt[1]>) Tarih:(<serv.rtime>) Isim:(<src.name>)

src.sysmessage @048,,1 ----------------------------------------

src.sysmessage @048,,1 Eklenen not:<tag0.not>

src.sysmessage @048,,1 ----------------------------------------

src.sysmessage @048,,1 <tag0.not> notunu kime vereceksiniz ?

src.sysmessage @048,,1 ----------------------------------------

targetf f_not



[function f_not]

obj = <argo>

obj.tag0.notu <tag0.not>

obj.events +e_not



[events e_not]

on=@click

if (<src.account.plevel> >1)

obj.message @0790 <tag0.notu> 

return 0

endif

Değerlendirmeler

0

Total votes: 0