;/mm alias with millisecond time measurement and other features for #ranks @ IrcNet v1.59j
;made by Dani_TAH
;ez install instructions:
;1 open mirc
;2 press alt + r
;3 press ctrl + l
;4 choose this file
;5 /mm script should now be loaded (check if u see a successfully loaded line)
;6 if its not, /msg Dani_TAH or find some other bang0 to bother
;a popup will appear, then click yes
;You must remove all old /mm aliases to make this work.
;If you wish to enable highlights, right click in any channel, goto mm and scoring and set the highlighting you want to have
;if you wish to keep your old highlighting script, you doesent need to do anything
;Started doing changelog from v. 1.53 :
;----- 1.53 -----
;Changelog added to comments
;Added possibility to echo all your configurations (so you can easily see your option choises)
;Added the command !lasttime <yournick> so that other peoples can see your answer time on last scoring
;Added possibility to change the wildcard of second line (it is changed often)
;----- 1.54 -----
;Small update, fixed a bug that didnt set the second line wildcard properly when u changed it
;----- 1.55 -----
;Small update again, fixed another bug that made the second line wildcard not work
;----- 1.56 -----
;all i can remember haveing changed is, changed little on the echo commands.
;also made it impossible (i hope) to fake a quick-round
;----- 1.57 -----
;made more advanced !lasttime command that include telling: time from first to 2nd line, time from machine, estimated ping, and the old answered in Xms
;added ping estimating
;----- 1.58 -----
;added Juski Enterprises Anti Fool Technology
;fixed a few bugs
;----- 1.59 -----
;anti fool script is from now on considered cheating, so it is removed. if you have old script, you are obligated to update or remove script if you have 1.58
;fixed later on without updating number a bug that happened when using wildcard in nicks, no new ver.
;----- 1.59j ----
;edited by Jonkka for better autojump support


