# Teknap.rc File
# Written by originalhandy
# Released 18 March 2003
# ---
# Loads automatically with TekNap
eval xecho -b $cparse(%RTekNap.rc) $cparse(%W- By) $cparse(%Roriginalhandy) - Loaded! - $cparse(%Gwww.maste%Wrnap.org/or%Yiginalhandy)

^eval set show_numerics_str $cparse(%b<%B<%w$0%B/%W$1%B>%b>)

server +add masternap.kicks-ass.net:1234:User:Pass:0
server +add hovis.servemp3.com:6666:User:Pass:0
server +add deeviants.servebeer.com:8888:User:Pass:0
server +add mentalx.hn.org:6969:User:Pass:0
server +add wild-wolf.dynodns.net:7777:User:Pass:0
server +add ukmp3.no-ip.com:8888:User:Pass:0
server +add bettyrama.servemp3.com:8888:User:Pass:0
server +add alcomillers.no-ip.com:3456:User:Pass:0
server +add camelot.camelotnet.org:8000:User:Pass:0
server +add usetheforks.camelotnet.org:8888:User:Pass:0
server +add fullmetalmyndlynx.camelotnet.org:User:Pass:0
server +add original-idea.no-ip.com:3456:User:Pass:0
server +add barneyonline.no-ip.org:3456:User:Pass:0
server +add nite-owl.no-ip.org:7777:User:Pass:0
server +add laufwerkb.dns2go.com:8888:User:Pass:0
server +add sandymaus.homeip.net:8888:User:Pass:0
server +add gauloises.dns2go.com:3456:User:Pass:0
server +add nitecruisers.servemp3.com:8888:User:Pass:0
server +add blucruisers.servemp3.com:3456:User:Pass:0
server +add myieks.hopto.org:8888:User:Pass:0
server +add Chrome-1.darkservers.net:3456:User:Pass:0
server +add talons.napicide.org:8888:User:Pass:0
server +add Lemnz.no-ip.com:18888:User:Pass:0
server +add openworld.d2g.com:4444:User:Pass:0
server +add sci-fi-nap.servemp3.com:50005:User:Pass:0


/*
on #-connect 12 "*" {join #Alternative}
*/


on -connect "*" {
join #Alternative 
join #TekNap
}

#If you ghost on a network type /nick and your ghost will be kicked. Put username and password where it says
alias nick { /msg nickserv ghost Username Pass }

# when you type /xray <user> it searches the database for matching ip's
alias xray {/w -cmd {gusers -ip $12} $0}

alias serverwin
{
window new level server
window -refnum 2 size 6
window -refnum 1
signore -del "*"
}

alias nowin
{
window -refnum 2 kill
signore "*"
}


/*window new level server
window new level msgs,wallops
window -refnum 1
window level CRAP,PUBLIC
*/

alias time {
  say The Time Is $strftime($time() %x at %X)
}

alias eire {
  say $cparse(%GRepub%Wlic of Ir%Yeland)
}


load C:\TekNap\script\colors.rc
load C:\TekNap\dir.rc
/*load c:\teknap\away*/

eval xecho -b $cparse(%BVisit My Sites)
eval xecho -b $cparse(%Gwww.originalhandy.com)
eval xecho -b $cparse(%Gwww.geocities.com/monkeyhtml)
eval xecho -b $cparse(%Wwww.geocities.com/completeianbrown)
eval xecho -b $cparse(%Wwww.shelshomepage.net)
eval xecho -b $cparse(%Ywww.geocities.com/shelshpicturehouse)
eval xecho -b $cparse(%Ywww.geocities.com/fandmdisease)

alias sayc (text) {say $cparse("$text")}
alias mec (text) {me $cparse("$text")}
alias walc (text) {wallop $cparse("$text")}
alias msgc (nick, text) {msg $nick $cparse("$text")}
alias annc (text) {announce $cparse("$text")}
alias topc (channel, text) {topic $C $cparse("$text")}
alias sayb (text) {say $reverse($text)}
alias walb (text) {wallop $reverse($text)}
alias annb (text) {announce $reverse($text)}
alias msgb (nick, text) {msg $nick $reverse($text)}
alias meb (text) {me $reverse($text)}
alias opc (text) {opsay $cparse("$text")}
alias whereis (nick, null) {msg nickserv server $nick}
alias music { share $c:\Music }
alias giveit { share -share }
alias unshare { share -unshare }

alias colors sayc %wColor list. % %0 0 %1 1 %2 2 %3 3 %4 4 %5 5 %6 6 %7 %k7 %n %GG %RR %BB %YY %CC %WW %MM %KK %gg %rr %cc %bb %yy %mm %ww %7%kk%n %FF %nn

# enuff said

on ^servermsg "% has muzzled *" {xecho $cparse(%y[%W$strftime(%I:%M%p)%y]%K \(-%YMUZZLE%K-\)%n) $0-}
on ^servermsg "% has unmuzzled *" {xecho -b $cparse(%c$0 %Whas unmuzzled %c$3-)}
on ^servermsg "% killed *" {xecho -b $cparse($stime %C$0-)}
on ^servermsg "* % killed *Password"  {}
on ^servermsg "Connection from *" {}
on ^servermsg "Notification from *" {xecho -b $cparse($stime %W$0-)}
on ^servermsg "% changed % user *" {xecho -b $cparse($stime %C$0-)}
on ^servermsg "% changed % data *" {xecho -b $cparse($stime %W$0-)}
on ^servermsg "* % changed % user *" {xecho -b $cparse($stime %C$0-)}
on ^servermsg "% has cloaked" {xecho -b $cparse($strftime(%H:%M) %R$0 has cloaked!)}
on ^servermsg "% has uncloaked" {xecho -b $cparse($strftime(%H:%M) %R$0 has uncloaked!)}
on ^servermsg "% kicked *" {xecho -b $cparse($stime %c$0 %Wkicked %c$2 %Wout of %c$6-)}
on ^servermsg "Pinging all *" {}
on ^servermsg "Pong from server *" {xecho -b $cparse($stime %c$0-)}
on ^servermsg "% added *" {xecho -b $cparse(%c[$strftime(%H:%M)] %g$0-)}
on ^servermsg "% removed ban on *" {xecho -b $cparse($stime %W$0-)}
on ^servermsg "You are now cloaked." {xecho -b $cparse($strftime(%H:%M) %B$0-)}
on ^servermsg "You are no longer cloaked." {xecho -b $cparse($strftime(%H:%M) %G$0-)}
on ^servermsg "% removed *" {xecho -b $cparse($stime %g$0-)}
on ^servermsg "% reloaded configuration on *" {xecho -b $cparse($stime %c$0-)}
on ^servermsg "% set topic *" {xecho -b $cparse($stime %C$0 %cset %Ctopic %con %C$4 %cto %C$5-)}
on ^servermsg "* % modified *" {xecho -b $cparse($stime %W$0-)}
on ^servermsg "User is not currently online." {xecho -b $cparse($strftime %c$0-)}
on ^servermsg "User * is not a known user" {xecho -b $cparse($strftime(%H:%M) %RUser * is not a known user)}

/*
on ^servermsg "server * linked thru *" {xecho -b $cparse($strftime(%H:%M) %mServer * linked thru *")}
*/
# Stuff that interfers with other scripts

on #^404 423 "Server * has quit: EOF" {xecho -b $cparse($stime %Y$0-)}
on ^servermsg "% % % has requested your information." { xecho -b $cparse($strftime($1 %x %X)%G $*);beep}
on ^servermsg "% has requested your info" {xecho -b $cparse($strftime(%H:%M) %G$0 h%Was reques%Yted your info);beep}
on ^servermsg "* % has joined" {xecho -b $cparse($stime%Y +++++ Server $1 has joined! +++++)}
on ^servermsg "Clones detected from *" {}
on ^servermsg "% banned *" {xecho $cparse(%c[%g$strftime(%X)%c] %C$0-)} 

/* Below makes the alias bing appear as soon as i hit a room
/on #-405 420 "*" timer 3 time
*/

