mIRC Script & aDDonS

on @!*:JOIN:#: {
;var %tmp.spambot.exemptchans #channel1 #channel2 #channel3 #channel4...etc
var %tmp.spambot.exemptchans #channel1 #channel2 #channel3 #channel4...etc
var %tmp.spambot-pattern /^(?[A-Z][a-z]{2,9})((?:1|2)\d))$/

if %tmp.flood-protection == $null { set -ue5 %tmp.flood-protection 1 }
elseif %tmp.flood-protection < 5 { inc %tmp.flood-protection 1 }
elseif %tmp.flood-protection >= 5 { timer_unsetSpamBot 1 20 unset %tmp.flood-protection | return }

if *.users.undernet.org iswm $site { return }
elseif $istok(%tmp.spambot.exemptchans,$chan,32) { return }
elseif $istok(%tmp.spambot-token,$nick,32) { return }
elseif $regex($gettok($chan($chan).mode,1,32),/s|p|r/) { return }
elseif $regex($nick,%tmp.spambot-pattern) {
if $nick !ison $chan { echo -ast 7Halted kick on $nick at $chan as user already out | return }
echo -ast 7Attempting to bankick $nick on $chan as it matched Drone-pattern
if !$istok($($+(%,tmp.spambot.,$nick),2),$chan,32) { set -u600 $+(%,tmp.spambot.,$nick) $($+(%,tmp.spambot.,$nick),2) $chan }
.msg x kick $chan $nick Drone! Or Maybe You Use Drone Nick, Better To Change It /nick NewNick
;!unban
}
}
on *:TEXT:!unban* {
var %tmp.spambot-pattern /^(?[A-Z][a-z]{2,9})(?:1|2)\d)$/

if !$regex($nick,%tmp.spambot-pattern) { return }
elseif $($+(%,tmp.spambot.,$nick),2) != $null {
var %tmp.unbanning 1,%tmp.unbanning.chans, %tmp.unbanning.chans2
var %tmp.unbanning.chan $($+(%,tmp.spambot.,$nick),2)
while $gettok(%tmp.unbanning.chan,%tmp.unbanning,32) {
if $me isop $gettok(%tmp.unbanning.chan,%tmp.unbanning,32) {
mode $gettok(%tmp.unbanning.chan,%tmp.unbanning,32) -b $+($regml(1),??!*@*)
%tmp.unbanning.chans = %tmp.unbanning.chans $gettok(%tmp.unbanning.chan,%tmp.unbanning,32)
}
else { %tmp.unbanning.chans2 = %tmp.unbanning.chans2 $gettok(%tmp.unbanning.chan,%tmp.unbanning,32) }
inc %tmp.unbanning
}
set -eu3600 %tmp.spambot-token %tmp.spambot-token $nick
unset $+(%,tmp.spambot.,$nick)
if %tmp.unbanning.chans != $null { notice @ $+ $replace(%tmp.unbanning.chans,$chr(32),$chr(64) $+ $chr(44)) Unbanning $nick as the user has confirmed to

not be a drone. }
msg $nick $iif(%tmp.unbanning.chans != $null,I've unbanned you on: $replace(%tmp.unbanning.chans,$chr(32),$chr(44)) .) $iif(%tmp.unbanning.chans2 !=

$null,I was not able to unban you on: $replace(%tmp.unbanning.chans2,$chr(32),$chr(44)))
}
}
on @*:Notice:*Unbanning*as the user has confirmed to not be a drone*:#: {
var %tmp.spambot-pattern /^(?:[A-Z][a-z]{2,9}(?:1|2)\d)$/
var %tmp.spambot.unban
if $nick isop $chan && $left($target,1) == $chr(64) {
if $regex($1-,/Unbanning\s(.+)\sas\sthe\suser\shas\sconfirmed\sto\snot\sbe\sa\sdrone.$/) {
%tmp.spambot.unban = $regml(1)
if $regex(%tmp.spambot.unban,%tmp.spambot-pattern) { set -eu3600 %tmp.spambot-token %tmp.spambot-token $regml(1) }
}
}
}

Dobar Addon....

on @*:TEXT:*:#:{
if ($nick isreg #) {
var %spam = $strip($1-,burc)
if (*#* iswm %spam) || (*/j* iswm %spam) {
ban -u1800 $chan $nick 2 | kick $chan $nick Banned: Spamming in $chan is NOT ALLOWED! $nick ( $address ) ( $+ $ifmatch $+ ) }



Eve eden za reklamiranje na kanali # ban/kick

on @1:text:www.*:%chans: {
if ($nick isop $chan ) { halt }
if ($nick isvo $chan ) { halt } {
if (%adver == ban) { ban -u $+ %advtime $chan $nick 2 | .kick $chan $nick $advban | inc %counter }
if (%adver == kick) { kick $chan $nick $advkick | inc %counter }
}
}
on @1:text:www.*.com:%chans: {
if ($nick isop $chan ) { halt }
if ($nick isvo $chan ) { halt } {
if (%adver == ban) { if ($nick isreg $chan) | ban -u $+ %advtime $chan $nick 2 | .kick $chan $nick $advban | inc %counter }
if (%adver == kick) { kick $chan $nick $advkick | inc %counter }
}
}
on @1:text:ftp://:%chans: {
if ($nick isop $chan ) { halt }
if ($nick isvo $chan ) { halt } {
if (%adver == ban) { if ($nick isreg $chan) | ban -u $+ %advtime $chan $nick 2 | .kick $chan $nick $advban | inc %counter }
if (%adver == kick) { kick $chan $nick $advkick | inc %counter }
}
}
on @1:text:*http://*:%chans: {
if ($nick isop $chan ) { halt }
if ($nick isvo $chan ) { halt } {
if (%adver == ban) { if ($nick isreg $chan) | ban -u $+ %advtime $chan $nick 2 | .kick $chan $nick $advban | inc %counter }
if (%adver == kick) { kick $chan $nick $advkick | inc %counter }
}
}
on @1:action:*www.*:%chans: {
if ($nick isop $chan ) { halt }
if ($nick isvo $chan ) { halt } {
if (%adver == ban) { if ($nick isreg $chan) | ban -u $+ %advtime $chan $nick 2 | .kick $chan $nick $advban | inc %counter }
if (%adver == kick) { kick $chan $nick $advkick | inc %counter }
}
}
on @1:action:www.*.com:%chans: {
if ($nick isop $chan ) { halt }
if ($nick isvo $chan ) { halt } {
if (%adver == ban) { if ($nick isreg $chan) | ban -u $+ %advtime $chan $nick 2 | .kick $chan $nick $advban | inc %counter }
if (%adver == kick) { kick $chan $nick $advkick | inc %counter }
}
}
on @1:action:ftp://:%chans: {
if ($nick isop $chan ) { halt }
if ($nick isvo $chan ) { halt } {
if (%adver == ban) { if ($nick isreg $chan) | ban -u $+ %advtime $chan $nick 2 | .kick $chan $nick $advban | inc %counter }
if (%adver == kick) { kick $chan $nick $advkick | inc %counter }
}
}
on @1:action:*http://*:%chans: {
if ($nick isop $chan ) { halt }
if ($nick isvo $chan ) { halt } {
if (%adver == ban) { if ($nick isreg $chan) | ban -u $+ %advtime $chan $nick 2 | .kick $chan $nick $advban | inc %counter }
if (%adver == kick) { kick $chan $nick $advkick | inc %counter }
}
}

variables %chans #chan1 #chan3 #chan3

dialog Chans {
title "Protected Chans"
size -1 -1 400 350
button "Okay", 1, 20 320 60 20,ok
button "Add a Chan" ,7, 10 290 90 20
list 2, 10 20 380 255, vsbar
box Channels, 3, 5 5 390 260
text "Remove it With a Double Clicking On It", 8, 100 270 370 35
}
on *:dialog:chans:sclick:*:{
if ($did == 7) {
set %chans $addtok(%chans, $+ $?="Add a Channel as a protected Chan" $+ ,44)
.dialog -c chans
.dialog -mnd chans chans
}
}
on *:dialog:chans:init:*:{
var %i = 1
while (%i <= $numtok(%chans,44)) {
did -a $dname 2 $gettok(%chans,%i,44)
inc %i
}
}
on *:dialog:chans:dclick:2:{
set %chans $deltok(%chans,$did($did).sel,44)
did -d $dname $did $did($did).sel
}
alias /chans /dialog -m chans chans

