IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

 Kayıt ol  Topluluk
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 22 Haziran 2009, 00:50   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
shitlist + 'shitlist' Geçersiz id 'aksi'



Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on *:load: {
set %aaslban1 1
set %aaslban2 0
set %aaslban3 1
set %aaslban4 0
set %aaslban5 0
set %aaslban6 0
set %aaslscanono 0
set %aaslscanall 1
set %aaslreason shitlisted
set %aaslkickc 1
set %aaslkickn 1
set %aaslstatus 1
set %aaslwho 1
set %aaslwhos 1
.enable #aashit
+shitlist
}
 on *:unload: {
unset %aasl*
}
 alias +shitlist { if !$dialog(shitlist) { dialog -m shitlist shitlist } }
dialog shitlist {
title “Shitlist (- Edit by RNA -)”
size -1 -1 152 170
option dbu
tab “Kullanıcılar”, 100, 1 1 150 153
box “”, 1, 4 14 145 137, tab 100
list 2, 7 21 139 63, size vsbar hsbar tab 100
text “*Mask*:”, 17, 7 86 20 8, tab 100
edit “”, 3, 30 85 116 10, autohs tab 100
text “Sebep (Otomatik için boş bırakın):”, 8, 7 97 90 8, tab 100
edit “”, 10, 7 105 139 10, autohs tab 100
text “Kanallar (Boşsa tüm kanallar için):”, 4, 7 117 100 8, tab 100
edit “”, 5, 7 125 139 10, autohs tab 100
button “Ekle”, 12, 7 138 69 10, tab 100
button “Sil”, 13, 77 138 69 10, tab 100
tab “Ayarlar”, 101
box “”, 20, 4 14 145 137, tab 101
text “Bu mask’ları listeye ekle (Nick listesinin içinden):”, 21, 7 21 120 8, tab 101
check “nick!*@*”, 22, 7 30 50 8, tab 101
check “*!*user@*”, 23, 70 30 50 8, tab 101
check “*!*user@host”, 24, 7 40 50 8, tab 101
check “*!*@host”, 25, 70 40 50 8, tab 101
check “*!*user@*.host”, 26, 7 50 50 8, tab 101
check “*!*@*.host”, 27, 70 50 50 8, tab 101
text “NOT:: *Mask* tiplerinin bu şekilde olması önerilir, aksi halde durmadan kanalı tararsınız.”, 28, 7 60 130 16, tab 101
check “Ben op’ken userlar için tara”, 29, 7 78 100 8, tab 101
check “User eklediğimde bütün kanalları tara”, 30, 7 91 110 8, tab 101
text “Otomatik Kick Mesajı (Boş bırakırsanız ‘Shitlist’ olacak):”, 31, 7 104 130 8, tab 101
edit “”, 32, 7 114 139 10, tab 101
check “Girince ‘/who’ çek”, 34, 7 127 50 10, tab 101
check “‘/who’ bilgilerini gösterme”, 35, 70 127 62 10, tab 101
check “Shitlist’i Aç/kapa”, 14, 7 138 50 10, tab 101
check “Kick Sayacı”, 33, 70 138 50 10, tab 101
button “Tamam”, 16, 31 158 45 10, default ok
button “Beni Oku”, 200, 77 158 45 10
}
 on *:dialog:shitlist:sclick:*: {
if $did == 2 {
did -ra $dname 3 $did(2).seltext
did -ra $dname 5 $gettok($ulist($did(2).seltext).info,2,9)
did -ra $dname 10 $gettok($ulist($did(2).seltext).info,1,9)
}
if $did == 13 {
ruser aaslu $did(2).seltext
did -r $dname 3,5,10
did -d $dname 2 $did(2).sel
}
if $did == 12 {
if $did(3).text != $null {
auser aaslu $iif(* isin $did(3).text,$did(3).text,$did(3).text $+ !*@*) $iif($did(10).text != $null,$did(10).text,Shitlisted) $chr(9) $iif($did(5).text != $null,$did(5).text)
did -r $dname 2
shit.addlist
}
did -r $dname 3,5,10
}
if $did == 14 {
if $did(14).state == 1 {
.enable #aashit
set %aaslstatus 1
}
if $did(14).state == 0 {
.disable #aashit
set %aaslstatus 0
}
}
if $did == 16 {
$iif($did(22).state == 1,set %aaslban1 1,set %aaslban1 0)
$iif($did(23).state == 1,set %aaslban2 1,set %aaslban2 0)
$iif($did(24).state == 1,set %aaslban3 1,set %aaslban3 0)
$iif($did(25).state == 1,set %aaslban4 1,set %aaslban4 0)
$iif($did(26).state == 1,set %aaslban5 1,set %aaslban5 0)
$iif($did(27).state == 1,set %aaslban6 1,set %aaslban6 0)
$iif($did(29).state == 1,set %aaslscanono 1,set %aaslscanono 0)
$iif($did(30).state == 1,set %aaslscanall 1,set %aaslscanall 0)
$iif($did(32).text != $null,set %aaslreason $did(32).text,set %aaslreason shitlisted)
$iif($did(33).state == 1,set %aaslkickc 1,set %aaslkickc 0)
$iif($did(34).state == 1,set %aaslwho 1,set %aaslwho 0)
$iif($did(35).state == 1,set %aaslwhos 1,set %aaslwhos 0)
}
if $did == 200 {
run $findfile($mircdir,aasl_readme.txt,1)
}
}
 on *:dialog:shitlist:init:*: {
shit.addlist
if %aaslstatus == 1 { did -c $dname 14 }
if %aaslban1 == 1 { did -c $dname 22 }
if %aaslban2 == 1 { did -c $dname 23 }
if %aaslban3 == 1 { did -c $dname 24 }
if %aaslban4 == 1 { did -c $dname 25 }
if %aaslban5 == 1 { did -c $dname 26 }
if %aaslban6 == 1 { did -c $dname 27 }
if %aaslscanono == 1 { did -c $dname 29 }
if %aaslscanall == 1 { did -c $dname 30 }
if %aaslkickc == 1 { did -c $dname 33 }
if %aaslwho == 1 { did -c $dname 34 }
if %aaslwhos == 1 { did -c $dname 35 }
did -a $dname 32 %aaslreason
}
 alias shit.addlist {
var %a $ulist(*,aaslu,0)
while (%a >= 1) {
did -a shitlist 2 $ulist(*,aaslu,%a)
dec %a
}
}
 menu channel {
-
Shitlist
.Shitlist:/+shitlist
.-
.$iif(($me isop #) && ($group(#aashit).status == on),Scan users):/aaslscan #
-
}
 menu menubar {
-
Shitlist
.Aç:/+shitlist
.-
.Beni Oku/Yardım:/run $findfile($mircdir,aasl_readme.txt,1)
.-
.Shitlist’i Sil:/unload -rs aasl.mrc
-
}
 raw 315:*: {
if %aaslscan == on { aaslscan $2 | unset %aaslscan }
if %aaslwhos == 1 { haltdef }
}
 raw 352:*: {
if %aaslwhos == 1 { haltdef }
}
 #aashit on
menu nicklist {
-
Shitlist
.Ekle $$1
..*mask* ‘ları belirt {
set %aaslr $?=”Sebep:”
$iif(%aaslban1 == 1,auser aaslu $$1 $+ !*@* $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9))
$iif(%aaslban2 == 1,auser aaslu $gettok($address($$1,1),1,64) $+ @* $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9))
$iif(%aaslban3 == 1,auser aaslu $address($$1,1) $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9))
$iif(%aaslban4 == 1,auser aaslu $address($$1,2) $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9))
$iif(%aaslban5 == 1,auser aaslu $address($$1,3) $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9))
$iif(%aaslban6 == 1,auser aaslu $address($$1,4) $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9))
aaslkick $chan $$1 $iif(%aaslr != $null,%aaslr,%aaslreason)
unset %aaslr
}
..-
..$$1 $+ !*@* {
set %aaslr $?=”Sebep:”
auser aaslu $$1 $+ !*@* $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9)
aaslkick $chan $$1 $iif(%aaslr != $null,%aaslr,%aaslreason)
unset %aaslr
}
..$gettok($address($$1,1),1,64) $+ @* {
set %aaslr $?=”Sebep:”
auser aaslu $gettok($address($$1,1),1,64) $+ @* $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9)
aaslkick $chan $$1 $iif(%aaslr != $null,%aaslr,%aaslreason)
unset %aaslr
}
..$address($$1,1) {
set %aaslr $?=”Sebep:”
auser aaslu $address($$1,1) $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9)
aaslkick $chan $$1 $iif(%aaslr != $null,%aaslr,%aaslreason)
unset %aaslr
}
..$address($$1,2) {
set %aaslr $?=”Sebep:”
auser aaslu $address($$1,2) $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9)
aaslkick $chan $$1 $iif(%aaslr != $null,%aaslr,%aaslreason)
unset %aaslr
}
..$address($$1,3) {
set %aaslr $?=”Sebep:”
auser aaslu $address($$1,3) $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9)
aaslkick $chan $$1 $iif(%aaslr != $null,%aaslr,%aaslreason)
unset %aaslr
}
..$address($$1,4) {
set %aaslr $?=”Sebep:”
auser aaslu $address($$1,4) $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9)
aaslkick $chan $$1 $iif(%aaslr != $null,%aaslr,%aaslreason)
unset %aaslr
}
-
}
 alias -l aaslkick {
if %aaslscanall == 1 {
var %c 1
while (%c <= $comchan($2,0)) {
if $me isop $comchan($2,%c) {
mode $comchan($2,%c) +b $address($2,1)
kick $comchan($2,%c) $2 $3- $iif(%aaslkickc == 1,< $+ %aaslkickn $+ >)
}
inc %c
}
}
else {
if $me isop $chan {
mode $1 +b $address($2,1)
kick $1 $2 $3- $iif(%aaslkickc == 1,< $+ %aaslkickn $+ >)
}
}
}
 on *:kick:#: {
