ALIAS RS {
  IF ($1 == on) {
    IF ($read(rscript.txt,w,$2) == $null) {
      write RScript.txt $2
      echo -a 1*** [4RScript1]: RScript is now ON for $2 $+ . If 5 people join $2 and a RuneScript Bot is detected on channel, it will be invited. 4NOTE1: RuneScript requires that you have Ops (+o) to allow the invitation.
      if (($nick($2,0) >= 5) && ($RScript($2) == $false) && ($me isop $2)) {
        msg $2 [4RuneScript]: 5+ Clients detected on channel, RuneScript Bot not detected. Inviting RuneScript.
        invite runescript $2
      }
    }
    ELSE echo -a 1*** [4RScript1]: RScript is already ON for $2 $+ .
  }
  elseif ($1 == off) {
    IF ($read(rscript.txt,w,$2) == $null) echo -a 1*** [4RScript1]: RScript is already OFF for $2 $+ .
    ELSE {
      write -d RScript.txt $2
      echo -a 1*** [4RScript1]: RScript is now OFF for $2 $+ .
    }
  }
}

ALIAS RScript {
  set -u0 %RScript.Users $nick($1,0)
  set -u0 %RScript.Count 1
  WHILE (%RScript.Count <= %RScript.Users) {
    IF (*runescript* iswm $nick($1,%RScript.Count)) RETURN $TRUE
    INC %RScript.Count
  }
  RETURN $FALSE
}

ON *:TEXT:$(%cmdchar $+ rscript*):#:{
  if ($isignored($nick)) halt
  IF ($haltcheck($nick,$chan)) halt
  IF ($chan isin %RScript.Banned) {
    notice $nick 1*** [4RScript1]: RuneScript has been Banned from $chan for being kicked too many times, so it will not join on invite. Please talk to the owners of RuneScript, get the Ban lifted and let CrazyMan1975 know when you have done so.
    halt
  }
  ELSEIF ($2 == on) {
    IF ($read(rscript.txt,w,$chan) == $null) {
      write RScript.txt $chan
      notice $nick 1*** [4RScript1]: RScript is now ON for $chan $+ . If 5 people join $chan and no RuneScript Bot is detected on channel, it will be invited. 4NOTE1: RuneScript requires that I have Ops (+o) to allow the invitation.
      if (($nick($chan,0) >= 5) && ($RScript($chan) == $false) && ($me isop $chan)) {
        msg $chan [4RuneScript]: 5+ Clients detected on channel, RuneScript Bot not detected. Inviting RuneScript.
        invite runescript $chan
      }
    }
    ELSE notice $nick 1*** [4RScript1]: RScript is already ON for $chan $+ .
  }
  elseif ($2 == off) {
    IF ($read(rscript.txt,w,$chan) == $null) notice $nick 1*** [4RScript1]: RScript is already OFF for $chan $+ .
    ELSE {
      write -d RScript.txt $chan
      notice $nick 1*** [4RScript1]: RScript is now OFF for $chan $+ . RuneScript will no longer be invited here by me.
    }
  }
  else notice $nick 1*** [4RScript1]: Usage: %cmdchar $+ RScript <on/off> $chr(124) This function will check to see if there are 5 people on the channel. If there are and there is not a RuneScript bot in channel, it will invite it automatically.
}

ON *:JOIN:#:{
  if ((%rscript. [ $+ [ $chan ] ] != 1) && ($nick($chan,0) >= 5) && ($read(rscript.txt,w,$chan) != $null) && ($RScript($chan) == $false) && ($me isop $chan)) {
    msg $chan [4RuneScript]: 5+ Clients detected on channel, RuneScript Bot not detected. Inviting RuneScript.
    invite runescript $chan
    set -u600 %rscript. [ $+ [ $chan ] ] 1
  }
}

ON $*:TEXT:/^[!@.]RuneScript/Si:#:{
  if ((%rscript. [ $+ [ $chan ] ] != 1) && ($nick($chan,0) >= 5) && ($read(rscript.txt,w,$chan) != $null) && ($RScript($chan) == $false) && ($me isop $chan)) {
    msg $chan [4RuneScript]: 5+ Clients detected on channel, RuneScript Bot not detected. Inviting RuneScript.
    invite runescript $chan
    set -u600 %rscript. [ $+ [ $chan ] ] 1
  }
}