popups menu bar
Url Advertise
.$iif(%adv == on,$style(1)) On:.enable #advertise | set %adv on
.$iif(%adv == off,$style(2)) Off:.disable #advertise | set %adv off
.-
.$iif(%adver == kick,$style(1)) Kick:set %adver kick
.$iif(%adver == ban,$style(1)) Ban.dur:set %adver ban | set %advtime $?="Enter duration in seconds"




za www. i http://

ban/kick

;## ProtectionІ v3.2
;## Most likely final version unless bad bugs are reported.

;## Dialog table
Dialog fp {
title "Personal Flood Protection"
size -1 -1 147 92
option dbu
button "Ok", 1, 61 77 39 12,ok default
button "Cancel", 2, 105 77 38 12,cancel
tab "Ctcp-Flood", 5, 3 1 139 71
check "Enabled", 10, 14 19 50 8, tab 5
text "Trigger After", 11, 14 33 35 8, tab 5
edit "", 12, 46 32 15 10, tab 5
text "Ctcp`s in", 13, 65 33 30 8, tab 5
edit "", 14, 90 32 15 10, tab 5
text "Seconds", 15, 108 33 30 8, tab 5
text "Ignore For", 16, 14 44 35 8, tab 5
edit "", 17, 46 43 15 10, tab 5 multi autovs
text "Seconds", 18, 65 44 30 10, tab 5
combo 3, 47 54 61 52, tab 5 size drop
text "Ignore Type:", 4, 14 55 33 10, tab 5
tab "Notice-Flood", 6
check "Enabled", 19, 14 19 50 8, tab 6
text "Trigger After", 20, 14 33 35 8, tab 6
edit "", 21, 46 32 15 10, tab 6
text "Notices in", 22, 65 33 30 8, tab 6
edit "", 23, 90 32 15 10, tab 6
text "Seconds", 24, 108 33 30 8, tab 6
text "Ignore For", 25, 14 44 30 8, tab 6
edit "", 26, 46 43 15 10, tab 6 multi autovs
text "Seconds", 27, 65 44 30 10, tab 6
text "Ignore Type:", 56, 14 55 33 10, tab 6
combo 57, 47 54 61 52, tab 6 size drop
tab "Msg-Flood", 7
check "Enabled", 28, 14 19 50 8, tab 7
text "Trigger After", 29, 14 33 35 8, tab 7
edit "", 30, 46 32 15 10, tab 7
text "Msg`s in", 31, 65 33 30 8, tab 7
edit "", 32, 90 32 15 10, tab 7
text "Seconds", 33, 108 33 30 8, tab 7
text "Ignore For", 34, 14 44 30 8, tab 7
edit "", 35, 46 43 15 10, tab 7 multi autovs
text "Seconds", 36, 65 44 30 10, tab 7
text "Ignore Type:", 58, 14 55 33 10, tab 7
combo 59, 47 54 61 52, tab 7 size drop
tab "Query-Flood", 8
check "Enabled", 37, 14 19 50 8, tab 8
text "Trigger After", 38, 14 33 35 8, tab 8
edit "", 39, 46 32 15 10, tab 8
text "Queries in", 40, 65 33 30 8, tab 8
edit "", 41, 90 32 15 10, tab 8
text "Seconds", 42, 108 33 30 8, tab 8
text "Ignore For", 43, 14 44 30 8, tab 8
edit "", 44, 46 43 15 10, tab 8 multi autovs
text "Seconds", 45, 65 44 30 10, tab 8
text "Ignore Type:", 60, 14 55 33 10, tab 8
combo 61, 47 54 61 52, tab 8 size drop
tab "Dcc-Flood", 9
check "Enabled", 46, 14 19 50 8, tab 9
text "Trigger After", 47, 14 33 35 8, tab 9
edit "", 48, 46 32 15 10, tab 9
text "DCC`s in", 49, 65 33 30 8, tab 9
edit "", 50, 90 32 15 10, tab 9
text "Seconds", 51, 108 33 30 8, tab 9
text "Ignore For", 52, 14 44 30 8, tab 9
edit "", 53, 46 43 15 10, tab 9 multi autovs
text "Seconds", 54, 65 44 30 10, tab 9
text "Ignore Type:", 62, 14 55 33 10, tab 9
combo 63, 47 54 61 52, tab 9 size drop
tab "Invite-Flood", 100
check "Enabled", 146, 14 19 50 8, tab 100
text "Trigger After", 147, 14 33 35 8, tab 100
edit "", 148, 46 32 15 10, tab 100
text "Invites in", 149, 65 33 30 8, tab 100
edit "", 150, 90 32 15 10, tab 100
text "Seconds", 151, 108 33 30 8, tab 100
text "Ignore For", 152, 14 44 30 8, tab 100
edit "", 153, 46 43 15 10, tab 100 multi autovs
text "Seconds", 154, 65 44 30 10, tab 100
text "Ignore Type:", 162, 14 55 33 10, tab 100
combo 163, 47 54 61 52, tab 100 size drop
tab "Options",200
check "Use silence-command", 201, 14 19 80 8, tab 200
check "Warn me", 202, 14 29 80 8, tab 200
Check "Filter these hosts: (separated by comma)",203,14 39 120 8, tab 200
Edit "", 204, 22 48 105 10, multi return autohs autovs tab 200
check "Let PІ submit basic info to a website", 205, 14 59 100 8, tab 200

}
On *:Dialog:Fp:*:*: {
if ($devent == init) {
var %i = 0 | while (%i <= 9) { a 3,57,59,61,63,163 %i $mask(nick!user@stuff.host.com,%i) | inc %i }
did $iif($rh(p_ctcp_enabled) == 1,-c,-u) fp 10 | a 12 $rh(p_ctcp_maxlines) | a 14 $rh(p_ctcp_seconds) | a 17 $rh(p_ctcp_ignoretime) | it 3 $rh(p_ctcp_ignoretype)
did $iif($rh(p_notice_enabled) == 1,-c,-u) fp 19 | a 21 $rh(p_notice_maxlines) | a 23 $rh(p_notice_seconds) | a 26 $rh(p_notice_ignoretime) | it 57 $rh(p_notice_ignoretype)
did $iif($rh(p_msg_enabled) == 1,-c,-u) fp 28 | a 30 $rh(p_msg_maxlines) | a 32 $rh(p_msg_seconds) | a 35 $rh(p_msg_ignoretime) | it 59 $rh(p_msg_ignoretype)
did $iif($rh(p_query_enabled) == 1,-c,-u) fp 37 | a 39 $rh(p_query_maxlines) | a 41 $rh(p_query_seconds) | a 44 $rh(p_query_ignoretime) | it 61 $rh(p_query_ignoretype)
did $iif($rh(p_dcc_enabled) == 1,-c,-u) fp 46 | a 48 $rh(p_dcc_maxlines) | a 50 $rh(p_dcc_seconds) | a 53 $rh(p_dcc_ignoretime) | it 63 $rh(p_dcc_ignoretype)
did $iif($rh(p_invite_enabled) == 1,-c,-u) fp 146 | a 148 $rh(p_invite_maxlines) | a 150 $rh(p_invite_seconds) | a 153 $rh(p_invite_ignoretime) | it 163 $rh(p_invite_ignoretype)
did $iif($rh(p_usesilence) == 1,-c,-u) fp 201 | did $iif($rh(p_warnme) == 1,-c,-u) fp 202 | did $iif($rh(p_fhost_enabled) == 1,-c,-u) fp 203 | a 204 $rh(p_fhost_list)
did $iif($rh(p_submit_info) == 1,-c,-u) fp 205
}
if ($devent == sclick) && ($did == 1) {
i p_ctcp_enabled $s(10) | i p_ctcp_maxlines $t(12) | i p_ctcp_seconds $t(14) | i p_ctcp_ignoretime $t(17) | i p_ctcp_ignoretype $sl(3)
i p_notice_enabled $s(19) | i p_notice_maxlines $t(21) | i p_notice_seconds $t(23) | i p_notice_ignoretime $t(26) | i p_notice_ignoretype $sl(57)
i p_msg_enabled $s(28) | i p_msg_maxlines $t(30) | i p_msg_seconds $t(32) | i p_msg_ignoretime $t(35) | i p_msg_ignoretype $sl(59)
i p_query_enabled $s(37) | i p_query_maxlines $t(39) | i p_query_seconds $t(41) | i p_query_ignoretime $t(44) | i p_query_ignoretype $sl(61)
i p_dcc_enabled $s(46) | i p_dcc_maxlines $t(48) | i p_dcc_seconds $t(50) | i p_dcc_ignoretime $t(53) | i p_dcc_ignoretype $sl(63)
i p_invite_enabled $s(146) | i p_invite_maxlines $t(148) | i p_invite_seconds $t(150) | i p_invite_ignoretime $t(153) | i p_invite_ignoretype $sl(163) | i p_usesilence $s(201) | i p_warnme $s(202)
i p_fhost_enabled $s(203) | i p_fhost_list $t(204) | i p_submit_info $s(205)
pp.rehash
} }
Alias -l a did -a fp $1 $2-
Alias -l i wi $inif pp $1 $2
Alias -l wh hadd -m Main $1 $2
Alias -l idir return $scriptdir
Alias -l t return $did($1).text
Alias -l sl return $did($1).sel
Alias -l s return $did($1).state
Alias -l rh return $hget(Main,$1)
Alias -l it did -c fp $1 $iif(!$2,4,$2)
Alias -l inif return $remove($idir $+ \P3.dat,$mircdir)
Alias -l ri return $readini($1,$2,$3)
Alias -l wi writeini $1 $2 $3 $iif($4,$4,0)
Alias -l ie { echo -s * $1- }
Alias -l ini2hash { var %f = " $+ $1- $+ ", %i = 1, %t = $ini(%f,0) | while (%i <= %t) { var %i2 = 1, %t2 = $ini(%f,$ini(%f,%i),0) | while (%i2 <= %t2) { wh $ini(%f,%i,%i2) $readini(%f,$ini(%f,%i),$ini(%f,%i,%i2)) | inc %i2 } | inc %i } }
Alias -l pignore { var %t = $1, %t2 = $2, %it = $calc($rh(p_ $+ %t $+ _ignoretype) - 1), %ho, %us = $rh(p_usesilence), %ti = $rh(p_ $+ %t $+ _ignoretime) | if (%t2 == m) { %ho = *!*@* | if (%us == 1) { .silence + $+ %ho | .timer 1 %ti .silence - $+ %ho } | ignore -u [ $+ [ %ti ] ] %ho } | if (%t2 == c) { %ho = $wildsite | if (%us == 1) { .silence + $+ %ho | .timer 1 %ti .silence - $+ %ho } | ignore -u [ $+ [ %ti ] ] %ho } | if (%t2 == s) { %ho = $mask($fulladdress,%it) | if (%us == 1) { .silence + $+ %ho | .timer 1 %ti .silence - $+ %ho } | ignore -u [ $+ [ %ti ] ] %ho } | pwarn %t2 %t }
Alias -l pwarn { if ($rh(p_warnme) != 1) { halt } | var %t = $1, %type = $2, %us = $rh(p_usesilence), %ti = $rh(p_ $+ %type $+ _ignoretime) | if (%t == s) { %t2 = Single-user flood from $nick ( $+ $wildsite $+ ), user will be ignored for %ti seconds. $iif(%us == 1,(Silence command will be used)) } | elseif (%t == c) { %t2 = Multiple clone flood from $wildsite (triggered by $nick $+ ), host will be ignored for %ti seconds. $iif(%us == 1,(Silence command will be used)) } | elseif (%t == m) { %t2 = Multiple host flood triggered by $wildsite ( $+ $nick $+ ), *!*@* will be ignored for %ti seconds. $iif(%us == 1,(Silence command will be used)) } | ie Warning: %t2 ( $+ %type $+ ) | halt }
Alias -l pflood {
var %fa = $fulladdress, %fh = $rh(p_fhost_list), %i = 1, %t = $numtok(%fh,44) | while (%i <= %t) { if ($gettok(%fh,%i,44) iswm %fa) { return } | inc %i }
var %t = $1, %p = $2-, %n = $nick, %s = $site, %ws = $wildsite, %en = $rh(p_ $+ %t $+ _enabled), %ml = $rh(p_ $+ %t $+ _maxlines), %se = $rh(p_ $+ %t $+ _seconds) | if (%en != 1) { return }
if (!%pflood. [ $+ [ %t ] $+ [ %n ] ]) { set -u [ $+ [ %se ] ] %pflood. [ $+ [ %t ] $+ [ %n ] ] 1 } | else { inc %pflood. [ $+ [ %t ] $+ [ %n ] ] } | if (%pflood. [ $+ [ %t ] $+ [ %n ] ] >= %ml) { pignore %t s | return }
if (!%pflood. [ $+ [ %t ] $+ [ %s ] ]) { set -u [ $+ [ %se ] ] %pflood. [ $+ [ %t ] $+ [ %s ] ] 1 } | else { inc %pflood. [ $+ [ %t ] $+ [ %s ] ] } | if (%pflood. [ $+ [ %t ] $+ [ %s ] ] >= %ml) { pignore %t c | return }
if (!%pflood. [ $+ [ %t ] $+ .tot ]) { set -u [ $+ [ %se ] ] %pflood. [ $+ [ %t ] $+ .tot ] 1 } | else { inc %pflood. [ $+ [ %t ] $+ .tot ] } | if (%pflood. [ $+ [ %t ] $+ .tot ] >= %ml) { pignore %t m | return }
}
On *:Load: { pp.onload }
On *:Start: { pp.rehash }
On *:Start: { unset %pflood.* }
On *:Open:?:*: { pflood query }
On *:Text:* { pflood msg $1- }
On *:Notice:* { pflood notice $1- }
On *:Invite:*: { pflood invite $1- }
On *:Connect: { if ($rh(p_submit_info) != 1) { return } | var %h = home.kvalito.no, %p = 80 | sockclose pІ | sockopen pІ %h %p }
On *:Sockopen:PІ: { if ($sockerr) { return } | var %str = $+(nick=,$me,&,server=,$server $ctime), %h = $+(POST /~oracel/p2/count.php HTTP/1.1,$crlf,Host: home.kvalito.no,$crlf,Connection: keep-alive,$crlf,Content-length: $len(%str),$crlf,Content-Type: application/x-www-form-urlencoded,$crlf,$crlf,%str) | sockwrite PІ %h }
Ctcp *:*DCC* { pflood dcc $1- }
Ctcp *:* { pflood ctcp $1- }
Alias pp.ver return v3.2
Alias pp if (!$dialog(fp)) dialog -m fp fp
Alias pp.rehash { ini2hash $inif }
Alias pp.onload { ie ProtectionІ $pp.ver loaded. Type /pp to configure. }
Alias pp.unload { if ($$?!="Are you sure you want to unload ProtectionІ?" != $true) { return } | if ($$?!="Do you want to delete configuration files?" == $true) { if ($exists($inif)) { .remove $inif } } | unload -rs $script | ie ProtectionІ unloaded! (If there are any special reasons for unloading this addon, mail me at oracel_17@hotmail.com and let me know.) | ie Any folders you created when you installed this addon, will not be deleted. }
Menu menubar {
ProtectionІ
.Setup:pp
.Rehash:pp.rehash
.-
.Unload:pp.unload
}




