https://prntscr.com/9k277w
https://prntscr.com/9k27xd
https://prntscr.com/9k28aj
Playerların da oyun içersinde anket oluşturabilecekleri bi sistem
[plevel 01]
anket
[defname anketosistemo]
anket_toplamoy 40
anket_sik 4 // sik değil o şık 
[function anketkur]
db.connect
if <db.connected>
db.execute "drop table anket"
db.execute "drop table anketid"
db.execute "CREATE TABLE IF NOT EXISTS `anket` (`id` INT NULL AUTO_INCREMENT PRIMARY KEY, `aUID` text, `aKONU` text, `aAC` text, `sik1` varchar(100) default "0", `sik2` varchar(100) default "0", `sik3` varchar(100) default "0", `sik4` varchar(100) default "0", `sik5` varchar(100) default "0", `sik6` varchar(100) default "0", `tamamlandi` int default "0", `siksayi` int default "0", `sik1say` int default "0", `sik2say` int default "0", `sik3say` int default "0", `sik4say` int default "0", `sik5say` int default "0", `sik6say` int default "0")";
db.execute "CREATE TABLE IF NOT EXISTS `anketid` (`id` INT NULL AUTO_INCREMENT PRIMARY KEY, `aKULLAN` text, `asayi` int default "0")";
endif
[function anketekle]
db.connect
if <db.connected>
db.execute "insert into anket (aUID,aKONU,aAC,siksayi,sik1,sik2,sik3,sik4,sik5,sik6) values ("<uid>","<addslashes <argv0>>","<addslashes <argv1>>","<addslashes <argv2>>","<addslashes <argv3>>","<addslashes <argv4>>","<addslashes <argv5>>","<addslashes <argv6>>","<addslashes <argv7>>","<addslashes <argv8>>")";
src.sysmessage @,,1 Konunuz oluşturulmuştur.
f_anket
return 1
endif
[function anket]
src.ctag0.anketsik 2
sdialog d_anket
[dialog d_anket]
50,50
bozobag 10,10,300,300
page 1
resizepic 95 45 9300 170 25
dtext 50 50 0481 Konu:
dtextentrylimited 100 50 150 25 0481 10 24
resizepic 115 75 9300 170 105
dtext 50 75 0481 Açıklama:
dtextentrylimited 120 75 152 105 0481 11 120
dorigin 0 170
for 1 <dsrc.ctag.anketsik>
dtext 50 *20 0481 <dlocal._for>. Şık
resizepic 95 *2 9300 190 20
dtextentrylimited 100 *0 190 20 0481 <dlocal._for> 30
endfor
if <dsrc.ctag0.anketsik> < <ddef.anket_sik>
dtext 60 +20 0455 Şık
button 30 +20 021 022 1 0 1
endif
if <dsrc.ctag0.anketsik> == <ddef.anket_sik>
dtext 60 +20 63 Konuyu başlat
button 30 +20 021 022 1 0 2
dtext 180 +20 044 Anketler
button 150 +20 021 022 1 0 3
else
dtext 60 +40 63 Konuyu başlat
button 30 +40 021 022 1 0 2
dtext 180 +40 044 Anketler
button 150 +40 021 022 1 0 3
endif
page 2
dorigin 0 20
db.connect
local.page = 2
local.bildiri = 0
page 2
if <db.connected>
db.query "select id,aUID,aKONU,aAC,sik1,sik2,sik3,sik4,sik5,sik6,sik1say,sik2say,sik3say,sik4say,sik5say,sik6say from anket order by id desc";
local.bildiri 0
while <db.row.<dlocal._while>.id>
IF (<dlocal.bildiri> > 10)
dorigin 0 20
local.bildiri 0
button 560 280 015e1 015e5 0 <eval (<dlocal.page>)+1> 1
local.page += 1
PAGE <dlocal.page>
button 530 280 015e3 015e7 0 <eval (<dlocal.page>)-1> 1
ENDIF
dtext 60 *20 0481 <db.row.<dlocal._while>.aKONU>
button 30 *0 021 022 1 0 <eval <db.row.<dlocal._while>.id>+10>
local.bildiri +=1
endwhile
endif
page 300
db.query "select id,aUID,aKONU,aAC,siksayi,sik1,sik2,sik3,sik4,sik5,sik6,sik1say,sik2say,sik3say,sik4say,sik5say,sik6say from anket where id="<dsrc.ctag0.anketsira>"";
resizepic 95 45 9300 170 25
dtext 50 50 0481 Konu:
dtext 100 50 0481 <db.row.0.aKONU>
resizepic 115 75 9300 170 105
dtext 50 75 0481 Açıklama:
dhtmlgump 120 75 165 105 0 0 <db.row.0.aAC>
dorigin 0 170
for 1 <db.row.0.siksayi>
resizepic 55 *20 9300 190 20
dtext 60 *0 0481 <db.row.0.sik<dlocal._for>>
dtext 260 *0 0481 <db.row.0.sik<dlocal._for>say>
button 30 *0 021 022 1 0 <eval <dlocal._for>+1000000>
endfor
if <src.isgm>
if <db.row.numrows>
dtext 60 280 0481 Sil <uid.<db.row.0.aUID>.name>
button 30 280 021 022 1 0 4
endif
endif
[dialog d_anket button]
on 1
if <dsrc.ctag0.anketsik> < <ddef.anket_sik>
src.ctag0.anketsik +=1
else
src.sysmessage @,,1 Daha fazla şık ekleyemezsiniz. En fazla <ddef.anket_sik>
endif
sdialog d_anket
on 2
if <isempty <argtxt10>>
src.sysmessage @,,1 Konuyu boş bırakamazsınız
sdialog d_anket
elif <isempty <argtxt10>>
src.sysmessage Açıklamayı boş bırakamazsınız
sdialog d_anket
endif
local.bb 0
for 1 <dsrc.ctag.anketsik>
if <isempty <argtxt<dlocal._for>>>
local.bb ++
endif
endfor
if <dlocal.bb> >= 1
src.sysmessage @,,1 Şıkları boş bırakamazsınız
sdialog d_anket
else
if <dsrc.ctag.anketsik> == 2
src.anketekle <argtxt10>,<argtxt11>,<dsrc.ctag.anketsik>,<argtxt1>,<argtxt2>
elif <dsrc.ctag.anketsik> == 3
src.anketekle <argtxt10>,<argtxt11>,<dsrc.ctag.anketsik>,<argtxt1>,<argtxt2>,<argtxt3>
elif <dsrc.ctag.anketsik> == 4
src.anketekle <argtxt10>,<argtxt11>,<dsrc.ctag.anketsik>,<argtxt1>,<argtxt2>,<argtxt3>,<argtxt4>
elif <dsrc.ctag.anketsik> == 5
src.anketekle <argtxt10>,<argtxt11>,<dsrc.ctag.anketsik>,<argtxt1>,<argtxt2>,<argtxt3>,<argtxt4>,<argtxt5>
elif <dsrc.ctag.anketsik> == 6
src.anketekle <argtxt10>,<argtxt11>,<dsrc.ctag.anketsik>,<argtxt1>,<argtxt2>,<argtxt3>,<argtxt4>,<argtxt5>,<argtxt6>
endif
endif
on 3
sdialog d_anket,2
on 4
db.execute "delete from anket where id="<dsrc.ctag0.anketsira>"";
src.sysmessage @,,1 Anketi sildiniz.
sdialog d_anket,2
on 10 1000
local.dargn <eval <dargn>-10>
src.ctag0.anketsira <dlocal.dargn>
sdialog d_anket,300
on 1000000 1000006
db.query "select asayi,aKULLAN from anketid where asayi="<dsrc.ctag0.anketsira>" and aKULLAN="<src>"";
if <db.row.numrows>
src.sysmessage @,,1 Siz daha önce bu ankete oy kullanmışsınız.
return 1
endif
local.dargn <eval <dargn>-1000000>
db.query "select id,sik<dlocal.dargn>say,tamamlandi from anket where id="<dsrc.ctag0.anketsira>"";
local.p <eval <db.row.0.sik<dlocal.dargn>say>+1>
local.y <eval <db.row.0.tamamlandi>+1>
if <eval <dlocal.y> >= <ddef.anket_toplamoy>
src.sysmessage @,,1 Bu anket tamamlanmış.
return 1
endif
db.execute "update anket set sik<dlocal.dargn>say="<dlocal.p>", tamamlandi="<dlocal.y>" where id="<dsrc.ctag.anketsira>"";
src.sysmessage @,,1 Oyunuzu kullandınız.
sdialog d_anket,300
db.execute "insert into anketid (aKULLAN,asayi) values ("<src>","<dsrc.ctag.anketsira>")";
[FUNCTION F_anket]
for 0 <eval <serv.clients>-1>
ref1=<serv.client.<dlocal._for>.uid>
trysrc <ref1> uid.<ref1>.dialogclose d_anket_new
trysrc <ref1> uid.<ref1>.dialog d_anket_new
ENDFOR
[DIALOG d_anket_new]
0,0
PAGE 1
button 15 30 30 30 1 0 1
dtext 15 60 07a1 Yeni anket
[dialog d_anket_new button]
on 1
sdialog d_anket,2