menu channel {
  mm
  .show /mm in
  ..$iif(%mm_time == ms,->) $+ milliseconds:set %mm_time ms | echo 4 -ta * /mm time format set to milliseconds
  ..$iif(%mm_time == s,->) $+ seconds:set %mm_time s | echo 4 -ta * /mm time format set to seconds
  ..$iif(%mm_time == m,->) $+ minutes:set %mm_time m | echo 4 -ta * /mm time format set to minutes
  .show line interval in
  ..$iif(%msg_time == ms,->) $+ milliseconds:set %msg_time ms | echo 4 -ta * line interval time format set to milliseconds
  ..$iif(%msg_time == s,->) $+ seconds:set %msg_time s | echo 4 -ta * line interval time format set to seconds
  ..$iif(%msg_time == m,->) $+ minutes:set %msg_time m | echo 4 -ta * line interval time format set to minutes
  .show line interval after:set %msg_int $$?"choose timer interval in seconds $crlf $+ current: %msg_int seconds" | echo 4 -ta * line interval timer set to %msg_int
  .ping MACHINE[]:{
    if ($isalias(mping) == $true) { mping MACHINE[] | halt }
    echo 4 -ta * Could not locate any millisecond ping script, using normal ping
    echo 4 -ta * goto http://mircscripts.org/downloads/exomsping%5B09-08%5D.txt to download millisecond pinger
    ping MACHINE[]
  }
  .set default:{
    if ($?!="Are you sure you wish to: $crlf $+ set /mm time format to milliseconds $crlf $+ set line interval time format to milliseconds $crlf $+ set line interval timer to 4" == $true) {
      set %mm_time ms
      set %msg_time ms
      set %msg_int 4
      echo 4 -ta * /mm time format set to milliseconds
      echo 4 -ta * line interval time format set to milliseconds
      echo 4 -ta * line interval timer set to 4
    }
  }
  .scoring
  ..Scoring Time
  ...turn higlight $iif(%score_hilite == on,off,on):{ set %score_hilite $iif(%score_hilite == on,off,on) | echo 4 -ta * Scoring time highlighting is now %score_hilite }
  ...use sound highlight:{
    set %score_soundfile $sfile(c:\,choose sound file,use sound)
    set %score_sound splay
    echo 4 -ta * Scoring time highlight changed to sound file: %score_soundfile
  }
  ...use beep highlight:{
    set %score_beep1 $?"beep how many times? $crlf $+ current: %score_beep1 "
    set %score_beep2 $?"beep interval in milliseconds? $crlf $+ current: %score_beep2 milliseconds"
    set %score_sound beep
    echo 4 -ta * scoring time highlight changed to beep %score_beep1 times with %score_beep2 interval
  }
  ...dont use sound or beep:{ unset %score_sound | echo 4 -ta * Sounds on scorings disabled }
  ...turn auto join $iif(%score_join == on,off,on):{
    set %score_join $iif(%score_join == on,off,on)
    echo 4 -ta * Auto join on scoring time is now %score_join
  }
  ..Bonus Time
  ...turn higlight $iif(%bonus_hilite == on,off,on):{
    set %bonus_hilite $iif(%bonus_hilite == on,off,on)
    echo 4 -ta * Bonus time highlighting is now %bonus_hilite
  }
  ...use beep highlight:{
    set %bonus_beep1 $?"beep how many times? $crlf $+ current: %bonus_beep1 "
    set %bonus_beep2 $?"beep interval in milliseconds? $crlf $+ current: %bonus_beep2 milliseconds" 
    set %bonus_sound beep
    echo 4 -ta * bonus time beep changed to beep %bonus_beep1 times with %bonus_beep2 interval
  }
  ...use sound highlight:{
    set %bonus_soundfile $sfile(c:\,choose sound file,use sound)
    set %bonus_sound splay
    echo 4 -ta * Bonus Time highlight changed to sound file: %bonus_soundfile
  }
  ...dont use sound or beep:{ unset %bonus_sound | echo 4 -ta * Sounds on Bonus Times disabled }
  ...turn auto join $iif(%bonus_join == on,off,on):{
    set %bonus_join $iif(%bonus_join == on,off,on)
    echo 4 -ta * Auto join on bonus time is now %bonus_join
  }
  ..MegaBinus
  ...turn higlight $iif(%binus_hilite == on,off,on):{
    set %binus_hilite $iif(%binus_hilite == on,off,on)
    echo 4 -ta * MegaBinus highlighting is now %binus_hilite
  }
  ...use beep highlight:{
    set %binus_beep1 $?"beep how many times? $crlf $+ current: %binus_beep1 "
    set %binus_beep2 $?"beep interval in milliseconds? $crlf $+ current: %binus_beep2 milliseconds"
    set %binus_sound beep
    echo 4 -ta * MegaBinus beep changed to beep %binus_beep1 times with %binus_beep2 interval
  }
  ...use sound highlight:{
    set %binus_soundfile $sfile(c:\,choose sound file,use sound)
    set %binus_sound splay
    echo 4 -ta * Binus Time highlight changed to sound file: %binus_soundfile
  }
  ...dont use sound or beep:{ unset %binus_sound | echo 4 -ta * Sounds on Binus Times disabled }
  ...turn auto join $iif(%binus_join == on,off,on):{
    set %binus_join $iif(%binus_join == on,off,on)
    echo 4 -ta * Auto join on MegaBinus time is now %binus_join
  }
  ..Quick-Round
  ...turn higlight $iif(%qr_hilite == on,off,on):{
    set %qr_hilite $iif(%qr_hilite == on,off,on)
    echo 4 -ta * Quick-Round highlighting is now %qr_hilite
  }
  ...use beep highlight:{
    set %qr_beep1 $?"beep how many times? $crlf $+ current: %qr_beep1 "
    set %qr_beep2 $?"beep interval in milliseconds? $crlf $+ current: %qr_beep2 milliseconds"
    set %qr_sound beep
    echo 4 -ta * Quick-Round beep changed to beep %qr_beep1 times with %qr_beep2 interval
  }
  ...use sound highlight:{
    set %qr_soundfile $sfile(c:\,choose sound file,use sound)
    set %qr_sound splay
    echo 4 -ta * Quick-Round highlight changed to sound file: %binus_soundfile
  }
  ...dont use sound or beep:{ unset %qr_sound | echo 4 -ta * Sounds on Quick-Rounds disabled }
  ...turn auto join $iif(%qr_join == on,off,on):{
    set %binus_join $iif(%qr_join == on,off,on)
    echo 4 -ta * Auto join on Quick-Round time is now %binus_join
  }
  ..All
  ...turn higlight on:{
    set %score_hilite on
    set %bonus_hilite on
    set %binus_hilite on
    set %qr_hilite on
    echo 4 -ta * highlight on any scoring is now on
  }
  ...turn higlight off:{
    set %score_hilite off
    set %bonus_hilite off
    set %binus_hilite off
    set %qr_hilite off
    echo 4 -ta * highlight on any scoring is now off
  }
  ...use beep highlight:{
    var %x1 = $?"beep how many times?"
    var %x2 = $?"beep interval in milliseconds?"
    set %score_beep1 %x1
    set %bonus_beep1 %x1
    set %binus_beep1 %x1
    set %qr_beep1 %x1
    set %score_beep2 %x2
    set %bonus_beep2 %x2
    set %binus_beep2 %x2
    set %qr_beep2 %x2
    set %score_sound beep
    set %bonus_sound beep
    set %binus_sound beep
    set %qr_sound beep
    echo 4 -ta * beep on all scorings changed to beep %x1 times with %x2 interval
  }
  ...use sound highlight:{
    var %x = $sfile(c:\,choose sound file,use sound)
    set %score_soundfile %x
    set %bonus_soundfile %x
    set %binus_soundfile %x
    set %qr_soundfile %x
    set %score_sound splay
    set %bonus_sound splay
    set %binus_sound splay
    set %qr_sound splay
    echo 4 -ta * highlight on all scorings changed to sound file: %x
  }
  ...dont use sound or beep:{ unset %score_sound %bonus_sound %binus_sound %qr_sound | echo 4 -ta * Sounds on all scorings disabled }
  ...turn auto join on:{
    set %score_join on
    set %bonus_join on
    set %binus_join on
    set %qr_join on
    echo 4 -ta * Auto join on all scorings is now on
  }
  ...turn auto join off:{
    set %score_join off
    set %bonus_join off
    set %binus_join off
    set %qr_join off
    echo 4 -ta * Auto join on all scorings is now off
  }
  .options
  ..Change second line wildcard (type a word that comes in the second line of scoring):{
    var %temp = $?"Type a word from the second line of scoring (will be used to calculate difference, and your answer time)"
    set %mm_wild2 $chr(42) $+ %temp $+ $chr(42)
    echo 4 -ta * Second line wildcard changed to %mm_wild2
  }
  ..Allow people to see your last answer time with !lasttime $me command $iif(%last_allow == on,(on),(off)) {
    var %temp = %last_allow
    if (%temp == on) { set %last_allow off | echo 4 -ta * Peoples can now not see your last time by typing !lasttime $me }
    if (%temp == off) { set %last_allow on | echo 4 -ta * Peoples can now see your last time by typing !lasttime $me }
  }
  ..$iif(%mm_close == $null,Keep,Close) nick window on VERSION reply:{
    if (%mm_close == $null) { set %mm_close open | echo 4 -ta * nick window on version reply is now on | halt }
    unset %mm_close
    echo 4 -ta * nick window on version reply is now off
  }
  ..auto turn msg !isalive on join $iif(%mm_ajoin == on,off,on):set %mm_ajoin $iif(%mm_ajoin == on,off,on) | echo 4 -ta * auto !isalive on join is now %mm_ajoin
  ..turn $iif(%mm_auto == on,off,on) auto /mm in editbox:set %mm_auto $iif(%mm_auto == on,off,on) | echo 4 -ta * auto /mm in editbox turned %mm_auto
  ..$iif($isalias(F1) == $true,remove,add) /MM in editbox on F1:{
    if ($isalias(F1) == $false) { .timer 1 0 alias F1 editbox #ranks /mm 0+ | echo 4 -ta * Added /MM in editbox on F1 }
    if (($isalias(F1) == $true) && ($?!="Are you sure u wish to remove F1 alias?!=" == $true)) { .alias F1 | echo 4 -ta * Removed /MM in editbox on F1 }
  }
  ..echo all configurations:{
    echo #ranks ----- 4HERE IS ALL YOUR CONFIGURATIONS FOR /MM SCRIPT BY DANI -----
    echo #ranks Showing answer time in %mm_time
    echo #ranks Showing line interval in %msg_time
    echo #ranks Showing line interval after %msg_int $+ secs
    if (%score_hilite == on) {
      if (%score_sound == splay) { echo #ranks Playing file %score_soundfile on Scoring Time }
      if (%score_sound == beep) { echo #ranks Beeping %score_beep1 times with %score_beep2 $+ ms interval on Scoring Time }
      if (%score_sound == $null) { echo #ranks No soundplay or beep on Scoring Time }
    }
    if (%score_hilite == off) { echo #ranks Scoring time highlight is OFF }
    if (%bonus_hilite == on) {
      if (%bonus_sound == splay) { echo #ranks Playing fil %bonus_soundfile on Bonus Time }
      if (%bonus_sound == beep) { echo #ranks Beeping %bonus_beep1 times with %bonus_beep2 $+ ms interval on Bonus Time }
      if (%bonus_sound == $null) { echo #ranks No soundplay or beep on Bonus Time }
    }
    if (%bonus_hilite == off) { echo #ranks Bonus Time highlight is OFF }
    if (%binus_hilite == on) {
      if (%binus_sound == splay) { echo #ranks Playing file %binus_soundfile on MegaBinus }
      if (%binus_sound == beep) { echo #ranks Beeping %binus_beep1 times with %binus_beep2 $+ ms interval on MegaBinus }
      if (%binus_sound == $null) { echo #ranks No soundplay or beep on MegaBinus }
    }
    if (%binus_hilite == off) { echo #ranks MegaBinus highlight is OFF }
    if (%qr_hilite == on) {
      if (%qr_sound == splay) { echo #ranks Playing file %qr_soundfile on Quick-Round }
      if (%qr_sound == beep) { echo #ranks Beeping %qr_beep1 times with %qr_beep2 $+ ms interval on Quick-Round }
      if (%qr_sound == $null) { echo #ranks No Soundplay or beep on Quick-Round }
    }
    if (%qr_hilite == off) { echo #ranks Quick-Round highlight is OFF }
    echo #ranks Auto join on scoring time is $upper(%score_join)
    echo #ranks Auto join on Bonus Time is $upper(%bonus_join)
    echo #ranks Auto join on MegaBinus is $upper(%binus_join)
    echo #ranks Auto join on Quick-Round is $upper(%qr_join)
    echo #ranks !lasttime $me command is $upper(%last_allow)
    echo #ranks Nick window will $iif(%mm_close == open,NOT,$null) close on VER reply
    echo #ranks !isalive on join is $upper(%mm_ajoin)
    echo #ranks Wildcard of second line is %mm_wild2
    echo #ranks auto !opme on join is $iif(%mm_pw != $null,ON,OFF)
    echo #ranks Your fastest answer is %besttime $+ ms
    echo #ranks ----- 4END OF CONFIGURATIONS -----
  }
  ..$iif(%mm_pw == $null,Add,Change\remove) auto send !opme to MACHINE[]:{
    if (%mm_pw != $null) {
      var %x = $?!="Type yes to change password or no to remove auto send !opme on join"
      if (%x == $true) { set %mm_pw $encode($?*="type your !opme password") | echo 4 -ta * Changed !opme password }
      if (%x == $false) { unset %mm_pw | echo 4 -ta * turned off auto send !opme on join }
      halt
    }
    if (%mm_pw == $null) { set %mm_pw $encode($?*="type your !opme password") | echo 4 -ta * Auto send !opme [your password] added }
  }
  ..reset besttime ( $+ %besttime $+ ms):set %besttime 100000 | echo 4 -ta * besttime set to 100000 secs
  ..unload script:{
    if ($?!="Are you sure you wish to unload /mm script?" == $true) {
      unset %mm_time %msg_time %mm_wild2 %msg_int %besttime %score_hilite %score_beep1 %score_beep2 %score_join %bonus_hilite %bonus_beep1 %bonus_beep2 %bonus_join
      unset %binus_hilite %binus_beep1 %binus_beep2 %binus_join %qr_hilite %qr_beep1 %qr_beep2 %qr_join %ajoin %time_last %score_sound %bonus_sound
      unset %binus_soind %qr_sound %score_soundfile %bonus_soundfile %last_allow %binus_soundfile %qr_soundfile %mm_pw %mm_close
      echo 4 -ta * successfully unloaded /mm script
      .unload -rs mm.mrc
    }
  }
  ..Check for updates:{ .msg Dani_TAH !checkver 1.59 }
}
on *:text:!lasttime*:#ranks:{
  if ((%last_allow == on) && ($2 == $me)) { msg # On last scoring, i $iif(%time_last == $null,havent answered yet,answered in $calc(%time_last / 1000) $+ secs) $+ , $iif(%2linetime == $null,haven't seen 2nd line yet,time between 2 first lines was $calc(%2linetime / 1000) $+ secs) $iif(%lasttime == $null,and dont know my time yet,and got %lasttime $chr(40) $+ est. ping: $+ %pingest $+ - $+ $calc(%pingest + 200) $+ ms $+ $chr(41)) $+ $iif($gettok(%lasttime,32,1) == fool,and fooled $gettok(%lasttime,32,2)) }
}
on *:text:Wrong answer*:*:{
  if ($nick == MACHINE[]) { set %lasttime fool $3 | echo 4 -t #ranks $1- }
}
on *:text:Right*Score earned*:*:{
  if ($nick == MACHINE[]) { set %lasttime $6 | echo 4 -t #ranks Score earned: $6 }
  if (%2linetime != $null) { set %pingest $calc($calc(1000 - %lasttime) * 1000 - %2linetime - %time_last) | echo 4 -t #ranks Estimated ping is %pingest $+ - $+ $calc(%pingest + 200) }
}
on *:text:ver*:*:{
  if ($nick == Dani_TAH) {
    if (%mm_close == $null) { close -m $nick }
    echo 4 -ta * Version reply from Dani_TAH: $2-
  }
}
alias mm {
  msg MACHINE[] $calc($1-)
  var %f = $calc($ticks - %scorestart)
  if (%mm_time == ms) { var %time = %f }
  if (%mm_time == s) { var %time = $calc(%f / 1000) }
  if (%mm_time == m) { var %time = $round($calc($calc(%f / 1000) / 60),2) }
  if (%besttime == $null) { set %besttime 100000 }
  if (%f < %besttime) { echo 4 -ta <script> you made a new personal record! | set %besttime %f }
  echo 4 -ta <script> answered MACHINE[] in %time $iif(%mm_time == ms,milliseconds) $+ $iif(%mm_time == s,seconds) $+ $iif(%mm_time == m,minutes)
  if (%mm_auto == on) { editbox #ranks /mm 0 }
  beep 1 1
  set %time_last %f
}
on *:join:#ranks:{
  if (($nick == $me) || ($nick == MACHINE[])) { set %scorestart $ticks }
  if (($nick == $me) && (%mm_ajoin == on)) { msg #ranks !isalive }
  if (($nick == $me) && (%mm_pw != $null)) { query MACHINE[] | .msg MACHINE[] !opme $decode(%mm_pw) | echo MACHINE[] $timestamp < $+ $me $+ > !opme 7[password, hidden] }
}
on *:text:%mm_wild2:#ranks:{
  if ($nick == MACHINE[]) {
    if (%mm_auto == on) { editbox -p #ranks /mm }
    if (%msg_time == ms) { var %time = $calc($ticks - %scorestart) }
    if (%msg_time == s) { var %time = $calc($calc($ticks - %scorestart) / 1000) }
    if (%msg_time == m) { var %time = $round($calc($calc($calc($ticks - %scorestart) / 1000) / 60),2) }
    .timer 1 %msg_int echo #ranks $timestamp <script> time between 2 first lines: %time $iif(%msg_time == ms,milliseconds) $+ $iif(%msg_time == s,seconds) $+ $iif(%msg_time == m,minutes)
    set %scorestart $ticks
    set %2linetime %time
    if (%time_last != $null) { set %time_last $calc(%time_last - %2linetime) | echo 4 -t #ranks Answer time corrected to %time_last | set %pingest $calc($calc(1000 - %lasttime) * 1000 - %2linetime - %time_last) | echo 4 -t #ranks Estimated ping is %pingest $+ - $+ $calc(%pingest + 200) }
  }
}
on *:load:{
  set %msg_time ms
  set %mm_time ms
  set %mm_ajoin off
  set %msg_int 4
  set %last_allow on
  set %besttime 100000
  set %mm_auto on
  set %score_hilite off
  set %score_beep1 10
  set %score_beep2 10
  set %score_join off
  set %bonus_hilite off
  set %bonus_beep1 10
  set %bonus_beep2 10
  set %bonus_join off
  set %binus_hilite off
  set %binus_beep1 10
  set %binus_beep2 10
  set %binus_join off
  set %qr_hilite off
  set %qr_beep1 10
  set %qr_beep2 10
  set %qr_join off
  set %mm_wild2 *Please*
  set %ajoin off
  set %score_sound beep
  set %bonus_sound beep
  set %binus_sound beep
  set %qr_sound beep
  echo 4 -ta * successfully loaded /mm script! right click in any channel to change options
}
on *:text:*IT IS SCORING TIME*:#ranks:{
  if ($nick == MACHINE[]) {
    set %scorestart $ticks
    set %scoretype scoring
    if (%score_hilite == on) {
      if (%score_sound == beep) { beep %score_beep1 %score_beep2 }
      if (%score_sound == splay) { splay %score_soundfile }
      flash
    }
    if (%score_join == on) {
      join # 
      window -a #ranks
    }
    unset %lasttime %2linetime %time_last
  }
}
on *:text:*BONUS TIME*:#ranks:{
  if ($nick == MACHINE[]) {
    set %scorestart $ticks
    set %scoretype bonus
    if (%bonus_hilite == on) {
      if (%bonus_sound == beep) { beep %bonus_beep1 %bonus_beep2 }
      if (%bonus_sound == splay) { splay %bonus_soundfile }
      flash
    }
    if (%bonus_join == on) { 
      join # 
      window -a #ranks
    }
    unset %lasttime %2linetime %time_last
  }
}
on *:text:*MEGA 10K BINUS*:#ranks:{
  if ($nick == MACHINE[]) {
    set %scorestart $ticks
    set %scoretype binus
    if (%binus_hilite == on) {
      if (%binus_sound == beep) { beep %binus_beep1 %binus_beep2 }
      if (%binus_sound == splay) { splay %binus_soundfile }
      flash
    }
    if (%binus_join == on) { 
      join # 
      window -a #ranks
    }
    unset %lasttime %2linetime %time_last
  }
}
on *:text:*QUICK-ROUND*:#ranks:{
  if ($nick == MACHINE[]) {
    if (($2 == is) || ($2 == $null)) { echo 4 -t #ranks anti-fake no hilight | halt }
    set %scorestart $ticks
    set %scoretype qr
    if (%qr_hilite == on) {
      if (%qr_sound == beep) { beep %qr_beep1 %qr_beep2 }
      if (%qr_sound == splay) { splay %qr_soundfile }
      flash
    }
    if (%qr_join == on) {
      join # 
      window -a #ranks
    }
    unset %lasttime %2linetime %time_last
  }
}