| aLone | 11 Eylül 2014 15:04 |
Tüm Prefixler için Tşk Diyaloğu
Forumda mutlaka op tşk addonu paylaşılmıştır
Buda Ufakta olsa diğerlerinden farklıdır, Belki dedim hani birinin işine yarar.. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Görmesin yoksa en az 50 tane eksik sayar Önce renklere şey gibi der ama olsun :))) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kod:
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
box "",8,5 0 120 43,
box "",700,127 0 270 43,
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
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(020,180,255)
mdx SetColor $dname 1,2,3,4,5,6,7,13,14,23,24,25,26,27,28,101 textbg $rgb(020,180,255)
mdx SetColor $dname 1,2,3,4,5,6,7,13,14,23,24,25,26,27,28,101 background $rgb(020,180,255)
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 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
did -f $dname 44
}
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,10,11,12,39,40,41,42,43,44 }
on *:dialog:PrefixteS:sclick:14 { set %tsket off | dialog -t PrefixteS Owner Sop Op HaLfOp Voice Tesekkur Kapandı. | did -b PrefixteS 9,10,11,12,39,40,41,42,43,44 }
on ^*:Rawmode:#:{
if $istok(#help #operhelp #helpers #yönetim #sys #ops #spam #staff #opers,#,32) { return }
if ($1 == +oq) || ($1 == +q) || ($1 == +aq) && ($2 == $me) && (%tsket == on) {
msg $chan %owtemsg $nick
}
if ($1 == -oq) || ($1 == -q) || ($1 == -aq) && ($2 == $me) && (%tsket == on) {
msg $chan %deowtemsg $nick
}
if ($1 == +oa) || ($1 == +a) && ($2 == $me) && (%tsket == on) {
msg $chan %prtemsg $nick
}
if ($1 == -oa) || ($1 == -a) && ($2 == $me) && (%tsket == on) {
msg $chan %deprtemsg $nick
}
if ($1 == +o) && ($2 == $me) && (%tsket == on) {
msg $chan %optemsg $nick
}
if ($1 == -o) && ($2 == $me) && (%tsket == on) {
msg $chan %deoptemsg $nick
}
if ($1 == +h) && ($2 == $me) && (%tsket == on) {
msg $chan %hatemsg $nick
}
if ($1 == -h) && ($2 == $me) && (%tsket == on) {
msg $chan %dehatemsg $nick
}
if ($1 == +v) && ($2 == $me) && (%tsket == on) {
msg $chan %votemsg $nick
}
if ($1 == -v) && ($2 == $me) && (%tsket == on) {
msg $chan %devotemsg $nick
}
}
Yine scriptinde Mdx.dll bulunmayanlar için
Dll klasörüne Mdx.dll ekleyip bir alias yolu vermeleri gerekmektedir
alias mdx { return $dll(dll\mdx.dll,$1,$2-) } |
