Arkadaslar Böyle Bişey Yaptım Fakat Çalışmıyor Bilen Bir Arkadaş Yardımcı Olabilir Mi ?
[Plevel 1]
gscolor
[FUNCTION gscolor]
dialog d_gs_color
return 1
endif
[dialog d_gs_color]
50,50
//resizepic 190 175 5120 335 150
resizepic 200 185 2620 315 130
resizepic 220 235 3000 270 22
text 220 200 995 0
text 255 277 995 1
button 220 275 4005 4007 1 0 1
text 435 277 995 2
button 400 275 4017 4019 1 0 0
textentry 225 237 253 25 0 0 3
[dialog d_gs_color TEXT]
Yeni color kod giriniz. (4 karakter)
Tamam
Vazgec
<name>
[dialog d_gs_color BUTTON]
On=0
On=1
if ((strlen(<argtxt[0]>)) > 4)
src.sysmessage En Fazla 4 Karakter Girebilirsiniz...
dialog d_gs_color
elseif (strmatch('<argtxt[0]>',''))
src.sysmessage Bir kod girmediniz?
dialog d_gs_color
else
TARGET @0481 Neyi boyucan?
RETURN 1
ENDIF
endif
ON=@TargOn_Char
src.targ.color <argtxt[0]>
return 1
endif
ON=@TargOn_Item
src.targ.color <argtxt[0]>
return 1
endif