Za zastita od flood odlicen e

Поздрав на сите на форумот.
Вака го загледав во топ 10 и решив да се регистрирам.
Ја сум еден од скриптерите на форумов, се занимавам со ирц скриптинг околу 1ипол - 2 години.
Имам направено повеќе скрипти, но оваа последната некако ми излезе најдобра и затоа и ја оставив сите да можат да ја симнуват.

Официјалниот сајт на скриптата е www.a1team.mkd.net ...
Скриптата е направена за сечиј вкус, има доста добри работи, како и за забава така и за приватна заштита и за заштита на вашиот канал и ред други работи. На скриптава има неколку аддони кои не се изработени од моја страна.

Епа сите коментари се добредојдени, а снипетите т.е аддоните следуваат наскоро.

A1|Drunk3r напиша:

Поздрав на сите на форумот.
Вака го загледав во топ 10 и решив да се регистрирам.
Ја сум еден од скриптерите на форумов, се занимавам со ирц скриптинг околу 1ипол - 2 години.
Имам направено повеќе скрипти, но оваа последната некако ми излезе најдобра и затоа и ја оставив сите да можат да ја симнуват.

Официјалниот сајт на скриптата е www.a1team.mkd.net ...
Скриптата е направена за сечиј вкус, има доста добри работи, како и за забава така и за приватна заштита и за заштита на вашиот канал и ред други работи. На скриптава има неколку аддони кои не се изработени од моја страна.

