Something

on *:CONNECT:{
  if ($network == SwiftIRC) {
    ns id ircisfun04432
    mode $me +pBT
    setname 4www.10OracleIRC2.net.tc
    join %autojoin. [ $+ [ $network ] ]
  }
  if ($network == SeersIRC) {
    mode $me +p
    setname OracleIRC
  }
}

on *:INVITE:#: {
  notice $nick This bot is currently under development and is not open to the public. http://www.OracleIRC.co.nr or #Oracle for more info.
}

on $*:TEXT:/^[!@]commands/Si:#:{
  set %commands. $+ $chan $iif(@* iswm $1,msg #,notice $nick)
  %commands. [ $+ [ $chan ] ] 12A command list can be found @10 http://www.OracleIRC.co.nr12.
}

on *:TEXT:!part*:#: {
  if ($2 == $me) && ($nick isop $chan || $nick ishop $chan) { part $chan Request of $nick (Support Oracle in #OracleIRC!) }
  else { notice $nick 12An error occured. Please make sure you used correct syntax (10!part $me $+ 12), and you are OP/HOP in10 $chan $+ 12.
  }
}

on $*:TEXT:/^[!@]chanstats/Si:#:{ 
  set %chanstats. $+ $chan $iif(@* iswm $1,msg #,notice $nick)
  %chanstats. [ $+ [ $chan ] ] 12| User count:10 $nick($chan,0) 12| Modes set:10 $chan($chan).mode 12| Muted:10 $iif(*m* iswmcs $chan($chan).mode,Yes,No) 12| Kicks:10 $iif(*Q* iswmcs $chan($chan).mode,disabled,enabled) 12| Key:10 $iif(*k* iswmcs $chan($chan).mode,Yes,No) 12| Flood control:10 $iif(*f* iswmcs $chan($chan).mode,Enabled,Disabled) 12| Private?10 $iif(*p* iswmcs $chan($chan).mode,Yes,No) 12| Secret?10 $iif(*s* iswmcs $chan($chan).mode,Yes,No) 12|
}

on $*:TEXT:/^[!@]setcgreet/Si:#:{
  set %cgreetreturn. $+ $chan $iif(@* iswm $1,msg #,notice $nick)
  if ($nick isop $chan) {
    set %cgreet $+ $chan $2-
    %cgreetreturn. [ $+ [ $chan ] ] 12The channel greet for10 $chan 12has been set to: %cgreet [ $+ [ $chan ] ]
  }
  else {  %cgreetreturn. [ $+ [ $chan ] ] 12You must be a channel operator to use this command. }
}

on *:JOIN:#: {
  if (%jcount [ $+ [ $chan ] ] == $null) halt | else { inc %jcounter $+ $chan | notice $nick 12You are the10 $ord(%jcounter [ $+ [ $chan ] ]) 12person to join10 $chan $+ 12. }
  if (%cgreet [ $+ [ $chan ] ] == $null) halt | else notice $nick 12[10 $+ $chan $+ 12] %cgreet [ $+ [ $chan ] ]
  if (%ngreet [ $+ [ $nick ] ] == $null) halt | else msg $chan 12[10 $+ $nick $+ 12] %ngreet [ $+ [ $nick ] ]
}

on $*:TEXT:/^[!@]setgreet/Si:#:{
  set %ngreetreturn. $+ $chan $iif(@* iswm $1,msg #,notice $nick)
  set %ngreet $+ $nick $2-
  %ngreetreturn. [ $+ [ $chan ] ] 12The greet for10 $nick 12has been set to: $2-
}

on $*:TEXT:/^[!@]jcount/Si:#:{
  if ($nick isop $chan) {
    if ($2 == ON) { set %jcount $+ $chan ON | notice $nick 12Join counter is now ON }
    if ($2 == OFF) { unset %jcount $+ $chan | notice $nick 12Join counter is now OFF }
  }
}

on $*:TEXT:/^[!@]delgreet/Si:#:{
  set %ngreetreturn. $+ $chan $iif(@* iswm $1,msg #,notice $nick)
  unset %ngreet $+ $nick
  %ngreetreturn. [ $+ [ $chan ] ] 12You're greet has been deleted.
}

on $*:TEXT:/^[!@]delcgreet/Si:#:{
  set %cgreetreturn. $+ $chan $iif(@* iswm $1,msg #,notice $nick)
  if ($nick isop $chan) {
    unset %cgreet $+ $chan
    %cgreetreturn. [ $+ [ $chan ] ] 12The channel greet for10 $chan 12has been deleted.
  }
  else { %cgreetreturn. [ $+ [ $chan ] ] 12You must be a channel operator to use this command. }
}