On 1:input:*:{
if ($1 == !degis) {
msg $chan Hemen degisiyorum.
.nick absolut
halt
}
}
‘Hazır Kodlar’ kategorisi için ArÅŸiv
!Degis nick
Cumartesi, 12 Eylül 2009Whois uyarıcısı
Cumartesi, 12 Eylül 2009on ^*:Snotice:*/whois*: {
.echo -a ( $+ $time $+ ) $$2 senin whois bilgilerine bakt?.
window @who 250 150 300 180 comic sans ms 12
.echo @who $timestamp $$2 senin whois bilgilerine bakt?
}
!Clear Kodu
Cuma, 11 Eylül 2009on *:text:*:#:{
if !clear isin $1 {
if $nick !isop $chan {
.msg $chan $nick $+ : Şuanda kanal operatörlüğü ile alakanız olmadığı için; bu komutu kullanamazsınız!
}
else {
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 0,0.
.msg $chan 12!Clear komutunu kullanan yetkili; 4 $nick
}
}
Nickserv Forbid Listesini BoÅŸaltmak
Çarşamba, 09 Eylül 2009Bütün Yasaklı Nickleri Tek 1 Komutla Kaldırmak
( Forbid Nick Çözümü)
Kullanımı : Mirc ALT+R yaparak Kodu Mırc Remotesine ekliyorsunuz ve aşagıdaki komutları yazıyorsunuz
komut: /remote on
komut: /ns list * forbidden
Kodlar:
on *:Notice:*:*: {
if ([Forbidden] isin $1-) && ($nick == NickServ) {
/NickServ DropNick $1
}
}
Forbid Listesini boşalttıktan sonra kodları silmeyi unutmayınız.
Mirc Kanala Giren Nickleri Listelemek
Çarşamba, 09 Eylül 2009Kanalınıza Giren Nickleri 1 txt sayfasinda Oto listelemek
Kod:
on *:join:#Kanalismi:{ /write nicklist.txt $nick }
örnek: on *:join:#Mirc:{ /write nicklist.txt $nick }
Mirc ALT+R Yaprak remote Kısmına Kodları ekliyorsunuz //run $mircdir yazdıgınızda nicklist.txt sayfasında kanala giren nickleri görebilirsiniz.
Topic’leri Bir Pencerede toplama
Çarşamba, 09 Eylül 2009- raw 333:*:{
window @Topick | .echo @Topick 7 $timestamp 2«|| 10Kanalın Kuruluş Tarihi2 ||»5 $asctime($4) 4 $2
window @Topick | .echo @Topick 7 $timestamp 2«|| 10Kanal Başlığını Yazan2 ||»5 $3
window @Topick | .echo @Topick 6************************* |10 TopicK Sonu 6| *************************
halt
}
raw 332:* { window @Topick | .echo @Topick 6************************* |10 $2 KanaL TOpick 6| *************************
window @Topick | .echo @Topick 7 $timestamp 2«|| 10Kanal Başlığı2 ||» $3- }
!op yazınca op vermek
Salı, 08 Eylül 2009- on *:text:*:#:if $istok(op voice,$1,32) && $2 && $nick isop # { mode # $+(+,$left($1,1)) $2 }
Mass Kodları
Salı, 08 Eylül 2009- massmsg {
set %msg $$?=”Mass msg girin?”
set %people 1
:loop
if ($nick(#,%people) == cs) { inc %people | goto loop | halt }
if ($nick(#,%people) == $me) { inc %people | goto loop | halt }
if ($nick(#,%people) == $opnick) { inc %people | goto loop | halt }
else { .msg $nick(#,%people) %msg }
inc %people
if ($nick(#,%people) == $null) { unset %msg | unset %people }
else { goto loop }
}
alias massop {
set %people 1
:loop
if ($nick(#,%people) == cs) { inc %people | goto loop | halt }
if ($nick(#,%people) == $me) { inc %people | goto loop | halt }
else { .mode $chan +o $nick(#,%people) }
inc %people
if ($nick(#,%people) == $null) { unset %people }
else { goto loop }
}
alias massdeop {
set %people 1
:loop
if ($nick(#,%people) == cs) { inc %people | goto loop | halt }
if ($nick(#,%people) == $me) { inc %people | goto loop | halt }
else { .mode $chan -o $nick(#,%people) }
inc %people
if ($nick(#,%people) == $null) { unset %people }
else { goto loop }
}
alias massvoice {
set %people 1
:loop
if ($nick(#,%people) == cs) { inc %people | goto loop | halt }
if ($nick(#,%people) == $me) { inc %people | goto loop | halt }
else { .mode $chan +v $nick(#,%people) }
inc %people
if ($nick(#,%people) == $null) { unset %people }
else { goto loop }
}
alias massdevoice {
set %people 1
:loop
if ($nick(#,%people) == cs) { inc %people | goto loop | halt }
if ($nick(#,%people) == $me) { inc %people | goto loop | halt }
else { .mode $chan -v $nick(#,%people) }
inc %people
if ($nick(#,%people) == $null) { unset %people }
else { goto loop }
}
alias masskick {
set %people 1
:loop
if ($nick(#,%people) == cs) { inc %people | goto loop | halt }
if ($nick(#,%people) == $me) { inc %people | goto loop | halt }
else { .kick $chan $nick(#,%people) (Script name) Mass Kick.. }
inc %people
if ($nick(#,%people) == $null) { unset %people }
else { goto loop }
}
alias massban {
set %people 1
:loop
if ($nick(#,%people) == cs) { inc %people | goto loop | halt }
if ($nick(#,%people) == $me) { inc %people | goto loop | halt }
else { .ban $nick(#,%people) }
inc %people
if ($nick(#,%people) == $null) { unset %people }
else { goto loop }
}
alias masskb {
set %people 1
:loop
if ($nick(#,%people) == cs) { inc %people | goto loop | halt }
if ($nick(#,%people) == $me) { inc %people | goto loop | halt }
else { .ban $nick(#,%people) | kick $chan $nick(#,%people) (-[(Fıkra Beta)]-) Mass KickBan… }
inc %people
if ($nick(#,%people) == $null) { unset %people}
else { goto loop }
}
}
alias massinv {
set %in $$?=”Örnek: #fıkra :”
set %people 1
:loop
if ($nick(#,%people) == cs) { inc %people | goto loop | halt }
if ($nick(#,%people) == $me) { inc %people | goto loop | halt }
if ($nick(#,%people) == $opnick) { inc %people | goto loop | halt }
else { .invite $nick(#,%people) %in }
inc %people
if ($nick(#,%people) == $null) { unset %massinv | unset %people | halt }
else { goto loop }
}
menu channel {
Mass Command
.Mass Msg:/massmsg
.Mass Invite:/massinv
.-
.Mass Op:/massop
.Mass Deop:/massdeop
.Mass Voice:/massvoice
.Mass Devoice:/massdevoice
.-
.Mass Ban:/massban
.Mass Kick Ban:/masskb
.Mass Kick:/masskick
}
/hopall
Cuma, 04 Eylül 2009- alias hopall { if !$dde(mirc, channels) { !.echo -a >! else { set %channels $replace($dde(mirc, channels),$chr(32),$chr(44)) | !.part %channels | !.join -n %channels }
}
Hızlı Kline Acma
Cuma, 04 Eylül 2009- alias RLN {
if ($1 = $null) {
echo -a Eksik parametre
echo -a /Rln -z Zline acmak için
echo -a /Rln -k Kline acmak için
echo -a /Rln -g Gline acmak için
}
if ($1 = -k) {
set %t -k
.enable #Line
stats k
}
if ($1 = -z) {
set %t -z
.enable #Line
stats k
}
if ($1 = -g) {
set %t -g
.enable #Line
stats g
}
}
#Line off
raw 223*:*:{
if ($1 = z ) || (%t = -z ) {
if (!$window(@Line)) { .window -bLe @Line }
else { echo @Line Acılan: %t $+ Line 5 $+ $3 }
zline – $+ $3
}
if ($1 = k ) || (%t = -k ) {
if (!$window(@Line)) { .window -bLe @Line }
else { echo @Line Acılan: %t $+ Line 5 $+ $3 }
kline – $+ $3
}
if ($1 = g ) || (%t = -g ) {
if (!$window(@Line)) { .window -bLe @Line }
else { echo @Line Acılan: %t $+ Line 5 $+ $3 }
gline – $+ $3
}
halt
}
raw 219*:*:{
unset %t
.echo @line 4,8 %t $+ line iÅŸlemi tamam
.timer 1 1 .disable #Line
halt
}
#Line off
alias kzgac {
RLN -k
RLN -z
RLN -g
}
menu channel,status,menubar,query {
-
«¤» eXtRa
.«¤» [?]LineLarı Ac
..«¤» kLineLarı Ac:/rln -k
..«¤» ZLineLarı Ac:/rln -z
..«¤» GLineLarı Ac:/rln -g
..«¤» (z-g-k) Hepsini Aç:/kzgac
}