ShitList

[AvaRiq]

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]

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]

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

[lubo91]

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

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

[AvaRiq]

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

[lubo91]

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

[AvaRiq]

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

[Morales]

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]

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

[Little_Bitch]

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
}
-
}