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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 10 Nisan 2007, 11:47   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
UserList




#userlist on

on *:unload: { remcp 50 }

alias userlist if ($dialog(ulist)) { dialog -v ulist } | else dialog -m ulist userlist
dialog userlist {
title "User List [/userlist]"
size -1 -1 220 166
option dbu
icon icons\user.ico, 0
button "OK", 999, 178 152 37 12, ok
box "Hostmask:", 1, 3 2 214 25
combo 2, 8 11 204 50, size edit drop
box "Users list:", 3, 3 29 214 65
list 4, 8 38 204 50, sort size vsbar
box "Levels:", 5, 3 96 214 25
combo 6, 8 105 204 50, size drop
box "Channels (separated by commas, leave blank to all):", 7, 3 124 214 25
edit "", 8, 8 133 204 10, autohs
button "Add", 9, 4 152 37 12, disable default
button "Remove", 10, 43 152 37 12, disable
button "Update", 11, 82 152 37 12, disable
}

alias user.new if ($1) { userlist | did -rac ulist 2 $1- | did -c ulist 6 1 | did -e ulist 9 }
alias get.users var %u = 1 | var %user.tmp = $ulist(*,%u) | while (%user.tmp != $null) { var %user.tmp = $ulist(*,%u) | if (%user.tmp != $null) { did -a ulist 4 %user.tmp } | inc %u }
alias drop.lines did -ra ulist 6 Normal (1) | did -a ulist 6 Blacklist (50) | did -a ulist 6 Auto Voice (100) | did -a ulist 6 Auto Op (150) | did -a ulist 6 Protected User (999)
alias _a return $address($1,$2)

on *:dialog:ulist:init:*:get.users | drop.lines
on *:dialog:ulist:sclick:*:{
if ($did == 4) { did -rac ulist 2 $did(4).seltext | var %user.info = $level($did(4).seltext) | if (%user.info == 1) { did -c ulist 6 1 } | if (%user.info == 50) { did -c ulist 6 2 } | if (%user.info == 100) { did -c ulist 6 3 } | if (%user.info == 150) { did -c ulist 6 4 } | if (%user.info == 999) { did -c ulist 6 5 } | if ($ulist($did(4).seltext).info != $null) { did -ra ulist 8 $ulist($did(4).seltext).info } | else { did -r ulist 8 } }
if ($did == 9) { .auser $iif($did(6).sel < 4,$iif($did(6).sel > 1,$calc(($ifmatch -1) * 50),1),999) $$did(ulist,2).text $did(ulist,8).text | did -a ulist 4 $did(2).text | did -r ulist 2,8 | did -u ulist 6 }
if ($did == 10) { .ruser $$did(4).seltext | did -d ulist 4 $did(4).sel | did -r ulist 2 | did -u ulist 6 }
if ($did == 11) { .auser $iif($did(6).sel < 4,$iif($did(6).sel > 1,$calc(($ifmatch -1) * 50),1),999) $$did(ulist,2).text | .iuser $$did(ulist,2).text $did(ulist,8).text | did -r ulist 2,8 | did -u ulist 4,6 }
if ($did(2).text == $null) { did -b ulist 9 } | else { did -e ulist 9 }
if ($did(4).seltext == $null) { did -b ulist 10,11 } | else { did -e ulist 10,11 }
if ($did(6).sel == $null) { did -b ulist 9,11 }
if ($did(2).text isin $didtok(4)) { did -b ulist 9 }
}
on *:dialog:ulist:edit:2:if ($did(2).text == $null) || ($did(2).text isin $didtok(4)) { did -b ulist 9 } | if ($did(2).text != $null) && ($did(2).text !isin $didtok(4)) { did -e ulist 9 | if ($did(6).sel == $null) { did -c ulist 6 1 } }

