2F*
Magic Numbers Version 1
By foshizzle
type /magenums to start
the game creates a random number between 0 and 100 and you have to guess it!
This is only a BETA!
*/
;--
on *:CLOSE:*: {
  if ($target == @LDG || $target == @RunGame || $target == @Magic_Numbers) {
    /unset %lo
    /unset %curtex
    /unset %magenum
    /echo 3 -m Thanks for playing Magic Numbers *Beta* by foshizzle.
  }
}
alias magenums {                                                      
  /window -pkodC +b @RunGame -1 -1 95 80 " $+ $scriptdir $+ \target.ico" 0
  /clear @RunGame
  /drawrect -rfd @RunGame $rgb(140,142,145) 1 5 5 80 30 10 10
  /drawrect -rfd @RunGame $rgb(170,172,175) 1 5 5 80 15 10 10
  /drawtext -po @RunGame tahoma 27 12 PLAY!
  /drawrect -rfd @RunGame $rgb(235,100,102) 1 5 40 80 30 10 10
  /drawrect -rfd @RunGame $rgb(255,140,142) 1 5 40 80 15 10 10
  /drawtext -po @RunGame tahoma 33 47 EXIT
}

;keydown sequences
on *:keydown:@RunGame:69: /window -c @RunGame
on *:keydown:@RunGame:80: /window -c @RunGame | /LoadGame
on *:keydown:@ldg:67: /window -c @Ldg
;--

alias -l LoadGame {
  /window -apkodC +b @LDG -1 -1 200 200 " $+ $scriptdir $+ \target.ico" 0
  /clear @LDG
  /drawpic -t @LDG $rgb(255,255,255) 0 0 " $+ $scriptdir $+ \magic_numbers.png"
  /set %lo 0
  /drawrect @LDG 1 1 0 169 200 32
  :Reload
  /var %percent $calc(%lo / 10)
  if (%lo <= 200) {
    /drawline -rf @LDG $rgb(150,255,150) 1 %lo 170 %lo 175
    /drawline -rf @LDG $rgb(125,243,125) 1 %lo 175 %lo 180
    /drawline -rf @LDG $rgb(100,230,100) 1 %lo 180 %lo 185
    /drawline -rf @LDG $rgb(75,220,75) 1 %lo 185 %lo 190
    /drawline -rf @LDG $rgb(50,210,50) 1 %lo 190 %lo 195
    /drawline -rf @LDG $rgb(25,200,25) 1 %lo 195 %lo 200
    /drawtext @LDG 1 tahoma 15 12 175 Loading...
    /inc %lo 0.11
    goto Reload
  }
  else { /window -c @LDG | /MN }
}
alias -l MN {
  /window -pkodC +l @Magic_Numbers -1 -1 170 150
  /drawpic -t @Magic_Numbers $rgb(255,255,255) -20 -3 " $+ $scriptdir $+ \magic_numbers.png"
  /drawrect @Magic_Numbers 1 1 5 100 70 20
  /drawrect -f @magic_Numbers 7 1 80 100 30 20
  /drawrect @Magic_Numbers 1 1 79 99 32 22
  /drawtext @magic_Numbers 0 Tahoma 18 82 98 Try
  /drawrect -f @magic_Numbers 5 1 113 100 30 20
  /drawrect @Magic_Numbers 1 1 112 99 32 22
  /drawtext @magic_Numbers 0 Tahoma 18 114 98 Clr.
  /set %magenum $r(0,100)
}
on *:KEYDOWN:@Magic_Numbers:*: {
  /var %new %curtex
  $iif($len(%curtex) < 3, $iif($keychar isnum 0-9, /set %curtex %new $+ $keychar, halt), halt)
  /drawrect -f @Magic_Numbers 0 1 6 101 28 18
  /drawtext @Magic_Numbers 1 Tahoma 18 6 99 %curtex
}
menu @Magic_Numbers {
  sclick: {
    if ($inrect($mouse.x,$mouse.y,112,100,30,20) == $true) /unset %curtex | /drawrect -f @Magic_Numbers 0 1 6 101 30 18
    if ($inrect($mouse.x,$mouse.y,99,100,30,20) == $true || %curtex) { if (%curtex == %magenum) { unset %curtex | unset %magenum | /window -c @Magic_Numbers | goto end | /echo 7 -m You Win! } | /drawrect -f @Magic_Numbers 0 1 6 101 30 18
      if (%curtex == %magenum) /aline -l 3 @Magic_Numbers %curtex | /unset %curtex
      else /aline -l 4 @Magic_Numbers %curtex | /unset %curtex
      :end
    }
  }
}
menu @RunGame {
  uclick: { if ($inroundrect($mouse.x,$mouse.y,5,5,80,30,10,10) == $true) { /window -c @RunGame | /set %sequence 1 | /LoadGame }
    elseif ($inroundrect($mouse.x,$mouse.y,5,40,80,30,10,10) == $true) { /window -c @RunGame }
  }
  mouse: { if ($inroundrect($mouse.x,$mouse.y,5,5,80,30,10,10) == $true) {
      /drawrect -rfd @RunGame $rgb(170,172,175) 1 5 5 80 30 10 10
      /drawrect -rfd @RunGame $rgb(200,202,205) 1 5 5 80 15 10 10
      /drawtext -po @RunGame tahoma 27 12 PLAY!
    }
    elseif ($inroundrect($mouse.x,$mouse.y,5,5,80,30,10,10) != $true) {   
      /drawrect -rfd @RunGame $rgb(140,142,145) 1 5 5 80 30 10 10
      /drawrect -rfd @RunGame $rgb(170,172,175) 1 5 5 80 15 10 10
      /drawtext -po @RunGame tahoma 27 12 PLAY!
    }
    if ($inroundrect($mouse.x,$mouse.y,5,40,80,30,10,10) == $true) {
      /drawrect -rfd @RunGame $rgb(255,60,62) 1 5 40 80 30 10 10
      /drawrect -rfd @RunGame $rgb(255,160,162) 1 5 40 80 15 10 10
      /drawtext -po @RunGame tahoma 33 47 EXIT
    }
    elseif ($inroundrect($mouse.x,$mouse.y,5,40,80,30,10,10) != $true) {
      /drawrect -rfd @RunGame $rgb(255,100,102) 1 5 40 80 30 10 10
      /drawrect -rfd @RunGame $rgb(255,140,142) 1 5 40 80 15 10 10
      /drawtext -po @RunGame tahoma 33 47 EXIT
    }
  }
}