10 Nisan 2007, 11:47 | #1 | |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0) | 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] | |
|
Etiketler |
mirc, mirc download, mirc indir, userlist |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |
Benzer Konular | ||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
userlist hakkinda | cashmare | mIRC Scripting Sorunları | 2 | 11 Ağustos 2011 00:28 |