ShitList

За всичко свързано с mIRC
AvaRiq
Нов
Нов
Posts: 18
Joined: Thu Mar 06, 2008 4:20 pm

ShitList

Post by AvaRiq » Thu Oct 23, 2008 11:59 pm

Zdraveite :-)
Iskam ShitList-a koito da otgovaria na slednite iziskvania:
1-da moje da se slaga shit po IP,host Host+Ip i t.n.t
2-shita da vaji za izbran kanal a ne za vsi4ki
3-za vseki shit da ima reason

Blagodaria vi predvaritelno :-)

Morales
Нов
Нов
Posts: 157
Joined: Thu Apr 19, 2007 6:44 pm
Location: Плевен

Re: ShitList

Post by Morales » Fri Oct 24, 2008 12:55 pm

AvaRiq wrote:Zdraveite :-)
Iskam ShitList-a koito da otgovaria na slednite iziskvania:
1-da moje da se slaga shit po IP,host Host+Ip i t.n.t
2-shita da vaji za izbran kanal a ne za vsi4ki
3-za vseki shit da ima reason

Blagodaria vi predvaritelno :-)


Би ли ми казал по дяволите каква е разликата в местоположенитео на ип-то и - на хоста.

AvaRiq
Нов
Нов
Posts: 18
Joined: Thu Mar 06, 2008 4:20 pm

Post by AvaRiq » Fri Oct 24, 2008 1:00 pm

Prosto iskam po nqkolko nachina da moje da se slaga shit-a :-)

User avatar
lubo91
Потребител
Потребител
Posts: 914
Joined: Thu Mar 01, 2007 6:22 pm
Answers: 23
Location: Свиленград

Post by lubo91 » Fri Oct 24, 2008 1:06 pm

AvaRiq wrote:Prosto iskam po nqkolko nachina da moje da se slaga shit-a :-)


Ехо ти като се регистрира в саита случаино да прочете точката за това че си задължен да пишеш на БЪЛГАРСКИ :evil:

AvaRiq
Нов
Нов
Posts: 18
Joined: Thu Mar 06, 2008 4:20 pm

Post by AvaRiq » Fri Oct 24, 2008 3:24 pm

Прочел съм я , просто така стана че написах всичко на латиница, за което съжалявам .

User avatar
lubo91
Потребител
Потребител
Posts: 914
Joined: Thu Mar 01, 2007 6:22 pm
Answers: 23
Location: Свиленград

Post by lubo91 » Fri Oct 24, 2008 4:58 pm

А така браво :?: сетисе да пишеш оравилно :)

AvaRiq
Нов
Нов
Posts: 18
Joined: Thu Mar 06, 2008 4:20 pm

Post by AvaRiq » Fri Oct 24, 2008 7:20 pm

Ако някой може да ми напише файла ще му бъдя много благодарен !

Morales
Нов
Нов
Posts: 157
Joined: Thu Apr 19, 2007 6:44 pm
Location: Плевен

Post by Morales » Fri Oct 24, 2008 8:27 pm

menu nicklist {
*ShitList*
. Shit HostName
..Add://.set %sr $+ $address($$1,2) $?="Reason:" | //.guser Shit $address($$1,2) | //.echo -a $$1 has been added to ShitList! | //.mode $active +b $address($$1,2) | //.kick $active $$1 %sr $+ $address($$1,2)
..Del://.ruser Shit $address($$1,2) | //.unset %sr $+ $address($$1,2) | //.echo -a $$1 has been removed from ShitList!
.Shit NickName
..Add://.set %sr $+ $$1 $?="Reason:" | //.guser Shit $address($$1,2) | //.echo -a $$1 has been added to ShitList! | //.mode $active +b $$1 | //.kick $active $$1 %sr $+ $$1
..Del://.ruser Shit $$1 | //.unset %sr $+ $$1 | //.echo -a $$1 has been removed from ShitList!
}
on Shit:join:#: { //.mode $chan +b $address($nick,2) | //.mode $chan +b $nick | //.kick $chan $nick %sr $+ $nick $+ %sr $+ $address($nick,2) }


Въобще няам идея дали работи... за точно 3 минути съм го написал тоя код..Пиши дали работи..

AvaRiq
Нов
Нов
Posts: 18
Joined: Thu Mar 06, 2008 4:20 pm

Post by AvaRiq » Sat Oct 25, 2008 11:54 am

Бързата работа срам за майстора :-) Мне не работи тоя файл :)

Little_Bitch
Потребител
Потребител
Posts: 692
Joined: Thu Jul 17, 2008 9:31 pm
Answers: 37
Contact:

Post by Little_Bitch » Sun Oct 26, 2008 2:39 pm

alias +shitlist { if !$dialog(shitlist) { dialog -m shitlist shitlist } }
dialog shitlist {
title "Shit List"
size -1 -1 152 170
option dbu
tab "Users", 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 "Reason (leave blank for 'default')::", 8, 7 97 90 8, tab 100
edit "", 10, 7 105 139 10, autohs tab 100
text "Channels (leave blank for all channels)::", 4, 7 117 100 8, tab 100
edit "", 5, 7 125 139 10, autohs tab 100
button "Add", 12, 7 138 69 10, tab 100
button "Remove", 13, 77 138 69 10, tab 100
tab "Options", 101
box "", 20, 4 14 145 137, tab 101
text "Add these masks to list (through nicklist menu)::", 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 "Note:: it is recomended to choose ~2 types of *mask*, otherwise you can get flooded during scan.", 28, 7 60 130 16, tab 101
check "Scan for users when you get opped", 29, 7 78 100 8, tab 101
check "Scan all channels for user that was added", 30, 7 91 110 8, tab 101
text "Default kick reason (leave blank for 'Shitlisted')::", 31, 7 104 130 8, tab 101
edit "", 32, 7 114 139 10, tab 101
check "/who # on join", 34, 7 127 50 10, tab 101
check "Dont show /who stats", 35, 70 127 62 10, tab 101
check "On/off shitlist", 14, 7 138 50 10, tab 101
check "Kick counter", 33, 70 138 50 10, tab 101
button "OK", 16, 31 158 45 10, default ok
button "Readme", 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
}
}


raw 315:*: {
if %aaslscan == on { aaslscan $2 | unset %aaslscan }
if %aaslwhos == 1 { haltdef }
}

raw 352:*: {
if %aaslwhos == 1 { haltdef }
}

#aashit off
menu nicklist {
-
Shit List
.Add $$1
..Specified *masks* {
set %aaslr $?="Reason:"
$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 $?="Reason:"
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 $?="Reason:"
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 $?="Reason:"
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 $?="Reason:"
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 $?="Reason:"
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 $?="Reason:"
auser aaslu $address($$1,4) $iif(%aaslr != $null,%aaslr,%aaslreason) $chr(9)
aaslkick $chan $$1 $iif(%aaslr != $null,%aaslr,%aaslreason)
unset %aaslr
}
-
}

Post Reply