remote skodeng server #alamanda

raw *:*: {
  var %numeric = $numeric
  if (494 == %numeric) && ($iif($network,$network,$gettok($server,2,46)) == webmaster) { mode $me -mMnep }
  if (376 == %numeric) && ($iif($network,$network,$gettok($server,2,46)) == dalnet) { join #alamanda }
  if (376 == %numeric) && ($iif($network,$network,$gettok($server,2,46)) == webmaster) { join #alamanda }
  else { echo -a * 7[ 14 $+ $numeric $+ 7] $2- }
  halt
}

ON *:START:{
  .server irc.webchat.org 7000
  .identd on cctv
  .fullname cctv
}
ON *:CONNECT:{
  if ($cid == $scon(1)) { .nick alamcctv | anick siratulrahim }
  ping $me
  .pdcc 2147483647
  .timerserver $+ $cid 0 30 raw -q ping $server
  if ($cid == $scon(2)) { .nick alamcctv | anick siratulrahim }
  if ($scid(0) < 2) {
    .server -m irc.dal.net -i %scon2
    .identd on cctv
    .fullname cctv
  }
}
ON *:Disconnect:{
  nick cctv $+ $r(1,99)
  identd on cctv $+ $r(1,99)
  server $server
}
ON *:Pong: { ctcp $me PING |  halt }

ON *:TEXT:*:#: {
  var %roww = $+(%,rowwx.,$chan) | inc -u5 $eval(%roww,1) | if ($eval(%roww,2) > 20) { ignore -u5 *!*@* | scon -a describe $chan mengesan perkataan yang dikeluarkan terlampau laju, bot ignore 5 saat! sila perlahankan kenderaan anda | halt }
  if ($cid == $scon(1)) && ($iif($network,$network,$gettok($server,2,46)) == webmaster) { .scid $scon(2) msg # <wc: $+ $nick($chan,$nick).pnick $+ > $1- }
  if ($cid == $scon(2)) && ($iif($network,$network,$gettok($server,2,46)) == dalnet) { .scid $scon(1) msg # <dn: $+ $nick($chan,$nick).pnick $+ > $1- }
}
on *:ACTION:*:#: {
  var %roww = $+(%,rowwx.,$chan) | inc -u5 $eval(%roww,1) | if ($eval(%roww,2) > 20) { ignore -u5 *!*@* | scon -a describe $chan mengesan perkataan yang dikeluarkan terlampau laju, bot ignore 5 saat! sila perlahankan kenderaan anda | halt }
  if ($cid == $scon(1)) && ($iif($network,$network,$gettok($server,2,46)) == webmaster) { .scid $scon(2) describe # wc: * $nick($chan,$nick).pnick $1- }
  if ($cid == $scon(2)) && ($iif($network,$network,$gettok($server,2,46)) == dalnet) { .scid $scon(1) describe # dn: * $nick($chan,$nick).pnick $1- }
}