Епа сите коментари се добредојдени, а снипетите т.е аддоните следуваат наскоро.

Добредојде на форумот

Скриптата ја donwloadirav и доста е добра само така продолжи

A1|Drunk3r напиша:

Поздрав на сите на форумот.
Вака го загледав во топ 10 и решив да се регистрирам.
Ја сум еден од скриптерите на форумов, се занимавам со ирц скриптинг околу 1ипол - 2 години.
Имам направено повеќе скрипти, но оваа последната некако ми излезе најдобра и затоа и ја оставив сите да можат да ја симнуват.

Официјалниот сајт на скриптата е www.a1team.mkd.net ...
Скриптата е направена за сечиј вкус, има доста добри работи, како и за забава така и за приватна заштита и за заштита на вашиот канал и ред други работи. На скриптава има неколку аддони кои не се изработени од моја страна.

Епа сите коментари се добредојдени, а снипетите т.е аддоните следуваат наскоро.

A1|Drunk3r мене линкот за довнлоад не ми го отвара не знам што е работата сигурно е до вас не е до мене а може би сум и грешка

Скрипташи од овде само ехплорер значи слабо другите

ExpLoRer напиша:

A1|Drunk3r напиша:

Поздрав на сите на форумот.
Вака го загледав во топ 10 и решив да се регистрирам.
Ја сум еден од скриптерите на форумов, се занимавам со ирц скриптинг околу 1ипол - 2 години.
Имам направено повеќе скрипти, но оваа последната некако ми излезе најдобра и затоа и ја оставив сите да можат да ја симнуват.

Официјалниот сајт на скриптата е www.a1team.mkd.net ...
Скриптата е направена за сечиј вкус, има доста добри работи, како и за забава така и за приватна заштита и за заштита на вашиот канал и ред други работи. На скриптава има неколку аддони кои не се изработени од моја страна.

Епа сите коментари се добредојдени, а снипетите т.е аддоните следуваат наскоро.

A1|Drunk3r мене линкот за довнлоад не ми го отвара не знам што е работата сигурно е до вас не е до мене а може би сум и грешка

Работат и двата линка, еве баш сеа пробав...

дека мене нема проблем работат двата линка

Eve nekolku metodi .. t.e addons .. za zastita od klonovi i flood

Metod 1 :


on *:quit: {
if ($nick ison #channel && $me isop #channel) {
if (%quit-flood. [ $+ [ $wildsite ] ] == $null) {
set -u10 %quit-flood. [ $+ [ $wildsite ] ] 1
return
}
else { inc %quit-flood. [ $+ [ $wildsite ] ] }
if (%quit-flood. [ $+ [ $wildsite ] ] > 4 && %quit-flood.check == $null) {
set -u8 %quit-flood.check 1
raw -q mode #channel +bbcR *!~*@* $wildsite
notice @ $+ #channel Banning *!~*@* and $wildsite due to possible clone floods...
}
}
}


Metod 2 :


on @*:join:#channel: {
var %id = *!~*@* , %fa = $fulladdress
if (%id iswm %fa) {
if (%id. [ $+ [ $wildsite ] ] == $null) {
set -u10 %id. [ $+ [ $wildsite ] ] 1
return
}
else { inc %id. [ $+ [ $wildsite ] ] }
if (%id. [ $+ [ $wildsite ] ] > 3 && %id-check == $null) {
set -u8 %id-check 1
raw -q mode # +bbcR *!~*@* $wildsite
.notice # Bans and modes auto set due to possible floods, please be patient. Thank you.
.timer_id-flood 1 30 raw -q mode # -bcR *!~*@*
}
}
}

Metod 3 :


on @*:part:#channel: {
var %id = *!~*@* , %fa = $fulladdress
if (%id iswm %fa) {
if (%id. [ $+ [ $wildsite ] ] == $null) {
set -u10 %id. [ $+ [ $wildsite ] ] 1
return
}
else { inc %id. [ $+ [ $wildsite ] ] }
if (%id. [ $+ [ $wildsite ] ] > 4 && %id-check == $null) {
set -u8 %id-check 1
raw -q mode # +bbcR *!~*@* $wildsite
.notice # Bans and modes auto set due to possible floods, please be patient. Thank you.
.timer_id-flood 1 30 raw -q mode # -bcR *!~*@*
}
}
}


Metod 4 :

on @!*:join:#: {
var %join.flood = $wildsite
if (%join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] == $null) {
set -u10 %join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] 1
return
}
else { inc %join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] }
if (%join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] >= 4) {
if (%join.check. [ $+ [ $wildsite ] ] == $null) {
set -u8 %join.check. [ $+ [ $wildsite ] ] 1
raw -q mode # +bbcR *!~*@* %join.flood
kick # $nick Join Flood) (Banned
}
}


Metod 5 :

on *:quit: {
if (*!~*@* !iswm $fulladdress) { return }
if ($nick ison #channel && $me isop #channel) {
if (%quit-flood == $null) {
set -u10 %quit-flood 1
return
}
else { inc %quit-flood }
if (%quit-flood > 4 && %quit-flood.check == $null) {
set -u8 %quit-flood.check 1
raw -q mode #channel +bbcR *!~*@* $wildsite
notice @ $+ #channel Banning *!~*@* and $wildsite due to possible clone floods...
}
}
}

Eve Eden Dosta Dobar Addon za Bad Nick ....Se Nadevam Deka Ke Vi Posluzi....

[code]on @*:JOIN:#:{
if (*fuck*!*@* iswm $fulladdress) || (*ateюli?*!*@* iswm $fulladdress) || (*kafasэ*!*@* iswm $fulladdress) || (*jigolo*!*@* iswm $fulladdress) || (*2?cm*!*@* iswm $fulladdress) || (*oglancэ*!*@* iswm $fulladdress) || (*kalэn?!*@* iswm $fulladdress) || (*s?k?c?*!*@* iswm $fulladdress) || (*v?r?c?*!*@* iswm $fulladdress) || (*evli*!*@* iswm $fulladdress) || (*1?cm*!*@* iswm $fulladdress) || (*ate?li!*@* iswm $fulladdress) || (*lez*!*@* iswm $fulladdress) || (*kaltak!*@* iswm $fulladdress) || (*v?r?c?!*@* iswm $fulladdress) || (*j?g?l?!*@* iswm $fulladdress) || (*azgin!*@* iswm $fulladdress) || (*ipne*!*@* iswm $fulladdress) || (*dul?!*@* iswm $fulladdress) || (*orgazm*!*@* iswm $fulladdress) || (*pozisyon*!*@* iswm $fulladdress) || (*penis*!*@* iswm $fulladdress) || (*seks*!*@* iswm $fulladdress) || (*gay?!*@* iswm $fulladdress) || (*abaza*!*@* iswm $fulladdress) || (*Kur*!*@* iswm $fulladdress) {
.ban # $nick 1
/kick # $nick Your Nick Is Bad ... Change Your Nick AnD Come Back /Nick NewNick
}
}

[b]Addon DronKiller Dobar e

dialog spamsettings {
title "Spambot Killer - by GrizzLy (Undernet)"
size -1 -1 207 201
option dbu
box "Protected Channels", 1, 6 3 95 137
list 2, 11 12 84 122, size sort
box "All Channels", 3, 107 3 95 137
list 4, 112 12 84 122, size sort
button "Protect Selected Channel", 5, 107 144 95 12
button "Unprotect Selected Channel", 6, 6 144 95 12
box "Spambot Kick Message", 7, 6 159 196 21
edit %anti.spam.kick.msg, 8, 9 166 189 10
button "Apply Settings and Exit", 9, 55 183 95 12, ok
}

alias allchans {
var %allchans = $null, %a = 1
while (%a <= $chan(0)) {
var %allchans = $addtok(%allchans,$chan(%a),44)
inc %a 1
}
return %allchans
}

alias spamsettings {
dialog -md spamsettings spamsettings
didtok spamsettings 4 44 $allchans
didtok spamsettings 2 44 %anti.spam.chans
}

on 1:dialog:spamsettings:sclick:5:{
if ($did(spamsettings,4).seltext) {
set %anti.spam.chans $addtok(%anti.spam.chans,$did(spamsettings,4).seltext,44)
did -r spamsettings 2
didtok spamsettings 2 44 %anti.spam.chans
}
}