# Operator Commands - In This order, opsay, cmuzzle, cunmuzzle, cban, cunban. These set the room you are in as default unless you specify a room. If you are in multiple rooms you have to set a room
alias opc (text) {opsay $cparse("$text")}
alias cmuz (nick, room default "$C") {cmuzzle $room $nick}
alias cunmuz (nick, room default "$C") {cunmuzzle $room $nick}
alias cban (nick, room default "$C") {cban $room $nick}
alias cunban (nick, room default "$C") {cunban $room $nick}

#Mod+ stuff
 alias fuck {
  @reason=[$1-]
  whois -cmd {
   ban $0 [IP: $12] $reason
   ban $12 [Nick: $0] $reason
   kill $0 $reason
   @reason=[]
  } $0
}



/* Below works for muzzleing, sets the room u are in as default
alias cmuz {//cmuzzle $C $0-}
*/


#Msgall is a mod+ command

@default.msg=[Poo stains are stinky!]

alias msgall
{
 if (![$*]) {@msg.l=default.msg}{@msg.l=[$*]}
 ^guser -cmd {raw 205 $0 $msg.l}
}


#Whoswas command, Written by DJHyperbyte
alias whowas {raw 10121 $0-}
on ^10121 "*"
{
 xecho 9ÚÄÄÄ 15WhoWas user information: 9ÄÄÄ
 xecho 9³ 16User          16: 15$0
 xecho 9³ 16S15erver        16: 15$2
 xecho 3³ 16C15lient        16: 15$4
 xecho 3³ 16L15ogged out at 16: 15$strftime($3 %x at %X)
}





#This one bans it for 31 days Nic, IP then Kills
 alias perv {
  @reason=[$1-]
  whois -cmd {
   msg $0 You have been banned for sharing porn for 31 days, please remove your files immediately	
   timer 15 //tban $0 2678400 Get rid of the porn
   timer 15 //tban $12 2678400 $reason
   timer 15 //kill $0 $reason
   @reason=[]
  } $0
}


#This one bans it for 31 days Nic, then Kills
 alias pervert {
  @reason=[$1-]
  whois -cmd {
   msg $0 You have been banned for sharing porn for 31 days, please remove your files immediately	
   timer 15 //tban $0 2678400 Get rid of the porn
   timer 15 //kill $0 $reason
   @reason=[]
  } $0
}

#To connect to the MasterNap and Efnet IRC servers, put your username where 'username' is
alias masterirc server -irc irc.masternap.org:6767:UserName

alias efnet server -irc irc.he.net:6969:UserName

#This shows the irish flag :D
alias tricolor

{
sayc %2					
sayc %2					
sayc %2					
sayc %2					
sayc %2					
sayc %7					
sayc %7					
sayc %7					
sayc %7					
sayc %7					
sayc %3					
sayc %3					
sayc %3					
sayc %3					
sayc %3					
sayc %GRepub%Wlic of Ir%Yeland
}
#End of show flag


#afk.rc by Leon, Leon@masternap.org
assign away.log 0
assign away.status 0
assign away.message 0

assign away.random0 Shagging the dog
assign away.random1 Shagging the cat
assign away.random2 Raping the dog
assign away.random3 Gone fishing
assign away.random4 Tornado, AFK
assign away.random5 Brb, jerking off
assign away.random6 Power cut, AFK
assign away.random7 Away for a while, wife just found out about girlfriend
assign away.random8 EYAM GONE FEWL

assign back.random0 From the dead
assign back.random1 Anyone missed me?
assign back.random2 Jezus, my dick hurts
assign back.random3 Jezus, my ass hurts.
assign back.random4 Jezus, my wrist hurts
assign back.random5 Jezus, my butt hurts
assign back.random6 Jezus, im not doing that again
assign back.random7 Told you i'd be as quick as I could
assign back.random8 Insert smart phrase here...

