/ScriptServ

;-------- -  -
; Popups
;-------- -  -
menu menubar,channel {
  -
  &MoonScript Settings
  .&Personal Flood Protect
  ..&Enable/Disable ( $+ $upper($group(#personalprotect)) $+ ): { if ( $group(#personalprotect) == ON ) { .disable #personalprotect | echo -a $moontxt2(Personal Flood Protection Is Now OFF) } | else { .enable #personalprotect | echo -a $moontxt2(Personal Flood Protection Is Now ON) } }
  ..Set Ignore Time ( $+ %pfpignore $+ secs):set %pfpignore $$?="number of seconds to ignore?" | echo -a $moontxt2(Ignore time set to:) $moontxt2(%pfpignore)
  .-
  .&Topic Lock ( $+ $upper($group(#toplock)) $+ )
  ..Enable/Disable:{ if ( $group(#toplock) == ON ) { .disable #toplock | echo -a $moontxt2(Topic Lock is Now OFF) } | else { .enable #toplock | echo -a $moontxt2(Topic Lock is Now ON) } }
  ..-
  ..&Channel Only: { 
    if ( $group(#toplock) == OFF ) { set %toplock.chan $chan | .enable #toplock | echo -a $moontxt2(Topic Lock Enabled For:) $moontxt2(#) | refresh.topic }
    else { .disable #toplock | echo -a $moontxt2(Topic Lock Disabled) | unset %toplock.chan | .remove toplock.txt }
  }
  ..&All Channels: {
    if ( $group(#toplock) == OFF ) { set %toplock.chan $chr(35) | .enable #toplock | echo -a $moontxt2(Topic Lock Enabled) | refresh.topic }
    else { .disable #toplock | echo -a $moontxt2(Topic Lock Disabled) | unset %toplock.chan | .remove toplock.txt }
  }
  .&Ban Lock ( $+ $Upper($group(#banlock)) $+ ): { if ( $group(#banlock) == ON ) { .disable #banlock | echo -a $moontxt2(Ban Lock is now OFF) } | else { .enable #banlock | echo -a $moontxt2(Ban Lock Is Now ON) } }
  .&No Ban ( $+ $Upper($group(#banunlock)) $+ ): { if ( $group(#banunlock) == ON ) { .disable #banunlock | echo -a $moontxt2(No Ban Is Now OFF) } | else { .enable #banunlock | echo -a $moontxt2(No Ban Is Now ON) } }
  .-
  .&Time Reminder ( $+ %autoTime $+ ): { if ( %autotime == ON ) { set %autotime OFF | echo -a $moontxt2(Auto Time Reminder Is Now OFF) } | else { set %autotime ON | echo -a $moontxt2(Auto Time Reminder Is Now ON) } }
  .&Lag Checker ( $+ %lagcheck $+ ): { if ( %lagcheck == ON ) { set %lagcheck OFF | .timerlag off | echo -a $moontxt2(Auto Lag Checker Is Now OFF) } | else { set %lagcheck ON | .timerlag 0 600 pingme | echo -a $moontxt2(Auto Lag Checker Is Now ON) } }
  .&Send Ping Meter ( $+ %pingmeter $+ ): { if ( %pingmeter == ON ) { set %pingmeter OFF | echo -a $moontxt2(Ping Meter Is Now OFF) } | else { set %pingmeter ON | echo -a $moontxt2(Ping Meter is now ON) } }
  .-
  .&Auto-Reop ( $+ $Upper($group(#autoreoper)) $+ ): { if ( $group(#autoreoper) == ON ) { .disable #autoreoper | echo -a $moontxt2(Auto Reop Is Now OFF) } | else { .enable #autoreoper | echo -a $moontxt2(Auto Reop Is Now ON) } }
  .&Auto-Unban ( $+ $Upper($group(#unbanner)) $+ ): { if ( $group(#unbanner) == ON ) { .disable #unbanner | echo -a $moontxt2(Auto Unbanner Is Now OFF) } | else { .enable #Unbanner | echo -a $moontxt2(Auto Unbanner Is Now ON) } }
  .&Revenge Kick ( $+ $Upper($group(#retaliator)) $+ ): { if ( $group(#retaliator) == ON ) { .disable #retaliator | echo -a $moontxt2(Revenge Kick Is Now OFF) } | else { .enable #retaliator | echo -a $moontxt2(Revenge Kick Is Now ON) } }
  .-
  .&OP Question ( $+ $Upper($group(#opfun)) $+ ): { if ( $group(#opfun) == ON ) { .disable #opfun | echo -a $moontxt2(OP Question Is Now OFF) } | else { .enable #opfun | echo -a $moontxt2(OP Question Is Now ON) } }
  .-
  .&Halt Default Text ( $+ $Upper($group(#haltdef)) $+ ): { if ( $group(#haltdef) == ON ) { .disable #haltdef | echo -a $moontxt2(Halting Default Text Is Now OFF) } | else { .enable #haltdef | echo -a $moontxt2(Halting Default Text Is Now ON) } }
  &User Settings:open.UserSettingDialog
  &Tell Times
  .&Time
  ..&Echo:echo -a $moontxt2(The Time Is:) $moontxt2($atime)
  ..&Channel:say $moontxt2(The Time Is:) $moontxt2($atime)
  .&Time/Date
  ..&Echo:echo -a $moontxt2(The Time & Date Is:) $moontxt2($atime) $moontxt2($adate)
  ..&Channel:say $moontxt2(The Time & Date Is:) $moontxt2($atime) $moontxt2($adate)
  .&Online Time
  ..&Echo:echo -a $moontxt2(You Have Been Online:) $moontxt2(%online.hrs) $+ 11,01hrs $moontxt2(%online.mins) $+ 11,01mins $moontxt2(%online.secs) $+ 11,01secs
  ..&Channel:say $moontxt2(I Have Been Online:) $moontxt2(%online.hrs) $+ 11,01hrs $moontxt2(%online.mins) $+ 11,01mins $moontxt2(%online.secs) $+ 11,01secs
  .&Oper Lenght
  ..&Echo:%Ticks = $ticks / 1000 | echo -a $moontxt2(Your O/S Has Been Operational For:) $moontxt2($duration(%ticks)) | unset %ticks
  ..&Channel:%Ticks = $ticks / 1000 | say $moontxt2(My O/S Has Been Operational For:) $moontxt2($duration(%ticks)) | unset %ticks
  -
  &Nicks
  .&Add A Nick: {
    if ( %nick1 == $null ) { set %nick1 1. $$?="Enter A Nick" | goto end }
    if ( %nick2 == $null ) { set %nick2 2. $$?="Enter A Nick" | goto end }
    if ( %nick3 == $null ) { set %nick3 3. $$?="Enter A Nick" | goto end }
    if ( %nick4 == $null ) { set %nick4 4. $$?="Enter A Nick" | goto end }
    if ( %nick5 == $null ) { set %nick5 5. $$?="Enter A Nick" | goto end }
    if ( %nick6 == $null ) { set %nick6 6. $$?="Enter A Nick" | goto end }
    if ( %nick7 == $null ) { set %nick7 7. $$?="Enter A Nick" | goto end }
    if ( %nick8 == $null ) { set %nick8 8. $$?="Enter A Nick" | goto end }
    if ( %nick9 == $null ) { set %nick9 9. $$?="Enter A Nick" | goto end }
    else { echo 14>>>12 You have too many nicks in your nick list | halt }
    :end
    echo 14>>>12 $! has been added to your nick list
  }
  .&Change Nick
  ..%nick1:nick $remove(%nick1,1. )
  ..%nick2:nick $remove(%nick2,2. )
  ..%nick3:nick $remove(%nick3,3. )
  ..%nick4:nick $remove(%nick4,4. )
  ..%nick5:nick $remove(%nick5,5. )
  ..%nick6:nick $remove(%nick6,6. )
  ..%nick7:nick $remove(%nick7,7. )
  ..%nick8:nick $remove(%nick8,8. )
  ..%nick9:nick $remove(%nick9,9. )
  .&Unset A Nick
  ..%nick1:unset %nick1
  ..%nick2:unset %nick2
  ..%nick3:unset %nick3
  ..%nick4:unset %nick4
  ..%nick5:unset %nick5
  -
  &Channels
  .&Add A Chan: {
    if ( %chan1 == $null ) { set %chan1 1. #$$?="Enter A Channel" | goto end }
    if ( %chan2 == $null ) { set %chan2 2. #$$?="Enter A Channel" | goto end }
    if ( %chan3 == $null ) { set %chan3 3. #$$?="Enter A Channel" | goto end }
    if ( %chan4 == $null ) { set %chan4 4. #$$?="Enter A Channel" | goto end }
    if ( %chan5 == $null ) { set %chan5 5. #$$?="Enter A Channel" | goto end }
    if ( %chan6 == $null ) { set %chan6 6. #$$?="Enter A Channel" | goto end }
    if ( %chan7 == $null ) { set %chan7 7. #$$?="Enter A Channel" | goto end }
    if ( %chan8 == $null ) { set %chan8 8. #$$?="Enter A Channel" | goto end }
    if ( %chan9 == $null ) { set %chan9 9. #$$?="Enter A Channel" | goto end }
    else { echo 14>>>12 You have too many channels in your channel list | halt }
    :end
    echo 14>>>12 $! has been added to your channel list
  }
  .&Join A Channel
  ..%chan1:join $remove(%chan1,1. )
  ..%chan2:join $remove(%chan2,2. )
  ..%chan3:join $remove(%chan3,3. )
  ..%chan4:join $remove(%chan4,4. )
  ..%chan5:join $remove(%chan5,5. )
  ..%chan6:join $remove(%chan6,6. )
  ..%chan7:join $remove(%chan7,7. )
  ..%chan8:join $remove(%chan8,8. )
  ..%chan9:join $remove(%chan9,9. )
  .&Unset A Chan
  ..%chan1:unset %chan1
  ..%chan2:unset %chan2
  ..%chan3:unset %chan3
  ..%chan4:unset %chan4
  ..%chan5:unset %chan5
  ..%chan6:unset %chan6
  ..%chan7:unset %chan7
  ..%chan8:unset %chan8
  ..%chan9:unset %chan9
  &Auto Join
  .&Switch ( $+ %autojoin $+ ): { if ( %autojoin == OFF ) { .set %autojoin ON | echo -a $moontxt2(Auto Join Is Now ON) } | else { .set %autojoin OFF | echo -a $moontxt2(Auto Join Is Now OFF) } }
  .-
  .&Add A Channel: {
    if ( %autojoin1 == $null ) { set %autojoin1 1. #$$?="Enter A Channel" | goto end }
    if ( %autojoin2 == $null ) { set %autojoin2 2. #$$?="Enter A Channel" | goto end }
    if ( %autojoin3 == $null ) { set %autojoin3 3. #$$?="Enter A Channel" | goto end }
    if ( %autojoin4 == $null ) { set %autojoin4 4. #$$?="Enter A Channel" | goto end }
    if ( %autojoin5 == $null ) { set %autojoin5 5. #$$?="Enter A Channel" | goto end }
    if ( %autojoin6 == $null ) { set %autojoin6 6. #$$?="Enter A Channel" | goto end }
    if ( %autojoin7 == $null ) { set %autojoin7 7. #$$?="Enter A Channel" | goto end }
    if ( %autojoin8 == $null ) { set %autojoin8 8. #$$?="Enter A Channel" | goto end }
    if ( %autojoin9 == $null ) { set %autojoin9 9. #$$?="Enter A Channel" | goto end }
    if ( %autojoin10 == $null ) { set %autojoin10 10. #$$?="Enter A Channel" | goto end }
    else { echo 14>>>12 You have too many channels in your channel list | halt }
    :end
    echo 14>>>12 $! has been added to your channel list
  }
  .&Join A Channel
  ..%autojoin1:join $remove(%autojoin1,1. )
  ..%autojoin2:join $remove(%autojoin2,2. )
  ..%autojoin3:join $remove(%autojoin3,3. )
  ..%autojoin4:join $remove(%autojoin4,4. )
  ..%autojoin5:join $remove(%autojoin5,5. )
  ..%autojoin6:join $remove(%autojoin6,6. )
  ..%autojoin7:join $remove(%autojoin7,7. )
  ..%autojoin8:join $remove(%autojoin8,8. )
  ..%autojoin9:join $remove(%autojoin9,9. )
  ..%autojoin10:join $remove(%autojoin10,10. )
  .&Unset A Channels
  ..%autojoin1:unset %autojoin1 
  ..%autojoin2:unset %autojoin2 
  ..%autojoin3:unset %autojoin3
  ..%autojoin4:unset %autojoin4 
  ..%autojoin5:unset %autojoin5 
  ..%autojoin6:unset %autojoin6
  ..%autojoin7:unset %autojoin7 
  ..%autojoin8:unset %autojoin8
  ..%autojoin9:unset %autojoin9 
  ..%autojoin10:unset %autojoin10 
  -
}