RE:Useless Box Kit

[JRL]

The useless box kit video cracked me up.

Here's my contribution for a useless script in the same vein.

When you get tired of being defeated, press the "Esc" key

Code: Select all

OnEvent>Key_Down,VK27,0,Quit
Dialog>Dialog1
object Dialog1: TForm
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = 'Click the button'
  ClientHeight = 200
  ClientWidth = 230
  object Panel1: TPanel
    Left = 64
    Top = 40
    Width = 101
    Height = 89
    BevelOuter = bvNone
    object MSButton1: tMSButton
      Left = 13
      Top = 27
      Width = 75
      Height = 25
      Caption = 'Click here'
    end
  end
end
EndDialog>Dialog1

AddDialogHandler>Dialog1,Panel1,OnMouseEnter,GetAway
AddDialogHandler>Dialog1,MSButton1,OnClick,GetAway

Show>Dialog1,

SRT>GetAway
GetCursorPos>CurX,CurY
  Random>5,res
  If>res=1
    Add>CurX,100
  Else
    If>res=2
      Sub>CurX,100
    Else
      If>res=3
        Add>CurY,100
      Else
        Sub>CurY,100
      EndIf
    EndIf
  EndIf
  MouseMove>CurX,CurY
END>GetAway

SRT>Quit
  Exit>0
END>Quit

[Marcus Tettmar]

[Meryl]

Hilarious! Marcus -- you brought back memories with the BASIC programming you included on that page. Of course, it was one of the first things I learned.