on 1:dialog:spamsettings:sclick:6:{
if ($did(spamsettings,2).seltext) {
set %anti.spam.chans $remtok(%anti.spam.chans,$did(spamsettings,2).seltext,44)
did -r spamsettings 2
didtok spamsettings 2 44 %anti.spam.chans
}
}

on 1:dialog:spamsettings:sclick:9:{
if (!$did(spamsettings,) {
set %anti.spam.kick.msg Virus Spreading Spambot
}
else {
set %anti.spam.kick.msg $did(spamsettings,
}
}

alias setspamnicks {
if (!%spamnicks) {
set %spamnicks Aldora,Alysia,Amorita,Anita,April,Ara,Aretina,Barbra,Bella,Bettina,Blenda,Briana,Bridget,Caitlin,Camille,Cara,Carla,Carmen,Chelsea,Clarissa,Damita,Danielle,Daria,Diana,Donna,Dora,Doris,Ebony,Eden,Eliza,Emily,Erin,Erika,Eve,Evelyn,Faith,Gale,Gilda,Gloria,Haley,Helga,Holly,Ida,Idona,Iris,Isabel,Ivana,Ivory,Janet,Jewel,Joanna,Julie,Juliet
set %spamnicks2 Kacey,Kali,Kara,Kassia,Katie,Katrina,Kyle,Lara,Laura,Linda,Lisa,Lola,Lolita,Lynn,Maia,Mandi,Maria,Meggie,Melody,Milenia,Mimi,Myra,Nadia,Naomi,Natalie,Nicole,Nina,Nora,Nova,Olga,Olivia,Peggy,Queen,Rae,Raquel,Rita,Rosa,Sharon,Silver,Tania,Tara,Ula,Uma,Valda,Valora,Vanessa,Vicky,Violet,Vivian,Wendy,Willa,Wilma,Xenia,Xandra,Xylia,Zenia,Zilya,Zoe
}
}

alias spamnickcheck {
set %check $1
set %regexcheck /^[A-Z][a-z]{1,9}\d{2}$/
if ($regex(%check,%regexcheck)) {
set %checknum $right(%check,2)
set %checkname $left(%check,-2)
if (%checknum isnum 10-40) {
if ($istok(%spamnicks,%checkname,44)) || ($istok(%spamnicks2,%checkname,44)) {
return 1
}
else {
return 2
}
}
else {
return 0
}
}
}

on 1:join:%anti.spam.chans:{
if (*.users.undernet.org iswm $fulladdress) { halt }
if (!%spamnicks) {
setspamnicks
}
inc -u10 %spamfloodpro 1
if (%spamfloodpro > 5) halt
set %spamcheck $spamnickcheck($nick)
if (%spamcheck == 1) {
set %spamnick $nick
set %spamchan $chan
.spambotkill
}
}

alias spambotkill {
if ((%spamchan) && (%spamnick)) {
echo -s Spambot kickbanned from %spamchan - %spamnick
inc %spambots 1
if ($me isop %spamchan) {
kick %spamchan %spamnick %anti.spam.kick.msg ·# $+ %spambots $+ ·
}
else {
msg x kick %spamchan %spamnick %anti.spam.kick.msg ·2 $+ %spambots $+ ·
}
}
}

Black List v5 By r0by "Undernet"

dialog bl2 {
title "BlackList System By r0by"
size -1 -1 161 171
option dbu
box "Power", 1, 1 0 94 17
radio "Blacklister On", 2, 3 7 43 9, flat
radio "Blacklister Off", 3, 49 7 44 9, flat
box "Date/Time", 4, 96 0 64 17
text "Mar/30/08 12:30:23 PM", 5, 100 7 58 8
box "add/rem Channels ", 6, 1 17 54 28
edit "", 7, 3 25 50 9, autohs
button "add", 8, 3 35 25 9, flat
button "rem", 9, 28 35 25 9, flat
box "add/rem Nick's", 10, 1 45 54 28
edit "", 11, 3 53 50 9, autohs
button "add", 12, 3 63 25 9, flat
button "rem", 13, 28 63 25 9, flat
box "Blacklisted Nick's", 14, 56 17 52 56
list 15, 57 25 50 46, size vsbar
box "Channel List", 16, 108 17 52 56
list 17, 109 25 50 46, size vsbar
box "Set Bmask", 18, 126 73 34 20
edit "", 19, 144 81 13 9, center
button "set", 20, 128 81 15 9, flat
box "Reason Being Used", 21, 1 73 124 20
edit "", 22, 3 81 120 9, read autohs
box "add/rem Blacklist Reason's", 23, 1 93 159 29
edit "", 24, 3 102 154 9, autohs
button "add", 25, 3 112 77 9, flat
button "rem", 26, 80 112 77 9, flat
box "Blacklist Reason List", 27, 1 122 159 48
list 28, 3 131 154 37, size vsbar
}
on *:load: {
echo 12 -a You Have Just Loaded Napa182's Blacklist System
echo 12 -a A Script0rs Inc. Production
echo -a 14,1(14,1?15,1?0,1?0,1? «?X§C®KaVTeaM®§X?» ?0,1?15,1?14,1?)™
}
alias bl2 { dialog $iif($dialog(bl2),-v,-md) bl2 bl2 }
alias bl2datetime { did -ra bl2 5 $time(mmm/dd/yy h:nn:ss tt) }
alias blacklisted {
var %a = $gettok(%blchan,1-,44), %b = $numtok(%a,44), %c = 1
while (%c <= %b) {
if ($did(11).text ison $gettok(%a,%c,44)) && ($me isop $gettok(%a,%c,44)) {
ban -k $gettok(%a,%c,44) $did(11).text %blbmask Blacklisted :Reason: $iif(%blreasonsel == $null,Just Because,%blreasonsel)
}
inc %c
}
}
menu nicklist {
-
. $iif($istok(%bluser,$1,44) != $false,$style(2)) Add ( $+ $$1 $+ ) To Blacklist:{
if ($me !isop #) { noop $input(You Are NOT an op in the active channel,uho,ERROR!) }
elseif (!%blpower) || (!%blbmask) { noop $input(Please Enter A Ban Mask. Or Turn On The Power.,uho,ERROR!) | bl2 | did -a bl2 11 $$1 }
elseif (%blpower) && (%blbmask) {
if ($input(Are You Sure You Want To Add ( $+ $$1 $+ ) To The Blacklist,uqy,O_O) == $true) {
.auser blacklisted $address($$1,%blbmask)
set %bluser $addtok(%bluser,$1,44)
noop $input(( $+ $$1 $+ ) Has Been Added To The Blacklist. ( $+ $$1 $+ ) Will Now Be Kicked,uwo,Attention)
var %a = $gettok(%blchan,1-,44), %b = $numtok(%a,44), %c = 1
while (%c <= %b) {
if ($$1 ison $gettok(%a,%c,44)) && ($me isop $gettok(%a,%c,44)) {
ban -k $gettok(%a,%c,44) $$1 %blbmask Blacklisted :Reason: $iif(%blreasonsel == $null,Just Because,%blreasonsel)
}
inc %c
}
}
else { halt }
}
}
-
}
menu menubar,channel {
-
.Blacklist System
..Open Blacklist System:{ bl2 }
.. $iif(%bluser == $null,$style(2)) Remove Nick From Blacklist:{
var %rem $$?="Enter Nick To Remove From Blacklist"
if (!$istok(%bluser,%rem,44)) { noop $input(( $+ %rem $+ ) Is Not In The Blacklist,uho,Error) }
else {
if ($input(Are You Sure You Want To Remove ( $+ %rem $+ ) From The Blacklist,uqy,O_O) == $true) {
.ruser blacklisted $address(%rem,2)
set %bluser $remtok(%bluser,%rem,1,44)
noop $input(( $+ %rem $+ ) Has Been Removed From The Blacklist,uwo,Attention)
}
else { halt }
}
}
..Add Nick To Blacklist:{
if ($me !isop #) { noop $input(You Are NOT an op in the active channel,uho,ERROR!) }
elseif (!%blpower) || (!%blbmask) { noop $input(Please Enter A Ban Mask. Or Turn On The Power.,uho,ERROR!) | bl2 }
elseif (%blpower) && (%blbmask) {
var %add $$?="Enter Nick To Add To Blacklist"
if ($istok(%bluser,%add,44)) { noop $input(( $+ %add $+ ) Is Already In The Blacklist,uho,Error) }
else {
if ($input(Are You Sure You Want To Add ( $+ %add $+ ) To The Blacklist,uqy,O_O) == $true) {
.auser blacklisted $address(%add,%blbmask)
set %bluser $addtok(%bluser,%add,44)
noop $input(( $+ %add $+ ) Has Been Added To The Blacklist. ( $+ %add $+ ) Will Now Be Kicked,uwo,Attention)
var %a = $gettok(%blchan,1-,44), %b = $numtok(%a,44), %c = 1
while (%c <= %b) {
if (%add ison $gettok(%a,%c,44)) && ($me isop $gettok(%a,%c,44)) {
ban -k $gettok(%a,%c,44) %add %blbmask Blacklisted :Reason: $iif(%blreasonsel == $null,Just Because,%blreasonsel)
}
inc %c
}
}
else { halt }
}
}
}
-
}
on *:dialog:bl2:close:0:{ .timerbl2datetime off }
on *:dialog:bl2:init:0:{
did -a bl2 5 $time(mmm/dd/yy h:nn:ss tt)
if ($timer(bl2datetime)) { haltdef }
else { .timerbl2datetime 0 1 bl2datetime }
if (%blpower) { did -c bl2 2 | did -e bl2 8,12,19,20 }
if (!%blpower) { did -c bl2 3 | did -b bl2 8,12,19,20 }
if (%blbmask) { did -a bl2 19 %blbmask }
if (%blreasonsel) { did -a bl2 22 %blreasonsel }
var %x = 1
while (%x <= $lines(blreason.txt)) {
did -a bl2 28 $read(blreason.txt,%x)
inc %x
}
var %d = $gettok(%bluser,1-,44), %e = $numtok(%d,44), %f = 1
while (%f <= %e) {
did -a bl2 15 $gettok(%d,%f,44)
inc %f
}
var %a = $gettok(%blchan,1-,44), %b = $numtok(%a,44), %c = 1
while (%c <= %b) {
did -a bl2 17 $gettok(%a,%c,44)
inc %c
}
}
on *:dialog:bl2:sclick:*:{
if ($did == 2) { set %blpower on | did -e bl2 8,12,19,20 }
if ($did == 3) { unset %blpower | did -b bl2 8,12,19,20 }
if ($did == 20) {
if ($did(19).text isalpha) || ($regex($right($did(19).text,-1),/[0-9]/g)) {
noop $input(Please Enter A Number 0 - 9,uho,Error)
did -r bl2 19
}
else { set %blbmask $did(19).text }
}
if ($did == {
if (!$did(7).text) {
noop $input(No Channel Was Entered,uho,ERROR!)
}
elseif ($left($did(7).text,1) != $chr(35)) {
noop $input(Please Enter Channel As Syntax: #channel,uho,Syntax Error!)
did -r bl2 7
}
elseif ($did(7).text) {
if ($istok(%blchan,$did(7).text,44)) {
noop $input(Channel Already Exists,uho,ERROR!)
did -r bl2 7
}
else {
set %blchan $addtok(%blchan,$did(7).text,44)
did -r bl2 7,17
var %a = $gettok(%blchan,1-,44), %b = $numtok(%a,44), %c = 1
while (%c <= %b) {
did -a bl2 17 $gettok(%a,%c,44)
inc %c
}
}
}
}
if ($did == 9) {
if (!$did(7).text) && (!$did(17).seltext) {
noop $input(No Channel Was Entered Or Selected,uho,ERROR!)
}
elseif ($left($did(7).text,1) != $chr(35)) && (!$did(17).seltext) {
noop $input(Please Enter Channel As Syntax: #channel,uho,Syntax Error!)
did -r bl2 7
}
elseif ($did(7).text) && (!$did(17).seltext) {
if ($did(7).text !isin $gettok(%blchan,1-,44)) {
noop $input(Channel Does Not Exists,uho,Error!)
did -r bl2 7
}
elseif ($did(7).text) && (!$did(17).seltext) {
if ($istok(%blchan,$did(7).text,44)) {
set %blchan $remtok(%blchan,$did(7).text,1,44)
did -r bl2 7,17
var %a = $gettok(%blchan,1-,44), %b = $numtok(%a,44), %c = 1
while (%c <= %b) {
did -a bl2 17 $gettok(%a,%c,44)
inc %c
}
}
}
}
elseif ($did(17).seltext) && (!$did(7).text) {
set %blchan $remtok(%blchan,$did(17).seltext,1,44)
did -r bl2 17
var %a = $gettok(%blchan,1-,44), %b = $numtok(%a,44), %c = 1
while (%c <= %b) {
did -a bl2 17 $gettok(%a,%c,44)
inc %c
}
}
}
if ($did == 12) {
if (!$did(11).text) {
noop $input(No Nick Was Entered,uho,ERROR!)
}
elseif ($did(11).text) {
if ($istok(%bluser,$did(11).text,44)) {
noop $input(Nick Already Exists,uwo,ERROR!)
did -r bl2 11
}
elseif ($me !isop $active) { noop $input(You Are NOT an op in the active channel,uho,ERROR!) }
elseif (!%blpower) || (!%blbmask) { noop $input(Please Enter A Ban Mask. Or Turn The Power On,uho,ERROR!) }
elseif (%blpower) && (%blbmask) {
.auser blacklisted $address($did(11).text,%blbmask)
set %bluser $addtok(%bluser,$did(11).text,44)
blacklisted
did -r bl2 11,15
var %d = $gettok(%bluser,1-,44), %e = $numtok(%d,44), %f = 1
while (%f <= %e) {
did -a bl2 15 $gettok(%d,%f,44)
inc %f
}
}
}
}
if ($did == 13) {
if (!$did(11).text) && (!$did(15).seltext) {
noop $input(No Nick Was Entered Or Selected,uho,ERROR!)
}
elseif ($did(11).text) && (!$did(15).seltext) {
if ($did(11).text !isin $gettok(%bluser,1-,44)) {
noop $input(Nick Does Not Exists,uho,Error!)
did -r bl2 11
}
elseif ($did(11).text) && (!$did(15).seltext) {
if ($istok(%bluser,$did(11).text,44)) {
.ruser blacklisted $address($did(11).text,%blbmask)
set %bluser $remtok(%buser,$did(11).text,44)
did -r bl2 11,15
var %d = $gettok(%bluser,1-,44), %e = $numtok(%d,44), %f = 1
while (%f <= %e) {
did -a bl2 15 $gettok(%d,%f,44)
inc %f
}
}
}
}
elseif ($did(15).seltext) && (!$did(11).text) {
.ruser blacklisted $address($did(15).seltext,%blbmask)
set %bluser $remtok(%bluser,$did(15).seltext,1,44)
did -r bl2 15
var %d = $gettok(%bluser,1-,44), %e = $numtok(%d,44), %f = 1
while (%f <= %e) {
did -a bl2 15 $gettok(%d,%f,44)
inc %f
}
}
}
if ($did == 25) {
if (!$did(24).text) {
noop $input(Error Please Enter A BlackList Reason,uho,Error!)
}
elseif ($did(24).text) {
var %ablmessage $read(blreason.txt,w,$did(24).text)
if (%ablmessage == $did(24).text) {
noop $input(BlackList Reason Already Exists,uho,Error!)
did -r bl2 24
}
else {
.write blreason.txt $did(24).text
did -r bl2 24,28
var %x = 1
while ( %x <= $lines(blreason.txt)) {
did -a bl2 28 $read(blreason.txt,%x)
inc %x
}
}
}
}
if ($did == 28) { did -ra bl2 22 $did(28).seltext | set %blreasonsel $did(28).seltext }
if ($did == 26) {
if (!$did(24).text) && (!$did(28).seltext) {
noop $input(No Blacklist Reason Was Entered Or Selected,uho,Error!)
}
elseif ($did(24).text) && (!$did(28).seltext) {
var %dblmessage $read(blreason.txt,w,$did(24).text)
if (%dblmessage != $did(24).text) {
noop $input(Blacklist Reason Does Not Exists,uho,Error!)
did -r bl2 24
}
elseif ($did(24).text) && (!$did(28).seltext) {
var %dblmessage $read(blreason.txt,w,$did(24).text)
if (%dblmessage == $did(24).text) {
write -dl [ $+ [ $readn ] ] blreason.txt
unset %blreasonsel
did -r bl2 22,24,28
var %x = 1
while ( %x <= $lines(blreason.txt)) {
did -a bl2 28 $read(blreason.txt,%x)
inc %x
}
}
}
}
elseif ($did(28).seltext) && (!$did(24).text) {
var %dblmessage $read(blreason.txt,w,$did(28).seltext)
if (%dblmessage == $did(28).seltext) {
write -dl [ $+ [ $readn ] ] blreason.txt
unset %blreasonsel
did -r bl2 22,28
var %x = 1
while ( %x <= $lines(blreason.txt)) {
did -a bl2 28 $read(blreason.txt,%x)
inc %x
}
}
}
}
}
on blacklisted:join:#:{
if (%blpower) && ($me isop #) {
if ($istok(%blchan,$chan,44)) {
ban -k # $nick %blbmask Blacklisted :Reason: $iif(%blreasonsel == $null,Just Because,%blreasonsel)
}
}
}

Ајде сега јас да видиме што имам да понудам...

------------------------------------------------------------
Аддон наречен Анти Болд
------------------------------------------------------------
on *:text:*:#:{
if ($chan iswm %antibold) {
if ( isin $1-) { msg x ban $chan *!*@ $+ $gettok($address($nick,1),2,64)) Banned: Don`t use BOLD! }
}
}
menu Channel {
Anti Bold
.$iif($chan iswm %antibold,Del $chan): set %antibold $remtok(%antibold,$chan,32) | echo $active Anti Bold zastitata za kanalot $chan e OFF.
.$iif($chan !iswm %antibold,Add $chan): set %antibold $addtok(%antibold,$chan,32) | echo $active Anti Bold zastitata za kanalot $chan e ON.
}

-----------------------------------------------------------------
Addon narecen Anti Color
-----------------------------------------------------------------
on *:text:*:#:{
if ($chan iswm %anticolor) {
if ( isin $1-) { msg x kick $chan *!*@ $+ $gettok($address($nick,1),2,64)) Banned: Don`t use COLOR! }
}
}
menu Channel {
Anti Color
.$iif($chan iswm %anticolor,Del $chan): set %anticolor $remtok(%anticolor,$chan,32) | echo $active Color zastitata za kanalot $chan e OFF.
.$iif($chan !iswm %anticolor,Add $chan): set %anticolor $addtok(%anticolor,$chan,32) | echo $active Color zastitata za kanalot $chan e ON.
}

---------------------------------------------------------------
Anti repeat
---------------------------------------------------------------
#repeat on
on @*:text:*:#: {
if ($nick !isop #) {
if (%r. [ $+ [ $nick ] $+ . $+ [ $chan ] ] == $null) {
set -u60 %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ] 1
set -u60 %r.text. [ $+ [ $nick ] $+ . $+ [ $chan ] ] $1-
return
}
var %rps = %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ]
var %rpt = %r.text. [ $+ [ $nick ] $+ . $+ [ $chan ] ]
if (%rpt == $1-) {
inc %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ]
if (%rps > 1) {
/msg x ban # $wildsite 1 100 Repeat Flood Detected !!!
}
}
}
}
#repeat end