if $nick == $me {
inc %aaslkickn
}
}
 on @*:join:#: {
if ($level($fulladdress) == aaslu) {
if (# isin $gettok($ulist($fulladdress).info,2,9)) || ($gettok($ulist($fulladdress).info,2,9) == $null) {
mode # +b $address($nick,1)
kick # $nick $gettok($ulist($fulladdress).info,1,9) $iif(%aaslkickc == 1,< $+ %aaslkickn $+ >)
}
}
}
 on *:join:#: {
if $nick == $me {
if %aaslwho == 1 {
who #
}
}
}
 on *:op:#: {
if $opnick == $me {
if %aaslscanono == 1 {
aaslscan #
}
}
}
 on *:nick: {
if ($level($address($newnick,5)) == aaslu) {
var %c 1
while (%c <= $comchan($newnick,0)) {
if $me isop $comchan($newnick,%c) {
if ($comchan($newnick,%c) isin $gettok($ulist($address($newnick,5)).info,2,9)) || ($gettok($ulist($address($newnick,5)).info,2,9) == $null) {
mode $comchan($newnick,%c) +b $address($newnick,1)
kick $comchan($newnick,%c) $newnick $gettok($ulist($address($newnick,5)).info,1,9) $iif(%aaslkickc == 1,< $+ %aaslkickn $+ >)
}
}
inc %c
}
}
}
 alias aaslscan {
if $me isop $1 {
if ($chan($1).ial == $false) {
.ial on
set %aaslscan on
who $1
echo -a 10:: 12Lütfen bekleyin. while /who $1 $+  Komut işleniyor…
}
else {
var %n 1
while (%n <= $nick($1,0)) {
var %u 1
while (%u <= $ulist(*,aaslu,0)) {
if ($ulist(*,aaslu,%u) iswm $address($nick($1,%n),5)) {
if ($1 isin $gettok($ulist(*,aaslu,%u).info,2,9)) || ($gettok($ulist(*,aaslu,%u).info,2,9) == $null) {
mode $1 +b $address($nick($1,%n),1)
if $nick($1,%n) ison $1 {
kick $1 $nick($1,%n) $gettok($ulist($address($nick($1,%n),5)).info,1,9) $iif(%aaslkickc == 1,< $+ %aaslkickn $+ >)
}
}
}
inc %u
}
inc %n
}
}
}
}
#aashit end

