PureBasic Forums - English

Code: Select all

#desw=400 
#desh=150
anzahl.l = 200

array:
Structure Star
 x.f 
 y.f 
 v.f 
 col.f
EndStructure

Dim stern.Star(anzahl)
For array = 0 To anzahl
 Stern(array)\x = Random(#desw)
 Stern(array)\y = Random(#desh)
 Stern(array)\v = 0.5 + Random(45)/30
 Stern(array)\col = 100 + Random(900)
Next array

Procedure Drawchar(zeichen.s,x.f,y.f,col.b,gr.b)
 Select zeichen
 Case "c"
 Line (x,y,gr,0,col)
 Line (x,y,0,gr,col)
 Line (x,y+gr,gr,0)
 Case "h"
 Line (x,y,0,gr+1,col)
 Line (x,y+gr/2,gr,0,col)
 Line (x+gr,y,0,gr+1,col)
 Case "o"
 Line (x,y,gr,0,col)
 Line (x,y,0,gr,col)
 Line (x,y+gr,gr,0)
 Line (x+gr,y,0,gr+1,col)
 Case "s"
 Line (x,y,gr,0,col)
 Line (x,y,0,gr/2,col)
 Line (x,y+gr/2,gr,0,col)
 Line (x,y+gr,gr,0,col)
 Line (x+gr,y+gr/2,0,gr/2+1,col)
 EndSelect 
EndProcedure

;Gosub array
InitSprite()
OpenWindow(0,150,150,#desw,#desh,#PB_Window_SystemMenu | #PB_Window_MinimizeGadget,"=-window-=") ; Open the window game
OpenWindowedScreen(WindowID(),0,0,#desw,#desh,0,1,1)
posx.l=1
a.l=1
b.l=1
g.b=18
posy.b=#desh/2-10
Repeat
ClearScreen(0,0,0)
StartDrawing(ScreenOutput())
Drawchar("c",20+posx,posy,255,g)
Drawchar("h",40+posx,posy,255,g)
Drawchar("o",60+posx,posy,255,g)
Drawchar("s",80+posx,posy,255,g)
Drawchar("c",100+posx,posy,255,g)
posx=posx+a
posy=posy+b
If posx = #desw-120
a=-1
EndIf
If posx = 1 
a=1
EndIf
If posy = #desh-40
b=-1
EndIf
If posy = 10 
b=1
EndIf

For many = 0 To anzahl
If Stern(many)\x > #desw
   Stern(many)\x = Random(#desw)
   Stern(many)\y = Random(#desh)
   Stern(many)\v = 0.5 + Random(45)/10   
   Stern(many)\col = 100 + Random(900)
Else
Stern(many)\x = Stern(many)\x + Stern(many)\v
x=Stern(many)\x
y=Stern(many)\y
col = 255-(Stern(many)\col *(255./1000.)) 
Plot (x,y,RGB ( col,col,col ) )
EndIf
Next many

StopDrawing() 
FlipBuffers()
EventID.l = WindowEvent()
Until EventID = #PB_EventCloseWindow