Tek dialogta anket açtırmak

Tek dialogta anket açtırmak

Pinke

Neophyte UO-Dev Üyesi

Skill Title: Neophyte

Toplam Mesaj: 43

Oyun Tarzı: Rp

Emulatör: Sphere

Tecrübe: Player

Favori Server: UO Antares

Beğeni: 2 / 2

Arkadaşlar cok güzel donanımlı bir anket sistemi gecti elime biyerlerden hatırlamıyorum yabancı dil düzerineydi ben editledim düzeltmeler yaptım kendi capımda ben tamamen hepsini paylaşacagım belki başka arkadaşların ihtiyacı olur diye kesmiyorum tamamını paylaşacagım burada ben bir noktata takıldım stone olarak cıkyor anket olayı her ayrı stonede her ayrı anket yapa biliniyor ben istiyorumki Help menüsünden tek bir noktada anket yapılsın help menüsüne de ekledigimde sacma sapan oylanmamış bir pencere acılıyor bu pencerede oylama yapılmasını istiyorum nasıl yapa bilirim

[DEFNAME voting_sys]

voting_locked_msg @04ea,6,1 Suan icin Bir Anket Yok. iyi oyunlar..

voting_finished_msg @04ea,3 Poll : Voting finished.



[ITEMDEF i_enquete_stone]

NAME=Anket Stone

ID=i_gravestone_7

TYPE=t_normal









ON=@Create

TAG.ENQUETE.UID=0

tag.ultimovoto=[nobody]

TAG.ENQUETE.TRANCADA=1

TAG.ULTIMODIA=0

COLOR=0556

ATTR=attr_static|attr_decay



ON=@Dclick

IF (<SRC.ISGM>)

SDIALOG d_votacao 1

ELSE

IF (<TAG0.ENQUETE.TRANCADA>)

SRC.SYSMESSAGE <def.voting_locked_msg>

ELIF (<SRC.ACCOUNT.TAG0.ENQUETE.UID>==<TAG0.ENQUETE.UID>)

SDIALOG d_votacao 4

ELSE

SDIALOG d_votacao 3

ENDIF

ENDIF

RETURN 1



on=@click

message @44,6,1 -Anket-

return 1







[DIALOG d_votacao]

200,120

//SRC.CLOSEALLDIALOGS

PAGE 1

resizepic 20 0 5054 500 363

gumppictiled 29 10 481 20 2624

gumppictiled 29 38 481 120 2624

gumppictiled 29 335 481 20 2624

gumppictiled 47 245 443 75 2624

checkertrans 29 10 481 345

dtext 33 10 38 Anket Sistemi - <SERV.SERVNAME> Shard

dhtmlgump 108 335 481 120 0 0 <DEF.BFONT_lGRAY> <SERV.RTIME><DEF.BONTE>

dhtmlgump 35 38 475 120 0 1 <DEF.BFONT_SIZE7><DEF.CENTER>Anket<DEF.CENTERE><DEF.BR><DEF.BFONT_SIZE4><DEF.BFONT_lGRAY><TAG0.ENQUETE><DEF.BRE>

local.1=<EVAL <MORE1>*100>

local.2=<eval <MORE1>+<MORE2>>

local.3=<eval <MORE2>*100>

IF (<MORE1>!=0)

dtext 40 160 1152 EVET : <EVAL <local.1>/<local.2>>% (<dMORE1> Oy)

ELSE

dtext 40 160 1152 EVET : 0% (<dMORE1> Oy)

ENDIF

IF (<MORE2>!=0)

dtext 40 180 1152 HAYIR : <EVAL <local.3>/<local.2>>% (<dMORE2> Oy)

ELSE

dtext 40 180 1152 HAYIR : 0% (<dMORE2> Oy)

ENDIF

dtext 270 160 1152 Oylama Gunu: <dTAG0.ULTIMODIA>

dtext 270 180 1152 Oy Kullandiniz Sayin: <tag0.ultimovoto>

dtext 40 200 1152 Toplam Oy: <EVAL <MORE1>+<MORE2>>

dtext 270 200 1152 Toplam Oy Kullanma Sayiniz: <dtag0.enquete.uid>

button 33 230 093A 0939 1 0 2

IF !(<TAG0.ENQUETE.TRANCADA>)

dhtmlgump 51 225 400 50 0 0 <DEF.BFONT_WHITE>Oylamayi Kapat ve Anketleri Sil !

ELSE

dhtmlgump 51 225 400 50 0 0 <DEF.BFONT_WHITE>Eski oylama uzatilsinmi ? Playeri acilsinmi