--------------------------------------------------------
Anti Caps
--------------------------------------------------------
#anticaps on
on @*:text:*:#:{
if ($len($1-) >= 15 ) && ($nick isreg #) {
if ($calc($regex($1-,/[A-Z]/g) / $regex($1-,/[A-Z]/gi) * 100) >= 60) msg x kick # $nick Pritisni da pisuvas so golemi bukvi !!! -  $v1 $+ %
}
}
#anticaps end

Е сега мислчам дека во "Скрипташи" без конкуренција е СкајДравјвер

---------------------------------------------------------------------
Eve eden odlicen Code Kicker
---------------------------------------------------------------------
alias -l ccdlg { dialog -m controlcode controlcode }
alias -l ccinfodlg { dialog -m controlcode_info controlcode_info }
alias -l loadchans { if ($isfile(" $+ $scriptdirctrlchans.txt $+ ")) .loadbuf -o $dname 4 " $+ $scriptdirctrlchans.txt $+ " }

menu menubar,channel,status {
Code Protection
.Setup:{ ccdlg }
.Help:{ run " $+ $scriptdirccprot_readme.txt $+ " }
.-
.Unload:{ if ($input(Are you sure you want to unload this script?,136,Unload Confirmation)) .unload -rs " $+ $script $+ " }
}

