Results 1 to 3 of 3

Thread: Moutain Driver

  1. #1
    Member
    Join Date
    Sep 2008
    Location
    Germany
    Posts
    406
    Rep Power
    56

    Moutain Driver

    Hello,

    Here is it:
    Uses "ui", "math"
    #INCLUDE "abc.inc"
    
    OpenWindow 320, 240
    SetHandleDC hdc, hwnd
    SetFont 10,10,0,""
    
    Long a, b, c, n
    b=5 : c=10
    
    While IsWindow(hwnd) And Key(27)=0
      Canvas_Clear &hffffff
      For n=0 To 320
          DrawPoint n,88+80*Sin(n/128*Pi),2,2,%abc_brown
      Next
      FloodFill 1, 1, %abc_white,%abc_blue*.9
      FloodFill 1,200,%abc_white,%abc_brown
     
      DrawEllipse c,88+80*Sin(c/128*Pi)-10,10,10,2,%abc_yellow
      DrawEllipse b,88+80*Sin(b/128*Pi)-10,10,10,2,%abc_yellow
      DrawEllipse a,88+80*Sin(a/128*Pi)-10,10,10,2,%abc_yellow
     
      a +=1
      b +=1
      c +=1
     
      If a >320 Then 
         a=0
         b=5
         c=10
      End If   
     
      DrawText 100,220,"MOUNTAIN DRIVER",%abc_green  
      Canvas_Redraw
      SetFps (80)
    Wend
    Canvas_Window End
    
    Attached Files Attached Files

  2. #2
    thinBasic MVPs
    Join Date
    Oct 2012
    Location
    Germany
    Age
    54
    Posts
    1,527
    Rep Power
    170
    they always get through to the other side of the map and I can not shoot them!
    ... perhaps I spent too many hours playing tower-defense-games?

    runs fine here with no complaints.
    I think there are missing some Forum-sections as beta-testing and support

  3. #3
    Member
    Join Date
    Sep 2008
    Location
    Germany
    Posts
    406
    Rep Power
    56
    Thanks Rene,

    You better play Doom2 as I do.
    Last edited by peter; 29-03-2014 at 20:34.

Members who have read this thread: 0

There are no members to list at the moment.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •