Weight -  17-04-2011 12:55
Kod:
[PLEVEL 1]
anket

[PLEVEL 2]
anketadmin


[FUNCTION anket]
src.dialog d_anket
return 1

[FUNCTION anketadmin]
If (<src.account.plevel> < 6)
return 1
Else
src.dialog d_anket_admin
return 1
EndIf

[FUNCTION anketsil]
var.tag.ilkbasla 0
var.TAG.OYKULLAN 0
src.TAG.OYKULLAN 0

[FUNCTION anketsay]
src.sysmessage <var.tag.ilkbasla>
src.sysmessage <var.TAG.OYKULLAN>
src.sysmessage <src.TAG.OYKULLAN>



[DIALOG d_anket]
20, 30

PAGE 0
resizepic 0 0 9300 370 310 // Main Bg
htmlgump 20 17 330 25 0 10 0
htmlgump 20 60 328 60 1 10 10

htmlgump 50 130 250 25 2 10 0
htmlgump 50 155 250 25 3 10 0
htmlgump 50 180 250 25 4 10 0

htmlgump 300 130 50 25 5 10 0
htmlgump 300 155 50 25 6 10 0
htmlgump 300 180 50 25 7 10 0

htmlgump 20 220 330 25 8 10 0
htmlgump 20 245 330 25 9 10 0
htmlgump 20 270 330 25 10 10 0

button 25 135 2117 2118 1 0 1
button 25 160 2117 2118 1 0 2
button 25 185 2117 2118 1 0 3


[DIALOG d_anket TEXT]
<serv.name> Oyuncu Anket Menusu
<VAR.TAG.SECIM4TEXT>
<VAR.TAG.SECIM1TEXT>
<VAR.TAG.SECIM2TEXT>
<VAR.TAG.SECIM3TEXT>
<EVAL <VAR.SECIM1>>
<EVAL <VAR.SECIM2>>
<EVAL <VAR.SECIM3>>
Oylayan: <src.name>
Anket Tarihi: <var.timeanket>
Toplam Oy Sayisi: <eval <var.secim1> + <var.secim2> + <var.secim3>>


[DIALOG d_anket BUTTON]
onbutton=0
return 1

onbutton=1
IF (<EVAL <SRC.TAG.OYKULLAN>>=<eval <var.tag.oykullan>>)
SRC.sysMESSAGE @1100,,1 Daha once oy kullandiginiz icin suan oy kullanamazsiniz!
return 1
else
SRC.TAG.oykullan=<EVAL <SRC.TAG.OYKULLAN>> + 1
var.secim1= <EVAL <VAR.SECIM1>> + 1
return 1
endif

onbutton=2
IF (<EVAL <SRC.TAG.OYKULLAN>>=<eval <var.tag.oykullan>>)
SRC.sysMESSAGE @1100,,1 Daha once oy kullandiginiz icin suan oy kullanamazsiniz!
return 1
else
SRC.TAG.oykullan=<EVAL <SRC.TAG.OYKULLAN>> + 1
var.secim2= <EVAL <VAR.SECIM2>> + 1
return 1
endif

onbutton=3
IF (<EVAL <SRC.TAG.OYKULLAN>>=<eval <var.tag.oykullan>>)
SRC.sysMESSAGE @1100,,1 Daha once oy kullandiginiz icin suan oy kullanamazsiniz!
return 1
else
SRC.TAG.oykullan=<EVAL <SRC.TAG.OYKULLAN>> + 1
var.secim3= <EVAL <VAR.SECIM3>> + 1
return 1
endif



[DIALOG d_anket_admin]
0, 0

PAGE 0
resizepic 50 80 9300 310 226 // Main Bg
text 74 103 455 0
button 72 144 2117 2118 1 0 1
button 71 198 2117 2118 1 0 2
button 71 171 2117 2118 1 0 3
button 151 260 2311 2312 1 0 5
button 211 259 243 241 1 0 0
text 90 141 955 1
text 88 169 955 2
text 88 196 955 3
button 109 230 2117 2118 1 0 4
text 129 226 1313 4

[DIALOG d_anket_admin TEXT]
Anket Admin Menu
1. Secenek Ne Olsun?
2. Secenek Ne Olsun?
3. Secenek Ne Olsun?
Anket Sorusu Ne Olsun??


[DIALOG d_anket_admin BUTTON]
onbutton=1
src.tag.secim 1
DIALOG d_admin_anket_yazi
return 1

onbutton=2
src.tag.secim 3
DIALOG d_admin_anket_yazi
return 1

onbutton=3
src.tag.secim 2
DIALOG d_admin_anket_yazi
return 1

onbutton=4
src.tag.secim 4
DIALOG d_admin_anket_yazi
return 1

onbutton=5
src.sysmessage @87 Anket Ayarlandi.
var.duzenleyici <src.name>
var.timeanket <serv.rtime>
if (<eval <var.tag.ilkbasla>> = 1)
var.tag.oykullan <EVAL <var.TAG.OYKULLAN>> + 1
else
var.tag.ilkbasla 1
var.TAG.OYKULLAN 1
endif
VAR.SECIM1 0
VAR.SECIM2 0
VAR.SECIM3 0
return 1

[DIALOG d_admin_anket_yazi] // Main
100,50 // Position
resizepic 190 175 9300 335 150 // Curved Grey background
resizepic 200 185 9300 315 130 // Curved White background
resizepic 220 235 9300 270 22 // Curved White background
text 215 200 995 0 // Place House Text
text 255 275 0000 1 // Continue Text
button 220 275 4005 4007 1 0 1 // Opens Continue
text 435 275 0000 2 // Cancel Text
button 400 275 4005 4007 1 0 0 // Opens Cancel
textentry 225 237 253 25 0 0 3 // Text Input


[DIALOG d_admin_anket_yazi TEXT]
<src.tag.secim>. Secenek
Tamam
Iptal
Buraya Yaziniz.

[DIALOG d_admin_anket_yazi BUTTON]
ONBUTTON=0
SRC.SYSMESSAGE @1100,,1 Anket Ayarlanmadi.
RETURN 1

ONBUTTON=1
if (<eval <src.tag.secim>>=1)
VAR.TAG.SECIM1TEXT <ARGTXT[0]>
ELSEif (<eval <src.tag.secim>>=2)
VAR.TAG.SECIM2TEXT <ARGTXT[0]>
ELSEif (<eval <src.tag.secim>>=3)
VAR.TAG.SECIM3TEXT <ARGTXT[0]>
ELSEif (<eval <src.tag.secim>>=4)
VAR.TAG.SECIM4TEXT <ARGTXT[0]>
ENDIF
dialog d_anket_admin
RETURN 1


[EOF]

YORUMLAR (0)

Henüz yorum yapılmamış.

BENZER SAYFALAR