alias scrambleoff {
  if (%scrambleron == $true) {
     msg %channel The scrambler has been turned off.
     set %scrambleon $false
  }
}

alias scramble {
  /var %temp
  /set %temp $$?="Enter the channel you want to send to:"
  if ($chan(%temp) == 0) { /join %temp }
  ;/echo $chan(%temp) $+ _chantemp
  /set %channel %temp
  /set %sfilename $sfile($mircdir, Choose a Scrambler File)
  if ($isfile(%filename) == $true) {
    /set %scrambleron $true
    /set %currentword $read(%sfilename, 2)
    /set %currenttopic $read(%sfilename, 1)
    /set %currentnum 1
    /set %scores óde@1!
    /var %b = 0
    /var %m = 0
    /var %word = %currentword
    /var %letter
    /var %a = 0
    /set %a 16
    /set %next 2
    /echo %word
    while %m <= %a {
      /set %letter $right(%word, 1)
      /set %word $left(%word, $calc($len(%word) - 1))
      /set %b $rand(0, $len(%word))
      if (%b > 0) /set %word $left(%word, %b) $+ %letter $+ $mid(%word, $calc(%b + 1))
      else /set %word %letter $+ %word
      ;/echo %word %letter %b
      /inc %m 1
    }
    /msg %channel 0,4 Super Scrambler! Topic is %currenttopic :)
    msg %channel 4,0 Commands are !hint and !scores
    /var %joo = %word
    /set %joo 0,4 Unscramble This! -> [ 1,4 %word 0,4]
    /msg %channel %joo
  }
}

on *:TEXT:*:%channel:{
  if (%scrambleron == $true) {
    var %xy = $1-
    if ($lower(%xy) == $lower(%currentword)) && (%scrambleron == $true) {
      set %hintnum 0
      msg %channel 4 $+ $nick $+  got the answer!
      /inc %next 1
      set %currentword $read(%sfilename, %next)

      if ($pos(%scores, $nick, 1) >= 1) {
        var %yz = $calc($pos($mid(%scores,$pos(%scores,$nick,1)),@,1) + $len($left(%scores,$pos(%scores,$nick,1))) - 1)
        var %zy = $calc($pos($mid(%scores, %yz),!,1) + $len($left(%scores, %yz)) - 1)

        set %scores $left(%scores, $calc(%yz - 1)) $+ @ $+ $calc($mid(%scores, $calc(%yz + 1), $calc(%zy - %yz - 1)) + 1) $+ $mid(%scores, %zy)
      }
      else {
        set %scores %scores $+ $nick $+ @1!
      }

      if (%currentword == $null) {
        msg %channel -END OF GAME-
        var %scores2 $replace(%scores, @, $chr(32) $+ - $+ $chr(32))
        set %scores2 $replace(%scores2, !, $chr(32) $+ $chr(124) $+ $chr(32))
        msg $chan $left($mid(%scores2, 10), $calc($len($mid(%scores2, 10)) - 1))
        set %scrambleron $false
      }
      else {

        var %word = %currentword, %m = 0, %a = 16, %b = 0, %letter
        /echo %word
        while %m <= %a {
          /set %letter $right(%word, 1)
          /set %word $left(%word, $calc($len(%word) - 1))
          /set %b $rand(0, $len(%word))
          if (%b > 0) /set %word $left(%word, %b) $+ %letter $+ $mid(%word, $calc(%b + 1))
          else /set %word %letter $+ %word
          ;/echo %word %letter %b
          /inc %m 1
        }
        msg %channel 0,4 Unscramble This! -> [ 1,4 %word 0,4]
      }
    }
    elseif (%xy == !scores) {
      var %scores2 $replace(%scores, @, $chr(32) $+ - $+ $chr(32))
      set %scores2 $replace(%scores2, !, $chr(32) $+ $chr(124) $+ $chr(32))
      msg $chan $left($mid(%scores2, 10), $calc($len($mid(%scores2, 10)) - 1))
    }
    elseif (%xy = !hint) {
      set %hintnum $calc(%hintnum + 1)
      if (%hintnum > $len(%currentword)) set %hintnum 1
      var %clue = $left(%currentword, %hintnum) $+ ...
      msg %channel 4HINT: %clue
    }
  }
}