Channel Moderator Kodu Yükle


Channel Moderator Kodu Yükle

;Product by Seo
alias channel {
if $active !ischan { echo -a 10[5CHANNEL Moderator10] 2için herhangi bir 1#kanal 2ekranında bulunmalısınız! | halt }
else {
set -e %difychan.ban $active
$iif($window(@Kanal),window -c @Kanal)
$iif($window(@dify),window -c @dify)
window -pad +lbn @Kanal 500 221 350 265
window -l44does +lnb @dify 576 245 267 138 Tahoma 9
set %dify.banlist Difuzyon
senkronize
}
}
alias senkronize {
$iif(!%dify.banlist,set %dify.nicklist Cenk)
var %y 0
while %y < 350 {
if %dify.banlist { drawline -r @Kanal $rgb(80,%y,150) 1 0 %y 350 %y }
elseif %dify.nicklist { drawline -r @Kanal $rgb(180,%y,50) 1 0 %y 350 %y }
inc %y
}
drawrect -fr @Kanal $rgb(84,255,159) 1 0 248 350 30
drawtext @Kanal 1 Rockwell 12 115 248 Product by Difuzyon
drawrect -fr @Kanal $iif(%dify.banlist,$rgb(0,130,189),$iif(%dify.nicklist,$rgb(184,180,0))) 1 0 253 5 13
drawrect -fr @Kanal $iif(%dify.banlist,$rgb(0,130,189),$iif(%dify.nicklist,$rgb(184,180,0))) 1 0 258 20 10
drawrect -fr @Kanal $iif(%dify.banlist,$rgb(0,130,189),$iif(%dify.nicklist,$rgb(184,180,0))) 1 329 258 20 10
drawrect -fr @Kanal $iif(%dify.banlist,$rgb(0,130,189),$iif(%dify.nicklist,$rgb(184,180,0))) 1 343 253 5 13
drawrect -f @Kanal 1 1 88 0 230 25
drawtext -o @Kanal 9 Tahoma 11 140 1 CHANNEL Moderator
drawline -r @Kanal $rgb(255,127,36) 2 76 0 76 23
drawline -r @Kanal $rgb(255,127,36) 2 76 0 140 17
drawline -r @Kanal $rgb(255,127,36) 2 140 17 252 17
drawline -r @Kanal $rgb(255,127,36) 2 252 16 316 0
drawline -r @Kanal $rgb(255,127,36) 2 316 0 316 23
drawline -r @Kanal $rgb(255,127,36) 2 316 23 76 23
drawline -r @Kanal $rgb(255,127,36) 2 316 21 76 21
drawline -r @Kanal $rgb(255,127,36) 2 316 19 76 19
drawline -r @Kanal $rgb(255,127,36) 8 316 0 252 19
drawline -r @Kanal $rgb(255,127,36) 2 316 0 252 20
drawline -r @Kanal $rgb(255,127,36) 8 316 0 252 26
drawline -r @Kanal $rgb(255,127,36) 8 316 0 252 36
drawline -r @Kanal $rgb(255,127,36) 8 316 0 252 44
drawline -r @Kanal $rgb(255,127,36) 8 316 0 252 52
drawline -r @Kanal $rgb(255,127,36) 8 316 0 252 60
drawline -r @Kanal $rgb(255,127,36) 8 316 0 316 68
drawline -r @Kanal $rgb(255,127,36) 8 316 0 316 76
drawline -r @Kanal $rgb(255,127,36) 8 316 0 316 84
drawline -r @Kanal $rgb(255,127,36) 8 316 0 316 92
drawrect -fr @Kanal $rgb(255,127,36) 1 295 5 25 20
drawline -r @Kanal $rgb(255,127,36) 4 81 0 138 17
drawline -r @Kanal $rgb(255,127,36) 8 79 0 132 17
drawline -r @Kanal $rgb(255,127,36) 8 79 0 126 17
drawline -r @Kanal $rgb(255,127,36) 8 79 0 120 17
drawline -r @Kanal $rgb(255,127,36) 8 79 0 114 17
drawline -r @Kanal $rgb(255,127,36) 8 79 0 108 17
drawline -r @Kanal $rgb(255,127,36) 8 79 0 102 17
drawline -r @Kanal $rgb(255,127,36) 8 79 0 96 17
drawline -r @Kanal $rgb(255,127,36) 3 306 0 260 14
drawrect -fr @Kanal $rgb(255,127,36) 1 76 2 20 22

drawrect -f @Kanal 1 1 316 0 25 25
drawtext -o @Kanal 4 Webdings 16 320 2 x

drawrect -fr @Kanal $rgb(255,127,36) 1 312 0 29 2
drawrect -f @Kanal 1 1 76 18 239 3

drawrect -fr @Kanal $rgb(255,127,36) 1 74 0 2 162
drawrect -fr @Kanal $rgb(255,127,36) 1 74 160 269 2
drawrect -fr @Kanal $rgb(255,127,36) 1 341 0 2 160
drawtext -op @Kanal 0 Tahoma 9 7 1 Kanal
drawtext @Kanal 0 Tahoma 9 2 14 %difychan.ban

drawrect -f @Kanal 15 1 76 25 265 130

$iif(%dify.banlist,drawrect -rdf @Kanal $rgb(250,150,50) 1 40 38 30 20)
$iif(%dify.banlist,drawrect -rdf @Kanal $rgb(250,150,50) 1 4 38 30 20)
$iif(%dify.banlist,drawtext @Kanal 1 Tahoma 10 10 42 Ekle)
$iif(%dify.banlist,drawtext -o @Kanal 1 Verdana 9 48 42 Sil)
drawrect -rf @Kanal $iif(%dify.banlist,$rgb(250,150,50),$iif(%dify.nicklist,$rgb(0,150,200))) 1 10 65 56 13
drawline @Kanal 1 1 11 78 66 78 66 65
drawtext @Kanal $iif(%dify.banlist,1,$iif(%dify.nicklist,0)) Tahoma 9 12 66 $iif(%dify.banlist,(+b)Ban List,$iif(%dify.nicklist,$+($str($chr(160),3),Ban (+b))))
drawrect -rf @Kanal $iif(%dify.banlist,$rgb(250,150,50),$iif(%dify.nicklist,$rgb(0,150,200))) 1 10 86 56 13
drawline @Kanal 1 1 11 99 66 99 66 86
drawtext @Kanal $iif(%dify.banlist,1,$iif(%dify.nicklist,0)) Tahoma 9 12 87 $iif(%dify.banlist,(+e)Exc. List,$iif(%dify.nicklist,$+($str($chr(160),6),Kick))))
drawrect -rf @Kanal $iif(%dify.banlist,$rgb(250,150,50),$iif(%dify.nicklist,$rgb(0,150,200))) 1 10 107 56 13
drawline @Kanal 1 1 11 120 66 120 66 107
drawtext @Kanal $iif(%dify.banlist,1,$iif(%dify.nicklist,0)) Tahoma 9 12 108 $iif(%dify.banlist,(+I)Inv. List,$iif(%dify.nicklist,$+($chr(160),Ban + Kick))))
drawrect -rf @Kanal $iif(%dify.banlist,$rgb(250,150,50),$iif(%dify.nicklist,$rgb(0,150,200))) 1 10 128 56 13
drawline @Kanal 1 1 11 141 66 141 66 128
drawtext @Kanal $iif(%dify.banlist,1,$iif(%dify.nicklist,0)) Tahoma 9 20 129 Güncelle
drawrect -rfd @Kanal $rgb(255,190,0) 1 13 150 50 18
drawtext -o @Kanal $iif(%dify.banlist,1,$iif(%dify.nicklist,4)) Tahoma 10 19 152 $iif(%dify.banlist,Nicklist,$iif(%dify.nicklist,Banlist))
drawrect  @Kanal 12 1 4 195 340 53
drawrect -d @Kanal 12 1 4 183 45 32
drawrect -fr @Kanal $rgb(155,195,205) 1 5 196 338 51
drawrect -dfr @Kanal $rgb(155,195,205) 1 5 186 43 25
drawrect -dfr @Kanal $rgb(35,155,255) 1 5 184 43 12
drawrect -fr @Kanal $rgb(35,155,255) 1 5 189 43 7
drawtext @Kanal 1 Tahoma 10 12 183 Topic
if %dify.banlist {
drawrect -rf @Kanal $rgb(155,155,255) 1 75 167 11 11
drawline @Kanal 1 1 75 178 86 178 86 167
drawtext @Kanal 12 Tahoma 9 72 181 [+c]
drawrect -rf @Kanal $rgb(155,155,255) 1 105 167 11 11
drawline @Kanal 1 1 105 178 116 178 116 167
drawtext @Kanal 12 Tahoma 9 103 181 [+i]
drawrect -rf @Kanal $rgb(155,155,255) 1 135 167 11 11
drawline @Kanal 1 1 135 178 146 178 146 167
drawtext @Kanal 12 Tahoma 9 133 181 [+l]
drawrect -rf @Kanal $rgb(155,155,255) 1 165 167 11 11
drawline @Kanal 1 1 165 178 176 178 176 167
drawtext @Kanal 12 Tahoma 9 162 181 [+k]
drawrect -rf @Kanal $rgb(155,155,255) 1 195 167 11 11
drawline @Kanal 1 1 195 178 206 178 206 167
drawtext @Kanal 12 Tahoma 9 190 181 [+m]
drawrect -rf @Kanal $rgb(155,155,255) 1 225 167 11 11
drawline @Kanal 1 1 225 178 236 178 236 167
drawtext @Kanal 12 Tahoma 9 222 181 [+s]
drawrect -rf @Kanal $rgb(155,155,255) 1 255 167 11 11
drawline @Kanal 1 1 255 178 266 178 266 167
drawtext @Kanal 12 Tahoma 9 251 181 [+M]
drawrect -rf @Kanal $rgb(155,155,255) 1 285 167 11 11
drawline @Kanal 1 1 285 178 296 178 296 167
drawtext @Kanal 12 Tahoma 9 281 181 [+N]
drawrect -rf @Kanal $rgb(155,155,255) 1 315 167 11 11
drawline @Kanal 1 1 315 178 326 178 326 167
drawtext @Kanal 12 Tahoma 9 312 181 [+R]
mode %difychan.ban +b
mode %difychan.ban
set %difyban.chan -b
}
elseif %dify.nicklist {
drawrect -rf @Kanal $rgb(155,255,55) 1 95 167 11 11
drawline @Kanal 1 1 95 178 106 178 106 167
drawtext @Kanal 1 Tahoma 9 89 181 IRCop
drawrect -rf @Kanal $rgb(155,255,55) 1 135 167 11 11
drawline @Kanal 1 1 135 178 146 178 146 167
drawtext @Kanal 1 Tahoma 9 132 181 [+q]
drawrect -rf @Kanal $rgb(155,255,55) 1 165 167 11 11
drawline @Kanal 1 1 165 178 176 178 176 167
drawtext @Kanal 1 Tahoma 9 162 181 [+a]
drawrect -rf @Kanal $rgb(155,255,55) 1 195 167 11 11
drawline @Kanal 1 1 195 178 206 178 206 167
drawtext @Kanal 1 Tahoma 9 192 181 [+o]
drawrect -rf @Kanal $rgb(155,255,55) 1 225 167 11 11
drawline @Kanal 1 1 225 178 236 178 236 167
drawtext @Kanal 1 Tahoma 9 222 181 [+h]
drawrect -rf @Kanal $rgb(155,255,55) 1 255 167 11 11
drawline @Kanal 1 1 255 178 266 178 266 167
drawtext @Kanal 1 Tahoma 9 251 181 [+v]
drawrect -rf @Kanal $rgb(155,255,55) 1 285 167 11 11
drawline @Kanal 1 1 285 178 296 178 296 167
drawtext @Kanal 1 Tahoma 9 282 181 [+e]
drawrect -rf @Kanal $rgb(155,255,55) 1 320 167 11 11
drawline @Kanal 1 1 320 178 331 178 331 167
drawtext @Kanal 1 Tahoma 9 313 181 Kayıtlı
who %difychan.ban
}
set %difyyeah 1340
if $chan(%difychan.ban).topic {
window -dphx @Cenk -7 -1 1600 250
drawfill -r @Cenk $rgb(155,195,205) $rgb(155,195,205) 1 1
drawtext -p @Cenk 1 $iif($len($chan(%difychan.ban).topic) > 290,”Times New Roman” -7,Tahoma -8) 1 1 $chan(%difychan.ban).topic
if %difyyeah > 0 { drawcopy -m @Cenk 1 1 $iif(%difyyeah < 335,$calc(%difyyeah -4),335) 13 @Kanal 5 196 | set %difyyeah $calc(%difyyeah -335) }
if %difyyeah > 0 { drawcopy -m @Cenk 336 1 $iif(%difyyeah < 335,$calc(%difyyeah -4),335) 13 @Kanal 6 208 | set %difyyeah $calc(%difyyeah -335) }
if %difyyeah > 0 { drawcopy -m @Cenk 671 1 $iif(%difyyeah < 335,$calc(%difyyeah -4),335) 13 @Kanal 6 221 | set %difyyeah $calc(%difyyeah -335) }
if %difyyeah > 0 { drawcopy -m @Cenk 1006 1 $iif(%difyyeah < 335,$calc(%difyyeah -4),335) 13 @Kanal 6 234 | set %difyyeah $calc(%difyyeah -335) }
window -c @Cenk
}
}
on *:input:@dify:{
if %difychan.mode.lrkm && $1 isnum { mode %difychan.ban +l $1 | drawtext -o @Kanal 4 Webdings 13 134 163 a | set %difychan.mode.l yeah | unset %difychan.mode.lrkm | editbox @dify (BİLGİ): %difychan.ban limit $1 olarak tanımlandı. }
elseif %difychan.mode.kşfr { mode %difychan.ban +k $remove($1,$chr(58),$chr(44)) | unset %difychan.mode.kşfr | drawtext -o @Kanal 4 Webdings 13 164 163 a | editbox @dify (BİLGİ): %difychan.ban şifre $remove($1,$chr(58),$chr(44)) olarak tanımlandı. | set -e %difychan.mode.k $remove($1,$chr(58),$chr(44)) }

elseif $left($1,1) != / { halt }
}
menu @dify {
lbclick:{
if %dify.nicklist {
drawrect -rf @Kanal $rgb(155,255,55) 1 95 167 11 11
drawline @Kanal 1 1 95 178 106 178 106 167
drawrect -rf @Kanal $rgb(155,255,55) 1 135 167 11 11
drawline @Kanal 1 1 135 178 146 178 146 167
drawrect -rf @Kanal $rgb(155,255,55) 1 165 167 11 11
drawline @Kanal 1 1 165 178 176 178 176 167
drawrect -rf @Kanal $rgb(155,255,55) 1 195 167 11 11
drawline @Kanal 1 1 195 178 206 178 206 167
drawrect -rf @Kanal $rgb(155,255,55) 1 225 167 11 11
drawline @Kanal 1 1 225 178 236 178 236 167
drawrect -rf @Kanal $rgb(155,255,55) 1 255 167 11 11
drawline @Kanal 1 1 255 178 266 178 266 167
drawrect -rf @Kanal $rgb(155,255,55) 1 285 167 11 11
drawline @Kanal 1 1 285 178 296 178 296 167
drawrect -rf @Kanal $rgb(155,255,55) 1 320 167 11 11
drawline @Kanal 1 1 320 178 331 178 331 167
unset %dify.nicklist | set %dify.nick.mode Difuzyon | who $right($token($fline(@dify,*,$1,1).text,1,32),-4)
if $regex($nick(%difychan.ban,$right($token($fline(@dify,*,$1,1).text,1,32),-4)).pnick,/([+%&@.~]+)/) {
if . isin $regml(1) { drawtext -o @Kanal 1 Webdings 13 134 163 a }
if ~ isin $regml(1) { drawtext -o @Kanal 1 Webdings 13 134 163 a }
if & isin $regml(1) { drawtext -o @Kanal 1 Webdings 13 164 163 a }
if @ isin $regml(1) { drawtext -o @Kanal 1 Webdings 13 194 163 a }
if % isin $regml(1) { drawtext -o @Kanal 1 Webdings 13 224 163 a }
if + isin $regml(1) { drawtext -o @Kanal 1 Webdings 13 254 163 a }
}
if $+($right($token($fline(@dify,*,$1,1).text,1,32),-4),!*@*) isexcept %difychan.ban { drawtext -o @Kanal 1 Webdings 13 284 163 a }
}
}
}
raw 352:*:{
if %dify.nicklist && $window(@dify) { aline -l @dify $+($chr(160),01,$6) $+(01,$chr(40),03,$3,01@07,$4,01,$chr(41)) $iif($regex($7,/G/),$+($chr(160),02,[Away])) | halt }
elseif %dify.nick.mode { if r isin $7 { drawtext -o @Kanal 1 Webdings 13 319 163 a } | if $regex($7,/*/) { drawtext -o @Kanal 1 Webdings 13 94 163 a } | unset %dify.nick.mode | set %dify.nicklist Difuzyon | halt }
}
raw 315:*:{
if %dify.nicklist && $window(@dify) { editbox @dify -[BİLGİ]- %difychan.ban Nicklist listelendi… | halt }
elseif %dify.nick.mode { halt }
}
raw 367:*:if %difyban.chan && $window(@dify) { aline -l @dify $+($chr(160),01,$token($asctime($5),4,32)) $+(12,$chr(40),$4,$chr(41)) $+(04,$3) | halt }
raw 368:*:if %difyban.chan && $window(@dify) { editbox @dify -[BILGI]-  %difychan.ban BANLIST listelendi… | halt }
raw 348:*:if %difyban.chan.exc && $window(@dify) { aline -l @dify $+($chr(160),14,$token($asctime($5),4,32)) $+(10,$chr(40),$4,$chr(41)) $+(05,$3) | halt }
raw 349:*:if %difyban.chan.exc && $window(@dify) { editbox @dify -[BILGI]-  %difychan.ban Ban Koruma (+e) Exceptions listelendi… | halt }
raw 346:*:if %difyban.chan.inv && $window(@dify) { aline -l @dify $+($chr(160),02,$token($asctime($5),4,32)) $+(07,$chr(40),$4,$chr(41)) $+(06,$3) | halt }
raw 347:*:if %difyban.chan.inv && $window(@dify) { editbox @dify -[BILGI]-  %difychan.ban Invite Koruma (+I) Invex listelendi… | halt }
raw 329:*:if %difychan.ban && $window(@dify) { halt }
raw 324:*:{
if %difychan.ban && $window(@dify) {
if $regex($3,/c/) { drawtext -o @Kanal 4 Webdings 13 74 163 a | set -e %difychan.mode.c yeah }
if $regex($3,/i/) { drawtext -o @Kanal 4 Webdings 13 104 163 a | set -e %difychan.mode.i yeah }
if $regex($3,/l/) { drawtext -o @Kanal 4 Webdings 13 134 163 a | set -e %difychan.mode.l yeah }
if $regex($3,/k/) { drawtext -o @Kanal 4 Webdings 13 164 163 a | set -e %difychan.mode.k $4 }
if $regex($3,/m/) { drawtext -o @Kanal 4 Webdings 13 194 163 a | set -e %difychan.mode.m yeah }
if $regex($3,/s/) { drawtext -o @Kanal 4 Webdings 13 224 163 a | set -e %difychan.mode.s yeah }
if $regex($3,/M/) { drawtext -o @Kanal 4 Webdings 13 254 163 a | set -e %difychan.mode.eM yeah }
if $regex($3,/N/) { drawtext -o @Kanal 4 Webdings 13 284 163 a | set -e %difychan.mode.eN yeah }
if $regex($3,/R/) { drawtext -o @Kanal 4 Webdings 13 314 163 a | set -e %difychan.mode.eR yeah }
halt
}
}
menu @Kanal {
mouse:{
if %dify.banlist { if $inrect($mouse.x,$mouse.y,75,167,11,11) { drawline @Kanal 9 1 75 178 86 178 86 167 } | else { drawline @Kanal 1 1 75 178 86 178 86 167 } }
if %dify.banlist { if $inrect($mouse.x,$mouse.y,105,167,11,11) { drawline @Kanal 9 1 105 178 116 178 116 167 } | else { drawline @Kanal 1 1 105 178 116 178 116 167 } }
if $inrect($mouse.x,$mouse.y,135,167,11,11) { drawline @Kanal 9 1 135 178 146 178 146 167 } | else { drawline @Kanal 1 1 135 178 146 178 146 167 }
if $inrect($mouse.x,$mouse.y,165,167,11,11) { drawline @Kanal 9 1 165 178 176 178 176 167 } | else { drawline @Kanal 1 1 165 178 176 178 176 167 }
if $inrect($mouse.x,$mouse.y,195,167,11,11) { drawline @Kanal 9 1 195 178 206 178 206 167 } | else { drawline @Kanal 1 1 195 178 206 178 206 167 }
if $inrect($mouse.x,$mouse.y,225,167,11,11) { drawline @Kanal 9 1 225 178 236 178 236 167 } | else { drawline @Kanal 1 1 225 178 236 178 236 167 }
if $inrect($mouse.x,$mouse.y,255,167,11,11) { drawline @Kanal 9 1 255 178 266 178 266 167 } | else { drawline @Kanal 1 1 255 178 266 178 266 167 }
if $inrect($mouse.x,$mouse.y,285,167,11,11) { drawline @Kanal 9 1 285 178 296 178 296 167 } | else { drawline @Kanal 1 1 285 178 296 178 296 167 }
if %dify.banlist { if $inrect($mouse.x,$mouse.y,315,167,11,11) { drawline @Kanal 9 1 315 178 326 178 326 167 } | else { drawline @Kanal 1 1 315 178 326 178 326 167 } }

if $inrect($mouse.x,$mouse.y,10,65,56,13) { drawline @Kanal 0 1 11 78 66 78 66 65 } | else { drawline @Kanal 1 1 11 78 66 78 66 65 }
if $inrect($mouse.x,$mouse.y,10,86,56,13) { drawline @Kanal 0 1 11 99 66 99 66 86 } | else { drawline @Kanal 1 1 11 99 66 99 66 86 }
if $inrect($mouse.x,$mouse.y,10,107,56,13) { drawline @Kanal 0 1 11 120 66 120 66 107 } | else { drawline @Kanal 1 1 11 120 66 120 66 107 }
if $inrect($mouse.x,$mouse.y,10,128,56,13) { drawline @Kanal 0 1 11 141 66 141 66 128 } | else { drawline @Kanal 1 1 11 141 66 141 66 128 }
}
sclick:{
if $mouse.x isnum 1-285 && $mouse.y isnum 1-20 { movevind $calc($mouse.dx -$window(@Kanal).x) $calc($mouse.dy -$window(@Kanal).y) }
if $mouse.x isnum 316-340 && $mouse.y isnum 3-21 { window -c @dify | window -c @Kanal }
if $inrect($mouse.x,$mouse.y,13,150,50,18) { if %dify.banlist { unset %dify.banlist | set %dify.nicklist Difuzyon } | elseif %dify.nicklist { unset %dify.nicklist | set %dify.banlist Cenk } | var %difzy $fline(@dify,*,0,1) | while %difzy >= 1 { dline -l @dify $fline(@dify,*,%difzy,1) | dec %difzy } | senkronize }
if %dify.nicklist {
if $inrect($mouse.x,$mouse.y,10,128,56,13) { var %difzy $fline(@dify,*,0,1) | while %difzy >= 1 { dline -l @dify $fline(@dify,*,%difzy,1) | dec %difzy } | who %difychan.ban | editbox @dify Kanal Nicklist listesi güncelleniyor.. }
if $inrect($mouse.x,$mouse.y,10,65,56,13) {
if $sline(@dify,0) == $null { editbox @dify (UYARI) Listbox’ta seçili bir nick yok ! }
if ($me ishop %difychan.ban || $me isop %difychan.ban || $regex($usermode,/o/)) {
if $sline(@dify,0) == 1 { mode %difychan.ban +b $right($token($sline(@dify,1),1,32),-4) }
elseif $sline(@dify,0) > 1 {
var %difzy $sline(@dify,0) | while %difzy >= 1 { set %difychan.add $addtok(%difychan.add,$right($token($sline(@dify,%difzy),1,32),-4),32) | dec %difzy } | goto yesbaby
:yesbaby
mode %difychan.ban $+(+,$str(b,$modespl)) $token(%difychan.add,$+(1-,$modespl),32) | set %difychan.add $deltok(%difychan.add,$+(1-,$modespl),32) | $iif(%difychan.add == $null,unset %difychan.add,goto yeahbaby)
editbox @dify (BİLGİ): Seçili durumdaki nickler banlandı.
}
}
}
if $inrect($mouse.x,$mouse.y,10,86,56,13) {
if $sline(@dify,0) == $null { editbox @dify (UYARI) Listbox’ta seçili bir nick yok ! }
if ($me ishop %difychan.ban || $me isop %difychan.ban || $regex($usermode,/o/)) {
if $sline(@dify,0) == 1 { kick %difychan.ban $right($token($sline(@dify,1),1,32),-4) | editbox @Dify Seçili olan nicke Kick uygulandı. }
elseif $sline(@dify,0) > 1 {
var %difzy $sline(@dify,0) | while %difzy >= 1 { kick %difychan.ban $right($token($sline(@dify,%difzy),1,32),-4) | dec %difzy }
editbox @dify (BİLGİ): Seçili durumdaki nicklere kick uygulandı.
}
}
}
if $inrect($mouse.x,$mouse.y,10,107,56,13) {
if $sline(@dify,0) == $null { editbox @dify (UYARI) Listbox’ta seçili bir nick yok ! }
if ($me ishop %difychan.ban || $me isop %difychan.ban || $regex($usermode,/o/)) {
if $sline(@dify,0) == 1 { ban -k %difychan.ban $right($token($sline(@dify,1),1,32),-4) 2 | editbox @Dify Seçili olan nicke Ban+Kick uygulandı. }
elseif $sline(@dify,0) > 1 {
var %difzy $sline(@dify,0) | while %difzy >= 1 { ban -k %difychan.ban $right($token($sline(@dify,%difzy),1,32),-4) 2 | dec %difzy }
editbox @dify (BİLGİ): Seçili durumdaki nicklere Ban+Kick uygulandı.
}
}
}
if $inrect($mouse.x,$mouse.y,10,107,56,13) { var %difzy $fline(@dify,*,0,1) | while %difzy >= 1 { dline -l @dify $fline(@dify,*,%difzy,1) | dec %difzy } | who %difychan.ban }
if $inrect($mouse.x,$mouse.y,135,167,11,11) {
if $sline(@dify,0) == $null { editbox @dify (UYARI) Listbox’ta seçili bir nick yok ! }
if $regex($nick(%difychan.ban,$me).pnick,/[~.]/) || $regex($usermode,/o/) {
if $sline(@dify,0) == 1 {
mode %difychan.ban $iif($regex($nick(%difychan.ban,$right($token($sline(@dify,1),1,32),-4)).pnick,/[~.]/),-q,+q) $right($token($sline(@dify,1),1,32),-4)
$iif(!$regex($nick(%difychan.ban,$right($token($sline(@dify,1),1,32),-4)).pnick,/[~.]/),drawtext -o @Kanal 1 Webdings 13 134 163 a,drawrect -rf @Kanal $rgb(155,255,55) 1 135 167 11 11)
editbox @Dify Seçili olan nicke -/+q uygulandı.
}
elseif $sline(@dify,0) > 1 {
var %difzy $sline(@dify,0) | while %difzy >= 1 { mode %difychan.ban $iif($regex($nick(%difychan.ban,$right($token($sline(@dify,%difzy),1,32),-4)).pnick,/[~.]/),-q,+q) $right($token($sline(@dify,%difzy),1,32),-4) | dec %difzy }
editbox @dify (BİLGİ): Seçili durumdaki nicklere -/+q uygulandı.
}
}
}
if $inrect($mouse.x,$mouse.y,165,167,11,11) {
if $sline(@dify,0) == $null { editbox @dify (UYARI) Listbox’ta seçili bir nick yok ! }
if $regex($nick(%difychan.ban,$me).pnick,/[~.]/) || $regex($usermode,/o/) {
if $sline(@dify,0) == 1 {
mode %difychan.ban $iif($regex($nick(%difychan.ban,$right($token($sline(@dify,1),1,32),-4)).pnick,/[&]/),-a,+a) $right($token($sline(@dify,1),1,32),-4)
$iif(!$regex($nick(%difychan.ban,$right($token($sline(@dify,1),1,32),-4)).pnick,/[&]/),drawtext -o @Kanal 1 Webdings 13 164 163 a,drawrect -rf @Kanal $rgb(155,255,55) 1 165 167 11 11)
editbox @Dify Seçili olan nicke -/+a uygulandı.
}
elseif $sline(@dify,0) > 1 {
var %difzy $sline(@dify,0) | while %difzy >= 1 { mode %difychan.ban $iif($regex($nick(%difychan.ban,$right($token($sline(@dify,%difzy),1,32),-4)).pnick,/[&]/),-a,+a) $right($token($sline(@dify,%difzy),1,32),-4) | dec %difzy }
editbox @dify (BİLGİ): Seçili durumdaki nicklere -/+a uygulandı.
}
}
}
if $inrect($mouse.x,$mouse.y,195,167,11,11) {
if $sline(@dify,0) == $null { editbox @dify (UYARI) Listbox’ta seçili bir nick yok ! }
if $regex($nick(%difychan.ban,$me).pnick,/[~.&@]/) || $regex($usermode,/o/) {
if $sline(@dify,0) == 1 {
mode %difychan.ban $iif($regex($nick(%difychan.ban,$right($token($sline(@dify,1),1,32),-4)).pnick,/[@]/),-o,+o) $right($token($sline(@dify,1),1,32),-4)
$iif(!$regex($nick(%difychan.ban,$right($token($sline(@dify,1),1,32),-4)).pnick,/[@]/),drawtext -o @Kanal 1 Webdings 13 194 163 a,drawrect -rf @Kanal $rgb(155,255,55) 1 195 167 11 11)
editbox @Dify Seçili olan nicke -/+o uygulandı.
}
elseif $sline(@dify,0) > 1 {
var %difzy $sline(@dify,0) | while %difzy >= 1 { mode %difychan.ban $iif($regex($nick(%difychan.ban,$right($token($sline(@dify,%difzy),1,32),-4)).pnick,/[@]/),-o,+o) $right($token($sline(@dify,%difzy),1,32),-4) | dec %difzy }
editbox @dify (BİLGİ): Seçili durumdaki nicklere -/+o uygulandı.
}
}
}
if $inrect($mouse.x,$mouse.y,225,167,11,11) {
if $sline(@dify,0) == $null { editbox @dify (UYARI) Listbox’ta seçili bir nick yok ! }
if $regex($nick(%difychan.ban,$me).pnick,/[~.&@]/) || $regex($usermode,/o/) {
if $sline(@dify,0) == 1 {
mode %difychan.ban $iif($regex($nick(%difychan.ban,$right($token($sline(@dify,1),1,32),-4)).pnick,/[%]/),-h,+h) $right($token($sline(@dify,1),1,32),-4)
$iif(!$regex($nick(%difychan.ban,$right($token($sline(@dify,1),1,32),-4)).pnick,/[%]/),drawtext -o @Kanal 1 Webdings 13 224 163 a,drawrect -rf @Kanal $rgb(155,255,55) 1 225 167 11 11)
editbox @Dify Seçili olan nicke -/+h uygulandı.
}
elseif $sline(@dify,0) > 1 {
var %difzy $sline(@dify,0) | while %difzy >= 1 { mode %difychan.ban $iif($regex($nick(%difychan.ban,$right($token($sline(@dify,%difzy),1,32),-4)).pnick,/[%]/),-h,+h) $right($token($sline(@dify,%difzy),1,32),-4) | dec %difzy }
editbox @dify (BİLGİ): Seçili durumdaki nicklere -/+h uygulandı.
}
}
}
if $inrect($mouse.x,$mouse.y,255,167,11,11) {
if $sline(@dify,0) == $null { editbox @dify (UYARI) Listbox’ta seçili bir nick yok ! }
if $regex($nick(%difychan.ban,$me).pnick,/[~.&@%]/) || $regex($usermode,/o/) {
if $sline(@dify,0) == 1 {
mode %difychan.ban $iif($regex($nick(%difychan.ban,$right($token($sline(@dify,1),1,32),-4)).pnick,/[+]/),-v,+v) $right($token($sline(@dify,1),1,32),-4)
$iif(!$regex($nick(%difychan.ban,$right($token($sline(@dify,1),1,32),-4)).pnick,/[+]/),drawtext -o @Kanal 1 Webdings 13 254 163 a,drawrect -rf @Kanal $rgb(155,255,55) 1 255 167 11 11)
editbox @Dify Seçili olan nicke -/+v uygulandı.
}
elseif $sline(@dify,0) > 1 {
var %difzy $sline(@dify,0) | while %difzy >= 1 { mode %difychan.ban $iif($regex($nick(%difychan.ban,$right($token($sline(@dify,%difzy),1,32),-4)).pnick,/[+]/),-v,+v) $right($token($sline(@dify,%difzy),1,32),-4) | dec %difzy }
editbox @dify (BİLGİ): Seçili durumdaki nicklere -/+v uygulandı.
}
}
}
if $inrect($mouse.x,$mouse.y,285,167,11,11) {
if $sline(@dify,0) == $null { editbox @dify (UYARI) Listbox’ta seçili bir nick yok ! }
if $regex($nick(%difychan.ban,$me).pnick,/[~.&@%]/) || $regex($usermode,/o/) {
if $sline(@dify,0) == 1 {
mode %difychan.ban $iif($+($right($token($sline(@dify,1),1,32),-4),!*@*) isexcept %difychan.ban,-e,+e) $right($token($sline(@dify,1),1,32),-4)
$iif($+($right($token($sline(@dify,1),1,32),-4),!*@*) !isexcept %difychan.ban,drawtext -o @Kanal 1 Webdings 13 284 163 a,drawrect -rf @Kanal $rgb(155,255,55) 1 285 167 11 11)
editbox @Dify Seçili olan nicke -/+e uygulandı.
}
elseif $sline(@dify,0) > 1 {
var %difzy $sline(@dify,0) | while %difzy >= 1 { mode %difychan.ban $iif($+($right($token($sline(@dify,%difzy),1,32),-4),!*@*) isexcept %difychan.ban,-e,+e) $right($token($sline(@dify,%difzy),1,32),-4) | dec %difzy }
editbox @dify (BİLGİ): Seçili durumdaki nicklere -/+v uygulandı.
}
}
}
}
if %dify.banlist {
if $inrect($mouse.x,$mouse.y,10,128,56,13) { var %difzy $fline(@dify,*,0,1) | while %difzy >= 1 { dline -l @dify $fline(@dify,*,%difzy,1) | dec %difzy } | mode %difychan.ban $replace($iif(%difyban.chan,%difyban.chan,$iif(%difyban.chan.exc,%difyban.chan.exc,$iif(%difyban.chan.inv,%difyban.chan.inv))),-,+) | mode %difychan.ban | editbox @dify Liste Güncelleniyor.. }
if $inrect($mouse.x,$mouse.y,10,107,56,13) { var %difzy $fline(@dify,*,0,1) | while %difzy >= 1 { dline -l @dify $fline(@dify,*,%difzy,1) | dec %difzy } | unset %difyban.chan* | set %difyban.chan.inv -I | mode %difychan.ban +I }
if $inrect($mouse.x,$mouse.y,10,86,56,13) { var %difzy $fline(@dify,*,0,1) | while %difzy >= 1 { dline -l @dify $fline(@dify,*,%difzy,1) | dec %difzy } | unset %difyban.chan* | set %difyban.chan.exc -e | mode %difychan.ban +e }
if $inrect($mouse.x,$mouse.y,10,65,56,13) { var %difzy $fline(@dify,*,0,1) | while %difzy >= 1 { dline -l @dify $fline(@dify,*,%difzy,1) | dec %difzy } | unset %difyban.chan* | set %difyban.chan -b | mode %difychan.ban +b }
if $inrect($mouse.x,$mouse.y,4,38,30,20) { editbox @dify Komut girdisini bu alana girebilirsiniz. | .timerdify -m 1 750 editbox @dify /mode $+(%difychan.ban,$chr(32)) }
if $inrect($mouse.x,$mouse.y,40,38,30,20) {
if $sline(@dify,0) == $null { editbox @dify (UYARI) Listbox’ta seçili bir öğe yok ! }
if ($me ishop %difychan.ban || $me isop %difychan.ban || $regex($usermode,/o/)) {
if $sline(@dify,0) == 1 { mode %difychan.ban $iif(%difyban.chan,%difyban.chan,$iif(%difyban.chan.exc,%difyban.chan.exc,$iif(%difyban.chan.inv,%difyban.chan.inv))) $right($token($sline(@dify,1),3,32),-3) | dline -l @dify $sline(@dify,1).ln | editbox @dify (BİLGİ): Seçili durumdaki öğe açıldı. }
elseif $sline(@dify,0) > 1 {
var %difzy $sline(@dify,0) | while %difzy >= 1 { set %difychan.add $addtok(%difychan.add,$right($token($sline(@dify,%difzy),3,32),-3),32) | dline -l @dify $sline(@dify,%difzy).ln | dec %difzy } | goto yeahbaby
:yeahbaby
mode %difychan.ban $str($iif(%difyban.chan,%difyban.chan,$iif(%difyban.chan.exc,%difyban.chan.exc,$iif(%difyban.chan.inv,%difyban.chan.inv))),$modespl) $token(%difychan.add,$+(1-,$modespl),32) | set %difychan.add $deltok(%difychan.add,$+(1-,$modespl),32) | $iif(%difychan.add == $null,unset %difychan.add,goto yeahbaby)
editbox @dify (BİLGİ): Seçili durumdaki öğeler açıldı.
}
}
}
if $inrect($mouse.x,$mouse.y,75,167,11,11) {
senk.ron
if !%difychan.mode.c {
if ($me isop %difychan.ban || $regex($usermode,/o/)) { mode %difychan.ban +c | drawtext -o @Kanal 4 Webdings 13 74 163 a | set -e %difychan.mode.c yeah | editbox @dify (BİLGİ): [+c] modesi %difychan.ban kanalına yüklendi. }
else { editbox @dify (UYARI) [+c] modesi için en az @Op düzeyinde olmalısınız }
}
else {
if ($me isop %difychan.ban || $regex($usermode,/o/)) { mode %difychan.ban -c | drawrect -rf @Kanal $rgb(155,155,255) 1 75 167 11 11 | unset %difychan.mode.c | editbox @dify (BİLGİ): [+c] %difychan.ban kanalında devre dışı bırakıldı }
else { editbox @dify (UYARI) [+c] modesi için en az @Op düzeyinde olmalısınız }
}
}
if $inrect($mouse.x,$mouse.y,105,167,11,11) {
senk.ron
if !%difychan.mode.i {
if ($me ishop %difychan.ban || $me isop %difychan.ban || $regex($usermode,/o/)) { mode %difychan.ban +i | drawtext -o @Kanal 4 Webdings 13 104 163 a | set -e %difychan.mode.i yeah | editbox @dify (BİLGİ): [+i] modesi %difychan.ban kanalına yüklendi. }
else { editbox @dify (UYARI) [+i] modesi için en az (%)Halfop düzeyinde olmalısınız }
}
else {
if ($me ishop %difychan.ban || $me isop %difychan.ban || $regex($usermode,/o/)) { mode %difychan.ban -i | drawrect -rf @Kanal $rgb(155,155,255) 1 105 167 11 11 | unset %difychan.mode.i | editbox @dify (BİLGİ): [+i] %difychan.ban kanalında devre dışı bırakıldı }
else { editbox @dify (UYARI) [+i] modesi için en az (%)Halfop düzeyinde olmalısınız }
}
}
if $inrect($mouse.x,$mouse.y,135,167,11,11) {
if !%difychan.mode.l {
unset %difychan.mode.kşfr
if ($me isop %difychan.ban || $regex($usermode,/o/)) { set -e %difychan.mode.lrkm yeah | editbox @dify (BİLGİ): Limit için bu alana rakam giriniz. }
else { editbox @dify (UYARI) [+l] modesi için en az @Op düzeyinde olmalısınız }
}
else {
if ($me isop %difychan.ban || $regex($usermode,/o/)) { mode %difychan.ban -l | drawrect -rf @Kanal $rgb(155,155,255) 1 135 167 11 11 | unset %difychan.mode.l* | editbox @dify (BİLGİ): [+l] %difychan.ban kanalında devre dışı bırakıldı }
else { editbox @dify (UYARI) [+l] modesi için en az @Op düzeyinde olmalısınız }
}
}
if $inrect($mouse.x,$mouse.y,165,167,11,11) {
if !%difychan.mode.k {
unset %difychan.mode.lrkm |
if ($me ishop %difychan.ban || $me isop %difychan.ban || $regex($usermode,/o/)) { set -e %difychan.mode.kşfr yeah | editbox @dify (BİLGİ): Şifreyi bu alana giriniz. }
else { editbox @dify (UYARI) [+k] modesi için en az (%)Halfop düzeyinde olmalısınız }
}
else {
if ($me ishop %difychan.ban || $me isop %difychan.ban || $regex($usermode,/o/)) { mode %difychan.ban -k %difychan.mode.k | drawrect -rf @Kanal $rgb(155,155,255) 1 165 167 11 11 | unset %difychan.mode.k* | editbox @dify (BİLGİ): [+k] %difychan.ban kanalında devre dışı bırakıldı }
else { editbox @dify (UYARI) [+k] modesi için en az (%)Halfop düzeyinde olmalısınız }
}
}
if $inrect($mouse.x,$mouse.y,195,167,11,11) {
senk.ron
if !%difychan.mode.m {
if ($me ishop %difychan.ban || $me isop %difychan.ban || $regex($usermode,/o/)) { mode %difychan.ban +m | drawtext -o @Kanal 4 Webdings 13 194 163 a | set -e %difychan.mode.m yeah | editbox @dify (BİLGİ): [+m] modesi %difychan.ban kanalına yüklendi. }
else { editbox @dify (UYARI) [+m] modesi için en az (%)Halfop düzeyinde olmalısınız }
}
else {
if ($me ishop %difychan.ban || $me isop %difychan.ban || $regex($usermode,/o/)) { mode %difychan.ban -m | drawrect -rf @Kanal $rgb(155,155,255) 1 195 167 11 11 | unset %difychan.mode.m | editbox @dify (BİLGİ): [+m] %difychan.ban kanalında devre dışı bırakıldı }
else { editbox @dify (UYARI) [+m] modesi için en az (%)Halfop düzeyinde olmalısınız }
}
}
if $inrect($mouse.x,$mouse.y,225,167,11,11) {
senk.ron
if !%difychan.mode.s {
if ($me isop %difychan.ban || $regex($usermode,/o/)) { mode %difychan.ban +s | drawtext -o @Kanal 4 Webdings 13 224 163 a | set -e %difychan.mode.s yeah | editbox @dify (BİLGİ): [+s] modesi %difychan.ban kanalına yüklendi. }
else { editbox @dify (UYARI) [+s] modesi için en az @Op düzeyinde olmalısınız }
}
else {
if ($me isop %difychan.ban || $regex($usermode,/o/)) { mode %difychan.ban -s | drawrect -rf @Kanal $rgb(155,155,255) 1 225 167 11 11 | unset %difychan.mode.s | editbox @dify (BİLGİ): [+s] %difychan.ban kanalında devre dışı bırakıldı }
else { editbox @dify (UYARI) [+s] modesi için en az @Op düzeyinde olmalısınız }
}
}
if $inrect($mouse.x,$mouse.y,255,167,11,11) {
senk.ron
if !%difychan.mode.eM {
if ($me isop %difychan.ban || $regex($usermode,/o/)) { mode %difychan.ban +M | drawtext -o @Kanal 4 Webdings 13 254 163 a | set -e %difychan.mode.eM yeah | editbox @dify (BİLGİ): [+M] modesi %difychan.ban kanalına yüklendi. }
else { editbox @dify (UYARI) [+M] modesi için en az @Op düzeyinde olmalısınız }
}
else {
if ($me isop %difychan.ban || $regex($usermode,/o/)) { mode %difychan.ban -M | drawrect -rf @Kanal $rgb(155,155,255) 1 255 167 11 11 | unset %difychan.mode.eM | editbox @dify (BİLGİ): [+M] %difychan.ban kanalında devre dışı bırakıldı }
else { editbox @dify (UYARI) [+M] modesi için en az @Op düzeyinde olmalısınız }
}
}
if $inrect($mouse.x,$mouse.y,285,167,11,11) {
senk.ron
if !%difychan.mode.eN {
if ($me isop %difychan.ban || $regex($usermode,/o/)) { mode %difychan.ban +N | drawtext -o @Kanal 4 Webdings 13 284 163 a | set -e %difychan.mode.eN yeah | editbox @dify (BİLGİ): [+N] modesi %difychan.ban kanalına yüklendi. }
else { editbox @dify (UYARI) [+N] modesi için en az @Op düzeyinde olmalısınız }
}
else {
if ($me isop %difychan.ban || $regex($usermode,/o/)) { mode %difychan.ban -N | drawrect -rf @Kanal $rgb(155,155,255) 1 285 167 11 11 | unset %difychan.mode.eN | editbox @dify (BİLGİ): [+N] %difychan.ban kanalında devre dışı bırakıldı }
else { editbox @dify (UYARI) [+N] modesi için en az @Op düzeyinde olmalısınız }
}
}
if $inrect($mouse.x,$mouse.y,315,167,11,11) {
senk.ron
if !%difychan.mode.eR {
if ($me isop %difychan.ban || $regex($usermode,/o/)) { mode %difychan.ban +R | drawtext -o @Kanal 4 Webdings 13 314 163 a | set -e %difychan.mode.eR yeah | editbox @dify (BİLGİ): [+R] modesi %difychan.ban kanalına yüklendi. }
else { editbox @dify (UYARI) [+R] modesi için en az @Op düzeyinde olmalısınız }
}
else {
if $me isop %difychan.ban { mode %difychan.ban -R | drawrect -rf @Kanal $rgb(155,155,255) 1 315 167 11 11 | unset %difychan.mode.eR | editbox @dify (BİLGİ): [+R] %difychan.ban kanalında devre dışı bırakıldı }
else { editbox @dify (UYARI) [+R] modesi için en az @Op düzeyinde olmalısınız }
}
}
}
}
}
alias -l senk.ron {
$iif(%difychan.mode.lrkm !isnum,unset %difychan.mode.lrkm)
$iif(%difychan.mode.kşfr == yeah,unset %difychan.mode.kşfr)
}
on *:close:@Kanal:window -c @dify
on *:kick:%difychan.ban:if $fline(@dify,$+(*,$knick,*),1,1) { dline -l @dify $fline(@dify,$+(*,$knick,$chr(32),*),1,1) }
On *:active:*: {
if ($active == @Kanal) { window -oh +b @dify }
if (!$regex($active,@Kanal|@dify)) { window -c @dify | window -c @Kanal | unset %dify* }
}
on 1:APPACTIVE: {
if $window(@Kanal) {
$iif($appactive == $false,window -uh @dify)
}
}
alias -l movevind {
if ($window(@Kanal)) {
window @Kanal $calc($mouse.dx -$1) $calc($mouse.dy -$2)
window @dify $calc($calc($mouse.dx -$1) +76) $calc($calc($mouse.dy -$2) +24)
if ($mouse.key & 1) {
.timermovewind 1 0 movevind $1-
}
}
}

Aralık 17, 2012 tarihinde Hazır Kodlar içinde yayınlandı ve , , , , , , , , , , , olarak etiketlendi. Kalıcı bağlantıyı yer imlerinize ekleyin. Yorum yapın.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: