PureBasic Forums - English

Code: Select all

;Starflight
;2005 by Hroudtwolf
;PureBasic-Lounge.de
;
;
;Moving:
;left,right,up and down
;
;Speed
;increase = +
;decrease = -

Declare InitStarFlight (max.l,width.l,height.l)
Declare DisplayStarFlight (x.l,y.l,speed.l,flag.l)


If InitSprite() = 0 Or InitKeyboard() = 0
  MessageRequester("Fehler", "Kann DirectX oder höher nicht initialisieren.", 0)
  End
EndIf

InitStarFlight (100,800,600)

If OpenScreen(800, 600, 16, "Starflight")
  
  Repeat
    
    FlipBuffers()
    ClearScreen(RGB(0,0,0))
    DisplayStarFlight (horz.l,vert.l,speed.l,1)
    
    
    
    ExamineKeyboard()
    If  KeyboardPushed(#PB_Key_Left):horz.l=horz.l-2:EndIf
    If  KeyboardPushed(#PB_Key_Up):vert.l=vert.l-2:EndIf
    If  KeyboardPushed(#PB_Key_Right):horz.l=horz.l+2:EndIf
    If  KeyboardPushed(#PB_Key_Down):vert.l=vert.l+2:EndIf
    If  KeyboardPushed(#PB_Key_Add) And speed.l<200:speed.l=speed.l+1:EndIf
    If  KeyboardPushed(#PB_Key_Subtract) And speed.l>0:speed.l=speed.l-1:EndIf
    
    Delay (10)
  Until x > 500 Or KeyboardPushed(#PB_Key_Escape)
  
  CloseScreen()
EndIf

End   












Procedure InitStarFlight (max.l,width.l,height.l)
  Global width199.l,height199.l,aktionszeit.l,aktion.l
  width199.l=width.l
  height199.l=height.l
  Structure sterndaten
    hrichtung.l
    vrichtung.l
    geschwindigkeitx.l
    geschwindigkeity.l
    x.l
    y.l
    z.l
  EndStructure
  Global NewList sternenflucht.sterndaten()
  For x=1 To max.l
    AddElement (sternenflucht())
    sternenflucht()\x= width199.l/2-(Random(20)-1)
    sternenflucht()\y=height199.l/2-(Random(20)-10)
    sternenflucht()\z=50
    sternenflucht()\geschwindigkeitx=1+Random(5)
    sternenflucht()\geschwindigkeity=1+Random(5)
    sternenflucht()\hrichtung=1+Random(1)
    sternenflucht()\vrichtung=1+Random(1)
  Next x
  x=0:y=0
  For z=1 To 500
    ResetList (sternenflucht())
    While NextElement(sternenflucht())
      If sternenflucht()\hrichtung=1:sternenflucht()\x=sternenflucht()\x-sternenflucht()\geschwindigkeitx:EndIf
      If sternenflucht()\hrichtung=2:sternenflucht()\x=sternenflucht()\x+sternenflucht()\geschwindigkeitx:EndIf
      If sternenflucht()\vrichtung=1:sternenflucht()\y=sternenflucht()\y-sternenflucht()\geschwindigkeity:EndIf
      If sternenflucht()\vrichtung=2:sternenflucht()\y=sternenflucht()\y+sternenflucht()\geschwindigkeity:EndIf
      If sternenflucht()\x<0 Or sternenflucht()\x>width199.l-1 Or sternenflucht()\y<0 Or sternenflucht()\y>height199.l-1
        sternenflucht()\x=(width199.l/2)+x
        sternenflucht()\y=(height199.l/2)+y
        sternenflucht()\geschwindigkeitx=1+Random(5)
        sternenflucht()\geschwindigkeity=1+Random(5)
        sternenflucht()\hrichtung=1+Random(1)
        sternenflucht()\vrichtung=1+Random(1)
        sternenflucht()\z=100
        If sternenflucht()\x <0:sternenflucht()\x=0:EndIf
        If sternenflucht()\y <0:sternenflucht()\y=0:EndIf
        If sternenflucht()\x >(width199.l)-1:sternenflucht()\x=width199.l-1:EndIf
        If sternenflucht()\y >(height199.l)-1:sternenflucht()\y=height199.l-1:EndIf
        sternenflucht()\z=sternenflucht()\z+3
        If sternenflucht()\z>255:sternenflucht()\z=255:EndIf
      EndIf
      farbe.l=sternenflucht()\z
    Wend
  Next z
EndProcedure














Procedure DisplayStarFlight (x.l,y.l,speed.l,flag.l)
  If aktion.l=0:aktionszeit.l=GetTickCount_()+(180-speed.l):aktion.l=1:EndIf
  If aktion.l=1 And GetTickCount_()>aktionszeit.l:aktion.l=2:EndIf
  If speed.l>180
    aktion.l=2
  EndIf
  If StartDrawing (ScreenOutput ())
    ResetList (sternenflucht())
    While NextElement(sternenflucht())
      If aktion.l=2 And speed.l>0
        If sternenflucht()\hrichtung=1:sternenflucht()\x=sternenflucht()\x-sternenflucht()\geschwindigkeitx:EndIf
        If sternenflucht()\hrichtung=2:sternenflucht()\x=sternenflucht()\x+sternenflucht()\geschwindigkeitx:EndIf
        If sternenflucht()\vrichtung=1:sternenflucht()\y=sternenflucht()\y-sternenflucht()\geschwindigkeity:EndIf
        If sternenflucht()\vrichtung=2:sternenflucht()\y=sternenflucht()\y+sternenflucht()\geschwindigkeity:EndIf
        If sternenflucht()\x<0 Or sternenflucht()\x>width199.l-1 Or sternenflucht()\y<0 Or sternenflucht()\y>height199.l-1
          sternenflucht()\x=(width199.l/2)+x.l
          sternenflucht()\y=(height199.l/2)+y.l
          sternenflucht()\geschwindigkeitx=1+Random(5)
          sternenflucht()\geschwindigkeity=1+Random(5)
          sternenflucht()\hrichtung=1+Random(1)
          sternenflucht()\vrichtung=1+Random(1)
          sternenflucht()\z=100
        EndIf
        If sternenflucht()\x <0:sternenflucht()\x=0:EndIf
        If sternenflucht()\y <0:sternenflucht()\y=0:EndIf
        If sternenflucht()\x >(width199.l)-1:sternenflucht()\x=width199.l-1:EndIf
        If sternenflucht()\y >(height199.l)-1:sternenflucht()\y=height199.l-1:EndIf
        sternenflucht()\z=sternenflucht()\z+3
        If sternenflucht()\z>255:sternenflucht()\z=255:EndIf
      EndIf
      farbe.l=sternenflucht()\z
      If flag.l=0
        Plot (sternenflucht()\x,sternenflucht()\y,RGB(farbe.l,farbe.l,farbe.l))
      Else
        Circle (sternenflucht()\x,sternenflucht()\y,flag.l,RGB(farbe.l,farbe.l,farbe.l))
      EndIf
    Wend
    StopDrawing ()
    If aktion.l=2:aktion.l=0:EndIf
  EndIf
EndProcedure