// * writer: Slothere (Page System)
// * date: 06.09.2008
// * version: (056b+) - (client 4x+)
[EVENTS e_send]
on=@LOGIN
SDIALOG d_page_answer
EVENTS -e_send
[PLEVEL 2]
pg
[FUNCTION pg]
IF (<serv.gmpages>)
sdialog d_page_view
else
sys_error Page bulunmuyor..
return 1
ENDIF
[DIALOG d_page_send]
0,0
PAGE 0
nomove
resizepic 30 30 5054 500 120
checkertrans 40 40 480 100
resizepic 70 60 3000 420 35
dcroppedtext 70 35 400 20 920 Lütfen sorununuzu kısaca ve net olarak belirtiniz.
dtextentry 75 65 400 20 920 1
dtext 100 100 920 Gönder
button 80 100 2714 2715 1 0 1
[DIALOG d_page_send button]
on=1
GMPAGE add <uid> <argtxt[1]>
[DIALOG d_page_view]
0,0
PAGE 0
nomove
resizepic 0 50 5054 650 300
checkertrans 10 60 630 280
dtext 55 60 025 Gönderen
dtext 195 60 025 Gönderilen
dtext 350 60 025 Süre
dtext 450 60 025 Durum
button 20 305 4006 4007 1 0 20000
dtext 50 305 920 Hepsini Sil
local.page = 1
local.bildiri = 0
PAGE 1
FOR 0 <eval (<serv.gmpages>)-1>
IF (<dlocal.bildiri> > 10)
local.bildiri = 0
button 610 320 015e1 015e5 0 <eval (<dlocal.page>)+1> 1
local.page += 1
PAGE <dlocal.page>
button 580 320 015e3 015e7 0 <eval (<dlocal.page>)-1> 1
ENDIF
resizepic 55 <eval (<dlocal.bildiri>*20)+80> 3000 140 20
dcroppedtext 60 <eval (<dlocal.bildiri>*20)+80> 135 20 <QVAL (<uid.<strarg <serv.gmpage.<dlocal._for>.reason>>.isonline>)? 040:025> <uid.<strarg <serv.gmpage.<dlocal._for>.reason>>.name>
resizepic 195 <eval (<dlocal.bildiri>*20)+80> 3000 155 20
dcroppedtext 200 <eval (<dlocal.bildiri>*20)+80> 145 20 920 <streat <serv.gmpage.<dlocal._for>.reason>>
resizepic 350 <eval (<dlocal.bildiri>*20)+80> 3000 100 20
dcroppedtext 355 <eval (<dlocal.bildiri>*20)+80> 95 20 920 <eval (<serv.gmpage.<dlocal._for>.time>)/60> dk önce
resizepic 450 <eval (<dlocal.bildiri>*20)+80> 3000 180 20
dcroppedtext 455 <eval (<dlocal.bildiri>*20)+80> 175 20 920 <QVAL (<serv.gmpage.<dlocal._for>.handled>)? İlgileniliyor (<uid.<serv.gmpage.<dlocal._for>.handled>.name>):Beklemede>
button 20 <eval (<dlocal.bildiri>*20)+80> 4006 4007 1 0 <eval (<dlocal._for>)+1>
local.bildiri +=1
ENDFOR
[DIALOG d_page_view BUTTON]
ON = 1 1000
IF (<serv.gmpage.<eval <argn>-1>.handled>) && (<uid.<serv.gmpage.<eval <argn>-1>.handled>> != <src.uid>)
src.sys_error Bu bildiriyle <uid.<serv.gmpage.<eval <argn>-1>.handled>.name> ilgileniyor.
return 1
ENDIF
src.ctag.sira = <eval <argn>-1>
sdialog d_page_info
return 1
on=20000
IF (<ispghandled>)
src.sys_error Şu anda ilgilenilen bildiriler var..
return 1
ELSE
PAGE WIPE
serv.allclients sys_normal Tüm pageler silinmiştir.
ENDIF
[DIALOG d_page_info]
0,0
PAGE 0
resizepic 100 50 5054 300 330
checkertrans 110 60 280 310
dtext 120 70 025 Gönderenin;
dtext 120 210 025 Gönderilen;
dhtmlgump 120 100 200 105 0 0 <def.bfont_white>Account: <uid.<strarg <serv.gmpage.<src.ctag0.sira>.reason>>.account><def.br>Ismi: <uid.<strarg <serv.gmpage.<src.ctag0.sira>.reason>>.name><def.br>SkillTotal <fval <uid.<strarg <serv.gmpage.<src.ctag0.sira>.reason>>.skilltotal>><def.br>StatTotal: <eval (<uid.<strarg <serv.gmpage.<src.ctag0.sira>.reason>>.str>)+(<uid.<strarg <serv.gmpage.<src.ctag0.sira>.reason>>.dex>)+(<uid.<strarg <serv.gmpage.<src.ctag0.sira>.reason>>.int>)><def.br>Kayit: <uid.<strarg <serv.gmpage.<src.ctag0.sira>.reason>>.account.firstconnectdate><def.br>IP: <uid.<strarg <serv.gmpage.<src.ctag0.sira>.reason>>.account.lastip>
dhtmlgump 120 230 225 110 1 1 <streat <serv.gmpage.<src.ctag0.sira>.reason>>
resizepic 100 380 5054 300 150
checkertrans 110 390 280 130
FOR 5
button 120 <eval (<dlocal._for>*20)+380> 4006 4007 1 0 <dlocal._for>
ENDFOR
dtext 160 400 1153 Sil
dtext 160 420 1153 Cevap Gönder
dtext 160 440 1153 Yanına Getir
dtext 160 460 1153 Yanına Git
dtext 160 480 1153 Hapise Gönder
[DIALOG d_page_info BUTTON]
on = 1
IF (<serv.gmpage.<src.ctag0.sira>.handled>) && (<uid.<serv.gmpage.<src.ctag0.sira>.handled>> != <src.uid>)
src.sys_error Şu anda bu bildiri ile ilgileniliyor. (<uid.<serv.gmpage.<src.ctag0.sira>.handled>.name>)
return 1
ENDIF
TRY gmpage.<eval <src.ctag0.sira>>.handle
TRY gmpage.<eval <src.ctag0.sira>>.d
src.sys_normal Page silindi.
on=2
IF (<serv.gmpage.<src.ctag0.sira>.handled>) && (<uid.<serv.gmpage.<src.ctag0.sira>.handled>> != <src.uid>)
src.sys_error Şu anda bu bildiri ile ilgileniliyor. (<uid.<serv.gmpage.<src.ctag0.sira>.handled>.name>)
return 1
ENDIF
TRY gmpage.<eval <src.ctag0.sira>>.handle
ref1 = <strarg <serv.gmpage.<src.ctag0.sira>.reason>>
ref1.sdialog d_send_reply
on=3
IF (<serv.gmpage.<src.ctag0.sira>.handled>) && (<uid.<serv.gmpage.<src.ctag0.sira>.handled>> != <src.uid>)
src.sys_error Şu anda bu bildiri ile ilgileniliyor. (<uid.<serv.gmpage.<src.ctag0.sira>.handled>.name>)
return 1
ENDIF
ref1 = <strarg <serv.gmpage.<src.ctag0.sira>.reason>>
IF (<ref1.isonline>)
TRY gmpage.<eval <src.tag0.sira>>.handle
ref1.summonto
ELSE
src.sys_error <ref1.name> şu anda oyunda değil..
return 1
ENDIF
on=4
IF (<serv.gmpage.<src.ctag0.sira>.handled>) && (<uid.<serv.gmpage.<src.ctag0.sira>.handled>> != <src.uid>)
src.sys_error Şu anda bu bildiri ile ilgileniliyor. (<uid.<serv.gmpage.<src.ctag0.sira>.handled>.name>)
return 1
ENDIF
ref1 = <strarg <serv.gmpage.<src.ctag0.sira>.reason>>
IF (<ref1.isonline>)
TRY gmpage.<eval <src.tag0.sira>>.handle
src.go <ref1.p>
ELSE
src.sys_error <ref1.name> şu anda oyunda değil..
return 1
ENDIF
on=5
// jail eklenicek..
[DIALOG d_send_reply]
0,0
PAGE 0
nomove
resizepic 30 30 5054 500 250
checkertrans 40 40 480 230
resizepic 70 170 3000 420 50
dcroppedtext 70 150 400 20 920 <uid.<strarg <serv.gmpage.<src.ctag0.sira>.reason>>.name> isimli kişiye gönderilecek iletiyi yazınız.
dtextentrylimited 75 175 400 45 920 1 175
dtext 100 230 920 Gönder
button 80 230 2714 2715 1 0 1
dtext 70 40 920 Gönderilen İleti,
dhtmlgump 70 65 420 65 1 1 <streat <serv.gmpage.<src.ctag0.sira>.reason>>
[DIALOG d_send_reply BUTTON]
on=1
tag.pagemsg = <argtxt[1]>
tag.date = <serv.rtime>
tag.sender = <src.uid>
tag.sended = <streat <serv.gmpage.<src.ctag0.sira>.reason>>
IF (<ISONLINE>)
TRYSRC <UID> sdialog d_page_answer
src.page d
ELSE
events +e_send
src.page d
ENDIF
src.sys_normal Cevap gönderildi.
return 1
[DIALOG d_page_answer]
0,0
PAGE 1
button 15 30 30 30 0 2 1
dtext 15 60 1153 Mesajınız Var!
PAGE 2
resizepic 30 30 5054 500 300
checkertrans 40 40 480 280
dtext 70 60 1153 Mesajı Gönderen: <uid.<tag0.sender>.name> | Tarih: <tag0.date>
dhtmlgump 70 85 400 90 1 1 <tag0.pagemsg>
dtext 70 180 1153 Gönderdiğiniz İleti,
dhtmlgump 70 205 400 70 1 1 <tag0.sended>
[DIALOG d_page_answer BUTTON]
on=0
tag.sended =
tag.sender =
tag.pagemsg =
tag.date =
[FUNCTION ispghandled]
FOR 0 <eval (<serv.clients>-1>
IF (<serv.client.<dlocal._for>.account.plevel> > 1) && (<serv.gmpage.<dlocal._for>.handled>)
return 1
ENDIF
ENDFOR
return 0
[EOF]
0 Total votes: 0
Yorumlar (0)