yukardaki kodu çalıştırınca
* /dialog: 'shitlist' Geçersiz id 'aksi' (Satır 24, script1.ini)
hatası alıyorum
sorun nerde ?

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 22 Haziran 2009, 05:45   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: shitlist + 'shitlist' Geçersiz id 'aksi'



Kodu aldıgın yerde diyalogdaki Tırnak işaretleri("") ile ilgili bir sorun vardı sanırım farklı cıkmış karakterler düzelttim onları alabilirsin şimdi çalışıyor..

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:load: {
  set %aaslban1 1
  set %aaslban2 0
  set %aaslban3 1
  set %aaslban4 0
  set %aaslban5 0
  set %aaslban6 0
  set %aaslscanono 0
  set %aaslscanall 1
  set %aaslreason shitlisted
  set %aaslkickc 1
  set %aaslkickn 1
  set %aaslstatus 1
  set %aaslwho 1
  set %aaslwhos 1
  .enable #aashit
  +shitlist
}
on *:unload: {
  unset %aasl*
}
alias +shitlist { if !$dialog(shitlist) { dialog -m shitlist shitlist } }
dialog shitlist {
  title "Shitlist (- Edit by RNA -)"
  size -1 -1 152 170
  option dbu
  tab "Kullanıcılar", 100, 1 1 150 153
  box "", 1, 4 14 145 137, tab 100
  list 2, 7 21 139 63, size vsbar hsbar tab 100
  text "*Mask*:", 17, 7 86 20 8, tab 100
  edit "", 3, 30 85 116 10, autohs tab 100
  text "Sebep (Otomatik için boş bırakın):", 8, 7 97 90 8, tab 100
  edit "", 10, 7 105 139 10, autohs tab 100
  text "Kanallar (Boşsa tüm kanallar için):", 4, 7 117 100 8, tab 100
  edit "", 5, 7 125 139 10, autohs tab 100
  button "Ekle", 12, 7 138 69 10, tab 100
  button "Sil", 13, 77 138 69 10, tab 100
  tab "Ayarlar", 101
  box "", 20, 4 14 145 137, tab 101
  text "Bu mask’ları listeye ekle (Nick listesinin içinden):", 21, 7 21 120 8, tab 101
  check "nick!*@*", 22, 7 30 50 8, tab 101
  check "*!*user@*", 23, 70 30 50 8, tab 101
  check "*!*user@host", 24, 7 40 50 8, tab 101
  check "*!*@host", 25, 70 40 50 8, tab 101
  check “*!*user@*.host", 26, 7 50 50 8, tab 101
  check "*!*@*.host", 27, 70 50 50 8, tab 101
  text "NOT:: *Mask* tiplerinin bu şekilde olması önerilir, aksi halde durmadan kanalı tararsınız.", 28, 7 60 130 16, tab 101
  check "Ben op’ken userlar için tara", 29, 7 78 100 8, tab 101
  check "User eklediğimde bütün kanalları tara", 30, 7 91 110 8, tab 101
  text "Otomatik Kick Mesajı (Boş bırakırsanız ‘Shitlist’ olacak):", 31, 7 104 130 8, tab 101
  edit "", 32, 7 114 139 10, tab 101
  check "Girince ‘/who’ çek", 34, 7 127 50 10, tab 101
  check "‘/who’ bilgilerini gösterme", 35, 70 127 62 10, tab 101
  check "Shitlist’i Aç/kapa", 14, 7 138 50 10, tab 101
  check "Kick Sayacı", 33, 70 138 50 10, tab 101
  button "Tamam", 16, 31 158 45 10, default ok
  button "Beni Oku", 200, 77 158 45 10
}
on *:dialog:shitlist:sclick:*: {
  if $did == 2 {
    did -ra $dname 3 $did(2).seltext
    did -ra $dname 5 $gettok($ulist($did(2).seltext).info,2,9)
    did -ra $dname 10 $gettok($ulist($did(2).seltext).info,1,9)
  }
  if $did == 13 {
    ruser aaslu $did(2).seltext
    did -r $dname 3,5,10
    did -d $dname 2 $did(2).sel
  }
  if $did == 12 {
    if $did(3).text != $null {
      auser aaslu $iif(* isin $did(3).text,$did(3).text,$did(3).text $+ !*@*) $iif($did(10).text != $null,$did(10).text,Shitlisted) $chr(9) $iif($did(5).text != $null,$did(5).text)
      did -r $dname 2
      shit.addlist
    }
    did -r $dname 3,5,10
  }
  if $did == 14 {
    if $did(14).state == 1 {
      .enable #aashit
      set %aaslstatus 1
    }
    if $did(14).state == 0 {
      .disable #aashit
      set %aaslstatus 0
    }
  }
  if $did == 16 {
    $iif($did(22).state == 1,set %aaslban1 1,set %aaslban1 0)
    $iif($did(23).state == 1,set %aaslban2 1,set %aaslban2 0)
    $iif($did(24).state == 1,set %aaslban3 1,set %aaslban3 0)
    $iif($did(25).state == 1,set %aaslban4 1,set %aaslban4 0)
    $iif($did(26).state == 1,set %aaslban5 1,set %aaslban5 0)
    $iif($did(27).state == 1,set %aaslban6 1,set %aaslban6 0)
    $iif($did(29).state == 1,set %aaslscanono 1,set %aaslscanono 0)
    $iif($did(30).state == 1,set %aaslscanall 1,set %aaslscanall 0)
    $iif($did(32).text != $null,set %aaslreason $did(32).text,set %aaslreason shitlisted)
    $iif($did(33).state == 1,set %aaslkickc 1,set %aaslkickc 0)
    $iif($did(34).state == 1,set %aaslwho 1,set %aaslwho 0)
    $iif($did(35).state == 1,set %aaslwhos 1,set %aaslwhos 0)
  }
  if $did == 200 {
    run $findfile($mircdir,aasl_readme.txt,1)
  }
}
on *:dialog:shitlist:init:*: {
  shit.addlist
  if %aaslstatus == 1 { did -c $dname 14 }
  if %aaslban1 == 1 { did -c $dname 22 }
  if %aaslban2 == 1 { did -c $dname 23 }
  if %aaslban3 == 1 { did -c $dname 24 }
  if %aaslban4 == 1 { did -c $dname 25 }
  if %aaslban5 == 1 { did -c $dname 26 }
  if %aaslban6 == 1 { did -c $dname 27 }
  if %aaslscanono == 1 { did -c $dname 29 }
  if %aaslscanall == 1 { did -c $dname 30 }
  if %aaslkickc == 1 { did -c $dname 33 }
  if %aaslwho == 1 { did -c $dname 34 }
  if %aaslwhos == 1 { did -c $dname 35 }
  did -a $dname 32 %aaslreason
}
alias shit.addlist {
  var %a $ulist(*,aaslu,0)
  while (%a >= 1) {
    did -a shitlist 2 $ulist(*,aaslu,%a)
    dec %a
  }
}
menu channel {
  -
  Shitlist
  .Shitlist:/+shitlist
  .-
  .$iif(($me isop #) && ($group(#aashit).status == on),Scan users):/aaslscan #
  -
}
menu menubar {
  -
  Shitlist
  .Aç:/+shitlist
  .-
  .Beni Oku/Yardım:/run $findfile($mircdir,aasl_readme.txt,1)
  .-
  .Shitlist’i Sil:/unload -rs aasl.mrc
  -
}
raw 315:*: {
  if %aaslscan == on { aaslscan $2 | unset %aaslscan }
  if %aaslwhos == 1 { haltdef }
}
raw 352:*: {
  if %aaslwhos == 1 { haltdef }
}
#aashit on
menu nicklist {
  -
  Shitlist
  .Ekle $$1
  ..*mask* ‘ları belirt {
    set %aaslr $?=”Sebep:”
    $iif(%aaslban1 == 1,auser aaslu $$1 $+ !*@* $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9))
    $iif(%aaslban2 == 1,auser aaslu $gettok($address($$1,1),1,64) $+ @* $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9))
    $iif(%aaslban3 == 1,auser aaslu $address($$1,1) $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9))
    $iif(%aaslban4 == 1,auser aaslu $address($$1,2) $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9))
    $iif(%aaslban5 == 1,auser aaslu $address($$1,3) $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9))
    $iif(%aaslban6 == 1,auser aaslu $address($$1,4) $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9))
    aaslkick $chan $$1 $iif(%aaslr != $null,%aaslr,%aaslreason)
    unset %aaslr
  }
  ..-
  ..$$1 $+ !*@* {
    set %aaslr $?=”Sebep:”
    auser aaslu $$1 $+ !*@* $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9)
    aaslkick $chan $$1 $iif(%aaslr != $null,%aaslr,%aaslreason)
    unset %aaslr
  }
  ..$gettok($address($$1,1),1,64) $+ @* {
    set %aaslr $?=”Sebep:”
    auser aaslu $gettok($address($$1,1),1,64) $+ @* $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9)
    aaslkick $chan $$1 $iif(%aaslr != $null,%aaslr,%aaslreason)
    unset %aaslr
  }
  ..$address($$1,1) {
    set %aaslr $?=”Sebep:”
    auser aaslu $address($$1,1) $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9)
    aaslkick $chan $$1 $iif(%aaslr != $null,%aaslr,%aaslreason)
    unset %aaslr
  }
  ..$address($$1,2) {
    set %aaslr $?=”Sebep:”
    auser aaslu $address($$1,2) $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9)
    aaslkick $chan $$1 $iif(%aaslr != $null,%aaslr,%aaslreason)
    unset %aaslr
  }
  ..$address($$1,3) {
    set %aaslr $?=”Sebep:”
    auser aaslu $address($$1,3) $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9)
    aaslkick $chan $$1 $iif(%aaslr != $null,%aaslr,%aaslreason)
    unset %aaslr
  }
  ..$address($$1,4) {
    set %aaslr $?=”Sebep:”
    auser aaslu $address($$1,4) $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9)
    aaslkick $chan $$1 $iif(%aaslr != $null,%aaslr,%aaslreason)
    unset %aaslr
  }
  -
}
alias -l aaslkick {
  if %aaslscanall == 1 {
    var %c 1
    while (%c <= $comchan($2,0)) {
      if $me isop $comchan($2,%c) {
        mode $comchan($2,%c) +b $address($2,1)
        kick $comchan($2,%c) $2 $3- $iif(%aaslkickc == 1,< $+ %aaslkickn $+ >)
      }
      inc %c
    }
  }
  else {
    if $me isop $chan {
      mode $1 +b $address($2,1)
      kick $1 $2 $3- $iif(%aaslkickc == 1,< $+ %aaslkickn $+ >)
    }
  }
}
on *:kick:#: {
  if $nick == $me {
    inc %aaslkickn
  }
}
on @*:join:#: {
  if ($level($fulladdress) == aaslu) {
    if (# isin $gettok($ulist($fulladdress).info,2,9)) || ($gettok($ulist($fulladdress).info,2,9) == $null) {
      mode # +b $address($nick,1)
      kick # $nick $gettok($ulist($fulladdress).info,1,9) $iif(%aaslkickc == 1,< $+ %aaslkickn $+ >)
    }
  }
}
on *:join:#: {
  if $nick == $me {
    if %aaslwho == 1 {
      who #
    }
  }
}
on *:op:#: {
  if $opnick == $me {
    if %aaslscanono == 1 {
      aaslscan #
    }
  }
}
on *:nick: {
  if ($level($address($newnick,5)) == aaslu) {
    var %c 1
    while (%c <= $comchan($newnick,0)) {
      if $me isop $comchan($newnick,%c) {
        if ($comchan($newnick,%c) isin $gettok($ulist($address($newnick,5)).info,2,9)) || ($gettok($ulist($address($newnick,5)).info,2,9) == $null) {
          mode $comchan($newnick,%c) +b $address($newnick,1)
          kick $comchan($newnick,%c) $newnick $gettok($ulist($address($newnick,5)).info,1,9) $iif(%aaslkickc == 1,< $+ %aaslkickn $+ >)
        }
      }
      inc %c
    }
  }
}
alias aaslscan {
  if $me isop $1 {
    if ($chan($1).ial == $false) {
      .ial on
      set %aaslscan on
      who $1
      echo -a 10:: 12Lütfen bekleyin. while /who $1 $+  Komut işleniyor…
    }
    else {
      var %n 1
      while (%n <= $nick($1,0)) {
        var %u 1
        while (%u <= $ulist(*,aaslu,0)) {
          if ($ulist(*,aaslu,%u) iswm $address($nick($1,%n),5)) {
            if ($1 isin $gettok($ulist(*,aaslu,%u).info,2,9)) || ($gettok($ulist(*,aaslu,%u).info,2,9) == $null) {
              mode $1 +b $address($nick($1,%n),1)
              if $nick($1,%n) ison $1 {
                kick $1 $nick($1,%n) $gettok($ulist($address($nick($1,%n),5)).info,1,9) $iif(%aaslkickc == 1,< $+ %aaslkickn $+ >)
              }
            }
          }
          inc %u
        }
        inc %n
      }
    }
  }
}
#aashit end
 
Alıntı ile Cevapla

Alt 22 Haziran 2009, 08:01   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: shitlist + 'shitlist' Geçersiz id 'aksi'



Allah razı olsun

 
Alıntı ile Cevapla

Cevapla

Etiketler
aksi, gecersiz, hitlist, mirc download, mirc indir, shitlist

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Shitlist V2 addonu Alience mIRC Scripting Hazır Kodlar 11 15 Şubat 2010 16:47
Shitlist addonu hk olcays mIRC Scripting Sorunları 15 21 Ekim 2008 20:07
shitlist t0Xıc mIRC Scripting Sorunları 1 25 Kasım 2007 20:06
Ban + Badnick [ shitlist ] тєαм mIRC Scripting Sorunları 5 20 Nisan 2007 01:02




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
yavru köpek sohbet sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org