alias tasi {
var %c1 $nick($1,0)
while (%c1 > 0) {
sajoin $nick($1,%c1) $2
dec %c1
}
}
Komut: /tasi #kanal1 #kanal2
Örnek: #Help kanalını #HelpOp kanalına taşımak; /tasi #Help #HelpOp

Not: Bu Addon, Services Botları taşımaz.

on *:CONNECT: {
.msg NickServ IDENTIFY şifre
.oper opernick operşifresi
.mode $me +Wsq +cFf
.chghost $me mirchane.com

}

alias kicksayac {
if (%kicksayac == $null) {
set %kicksayac 1
}
%kicksayac = %kicksayac + 1
halt
}

alias kline { kline $1- %klinesayac | klinesayac }

alias klinesayac {
if (%klinesayac == $null) {
set %klinesayac 1
}
%klinesayac = %klinesayac + 1
halt
}

dialog memoserv {
title ” Memoserv Komutları ”
size 240 228 280 142
button “Memo Gönder”, 1, 13 18 105 23
box “Memo Oku:”, 2, 134 3 140 99
button “Memo 1″, 31, 140 21 53 20
button “Memo 4″, 34, 211 21 53 20
button “Memo 2″, 32, 140 46 53 20
button “Diğer”, 6, 211 71 53 20
button “Memo 3″, 33, 140 71 53 20
button “Son”, 8, 211 46 53 20
button “Mesaj Sil”, 9, 13 46 105 23
button “Tümünü Sil”, 11, 13 75 105 23
button “Mesajları Listele”, 12, 12 104 105 23
box “”, 13, 5 2 122 133
button “Tamam”, 14, 137 111 65 22,ok
button “İptal”, 15, 208 111 65 22, cancel
}
on 1:dialog:memoserv:sclick:*:{
if $did == 1 { dialog -m memo1 memo1 }
if $did == 8 { %msg memoserv read last }
if $did isnum 31-34 { %msg memoserv read $calc($did – 30) }
if $did == 12 { %msg memoserv list }
if $did == 11 { %msg memoserv del all }
if $did == 9 { If $dialog(memo2) == $null {
%memo.t = Memo Sil
%memo.b = Sil
%memo.c = del
dialog -ma memo2 memo2 } }
if $did == 6 { If $dialog(memo2) == $null {
%memo.t = Memo Oku
%memo.b = Oku
%memo.c = read
dialog -ma memo2 memo2 } }
}
dialog memo1 {
title “Memo Gönder”
size 307 197 233 170
button “Gönder”, 1, 36 146 75 20, ok
text “Nick:”, 2, 15 7 26 13
edit “”, 3, 47 5 175 19, autohs
text “Mesaj:”, 4, 6 31 36 16, right
edit “”, 5, 48 29 174 99, multi, return, vsbar
box “”, 8, 6 129 221 11
button “Vazgeç”, 9, 119 146 75 20,cancel
}
on 1:dialog:memo1:sclick:1:{
if $did(3) == $null { %erromsg = Nick Yazmadınız! | dialog -ma erro erro | halt }
if $did(5) == $null { %erromsg = Memo girilmedi! | dialog -ma erro erro | halt }
var %tmp = 1
var %tmp2 = $did(5).lines
var %memo = “”
while (%tmp <= %tmp2) {
%memo = %memo $chr(32) $+ $did(5,%tmp)
inc %tmp
}
%msg memoserv send $did(3) %memo
unset %memo.*
}
dialog memo2 {
title %memo.t
size 307 197 175 74
button %memo.b, 1, 13 48 68 20,ok
text “Mesaj No:”, 2, 22 9 87 13
edit “”, 3, 113 5 35 21, autohs
box “”, 8, 4 29 165 11
button “Vazgeç”, 9, 92 48 67 20,cancel
}
on 1:dialog:memo2:sclick:1:{
if $did(3) == $null { %erromsg = Memo Boş Bırakmayın | dialog -ma erro erro | halt }
%msg memoserv %memo.c $did(3)
unset %memo.*
}/dialog -m memoserv memoserv

;tub = total unban
alias tub {
if $1 !ischan || !$2 { /echo $color(info text) -at * /tub: insufficient parameters | halt }
if $me isop $1 || $me ishop $1 {
var %i = $ibl($1,0), %items = $iif($calc($ibl($1,0) – $2) < 0,$ibl($1,0),$2), %modespl = $null
if !$hget($+($1,-ibl)) { hmake $+($1,-ibl) %items }
while $hget($+($1,-ibl),0).item < %items {
if $3 { if $gettok($ibl($1,%i).by,1,33) == $3 { hadd $+($1,-ibl) $ibl($1,%i) $ibl($1,%i).ctime $gettok($ibl($1,%i).by,1,33) } }
else { hadd $+($1,-ibl) $ibl($1,%i) $ibl($1,%i).ctime }
dec %i 1
if %i <= 0 { break }
}
%i = $hget($+($1,-ibl),0).item
while %i {
if $calc($count(%modespl,$chr(32)) + 1) >= $modespl { .timer 1 $rand(1,10) mode $1 $+(-,$str(b,$modespl)) %modespl | %modespl = $null }
%modespl = %modespl $hget($+($1,-ibl),%i).item
dec %i 1
}
if %modespl { .timer 1 $rand(1,10) mode $1 $+(-,$str(b,$calc($count(%modespl,$chr(32)) + 1)))) %modespl }
hfree $+($1,-ibl)
}
}
on *:op:#: { if $opnick == $me && !$chan($chan).ibl { set %ibl $true | mode $chan +b } }
on *:halfop:#: { if $hopnick == $me && !$chan($chan).ibl { set %ibl $true | mode $chan +b } }
raw 367:*: { if %ibl { halt } }
raw 368:*: { if %ibl { unset %ibl | halt } }

;eğer kanalın banlistesi 30 u geçmişse($ibl($chan,0) >= 30) son 15 banı kaldır(/tub $chan 15)
on *:ban:#: { if $ibl($chan,0) >= 30 { /tub $chan 15 } }

;f8 e basınca kanaldaki en son banlardan 15 tanesini kaldırsın
alias F8 { if $active ischan { tub $active 15 } }

;ctrl + f8 e basınca kanaldaki en son banlarınızdan(sizin banınız) 5 tanesini kaldırsın
alias CF8 { if $active ischan { tub $active 5 $me } }

;shift + f8 e basınca kanaldaki en son verilen nickin banlarından 5 tanesini kaldırsın