| q0kh4n | 03 Ekim 2015 17:29 |
Cevap: Teşekkür diyalogu
Kod:
Menu channel,status {
Op Teşekkür Menüsü:prefixtes
}
alias prefixtes { dialog -m prefixtes prefixtes | if (%tsket == on) { dialog -t PrefixteS Teşekkür Diyalogu Suan Açık. } | else { did -b prefixtes 9,10,11,12,39,40,41,42,43,44 | dialog -t prefixtes Teşekkür Diyalogu Suan Kapali! } }
dialog PrefixteS {
size 40 200 403 329
box "", 505, 1 -5 400 329
title "Owner/Sop/OP/HaLfop/Voice Tsk PaneLi"
button "Kaydet ve Cık",1,132 285 125 30,ok
button "Vazgec",2,263 285 125 30,cancel
text "Owner (+q) Msg",3,8 47 100 20
text "DeOwner (-q) Msg",4,8 72 100 20
text "Protect (+oa) Msg",5,8 97 100 20
text "DeProtect (-oa) Msg",6,8 119 110 20
text "Op (+o) Msg",23,8 141 100 20
text "DeOp (-o) Msg",24,8 165 100 20
text "Halfop (+h) Msg",25,8 189 100 20
text "DeHalfop (-h) Msg",26,8 213 110 20
text "Voice (+v) Msg",27,8 237 100 20
text "DeVoice (-v) Msg",28,8 261 110 20
text "Owner Sop Op Voice Mesaj PaneLi ",7,170 15 190 13, tab 70
box "",8,5 0 120 43,
box "",700,127 0 270 43,
edit %owtemsg ,9,125 45 270 20,autohs
edit %deowtemsg ,10,125 69 270 20,autohs
edit %prtemsg ,11,125 93 270 20,autohs
edit %deprtemsg ,12,125 117 270 20,autohs
edit %optemsg ,39,125 141 270 20,autohs
edit %deoptemsg ,40,125 165 270 20,autohs
edit %hatemsg ,41,125 189 270 20,autohs
edit %dehatemsg ,42,125 213 270 20,autohs
edit %votemsg ,43,125 237 270 20,autohs
edit %devotemsg ,44,125 261 270 20,autohs
radio "Acık",13,10 13 51 25,group
radio "KapaLı",14,65 13 51 25
text "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
289 115 15,disable
}
on *:dialog:PrefixteS:init:*: {
if (%tsket == on) { did -c PrefixteS 13 }
if (%tsket == off) { did -c PrefixteS 14 }
mdx MarkDialog $dname
mdx SetDialog $dname bgcolor $rgb(181,181,1)
mdx SetColor $dname 1,2,3,4,5,6,7,13,14,23,24,25,26,27,28,101 textbg $rgb(180,180,0)
mdx SetColor $dname 1,2,3,4,5,6,7,13,14,23,24,25,26,27,28,101 background $rgb(181,181,1)
mdx SetFont $dname 1,2,3,4,5,6,7,9,10,11,12,13,14,23,24,25,26,27,28,39,40,41,42,43,44 14 700 arial
;mdx SetColor 101 text $rgb(100,050,255)
mdx SetColor 7 text $rgb(010,120,240)
mdx SetColor 9,10,11,12,39,40,41,42,43,44 text $rgb(255,105,0)
mdx SetColor $dname 9,10,11,12,39,40,41,42,43,44 textbg $rgb(100,100,100)
mdx SetColor 3,4,5,6 text $rgb(0,0,0)
mdx SetBorderStyle 1,2 staticedge
}
on *:dialog:PrefixteS:sclick:1: { set %owtemsg $did(9) | set %deowtemsg $did(10) | set %prtemsg $did(11) | set %deprtemsg $did(12) | set %optemsg $did(39) | set %deoptemsg $did(40) | set %hatemsg $did(41) | set %dehatemsg $did(42) | set %votemsg $did(43) | set %devotemsg $did(44) }
on *:dialog:PrefixteS:sclick:13: { set %tsket on | dialog -t PrefixteS Owner Sop Op HaLfOp Voice Tesekkur AcıLdı. | did -e PrefixteS 9 | did -e PrefixteS 10 | did -e PrefixteS 11 | did -e PrefixteS 12 | did -e PrefixteS 39 | did -e PrefixteS 40 | did -e PrefixteS 41 | did -e PrefixteS 42 | did -e PrefixteS 43 | did -e PrefixteS 44 }
on *:dialog:PrefixteS:sclick:14 { set %tsket off | dialog -t PrefixteS Owner Sop Op HaLfOp Voice Tesekkur Kapandı. | did -b PrefixteS 9 | did -b PrefixteS 10 | did -b PrefixteS 11 | did -b PrefixteS 12 | did -b PrefixteS 39 | did -b PrefixteS 40 | did -b PrefixteS 41 | did -b PrefixteS 42 | did -b PrefixteS 43 | did -b PrefixteS 44 }
alias prefixs {
if $regex($1,/\+(q)) { return Owner | halt }
if $regex($1,/\-(q)) { return DeOwner | halt }
if $regex($1,/\+(a)) { return Protect | halt }
if $regex($1,/\-(a)) { return DeProtect | halt }
if $regex($1,/\+(o)) { return Op | halt }
if $regex($1,/\-(o)) { return DeOp | halt }
if $regex($1,/\+(h)) { return Halfop | halt }
if $regex($1,/\-(h)) { return DeHalfop | halt }
if $regex($1,/\+(v)) { return Voice | halt }
if $regex($1,/\-(v)) { return DeVoice | halt }
}
on ^*:Rawmode:#:{
if $regex(#,/#(oper|mirc|educator|egitim|s(pamfilter|inav)|help(ers)?)/i) { return }
if $regex($1,/\+(q|a|o|h|v)/i) && ($2 == $me) && ($nick != $me) {
msg $chan $replace($prefixs($1),Op,%optemsg,Protect,%prtemsg,Owner,%owtemsg,Voice,%votemsg,Halfop,%hatemsg)
msg $chan $prefixs($1) için teşekkürler $nick
if ($active != $chan) {
/echo -a 3
/echo -a 3*** 4 $+ 5 ( 4 $nick 5) $+ 5 ( 5 $chan 5) 12Kanalında Sana $prefixs($1) $+([4,$1,12]) Verdi
/echo -a 3
}
}
if $regex($1,/\-(q|a|o|h|v)/i) && ($2 == $me) && ($nick != $me) {
msg $chan $replace($prefixs($1),DeOp,%deoptemsg,DeProtect,%deprtemsg,DeOwner,%deowtemsg,DeVoice,%devotemsg,DeHalfop,%dehatemsg)
msg $chan niye aldın ki yetkimi $nick :x
if ($active != $chan) {
/echo -a 3
/echo -a 3*** 4 $+ 5 ( 4 $nick 5) $+ 5 ( 5 $chan 5) 12Kanalında Senden $prefixs($1) $+([4,$1,12]) Aldı
/echo -a 3
}
}
}
dialog kısmı bana ait değil. daha kullanılır bişey yapmaya çalıştım. |