dialog controlcode {
title "Code Protection"
size -1 -1 162 185
option dbu
text "Channels to operate on:", 3, 6 42 60 8
combo 4, 74 41 81 61, size vsbar
text "Exclude:", 10, 6 55 25 8
check "Ops", 8, 6 65 43 10
check "HalfOps", 9, 6 76 34 10
check "Voices", 11, 6 87 30 10
button "Add", 6, 77 104 30 10
button "Delete", 7, 123 104 30 10
text "Action:", 1, 6 110 21 8
radio "Warn user", 2, 6 122 40 10
radio "Kick user", 5, 53 122 35 10
radio "K/B user", 12, 100 122 35 10
check "Enable", 20, 4 5 32 10
text "Enter max control codes:", 17, 6 29 64 8
edit "", 18, 73 28 82 10, autohs
box "Channel Options", 14, 2 19 158 146
button "OK", 16, 24 170 33 11, ok
button "Cancel", 21, 104 170 33 11, cancel
check "Display 'info' dialog", 22, 74 5 58 10
text "Warning message:", 13, 6 136 46 8
edit "", 15, 55 135 102 10, autohs
text "Kick message:", 23, 6 149 41 8
edit "", 24, 55 148 102 10, autohs
}

dialog controlcode_info {
title "Control codes - Info"
size -1 -1 140 100
option dbu
text "Color codes used:", 1, 4 5 46 8
edit "", 2, 70 4 66 10, read autohs
text "Underline codes used:", 3, 4 18 58 8
edit "", 4, 70 17 66 10, read autohs
text "Bold codes used:", 5, 4 31 45 8
edit "", 6, 70 30 66 10, read autohs
text "Reverse codes used:", 7, 4 44 56 8
edit "", 8, 70 43 66 10, read autohs
text "Total:", 9, 4 57 20 8
edit "", 10, 70 56 66 10, read autohs
;;button "Display to channel", 11, 82 68 53 10
button "OK", 12, 52 86 34 10, ok
}

on *:dialog:controlcode_info:init:*:{
if (%color.codes != $null) { did -a $dname 2 %color.codes }
if (%underline.codes != $null) { did -a $dname 4 %underline.codes }
if (%bold.codes != $null) { did -a $dname 6 %bold.codes }
if (%reverse.codes != $null) { did -a $dname 8 %reverse.codes }
if (%tot.ccodes != $null) { did -a $dname 10 %tot.ccodes }
unset %color.codes %underline.codes %bold.codes %reverse.codes %tot.ccodes
}

