UO-Dev Arama

 



İçerde : 1 misafir, 0 üye : --- Sayfalar: 1
Yazar

Pinke


UO-Dev Üyesi
Skill Title: Novice
Online durumu
Toplam Mesaj: 43
Oyun Tarzı: Rp
Emulatör: 0.56b
Tecrübe: Player
Yaş: 30
Mesaj #96303   01-09-2018 23:01 GMT    
        
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

Kod:
[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]


Son güncelleme: TheRaskol tarafından 02-09-2018 15:08 GMT, 22 Gün önce düzenlendi.



Sayfalar: 1



Benzer Konular

KonularMesajlarSon gönderenTarih
Anket sistemi1Epihaltes30-12-2015
Real Racing 3 Hakkında Anket :)5Purgatory31-07-2013
Dialogta sorgu sorunsalı7System_Error30-04-2013
UO-Dev Anket Önerileriniz10Deidara26-02-2013
Anasayfa Anket İstekleri4TheRaskol18-11-2010


Keywords:

ultima online, RunUO, ultima online download, sphere scripting, role play, uo grafik, second age ultima, uo loop, macroman, pvp server, server kurulumu, sphere, multool, ml mulls, 56b 55r 55i, htmlgumps, client 4x, client edit, sphere release, osi, rp server, sunucular, ghost mouse, inside uo, kingdom reborn, stygian abyss, uo nasıl oynanır, mondain's legacy, age of shadows, world build, grandmaster, ultima online pvp, player dosyaları, ultima online indir, frp game, RunUO 1.0.0, razor, uo rice, hue editör, skill tools, ultima online patch, axis, world build, verdata, verdata patcher, map editör, gump editör, mul patcher, aos mulls, scriptler, anim edit, anim publish, hues mul, hosting vps, event dialog, account sistemi, skill gain, static yapımı,