on ^1:join:*: {
if ($nick == $me) return
if ($me isop #) {
if (# isin $ulist($nick).info) || ($ulist($nick).info == $null) && ($level($fulladdress) == 50) { MODE $chan -o+bb $nick $nick $+ !*@* $address($1,2) | kick $chan $nick Blacklisted }
if (# isin $ulist($nick).info) || ($ulist($nick).info == $null) && ($level($fulladdress) == 100) { mode $chan +v $nick }
if (# isin $ulist($nick).info) || ($ulist($nick).info == $null) && ($level($fulladdress) == 150) { mode $chan +o $nick }
}
}
on *:kick:*:if (# isin $ulist($knick).info) || ($ulist($knick).info == $null) && ($level($ulist($address($knick,5))) == 999) { mode $chan +bb-o $address($1,2) $nick $+ !*@* $nick | kick $chan $nick Protected User ( $+ $knick $+ ) }

#userlist end

Yaralı olacak bir code.Dilerseniz Türkçeleştirebilirisiniz.Yalnız birkaç ayar yapmanız gerekıyor.Popus Menusune ekleyebılecegınız codeler;

$iif($group(#userlist) == on,User Lists,)
.View User List:/userlist
.$iif($1 != $me,$iif($ulist($_a($$1,5)) != $nulll,Rem $1,Add $1)):if ($ulist($_a($1,5))) { .ruser $ifmatch } | else user.new $iif($_a($1,5) != $null,$_a($1,5),$1 $+ !*@*)
.-
.$iif($1 != $me,$iif($level($_a($$1,5)) == 1,1 (Normal),$iif($level($_a($1,5)) == 50,50 (Blacklisted),$iif($level($_a($1,5)) == 100,100 (Auto Voice),$iif($level($_a($1,5)) == 150,150 (Auto Op),$iif($level($_a($1,5)) == 999,999 (Protected))))))):echo -a ::: $1 level is $iif($level($_a($1,5)) == 1,1 (Normal),$iif($level($_a($1,5)) == 50,50 (Blacklisted),$iif($level($_a($1,5)) == 100,100 (Auto Voice),$iif($level($_a($1,5)) == 150,150 (Auto Op),$iif($level($_a($1,5)) == 999,999 (Protected))))))
.-
.$iif($1 != $me,$iif($level($_a($$1,5)) != 1,Normal (1))):.auser 1 $1 $+ !*@* | echo -a 4 $+ ::: Added $$1 to Normal List
.$iif($1 != $me,$iif($level($_a($$1,5)) != 50,Blacklist (50))):.auser 50 $1 $+ !*@* | mode # -o+b $1 $1 $+ !*@* | kick # $1 Blacklisted | echo -a 4 $+ ::: Added $$1 to Blacklist
.$iif($1 != $me,$iif($level($_a($$1,5)) != 100,Auto Voice (100))):.auser 100 $1 $+ !*@* | mode # +v $1 | echo -a 4 $+ ::: Added $$1 to Auto Voice List
.$iif($1 != $me,$iif($level($_a($$1,5)) != 150,Auto Op (150))):.auser 150 $1 $+ !*@* | mode # +o $1 | echo -a 4 $+ ::: Added $$1 to Auto Op List
n23=.$iif($1 != $me,$iif($level($_a($$1,5)) != 999,Protect (999))):.auser 999 $1 $+ !*@* | echo -a 4 $+ ::: Added $$1 to Protect List
.-
.Notify List
..Add $$1:/.notify $* | echo -a 4 $+ ::: Added $$1 to Notify List
..Rem $$1:/.notify -r $* | echo -a 4 $+ ::: Removed $$1 from Notify List
..-
..View Notify List:/notifylist
.Ignore List
..Add $$1:/.ignore $$1 1 | echo -a 4 $+ ::: Added $$1 to Ignore List
..Rem $$1:/.ignore -r $$1 1 | echo -a 4 $+ ::: Removed $$1 from Ignore List
..-
..Advanced Ignore
...Ignore $$1:/ignore.manager $$1
...Unignore $$1:/ignore -rw $address($1,5)
..-
..View Ignore List:/ignorelist
.-
.Bot Commands
..Add $$1:/.adduser $$1 | echo -a 4 $+ ::: Added $$1 to Bot commands
..Rem $$1:/.deluser $$1 | echo -a 4 $+ ::: Removed $$1 from Bot Commands
-


[Codenin Yapımcısı Bilinmiyor]

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Cevapla

Etiketler
mirc, mirc download, mirc indir, userlist


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

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
userlist hakkinda cashmare mIRC Scripting Sorunları 2 11 Ağustos 2011 00:28