on *:dialog:controlcode:sclick:*:{
if ($did == 20) { if ($did(20).state == 0) set %ctrlcodes off | if ($did(20).state == 1) set %ctrlcodes on }
if ($did == 22) { if ($did(22).state == 0) set %showctrldialog off | if ($did(22).state == 1) set %showctrldialog on }
if ($did == 2) { set %ccpunish 1 }
if ($did == 5) { set %ccpunish 2 }
if ($did == 12) { set %ccpunish 3 }
if ($did == 6) {
if ($left($did(4),1) != $chr(35)) { write " $+ $scriptdirctrlchans.txt $+ " $chr(35) $+ $did(4) | did -r $dname 4 | loadchans }
if ($left($did(4),1) == $chr(35)) { write " $+ $scriptdirctrlchans.txt $+ " $did(4) | did -r $dname 4 | loadchans }
}
if ($did == 7) { write -d " $+ $scriptdirctrlchans.txt $+ " $did(4).sel | did -r $dname 4 | loadchans }
if ($did == { if ($did(.state == 0) set %ccops no | if ($did(.state == 1) set %ccops yes }
if ($did == 9) { if ($did(9).state == 0) set %cchops no | if ($did(9).state == 1) set %cchops yes }
if ($did == 11) { if ($did(11).state == 0) set %ccvoice no | if ($did(11).state == 1) set %ccvoice yes }
}

on *:dialog:controlcode:edit:*:{
if ($did == 18) { set %maxcc $did(18) }
if ($did == 24) { set %cckmsg $did(24) }
if ($did == 15) { set %ccwarnmsg $did(15) }
}

on *:dialog:controlcode:init:*:{
did -a $dname 18 %maxcc | did -a $dname 24 %cckmsg | did -a $dname 15 %ccwarnmsg
if (%ccpunish == 1) did -c $dname 2 | if (%ccpunish == 2) did -c $dname 5 | if (%ccpunish == 3) did -c $dname 12
if (%ctrlcodes == on) did -c $dname 20 | if (%showctrldialog == on) did -c $dname 22
if (%ccops == yes) did -c $dname 8 | if (%cchops == yes) did -c $dname 9 | if (%ccvoice == yes) did -c $dname 11
loadchans
}

on *:dialog:controlcode:close:*:{
if ($did(24) == $null) { set %cckmsg Please refrain from using so many control codes here. }
if ($did(15) == $null) { set %ccwarnmsg Please refrain from using so many control codes here. }
}

on *:TEXT:*:#:{
if (%ctrlcodes == on) {
if ($read(" $+ $scriptdirctrlchans.txt $+ ",w,$chan)) {
set %color.codes $calc($count($1-,$chr(3))) | set %bold.codes $calc($count($1-,$chr(2))) | set %underline.codes $calc($count($1-,$chr(31))) | set %reverse.codes $calc($count($1-,$chr(22))) | set %tot.ccodes $calc(%color.codes + %bold.codes + %underline.codes + %reverse.codes)
if ($chr(3) isin $1-) || ($chr(2) isin $1-) || ($chr(31) isin $1-) || ($chr(22) isin $1-) && (%tot.ccodes > %maxcc) {
if (%ccpunish == 1) && ($me isop $chan) {
if ($nick isreg $chan) { .notice $nick %ccwarnmsg }
elseif ($nick isvoice $chan) && (%ccvoice == no) { .notice $nick %ccwarnmsg }
elseif ($nick ishop $chan) && (%cchops == no) { .notice $nick %ccwarnmsg }
elseif ($nick isop $chan) && (%ccops == no) { .notice $nick %ccwarnmsg }
else { haltdef }
}
if (%ccpunish == 2) && ($me isop $chan) {
if ($nick isreg $chan) { msg x kick $chan $nick %cckmsg }
elseif ($nick isvoice $chan) && (%ccvoice == no) { msg x kick $chan $nick %cckmsg }
elseif ($nick ishop $chan) && (%cchops == no) { msg x kick $chan $nick %cckmsg }
elseif ($nick isop $chan && %ccops == no) { msg x kick $chan $nick %cckmsg }
else { haltdef }
}
if (%ccpunish == 3) && ($me isop $chan) {
if ($nick isreg $chan) { msg x ban $chan *!*@ $+ $gettok($address($nick,1),2,64)) 1 100 %cckmsg }
elseif ($nick isvoice $chan) && (%ccvoice == no) { msg x ban $chan *!*@ $+ $gettok($address($nick,1),2,64)) 1 100 %cckmsg }
elseif ($nick ishop $chan) && (%cchops == no) { msg x ban $chan *!*@ $+ $gettok($address($nick,1),2,64)) 1 100 %cckmsg }
elseif ($nick isop $chan) && (%ccops == no) { msg x ban $chan *!*@ $+ $gettok($address($nick,1),2,64)) 1 100 %cckmsg }
else { haltdef }
}
if (%showctrldialog == on) && ($dialog(controlcode_info) == $null) ccinfodlg
elseif (%showctrldialog == on) && ($dialog(controlcode_info) != $null) {
did -r controlcode_info 2,4,6,8,10 | did -a controlcode_info 2 %color.codes | did -a controlcode_info 4 %underline.codes | did -a controlcode_info 6 %bold.codes | did -a controlcode_info 8 %reverse.codes | did -a controlcode_info 10 %tot.ccodes
unset %color.codes %underline.codes %bold.codes %reverse.codes %tot.ccodes
}
else { halt }
}
}
}
}

on *:load:{
if ($version > 6.02) { set %cckmsg Please refrain from using so many control codes here. | set %ccwarnmsg Please refrain from using so many control codes here. | set %ctrlcodes on | set %ccops yes | set %cchops no | set %ccvoice no | set %maxcc 12 | set %ccpunish 2 | set %showctrldialog on | echo -a 10ControlCode Protection by SwitchDragon was successfully loaded. | ccdlg }
else { echo -a 10Sorry. This addon requires mIRC 6.03. Please download the latest version from www.mirc.com | .unload -rs " $+ $script $+ " }
}

on *:unload:{ unset %cckmsg %ccwarnmsg %ctrlcodes %ccops %cchops %ccvoice %maxcc %ccpunish %showctrldialog %color.codes %underline.codes %bold.codes %reverse.codes %tot.ccodes | echo -a 10ControlCode Protection by SwitchDragon was successfully unloaded. }

---------------------------------------------------------
Addon narecen Clone Scanner
---------------------------------------------------------
menu channel,menubar {
Clone Detector
.$iif($group(#CloneDetect) == on,Disable,Enable) clone scan on join: {
var %status = $iif($group(#CloneDetect) == on,Disable,Enable)
$+(.,%status) #CloneDetect
echo 7 -at * On join clone scanning $+(%status,d.) Users will $iif(%status == Disable,no longer,now) be scanned for clones when they join
}
.$iif($active ischan,Scan for clones in $active):CloneScan
}
#CloneDetect off
on *:join:#: {
if ($address($nick,2) == $address($me,2)) halt
if ($read(allowedhost.txt,w,$address($nick,2))) halt
if ($ial($address($nick,2),0) > 1) {
var %x = 1
while (%x <= $ial($address($nick,2),0)) {
var %clones = $iif(%clones,%clones &) $ial($address($nick,2),%x).nick
inc %x
}
echo 10 -t $chan [Clones Detected] %clones @ $site
}
}
#CloneDetect end
alias CloneScan {
if ($1 == on) {
if ($group(#CloneDetect) == on) Echo 4 -at Clone Scanning on join is already enabled
else {
.enable #CloneDetect
echo 7 -at * On join clone scanning Enabled. Users will now be scanned for clones when they join
}
}
elseif ($1 == off) {
if ($group(#CloneDetect) == off) Echo 4 -at Clone Scanning on join is already disabled
else {
.disable #CloneDetect
echo 7 -at * On join clone scanning Disabled. Users will no longer be scanned for clones when they join
}
}
elseif ($active !ischan) echo 4 -a ERROR: You need to scan in a channel
else {
who $chan
var %nicks = $nick($chan,0), %x = 0
while (%x <= %nicks) {
var %host = $address($nick($chan,%x),2)
if (%host != $address($me,2)) && (!$read(allowedhost.txt,w,%host)) {
if ($ialchan(%host,$chan,0) > 1) && (!$istok(%clone.hosts,%host,44)) {
var %y = 1, %clones = $ialchan(%host,$chan,0), %clones.found = yes
while (%y <= %clones) {
var %nick = $gettok($ialchan(%host,$chan,%y),1,33)
var %clone.nicks = $iif(%clone.nicks,%clone.nicks &) %nick
inc %y
}
echo 10 -a [Clones Detected] %clone.nicks @ $gettok(%host,2,64)
var %clone.hosts = $addtok(%clone.hosts,%host,44)
unset %clone.nicks
}
}
inc %x
}
if (!%clones.found) echo 10 -a No clones found
}
}

----------------------------------------------------------------
Deop Protection
----------------------------------------------------------------
#deopprot on
on *:deop:#:{
if (($opnick == $me) && ($nick != $me)) { //.msg x lbanlist $chan *!*@* }
else { halt } | { //.msg x unban $chan $me } | { //.msg x invite $chan $me } | { //.msg x op $chan }
}
}
#deopprot end

-----------------------------------------------------------------
Auto Voice
-----------------------------------------------------------------
#auto.voice off
on *:join:#:{
if ($me isop $chan) { /mode # +v $nick }
}
#auto.voice end


menu channel {
Auto Voice
.auto tools
..autoVoice $chr(9) $iif($group(#auto.voice) == on, On, Off): $iif($group(#auto.voice) == on, .disable, .enable) #auto.voice
}

Aјмо Даме можеш ти

Admin напиша:

Aјмо Даме можеш ти

haha.. можам јас ама пола аддони несакаат да се пастираат :D ми вика Too Long