Bilinmiyor -  14-04-2013 03:33
Kod:
[function settings]
IF !(<ARGN>)
IF (<ISEMPTY <DEF.<ARGS>>>)
sysmessage @38,,1 Kayıtsız komut
RETURN 1
ENDIF
ENDIF

IF !((<SERV.CHARDEF.<ARGS>>) || (<SERV.ITEMDEF.<ARGS>>))
sysmessage @38,,1 Kayıtsız komut
RETURN 1
endif

if (<isempty <args>>)
sysmessage @38,,1 Boş komut giremezsiniz.
return 1
endif

src.ctag0.set_id <args>
dialogclose d_settings
dialog d_settings

[DIALOG d_settings]
0,0

resizepic 0 0 3000 310 270

dtext 50 15 0790 <serv.name> Ayarlamalar

button 90 50 2440 2440 1 0 1
dtext 20 50 044 ID :
if !((<serv.chardef.<src.ctag0.set_id>>) || (<serv.itemdef.<src.ctag0.set_id>>))
dtext 100 50 38 Hatalı kod.
else
dtext 100 50 38 <src.ctag0.set_id>
endif

button 90 80 2440 2440 1 0 2
dtext 20 80 044 Color :
dtext 100 80 38 <src.ctag0.settings_color>

if !(<serv.chardef.<src.ctag0.set_id>>)
button 90 110 2440 2440 1 0 3
dtext 20 110 044 Timer :
dtext 100 110 38 <src.ctag0.settings_timer>

button 90 140 2440 2440 1 0 4
dtext 20 140 044 Amount :
dtext 100 140 38 <dsrc.ctag0.settings_amount>

button 90 170 2440 2440 1 0 5
dtext 20 170 044 Type :
dtext 100 170 38 <src.ctag0.settings_type>
ENDIF

button 90 200 2440 2440 1 0 6
dtext 20 200 044 Remove :
dtext 100 200 38 <dsrc.ctag0.settings_remove>

button 20 230 4006 4007 1 0 7
dtext 50 230 030 Uygula

[DIALOG d_settings button]
ONBUTTON=1
INPDLG CTAG.SET_ID 20

ONBUTTON=2
Clearctags SETTINGS
INPDLG CTAG.SETTINGS_COLOR 10

ONBUTTON=3
Clearctags SETTINGS
INPDLG CTAG.SETTINGS_TIMER 10

ONBUTTON=4
Clearctags SETTINGS
INPDLG CTAG.SETTINGS_AMOUNT 3

ONBUTTON=5
Clearctags SETTINGS
INPDLG CTAG.SETTINGS_TYPE 20

ONBUTTON=6
Clearctags SETTINGS
INPDLG CTAG.SETTINGS_REMOVE 1

ONBUTTON=7
f_settings_function <src.ctag0.set_id>,<src.f_komut_ctrl>

[function f_komut_ctrl]
IF (<ctag0.settings_color>)
return color,<ctag.settings_color>

elseif (<ctag0.settings_timer>)
return timer,<ctag.settings_timer>

elseif (<ctag0.settings_amount>)
return amount,<ctag.settings_amount>

elseif (<ctag0.settings_type>)
return type,<ctag.settings_type>

elseif (<ctag0.settings_remove> == 1)
return remove,<ctag.settings_remove>

elseif (<ctag0.settings_remove> == 0)
return 1
endif


[function f_settings_function]
FORINSTANCES <argv[0]>
if ((<serv.chardef.<argv[0]>>) || (<serv.itemdef.<argv[0]>>))
<argv[1]> <argv[2]>
local.settings_item ++
endif
endfor

sysmessage @,,1 Adet : <dlocal.settings_item>
sysmessage @,,1 Ayarlanan : <argv[0]>
sysmessage @,,1 Degisiklik : <argv[1]> <argv[2]>


Kabataslak birseyler yaptim. Gelistirmesi kullanacak olan arkadaslara kalmis.
Henüz yorum yapılmamış.


Üyelerin oylama ortalaması (10 dışında) : Henüz Oylanmamış   
Oylar: 0

BENZER SAYFALAR

Yukarı Çık