Scp bu:
Kullanım:
Yapmanız gereken çok basit. Sadece page atılacak buttona f_player_page eklemeniz yeterli taş vb çıkartmanız gerekmiyor. Pagelere bakmak için .pag yazmanız yeterli.
Örn;
[dialog d_help button]
on=1
src.f_player_page
Script,
[defname page_sys]
//Some options
dlg_grey_border 0 //Dialog have grey border? (1 = yes | 0 = no)
delete_after_msg 1 //Delete the page after send predefined messages? (1 = yes | 0 = no)
queue_message 1 //Show how many pages are in queue when use .pag
//Dialog texts
dlg_text_titlet <serv.name> Page Sistemi //Title of tweak page
dlg_text_reason Gelen: //Reason
dlg_text_delete Sil //Delete text
dlg_text_Go_p_p Playere Git//Go player Pos
dlg_text_Go_p_o Pagenin atildigi yere git //Go page origin
dlg_text_Pre_re Cevap Yolla //Predefined response
dlg_text_pag_ls Page Listesi //Page list
dlg_text_your_p Sizin Pageniz: //Your page text in answer page
dlg_text_was_as Cevap: //was answered text in answer page
dlg_text_by_who Yazan: //By who was answred?
dlg_text_mi_dlg Mesaj //Mini dialog "message" text
dlg_text_ti_ela Gecen Zaman: //Gecen zaman yazisi.
dlg_text_wipe_p Tum pageleri silmek istediginize eminmisiniz? //Wipe text dialog(.pag wipe)
dlg_text_wipe_t Tumunu Sil //Text showed in index page to wipe all pages
dlg_text_descri Lutfen sorununuzu kisa ve aciklayici bir sekilde yaziniz.
//Message texts
msg_text_Color 1153 //Messages color
MSG_text_del_all Tum pageleri sildiniz // Message after wipe pages
msg_text_Page_del Page Silindi //Deleted page message
msg_text_msg_sent Cevap yollandi //Msg sent message
msg_text_and_dele ve mesajiniz silindi. //sent msg + And deleted message (need def.delete_after_msg = 1)
msg_text_no_pages Page bulunmuyor //No pages message
msg_text_xx_pag_1 //x pages message Part 1
msg_text_xx_pag_2 page bulunmaktadir //x pages message Part 2
//Part1 xxPages part2
//look down to more info
//NOTE: when the pages are wiped, the server log in console some details
[plevel 2]
pag
[function pag]
tag0.page=
if (<serv.gmpages>)
sdialog d_page
IF (<def.queue_message>)
sysmessage @<def.msg_text_Color> <def.msg_text_xx_pag_1> <eval <serv.gmpages>> <def.msg_text_xx_pag_2>
endif
Else
sysmessage @<def.msg_text_Color> <def.msg_text_no_pages>
endif
[dialog d_page]
200,50
local.b=0
nomove
resizepic 20 20 3000 370 420
//alphablack 30 30 350 400 //Will remove the border ( one pixel / not remove the grey border )
for 0 3
IF (<ispage <tag0.page>+<local._for>>)
button 40 <eval 50+(<local._for>*90)> 4005 4006 1 0 <eval <local._for>+1>
dhtmlgump 75 <eval 50+(<local._for>*90)> 300 80 1 1 <serv.gmpage.<eval (<local._for>+<tag0.page>)>.account> <def.bfont_lred>[<def.u><uid.<STRARG <serv.gmpage.<eval (<local._for>+<tag0.page>)>.reason>>.name><def.ue>]<def.bfont_black> : <STREAT <serv.gmpage.<eval (<local._for>+<tag0.page>)>.reason>>
local.b += 1
endif
endfor
IF (<local.b> == 4) && (<serv.gmpages> >= 5)
button 350 408 4005 4006 1 0 5
endif
IF !(<tag0.page> == 0)
button 30 408 4014 4015 1 0 6
endif
Button 150 408 4026 4027 1 0 7
dhtmlgump 181 411 200 20 0 0 <def.bfont_white><def.dlg_text_wipe_t>
[dialog d_page button]
on=1
tag.pages=<Eval <argn1>+<tag0.page>-1>
//sysmessage @03b2 Tweaking: <serv.gmpage.<tag.pages>.account> //test if script have bad section
sdialog d_page_tweak
on=5
tag0.page += 4
IF <tag0.page> > <serv.gmpages>
tag.page=<serv.gmpages>
endif
sdialog d_page
on=6
tag.page -= 4
IF <tag0.page> < 0
tag0.page=0
endif
sdialog d_page
on=7
sdialog d_page_wipe
[DIALOG d_page_tweak]
190,40
NOMOVE
page 0
resizepic 31 20 3000 370 472
dhtmlgump 45 33 340 20 0 0 <def.bfont_white><def.center><def.dlg_text_titlet>
dhtmlgump 130 100 248 100 1 1 <STREAT <serv.gmpage.<tag.pages>.reason>>
dtext 80 100 1152 <def.dlg_text_reason>
dtext 80 210 1152 <def.dlg_text_delete>
dtext 80 233 1152 <def.dlg_text_go_p_p>
dtext 80 256 1152 <def.dlg_text_go_p_o>
resizepic 89 329 3000 290 109
dtext 80 303 1152 <def.dlg_text_pre_re>
button 48 209 4005 4006 1 0 1
button 48 232 4005 4006 1 0 2
button 48 255 4005 4006 1 0 3
//dtext 80 278 1152 <def.dlg_text_handle>
//button 48 278 4005 4006 1 0 6
button 48 302 4005 4006 1 0 4
dtext 80 450 1152 <def.dlg_text_pag_ls>
button 48 449 4011 4002 1 0 5
dtextentry 92 332 283 102 0 1
[DIALOG d_page_tweak button]
ON=0
tag.page=
tag.pages=
pag
ON=1
try gmpage.<eval <tag0.pages>>.handle
try gmpage.<eval <tag0.pages>>.d
tag.page=
sysmessage @<def.msg_text_Color> <def.msg_text_page_del>
ON=2
go <uid.<STRARG <serv.gmpage.<eval <tag0.pages>>.reason>>.p>
tag.page=
ON=3
GO <serv.gmpage.<eval <tag0.pages>>.p>
tag.page=
ON=4
try serv.account.<serv.gmpage.<eval <tag0.pages>>.account>.tag.resposta = <argtxt[1]>
try serv.account.<serv.gmpage.<eval <tag0.pages>>.account>.tag.gmpage = <serv.gmpage.<eval <tag0.pages>>.reason>
try serv.account.<serv.gmpage.<eval <tag0.pages>>.account>.tag.responsavel = <name><def.br><def.br><def.bfont_black><def.dlg_text_ti_ela> <def.bfont_red><timeformat 1,<eval <serv.gmpage.<eval <tag0.pages>>.time>>>
trysrc <STRARG <serv.gmpage.<eval <tag0.pages>>.reason>> sdialog d_recebe_page
F_LOGIN_page <serv.gmpage.<eval <tag0.pages>>.account>
IF (<def.delete_after_msg>)
try gmpage.<eval <tag0.page>>.handle
try gmpage.<eval <tag0.page>>.d
endif
sysmessage @<def.msg_text_Color> <def.msg_text_msg_sent> <qval (<def.delete_after_msg>) ? <def.msg_text_and_dele> :>
tag.pages=
ON=5
tag.page=
tag.pages=
pag
//on=6
[function ispage]
IF !(STRCMP("<serv.gmpage.<eval <args>>.status>","0"))
return "0"
else
return "1"
endif
[FUNCTION find_page]
FOR 0 <eval <serv.clients>-1>
IF (<serv.CLIENT.<LOCAL._FOR>>)
IF (STRMATCH("<args>","<serv.client.<eval <local._for>>.name>"))
OBJ=<serv.client.<eval <local._for>>.uid>
ENDIF
ENDIF
ENDFOR
IF !(<OBJ> == 00)
IF (<OBJ.ISONLINE>)
trysrc <OBJ> sdialog d_recebe_page
ENDIF
obj=0
ENDIF
[function alphablack]
gumppictiled <argv[0]> <argv[1]> 2624 <argv[2]> <argv[3]>
checkertrans <argv[0]> <argv[1]> <argv[2]> <argv[3]>
[DIALOG d_recebe_page]
20,20
NOMOVE
page 0
resizepic 15 15 3000 100 84
gumppictiled 26 26 22 60 3504
gumppictiled 27 27 20 58 2624
button 27 28 2002 2002 1 0 1
dhtmlgump 48 45 80 20 0 0 <def.bfont_white><def.dlg_text_mi_dlg><def.bfonte>
[DIALOG d_recebe_page button]
ON=1
sdialog d_ler_page_recebida
[DIALOG d_ler_page_recebida]
0,0
NOMOVE
NOCLOSE
page 0
resizepic 82 122 3000 606 203
htmlgump 99 141 571 138 0 1 1
button 347 295 247 248 1 0 1
[DIALOG d_ler_page_recebida text]
<def.bfont_red><src.name><def.bfont_black>, <def.dlg_text_your_p> <def.bfont_blue><STREAT <src.account.tag.gmpage>><def.bfont_black><def.br> <def.dlg_text_was_as> <def.bfont_red><src.account.tag.resposta><def.br><def.br><def.bfont_black><def.dlg_text_by_who> <def.bfont_red><src.account.tag.responsavel>
[DIALOG d_ler_page_recebida button]
ON=1
src.account.tag.resposta=
src.account.tag.gmpage=
src.account.tag.responsavel=
F_LOGIN_page_del <src.account>
src.sysmessage @<def.msg_text_Color> <def.msg_text_page_del>
[FUNCTION F_LOGIN_page]
FOR 0 <EVAL <SERV.ACCOUNT.<ARGS>.CHARS>-1>
local.uid=<SERV.ACCOUNT.<ARGS>.CHAR.<EVAL <LOCAL._FOR>>.UID>
try uid.<local.uid>.events +e_page
ENDFOR
[events e_page]
on=@login
IF !(STRMATCH("<account.tag0.resposta>","0"))
sdialog d_recebe_page
endif
[FUNCTION F_LOGIN_page_del]
FOR 0 <EVAL <SERV.ACCOUNT.<ARGS>.CHARS>-1>
local.uid=<SERV.ACCOUNT.<ARGS>.CHAR.<EVAL <LOCAL._FOR>>.UID>
try uid.<local.uid>.events -e_page
ENDFOR
[FUNCTION TIMEFORMAT]
IF (<ARGN2> > 86400)
LOCAL.TIME <EVAL <ARGN2>/86400>d <EVAL <EVAL <ARGN2>%86400>/3600>h <EVAL <EVAL <EVAL <ARGN2>%86400>%3600>/60>m <EVAL <EVAL <EVAL <ARGN2>%86400>%3600>%60>s
ELSEIF (<ARGN2> > 3600)
LOCAL.TIME <EVAL <ARGN2>/3600>h <EVAL <EVAL <ARGN2>%3600>/60>m <EVAL <EVAL <ARGN2>%3600>%60>s
ELSEIF (<ARGN2> > 60)
LOCAL.TIME <EVAL <ARGN2>/60>m <EVAL <ARGN2>%60>s
ELSE
LOCAL.TIME <ARGN2>s
ENDIF
RETURN <LOCAL.TIME>
[DIALOG d_page_wipe]
250,250
NOMOVE
page 0
resizepic 0 0 3000 273 138
dhtmlgump 5 7 263 100 1 1 <def.dlg_text_wipe_p>
button 205 109 247 248 1 0 1
button 141 109 241 241 1 0 2
[DIALOG d_page_wipe text]
<def.dlg_text_wipe_p>
[DIALOG d_page_wipe button]
ON=1 //OKAY - delete
serv.log @<name> : Tum Pageler Silindi(<eval <serv.gmpages>> : <serv.rtime>
serv.allclients sysmessage @0481,1,1 Tüm page ler silinmistir. Silen kisi: <src.name>
FOR 0 <eval <serv.gmpages>-1>
try gmpage.<local._for>.handle
try gmpage.<local._for>.d
ENDFOR
sysmessage @<def.msg_text_Color> <def.dlg_text_del_al>
ON=2 //CANCEL
src.pag
[function f_player_page]
sDIALOG d_page_send
[DIALOG d_page_send]
0,0
page 0
resizepic 70 131 3000 601 188
resizepic 91 169 3000 554 121
dtext 95 132 1152 <def.dlg_text_descri>
dtextentry 98 175 540 108 0 0
button 326 296 247 248 1 0 1
[DIALOG d_page_send button]
ON=0
helppage
ON=1
if (strmatch('<argtxt[0]>',''))
f_player_page
src.sysmessage Bos mesaj yollayamazsiniz
return 1
endif
gmpage add <uid> <argtxt[0]>
[EOF]
Bu kısmı ekledim ama düzgün çalışmadı???
var.pg_box 0400047cb
if !(strmatch('<tag.pg_call>',''))
if (<uid.<tag.pg_call>.baseid> == i_page) && (<uid.<tag.pg_call>.link> == <uid>)
try uid.<tag.pg_call>.more1 <serv.time>
try uid.<tag.pg_call>.morep <p>
try uid.<tag.pg_call>.tag.reason <args>
serv.allclients pg_announce guncelleme. [<name>] [<uid>]: <args>
sysmessage Mesajiniz yenilendi.
return 2
endif
endif
if (<uid.<var.pg_box>.rescount> > 100)
sysmessage Su an <uid.<var.pg_box>.rescount> Cevapsiz Cagri Bulunmakta, Cagriniz Iletilemedi, Lutfen Daha Sonra Tekrar Deneyiniz.
return 0
endif
newitem i_page
tag.pg_call <act.uid>
act.more1 <serv.time>
act.link <uid>
act.name page: [<name>]
act.morep <p>
act.tag.reason <args>
act.cont <var.pg_box>
act.cont.morex <eval (<act.cont.morex> + 1)>
serv.allclients pg_announce yeni. [<name>] [<uid>]: <args>
try sysmessage @0790,1,1 Mesajiniz Iletildi, <uid.<tag.pg_call>.cont.rescount>. Siradasiniz.
return 1
[function pg_announce]
if (0<account.plevel> > 1)
pg_smsgx * Page: <args>
endif[FUNCTION msg_food_lvl_1]
src.sysmessage @026 acikmissiniz.