home *** CD-ROM | disk | FTP | other *** search
/ Hackers Toolkit v2.0 / Hackers_Toolkit_v2.0.iso / HTML / archive / IRC / beer.irc < prev    next >
Text File  |  1999-11-04  |  3KB  |  91 lines
  1. # IRCD Command Link
  2. # Just incase:
  3. set novice off
  4.  
  5. assign logo -iRCD-
  6.  
  7. alias vecho {echo *** $logo $0-}
  8. vecho v31337 L0ADiNG....
  9.  
  10. alias linkup {if ([$3])
  11.         {^eval assign servnum $connect($0 $1)
  12.          ^eval assign site $0
  13.          ^eval assign pass $3
  14.          ^eval assign server $2 
  15.          vecho Linking to port $1 of $0
  16.               ^eval dcc raw $servnum $site pass $3
  17.              ^eval dcc raw $servnum $site server $2
  18.          timer 2 vecho Finished.
  19.         }
  20.         {vecho Usage: /linkup <uplink> <port> <server name> <server password>}
  21.          }
  22.          
  23. alias droplink {^eval dcc close raw $servnum
  24.         ^eval assign -servnum
  25.         ^eval assign -site
  26.         ^eval assign -pass
  27.         ^eval assign -server
  28.         timer 1 vecho Link killed.    
  29.            }
  30.  
  31. alias sn {^dcc raw $servnum $site NOTICE $0 :$1-}
  32. alias sm {^dcc raw $servnum $site MODE $0-}
  33. alias sr {^dcc raw $servnum $site $0-}
  34. #alias sn {snotice($whofrom $0-)}
  35.  
  36. on ^dcc_raw * #
  37. on ^dcc_raw "% % D PING *" dcc raw $servnum $site PING $4
  38. on ^dcc_raw "* PRIVMSG *" {if ([$5]==[x@eReet.techwood.org]) {
  39.         assign served 0
  40.             assign whofrom $strip(: $3)
  41.         assign command $strip(: $6)
  42.         if ([$COMMAND]==[HELP]) {assign served 1
  43.              sn $whofrom //// -WERD iRCD B0T COMMANDS- ////
  44.              sn $whofrom OPME <channel>
  45.              sn $whofrom MODE <channel>
  46.                  sn $whofrom KICK <nick> <channel> <reason> 
  47.              sn $whofrom KILL <nick> <reason>
  48.              sn $whofrom COLLIDE <nick>
  49.              sn $whofrom NEWSERV <server name>
  50.              sn $whofrom NEWUSER <parameters given, run alone>
  51.           }
  52.         if ([$COMMAND]==[OPME]) {assign served 1
  53.              sn $whofrom Now Giving +o to $whofrom on $7
  54.              sm $7 +o $whofrom
  55.           }
  56.         if ([$COMMAND]==[MODE]) {assign served 1
  57.              sn $whofrom Now Changing $7's mode to $8-.
  58.              sm $7-
  59.           }
  60.         if ([$COMMAND]==[KICK]) {assign served 1
  61.              sn $whofrom Now Kicking $7 from $8 Reason: $9-
  62.              sr KICK $8 $7 $9-
  63.           }
  64.         if ([$COMMAND]==[KILL]) {assign served 1
  65.              sn $whofrom Now Killing $7 Reason: $8-
  66.              sr KILL $7 $8-
  67.           }
  68.         if ([$COMMAND]==[NEWSERV]) {assign served 1
  69.              sn $whofrom Creating Server $7
  70.              sr SERVER $7 :werd.
  71.           }
  72.         if ([$COMMAND]==[COLLIDE]) {assign served 1
  73.              sn $whofrom Now Nick Colliding $7
  74.              sr NICK $7
  75.           }
  76.         if ([$COMMAND]==[NEWUSER]) {assign served 1
  77.               if (![$11]) {sn $whofrom Parameters for NEWUSER:
  78.                    sn $whofrom <NICK> <userid> <site> <server> <irc name> <channel to JOIN> 
  79.                    sn $whofrom the last option isn't necessary}
  80.              {sn $whofrom Creating User: $7!$8@$9 on $10
  81.               sr NICK $7
  82.               sr :$7 USER $8 $9 $10 :$11
  83.               sr :$7 JOIN $12}
  84.           }
  85.           if ([$served]==[0]){sn $whofrom :Try "/msg x@$server help."}
  86.             }
  87.         assign -whofrom
  88.         }
  89.  
  90. vecho v31337 L0ADED AND ARM3D. Type /IRCDHELP for yew gno what.
  91.