ENDIF

button 33 250 093A 0939 1 0 1

dtextentry 51 245 435 75 1000 0 Anket Sorusunu Buraya Yazin..



PAGE 2

resizepic 20 0 5054 500 383

gumppictiled 29 10 481 20 2624

gumppictiled 29 38 481 120 2624

gumppictiled 29 355 481 20 2624

gumppictiled 47 165 443 75 2624

gumppictiled 47 245 443 75 2624

gumppictiled 160 325 30 20 2624

checkertrans 29 10 481 365

dtext 33 10 68 Anket Sistemi - <SERV.SERVNAME> Shard

dhtmlgump 108 245 481 120 0 0 <DEF.BFONT_lGRAY> <SERV.RTIME><DEF.BONTE>

dhtmlgump 35 38 475 120 0 1 <DEF.BFONT_SIZE7><DEF.CENTER>Poll text<DEF.CENTERE><DEF.BR><DEF.BFONT_SIZE4><DEF.BFONT_lGRAY><TAG0.ENQUETE><DEF.BRE>

dtextentry 51 165 435 75 1000 1 Cevap; 1 ?

dtextentry 51 245 435 75 1000 2 Cevap; 2 ?

dtext 33 325 1152 Gac Gun Dursun:

dtextentry 163 325 20 15 1000 3

button 415 328 02eec 02eed 1 0 3



PAGE 3

resizepic 20 0 5054 500 335

gumppictiled 29 10 481 20 2624

gumppictiled 29 38 481 120 2624

gumppictiled 29 166 236 110 2624

gumppictiled 29 280 236 16 2624

gumppictiled 274 166 236 110 2624

gumppictiled 274 280 236 16 2624

gumppictiled 29 305 481 20 2624

checkertrans 29 10 481 315

dtext 33 10 68 Anket Sistemi - <SERV.SERVNAME> Shard

dhtmlgump 108 305 481 120 0 0 <DEF.BFONT_lGRAY> <SERV.RTIME><DEF.BONTE>

dhtmlgump 35 38 475 120 0 1 <DEF.BFONT_SIZE7><DEF.CENTER>Anket<DEF.CENTERE><DEF.BR><DEF.BFONT_SIZE4><DEF.BFONT_lGRAY><TAG0.ENQUETE><DEF.BRE>

dhtmlgump 35 166 230 110 0 1 <DEF.BFONT_lGRAY><TAG0.RESP1>

dhtmlgump 280 166 230 110 0 1 <DEF.BFONT_lGRAY><TAG0.RESP2>

button 100 282 093A 0939 1 0 4

dtext 115 277 1152 Oylama 1

button 350 282 093A 0939 1 0 5

dtext 365 277 1152 Oylama 2



PAGE 4

resizepic 20 0 5054 500 275

gumppictiled 29 10 481 20 2624

gumppictiled 29 38 481 120 2624

gumppictiled 29 245 481 20 2624

checkertrans 29 10 481 255

dtext 33 10 68 Anket Sistemi - <SERV.SERVNAME> Shard

dhtmlgump 108 245 481 120 0 0 <DEF.BFONT_lGRAY> <SERV.RTIME><DEF.BONTE>

dhtmlgump 35 38 475 120 0 1 <DEF.BFONT_SIZE7><DEF.CENTER>Anket<DEF.CENTERE><DEF.BR><DEF.BFONT_SIZE4><DEF.BFONT_lGRAY><TAG0.ENQUETE><DEF.BRE>

dtext 40 160 38 Oylama Sunuclari Devam Ediyor;

local.1=<EVAL <MORE1>*100>

local.2=<eval <MORE1>+<MORE2>>

local.3=<eval <MORE2>*100>

IF (<MORE1>!=0)

dtext 40 180 1152 Evet : <EVAL <local.1>/<local.2>>% (<dMORE1> Oy)

ELSE

dtext 40 180 1152 Evet : 0% (<dMORE1> Oy)

ENDIF

IF (<MORE2>!=0)

dtext 40 200 1152 Hayir : <EVAL <local.3>/<local.2>>% (<dMORE2> Oy)

ELSE

dtext 40 200 1152 Hayir : 0% (<dMORE2> Oy)

ENDIF

//dtext 270 180 1152 Bitmesine Gun Kaldi: <EVAL <TAG0.ULTIMODIA>>

//dtext 270 200 1152 Kullanan Kisi Sayin: <tag0.ultimovoto>

dtext 40 220 1152 Kullanilan Oy: <EVAL <MORE1>+<MORE2>>

