; !advice
ON 1000:text:*wisdom*:#: {
  IF ($1 == %c $+ wisdom) {
    IF ($2 == on) { .enable #advicechan | .msg $chan 5The Advice Mode Has Just Been Enabled. | set %last.used.command advice on | set %last.person $nick | set %st.advice on | halt }
    IF ($2 == off) { .disable #advicechan | .msg $chan 5The Advice Mode Has Just Been Disabled. | set %last.used.command advice off | set %last.person $nick | unset %st.advice | halt }
    else { .notice $nick 5Incorrect command usage: %c $+ wisdom <on/off> | halt }
  }
}
#advicechan on
ON *:TEXT:*advice*:*: {
  IF ($1 == %c $+ advice) {
    /set %exists { $exists( [ "C:\Program Files\mIRC\YB452\txt\Advice\advice_ [ $+ [ $2 ] [ $+ [ .txt" ] ] ] ] ) }
    IF ($3- == $null) {
      IF ($2 == $null) { msg $chan 5Proper syntax is $+ : 2,14!advice 2,14<topic> | halt }
      IF ($2 == topic) { /play -m1 $chan [ "C:\Program Files\mIRC\YB452\txt\Advice\advice_topic.txt" ] 750 | halt }
      IF (%exists == $true) { $read("C:\Program Files\mIRC\YB452\txt\Advice\advice_ [ $+ [ $2 ] [ $+ [ .txt" ] ] ] ,p ) | halt }
      IF (%exists == $false) { msg $chan 5I do not have any advice on this topic. | halt }
    }
    IF ($3 == add) {
      IF (($2 == topic) || ($2 == help)) { msg $chan 5That is a prohibited topic $nick $+ . | halt }
      IF ($level($address($nick,5)) >= 995) { { /write [ "C:\Program Files\mIRC\YB452\txt\Advice\advice_ [ $+ [ $2 ] [ $+ [ .txt" ] ] ] msg %chan 5 $4- ] | msg $chan 5Thanks for adding your advice $nick $+ ! }
        IF (%exists == $false) { /set %advice.count $calc(%advice.count + 1) | /write [ "C:\Program Files\mIRC\YB452\txt\Advice\advice_topic.txt" ] 5 [ %advice.count ] $+ . $2 | halt }
      }
      IF ($level($address($nick,5)) < 995) { msg $chan 5You do not have sufficient access to add advice. | halt }
    }
    ELSEIF ($3- != $null) { msg $chan 5Proper syntax is $+ : 2,14!advice 2,14<topic> | halt }
  }
  ELSE { halt }
}
#advicechan end