//[Anket Sistem Scripting]

//[Yazilis Tarihi 5 Temmuz 2009]

//[Scripting Coder = [Static]



[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 5054 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 5054 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 5054 335 150        // Curved Grey background 

resizepic 200 185 3000 315 130        // Curved White background 

resizepic 220 235 3000 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]

Değerlendirmeler

0

Total votes: 0