on *:LOAD:{
write where.txt IN A BIN
write can.txt No you can't
write color.txt RED!
write what.txt A balloon
write where.txt IN A HOUSE
write can.txt maybe..
write color.txt RED!
write what.txt A Dragon with not one not two but 3 heads!
write can.txt SAY PLEASE
}
 
 
 
#qq off
 
on *:TEXT:!8 where is*:#:/msg $chan $read(where.txt)
on *:TEXT:!8 can*:#:/msg $chan $read(Can.txt)
on *:TEXT:!8 what color*:#:/msg $chan $read(color.txt)
on *:TEXT:!8 what is*:#:/msg $chan $read(what.txt)
on *:TEXT:!8 *:#:/msg $chan $read(can.txt)
 
#qq end
 
#pp off
 
on *:TEXT:!8 where is*:#:/notice $nick $read(where.txt)
on *:TEXT:!8 can*:#:/notice $nick $read(Can.txt)
on *:TEXT:!8 what color*:#:/notice $nick $read(color.txt)
on *:TEXT:!8 what is*:#:/notice $nick $read(what.txt)
on *:TEXT:!8 *:#:/notice $nick $read(can.txt)
 
#pp end
 
on @:TEXT:!8N:*:{
  enable #pp 
  disable #qq
  msg $chan !8 will now reply via notice and can be used by soldiers now
}
 
 
on @:TEXT:!8m:*:{
  enable #qq
  disable #pp
  msg $chan 8 ill reply via msg now
}
 
menu * {
  .8ball 
  ..Add
  ..What Text
  ...Write:/write what.txt $$?"What do you want to add to this script?"
  ...Read:/msg $chan $$?"Enter the name here" $read(what.txt)
  ...Open:/run What.txt
 
  ..Where
  ...Write:/Write where.txt $$?"What do you want to put in th where text?"
  ...Read:/msg $chan $$?"Enter the name here" is $read(where.txt)
  ...Open:/run Where.txt
 
  ..color
  ...Write:/write color.txt $$?"what color do you want to add to the list?"
  ...Read:/msg $chan $$?"Enter the name here" is the color $read(color.txt)
  ...Open:/run color.txt
 
  ..Can i
  ...Write:/write Can.txt $$?"what reply do you want to add to the list?"
  ...Read:/msg $chan $read(can.txt)
  ...open:/run can.txt
 
  .Turn msg/notice:{
    echo $?!="Turn on the messages to channel"
    if $! = $true { 
      enable #qq
      disable #pp
      notice $chan !8 will now shout notice $chan !8 will now shout out in the channel and can only be used for officers and up
    }
    else {
      echo $?!="Turn on the notice to nicks"
      if $! = $true { 
        enable #pp
        disable #qq
        notice $chan !8 will now reply via notice and can be used by soldiers now
      }
      else { /halt }    
    }
  }
}
 
 
 
 
menu * {
  .8ball 
  ..Add
  ..What Text
  ...Write:/write what.txt $$?"What do you want to add to this script?"
  ...Read:/msg $chan $$?"Enter the name here" $read(what.txt)
  ...Open:/run What.txt
 
  ..Where
  ...Write:/Write where.txt $$?"What do you want to put in th where text?"
  ...Read:/msg $chan $$?"Enter the name here" is $read(where.txt)
  ...Open:/run Where.txt
 
  ..Color
  ...Write:/write Color.txt $$?"what color do you want to add to the list?"
  ...Read:/msg $chan $$?"Enter the name here" is the color $read(color.txt)
  ...Open:/run Color.txt
 
  ..Can i
  ...Write:/write Can.txt $$?"what reply do you want to add to the list?"
  ...Read:/msg $chan $read(can.txt)
  ...open:/run can.txt
 
  .Turn msg/notice:{
    echo $?!="Turn on the messages to channel"
    if $! = $true { 
      enable #qq
      disable #pp
      notice $chan !8 will now shout ootice $chan !8 will now shout out in the channel and can only be used for officers and up
    }
    else {
      echo $?!="Turn on the notice to nicks"
      if $! = $true { 
        enable #pp
        disable #qq
        notice $chan !8 will now reply via notice and can be used by soldiers now
      }
      else {echo $?!="Turn off 8ball"
      if $! = $true { 
        disable #pp
        disable #qq
        notice $chan !8 is now off
      }
    }    
  }
}
 

Commenting Options