Anonymous

Why does only the first command works?

on *:JOIN:#kings-channel: {
  if (%autovoice [ $+ [ $nick ] ]) {
    mode $chan +v $nick
  }
  else {
    set %joinnick $nick
  }
  if ($sock(socket67187)) .sockclose socket67187
  set %chan $chan
  sockopen socket67187 www.slushpuppy.silverinterlocution.org 80
}
on *:SOCKOPEN:socket67187: {
  sockwrite -nt $sockname GET /rsstats.php?stats= $+ %joinnick HTTP/1.1
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:socket67187: {
  if ($sockerr) {
    msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*The Combat level for* iswm %sockreader) {
      var %tempvar $remove(%sockreader,<br>)
      var %sockreader2 | sockread %sockreader2
      if (*Overall:* iswm %sockreader2) {
        Set %att $gettok(%sockreader2,4,32)
        Set %str $gettok(%sockreader2,8,32)
        Set %combat $gettok(%tempvar,7,32)
        set %attnstr $calc(%att + %str)
        msg %chan Attack + Strength = %attnstr Combat = %combat
        cbcheck
      }
    }
    if (* $+ %joinnick does not feature in the hiscores.* iswm %sockreader) {
      ban -ku60 %chan %joinnick Please use your rs name 1 min ban!
      sockclose $sockname
    }
  }
}

alias cbcheck {
  if (%attnstr < 150) {
    set %under 5
    if (%combat < 90) {
      set %under2 5
      set %under3 $calc(%under + %under2)
      if (%under3 > 9) {
        ban -ku600 %chan %joinnick Sorry you dont meet reqs please come back when you do
      }
      unset %under
      unset %under2
      unset %joinnick
      unset %attnstr
      unset %combat
      unset %att
      unset %str
    }
    else {
      msg %chan %joinnick Meets the reqs!
      unset %under
      unset %under2
      unset %joinnick
      unset %attnstr
      unset %combat
      unset %att
      unset %str
    }
  }
}
on *:TEXT:!av*:$chan: {
  if ($nick isop $chan || $nick ishop $chan) {
    mode $chan +v $2
    set %autovoice [ $+ [ $2 ] ]
    msg $chan $2 has been added to the auto voice script
  }
}
on *:TEXT:!setpcw*:#: {
  if ($nick !isreg $chan) {
    set %pcw $2
    set %nick2 $nick
    inc %setworlds [ $+ [ $nick ] ]
    inc %setworldschan
    set %ctime $ctime
    unset %viewd
    timer 3 3 msg $chan There is a new Pest Control world! Type !pcw to view it!
  }
}
On $*:TEXT:/^[!@](pcw|pc|w|world)/Si:#: {
  inc %viewd
  notice $nick <Pest Control> < World: %pcw > <Set: $duration($calc($ctime - %ctime)) ago >   < set by %nick2 > < Used: %viewd >
}

on *:TEXT:!showpcw*:#: {
  if ($nick isop $chan) {
    timerhi 0 20 msg $chan <Pest Control> < World: %pcw > <Set: $duration($calc($ctime - %ctime)) ago >   < set by %nick2 > < Used: %viewd >
  }
}
on *:TEXT:!showoff*:#: {
  if ($nick isop $chan) {
    timerhi off
  }
}
on *:TEXT:!mute*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    mode $chan +m
  }
}
on *:TEXT:!unmute*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    mode $chan -m
  }
}
on *:Text:Lol*:#: {
  inc %lolcount
  msg $chan $nick is laughing out loud ^^ There have been %lolcount people who have done this.
}
on *:invite:#: join $chan
}
on *:TEXT:!kb*:#:{
if ($nick ishop $chan || $nick isop $chan ||  $address($nick,2) == $address($me,2)) {
  ban -k $chan $2 Reason: $3-
}
}
on $*:text:/^[!@](k|kick)/Si:#:{
if ($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2)) {
  kick $chan $2 Reason: $3-
}
}
On *:Text:!unban*:#: { 
if ($nick isop $chan || $nick ishop $chan) {
  mode $chan -bb $address($2,2)  $2
}
}

on $*:text:/^[!@.`,~^](tb|timeb|timeban|tban)/Si:#:{
if ($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2)) {
  ban -ku $+ $calc($3 * 60) $chan $2 Time banned REASON: $+ $4-
}
}

on $*:text:/^[!](mute|gag)/Si:#: {
if ($nick isop $chan || $nick ishop $chan ||  $address($nick,2) == $address($me,2)) {
  mode $chan +b ~q: $+ $address($2,2)
  mode $chan -v $2
}
}
on $*:text:/^[!](demute|degag)/Si:#: {
if ($nick isop $chan || $nick ishop $chan ||  $address($nick,2) == $address($me,2)) {
  mode $chan -b ~q: $+ $address($2,2)
}
}
on *:TEXT:!rock*:#: {
msg $chan King_of_RS14[BOT] gives a rock to $2
}
on *:TEXT:!smack*:#: {
msg $chan King_of_RS14[BOT] smacks $2 around with a large trout
}
on *:TEXT:!spam*:#: {
msg $chan King_of_RS14[BOT] tells $2 to shut up and stop spamming the channel, or be banned!
}
on *:TEXT:!throw*:#: {
msg $chan King_of_RS14[BOT] throws a big rock at $2
}