[script]
n0=;this is a simple bouncer
n1=;users can connect to IRC with your IP
n2=
n3=; configue here the port you want
n4=on 1:start:{
n5=  socklisten bouncer 6667
n6=}
n7=;edit your password
n8=alias bnc.pass return v6
n9=
n10=on 1:socklisten:bouncer:{
n11=  sockaccept bnc.check
n12=  echo 5 -a $sock(bnc.check).ip is connected to the bouncer
n13=  sockclose bouncer.auth. $+ $sock(bnc.check).ip
n14=  sockrename bnc.check bouncer.auth. $+ $sock(bnc.check).ip
n15=  unset %temp*
n16=}
n17=on 1:sockclose:bouncer.auth.*:remini bnc.ini online $sock($sockname).ip
n18=on 1:sockclose:bouncing.*:{
n19=  sockclose irc. $+ $remove($sockname,bouncing.)
n20=}
n21=on 1:sockread:bouncer.auth.*:{
n22=  if ($sockerr > 0) { halt }
n23=  sockread %bnc.auth.read
n24=  if ($gettok(%bnc.auth.read,1,32) == NICK) { 
n25=    %temp.nick = $gettok(%bnc.auth.read,2,32) 
n26=    echo 5 -a %temp.nick is using the bouncer
n27=    sockwrite -n $sockname :Bnc!bnc@bnc.com NOTICE a :You need to say /quote PASS <password>
n28=  }
n29=  if ($gettok(%bnc.auth.read,1,32) == PASS) { 
n30=    if ($gettok(%bnc.auth.read,2,32) === $bnc.pass) { 
n31=      sockrename $sockname bouncing. $+ %temp.nick 
n32=      sockwrite -n $sockname :Bnc!bnc@bnc.com NOTICE a :Welcome to BOT Bnc v1.0b by lihlihlih18
n33=      sockwrite -n $sockname :Bnc!bnc@bnc.com NOTICE a :Port : 6667
n34=      sockwrite -n $sockname :Bnc!bnc@bnc.com NOTICE a :type /quote conn [server] <port> to connect
n35=    }
n36=    else { sockwrite -n $sockname :Bnc!bnc@bnc.com NOTICE a :Wrong Pass!! | sockclose $sockname }
n37=  }
n38=}
n39=on 1:sockread:bouncing.*:{
n40=  if ($sockerr > 0) { halt }
n41=  sockread %bnc.read
n42=  %temp = $remove($sockname,bouncing.)
n43=  %temp1 = irc. $+ %temp
n44=  if ($gettok(%bnc.read,1,32) == NICK) {  sockrename $sockname bouncing. $+ $remove($gettok(%bnc.read,2,32),:) | sockrename irc. $+ %temp irc. $+ $remove($gettok(%bnc.read,2,32),:) | halt }
n45=  if ($sock(%temp1) != $null) { sockwrite -n %temp1 %bnc.read | halt }
n46=  if ($gettok(%bnc.read,1,32) == CONN) {
n47=    if ($sock(%temp1) == $null) { sockopen %temp1 $gettok(%bnc.read,2,32) 6667 }
n48=  }
n49=}
n50=on 1:sockopen:irc.*:{
n51=  if ($sockerr > 0) { halt }
n52=  sockwrite -n $sockname NICK $remove($sockname,irc.)
n53=  sockwrite -n $sockname USER ipoh1 ipoh1 ipoh1 :i'm in #ipoh1 and #perak
n54=}
n55=on 1:sockread:irc.*:{
n56=  if ($sockerr > 0) { halt }
n57=  sockread %irc.read
n58=  if ($gettok(%irc.read,4,32) == :
VERSION
) { sockwrite -n $sockname :bla NOTICE $remove($gettok(%irc.read,1,33),:) :
VERSION #ipoh1 #perak
 | halt }
n59=  %temp = $remove($sockname,irc.)
n60=  %temp1 = bouncing. $+ %temp
n61=  if ($sock(%temp1) != $null) { sockwrite -n %temp1 %irc.read }
n62=  unset %temp*
n63=}
n64=on 1:sockclose:bouncing.*:{
n65=  echo 3 1
n66=  %temp = $remove($sockname,bouncing.)
n67=  %temp1 = irc. $+ %temp
n68=  sockclose %temp1
n69=  unset %temp*
n70=}