none
Mad at life? Use this!!! RRS feed

  • Question

  • hello, i just created this program to sharpen my lastkey memory, but its kinda fun. so, mad at life? hit the spacebar and see a phrase that'll cheer anyone up. hee hee hee...

    (please IF you read this, please post more "ouchy" phrases so i can add them in to the program, and overall make it more entertaining) (:D)

    here ya go!

    GraphicsWindow.Title="Beat-Up Computer"
    GraphicsWindow.Clear()
    GraphicsWindow.BackgroundColor="red"
    enter="Space"
    GraphicsWindow.KeyDown = keydown1
    GraphicsWindow.KeyUp = keyup1
    rand=Math.GetRandomNumber(4)

    Sub keydown1
      If GraphicsWindow.LastKey=enter Then
        GraphicsWindow.BrushColor="Black"
        GraphicsWindow.FontSize=100
        If rand=1 then
          GraphicsWindow.Clear()
          GraphicsWindow.DrawText(5,5,"Ouch!!")
          rand=Math.GetRandomNumber(4)
      endif
      If rand=2 then
        GraphicsWindow.Clear()
        GraphicsWindow.DrawText(5,5,"Dammit!!")
        rand=Math.GetRandomNumber(4)
      endif
      If rand=3 Then
        GraphicsWindow.Clear()
        GraphicsWindow.DrawText(5,5,"Stupid!!")
        rand=Math.GetRandomNumber(4)
        EndIf
        If rand=4 Then
          GraphicsWindow.Clear()
          GraphicsWindow.DrawText(5,5,"Idiot!!")
          rand=Math.GetRandomNumber(4)
          endif
          endif
      EndSub
      Sub keyup1
        If GraphicsWindow.LastKey=enter Then
          GraphicsWindow.Clear()
          EndIf
        endsub

    Friday, March 15, 2013 12:45 AM

Answers

All replies