alias away (away.reason) {
  if (away.status) {
    xecho -b You are already marked as away...
  }{
    if (away.reason) {
      ^assign away.status 1
      ^assign away.since $strftime(%X)
      xecho -b You are being marked as away...
      me is away \($away.reason\) [Log/On]
      away.zzz
    }{
      ^assign away.status 1
      ^assign away.since $strftime(%X)
      xecho -b You are being marked as away...
      me is away \($(away.random$rand(9))\) [LOG/ON]
      away.zzz
    }
  } 
}

alias away.zzz {
  timer -ref zzz -rep -1 1 {
    if (zzzcount > 5) {
      @zzzcount = 0
    }
    @zzzcount++
    switch ($zzzcount) {
      (1) {
        ^set status_nick %N/2zzZ
      }
      (2) {
        ^set status_nick %N/8z2zZ
      }
      (3) {
        ^set status_nick %N/8zz2Z
      }
      (4) {
        ^set status_nick %N/8zzZ
      }
      (5) {
        ^set status_nick %N/2z8zZ
      }
      (6) {
        ^set status_nick %N/2zz8Z
      }
    }
  }
}

on #-msg 255 "*" {
  if (away.status) {
    @:fd = open(~/$S-Log.log w)
    @write($fd 10[14$strftime(%X)10] <8$010/14msg10> 8$1-)
    @close($fd)
    @away.message++
    msg $0 I am currently away, please leave a message.... :)
  }
}

alias back (back.reason) {
  if (!away.status) {
    xecho -b You are not marked as away.
  }{
    if (back.reason) {
      ^assign away.status 0
      xecho -b You are now marked as back...
      me is back \(\$back.reason\)\ \(\Gone since $away.since\)\.
      timer -del zzz
      ^set status_nick %N
      ^assign -away.since
      if (away.message) {
        back.read
      }{
        xecho -b You have 0 messages to read.
      }
    }{
      ^assign away.status 0
      xecho -b You are now marked as back...
      me is back \($(back.random$rand(9))\) \(\Gone since $away.since\)\.
      timer -del zzz
      ^set status_nick %N
      ^assign -away.since
      if (away.message) {
        back.read
        ^assign away.message 0
      }{
        xecho -b You have 0 messages to read.
      }
    }
  }
}



alias back.read {
  INPUT_CHAR "10ÀÄ> --> 14You have $away.message messages, would you like to read them? (0Y/N14) 10<-- " {
    switch ($0) {
      (Y) {
        xecho -b 14Messages:
        xecho -b  
        @:fd = open(~/$S-Log.log r)
        while (!eof($fd)) {
          xecho -b $read($fd)
        }
        @close($fd)
        @unlink(~/$S-Log.log)
        xecho -b 14End of messages.
        ^assign away.message 0
        }
      (N) {
        xecho -b Saving your message log.
        }
      (*) {
        xecho -b You MUST select an option (Y/N)
        back.read
      }
    }
  }
}

## Notes:

## 17/12/2002 - Added random away \ back reasons if none is specified.
## 16/12/2002 - Added functions so that the message log isnt read if no messages were recieved.
## 15/12/2002 - Added an (away.since)
## 01/12/2002 - Added a switch to read away.log.

## Cool comments:

## 04:45: <<Jian^>> lol...nice script
## 04:45: <<originalhandy>> send that away script to handy@teknap.com
## 05:21: <<oldham_de>> nice random, lol
## 18:28: <<originalhandy>> ima gonna put that in me teknap.rc i have for dl's on my sites
#End of afk.rc

#This sets the chanlevel for the room, /c0 /c1 ect

alias c0 (setchanlevel, room default "$C") {setchanlevel $room leech}

alias c1 (setchanlevel, room default "$C") {setchanlevel $room user}

alias c2 (setchanlevel, room default "$C") {setchanlevel $room moderator}

alias c3 (setchanlevel, room default "$C") {setchanlevel $room admin}

alias c4 (setchanlevel, room default "$C") {setchanlevel $room elite}


#This sets userlevels, /u0 Nick /u1 nick ect

alias u0 {setuserlevel $0 Leech}

alias u1 {setuserlevel $0 User}

alias u2 {setuserlevel $0 Moderator}

alias u3 {setuserlevel $0 Admin}

alias u4 {setuserlevel $0 Elite}