dtext 270 220 1152 Toplam Katildiginiz Anket: <dtag0.enquete.uid>



[DIALOG d_votacao BUTTON]

ON=1

TAG.ENQUETE.TRANCADA=1

TAG.ENQUETE=<STRSUB 0 1500 <ARGTXT[0]>>

MORE1=0

MORE2=0

tag.ultimovoto=[nobody]

var.enquete.lastvote=[nobody]

TAG.RESP1=0

TAG.RESP2=0

SDIALOG d_votacao 2

VAR.ENQUETE.PAGE2=<TAG0.ENQUETE>



ON=2

IF !(<TAG0.ENQUETE.TRANCADA>)

TAG.ENQUETE.TRANCADA=1

ELSE

TAG.ENQUETE.TRANCADA=0

ENDIF



ON=3

IF !(<ISNUM <ARGTXT[3]>>) || (<ARGTXT[3]> > 31) || (<ARGTXT[3]>==<RTIME.DAY>)

SRC.SYSMESSAGE @0481,1 Anket Gununu Girin !

SDIALOG d_votacao 2

ELSE

TAG.RESP1=<STRSUB 0 1200 <ARGTXT[1]>>

TAG.RESP2=<STRSUB 0 1200 <ARGTXT[2]>>

TAG.ULTIMODIA=<STRSUB 0 2 <ARGTXT[3]>>

TAG0.ENQUETE.UID ++

TAG.ENQUETE.TRANCADA=0

MORE1=0

MORE2=0

TIMER=10

VAR.ENQUETE.RESP1=<TAG0.RESP1> (0) (0%)

VAR.ENQUETE.RESP2=<TAG0.RESP2> (0) (0%)

VAR.ENQUETE.LASTDAY=dia <EVAL <TAG.ULTIMODIA>>

ENDIF



ON=4

MORE1 ++

local.1=<EVAL <MORE1>*100>

local.2=<eval <MORE1>+<MORE2>>

VAR.ENQUETE.RESP1=<TAG0.RESP1> (<EVAL <MORE1>>) (<EVAL <local.1>/<local.2>>%)

TAG.ULTIMOVOTO=<SRC.NAME>

var.enquete.lastvote=<SRC.NAME>

SRC.ACCOUNT.TAG.ENQUETE.UID=<TAG0.ENQUETE.UID>



ON=5

MORE2 ++

local.1=<EVAL <MORE2>*100>

local.2=<eval <MORE1>+<MORE2>>

VAR.ENQUETE.RESP2=<TAG0.RESP2> (<EVAL <MORE2>>) (<EVAL <local.1>/<local.2>>%)

TAG.ULTIMOVOTO=<SRC.NAME>

var.enquete.lastvote=<SRC.NAME>

SRC.ACCOUNT.TAG.ENQUETE.UID=<TAG0.ENQUETE.UID>



[EOF]

Devamını göster

Son güncelleme: TheRaskol tarafından 02-09-2018 15:08 (8 yıl önce).

BENZER BAŞLIKLAR

Konu	Kategori	Son cevap	Son yazan	Mesaj	Görüntüleme
Anket sistemi Son cevap: 30-12 01:21 · Son yazan: Epihaltes · Mesaj: 1 · Görüntü: 3606	Derleme Scriptler	30-12 01:21	Epihaltes	1	3606
Real Racing 3 Hakkında Anket :) Son cevap: 31-07 10:13 · Son yazan: Purgatory · Mesaj: 5 · Görüntü: 6193	Garbage	31-07 10:13	Purgatory	5	6193
Dialogta sorgu sorunsalı Son cevap: 30-04 16:14 · Son yazan: System_Error · Mesaj: 7 · Görüntü: 6991	DIALOG Script Yardımı	30-04 16:14	System_Error	7	6991
UO-Dev Anket Önerileriniz Son cevap: 26-02 00:29 · Son yazan: Deidara · Mesaj: 10 · Görüntü: 9489	UO-Dev Duyurular	26-02 00:29	Deidara	10	9489
Anasayfa Anket İstekleri Son cevap: 18-11 00:21 · Son yazan: TheRaskol · Mesaj: 4 · Görüntü: 4901	UO-Dev Duyurular	18-11 00:21	TheRaskol	4	4901

Sosyal Ağ ile Giriş Yap

Google ile Bağlan Facebook ile Bağlan Twitch ile Bağlan Discord ile Bağlan

BENZER BAŞLIKLAR

Sosyal Ağ ile Giriş Yap

Çerez Tercihleri