REM ---FILE---
REM XPSE ---NAMESPACE--- #UNSET#
WINDOWSTYLE 16+8
WINDOW 0,0-800,600
SHOWMAX
$H MESSAGES.PH
$H WINDOWS.PH
DIM A#,128
OGL(*init*,%HWND,0,0,0,1)
OGL(*posmode*,1)
RANDOMIZE
DECLARE BLOCK#[15]
WHILELOOP { WHILELOOP 1,15 }/* LINE:21 {
BLOCK#[&LOOP]=NEW(OGLSPRITE)
WITH BLOCK#[&LOOP]
.TYP$=*sphere*
.POSX!=20-(RND(200)/10*2)
.POSY!=10-(RND(100)/10*2)
.COLORR!=1
.COLORG!=0
.COLORB!=0
.ALPHA!=1
.ROTDX!=1
.ROTDY!=2
.ROTDZ!=3
.DTICK&=-1
.X!=1
.A!=3
.B!=2
ENDWITH
BLOCK#[&LOOP]=NEW(OGLSPRITE)
WITH BLOCK#[&LOOP]
.TYP$=*sphere*
.POSX!=20-(RND(200)/10*2)
.POSY!=10-(RND(100)/10*2)
.COLORR!=1
.COLORG!=0
.COLORB!=0
.ALPHA!=1
.ROTDX!=1
.ROTDY!=2
.ROTDZ!=3
.DTICK&=-1
.X!=1
.A!=3
.B!=2
ENDWITH
BLOCK#[&LOOP]=NEW(OGLSPRITE)
WITH BLOCK#[&LOOP]
.TYP$=*sphere*
.POSX!=20-(RND(200)/10*2)
.POSY!=10-(RND(100)/10*2)
.COLORR!=1
.COLORG!=0
.COLORB!=0
.ALPHA!=1
.ROTDX!=1
.ROTDY!=2
.ROTDZ!=3
.DTICK&=-1
.X!=1
.A!=3
.B!=2
ENDWITH
BLOCK#[&LOOP]=NEW(OGLSPRITE)
WITH BLOCK#[&LOOP]
.TYP$=*sphere*
.POSX!=20-(RND(200)/10*2)
.POSY!=10-(RND(100)/10*2)
.COLORR!=1
.COLORG!=0
.COLORB!=0
.ALPHA!=1
.ROTDX!=1
.ROTDY!=2
.ROTDZ!=3
.DTICK&=-1
.X!=1
.A!=3
.B!=2
ENDWITH
BLOCK#[&LOOP]=NEW(OGLSPRITE)
WITH BLOCK#[&LOOP]
.TYP$=*sphere*
.POSX!=20-(RND(200)/10*2)
.POSY!=10-(RND(100)/10*2)
.COLORR!=1
.COLORG!=0
.COLORB!=0
.ALPHA!=1
.ROTDX!=1
.ROTDY!=2
.ROTDZ!=3
.DTICK&=-1
.X!=1
.A!=3
.B!=2
ENDWITH
BLOCK#[&LOOP]=NEW(OGLSPRITE)
WITH BLOCK#[&LOOP]
.TYP$=*sphere*
.POSX!=20-(RND(200)/10*2)
.POSY!=10-(RND(100)/10*2)
.COLORR!=1
.COLORG!=0
.COLORB!=0
.ALPHA!=1
.ROTDX!=1
.ROTDY!=2
.ROTDZ!=3
.DTICK&=-1
.X!=1
.A!=3
.B!=2
ENDWITH
BLOCK#[&LOOP]=NEW(OGLSPRITE)
WITH BLOCK#[&LOOP]
.TYP$=*sphere*
.POSX!=20-(RND(200)/10*2)
.POSY!=10-(RND(100)/10*2)
.COLORR!=1
.COLORG!=0
.COLORB!=0
.ALPHA!=1
.ROTDX!=1
.ROTDY!=2
.ROTDZ!=3
.DTICK&=-1
.X!=1
.A!=3
.B!=2
ENDWITH
BLOCK#[&LOOP]=NEW(OGLSPRITE)
WITH BLOCK#[&LOOP]
.TYP$=*sphere*
.POSX!=20-(RND(200)/10*2)
.POSY!=10-(RND(100)/10*2)
.COLORR!=1
.COLORG!=0
.COLORB!=0
.ALPHA!=1
.ROTDX!=1
.ROTDY!=2
.ROTDZ!=3
.DTICK&=-1
.X!=1
.A!=3
.B!=2
ENDWITH
BLOCK#[&LOOP]=NEW(OGLSPRITE)
WITH BLOCK#[&LOOP]
.TYP$=*sphere*
.POSX!=20-(RND(200)/10*2)
.POSY!=10-(RND(100)/10*2)
.COLORR!=1
.COLORG!=0
.COLORB!=0
.ALPHA!=1
.ROTDX!=1
.ROTDY!=2
.ROTDZ!=3
.DTICK&=-1
.X!=1
.A!=3
.B!=2
ENDWITH
BLOCK#[&LOOP]=NEW(OGLSPRITE)
WITH BLOCK#[&LOOP]
.TYP$=*sphere*
.POSX!=20-(RND(200)/10*2)
.POSY!=10-(RND(100)/10*2)
.COLORR!=1
.COLORG!=0
.COLORB!=0
.ALPHA!=1
.ROTDX!=1
.ROTDY!=2
.ROTDZ!=3
.DTICK&=-1
.X!=1
.A!=3
.B!=2
ENDWITH
BLOCK#[&LOOP]=NEW(OGLSPRITE)
WITH BLOCK#[&LOOP]
.TYP$=*sphere*
.POSX!=20-(RND(200)/10*2)
.POSY!=10-(RND(100)/10*2)
.COLORR!=1
.COLORG!=0
.COLORB!=0
.ALPHA!=1
.ROTDX!=1
.ROTDY!=2
.ROTDZ!=3
.DTICK&=-1
.X!=1
.A!=3
.B!=2
ENDWITH
BLOCK#[&LOOP]=NEW(OGLSPRITE)
WITH BLOCK#[&LOOP]
.TYP$=*sphere*
.POSX!=20-(RND(200)/10*2)
.POSY!=10-(RND(100)/10*2)
.COLORR!=1
.COLORG!=0
.COLORB!=0
.ALPHA!=1
.ROTDX!=1
.ROTDY!=2
.ROTDZ!=3
.DTICK&=-1
.X!=1
.A!=3
.B!=2
ENDWITH
BLOCK#[&LOOP]=NEW(OGLSPRITE)
WITH BLOCK#[&LOOP]
.TYP$=*sphere*
.POSX!=20-(RND(200)/10*2)
.POSY!=10-(RND(100)/10*2)
.COLORR!=1
.COLORG!=0
.COLORB!=0
.ALPHA!=1
.ROTDX!=1
.ROTDY!=2
.ROTDZ!=3
.DTICK&=-1
.X!=1
.A!=3
.B!=2
ENDWITH
BLOCK#[&LOOP]=NEW(OGLSPRITE)
WITH BLOCK#[&LOOP]
.TYP$=*sphere*
.POSX!=20-(RND(200)/10*2)
.POSY!=10-(RND(100)/10*2)
.COLORR!=1
.COLORG!=0
.COLORB!=0
.ALPHA!=1
.ROTDX!=1
.ROTDY!=2
.ROTDZ!=3
.DTICK&=-1
.X!=1
.A!=3
.B!=2
ENDWITH
BLOCK#[&LOOP]=NEW(OGLSPRITE)
WITH BLOCK#[&LOOP]
.TYP$=*sphere*
.POSX!=20-(RND(200)/10*2)
.POSY!=10-(RND(100)/10*2)
.COLORR!=1
.COLORG!=0
.COLORB!=0
.ALPHA!=1
.ROTDX!=1
.ROTDY!=2
.ROTDZ!=3
.DTICK&=-1
.X!=1
.A!=3
.B!=2
ENDWITH
}
BALL#=NEW(OGLSPRITE)
WITH BALL#
.TYP$=*Sphere*
.POSX!=-22
.POSY!=19
.POSZ!=0
.POSDX!=0.3
.POSDY!=0.6
.MAXX!=+23
.MINX!=-23
.MAXY!=+16
.MINY!=-20
.COLORR!=1
.COLORG!=1
.COLORB!=1
.DTICK&=-1
.MODE&=1
.X!=0.5
.A!=10
.B!=10
ENDWITH
OGL(*startlist*,100)
OGL(*color*,0.5,0.7,0.7,1)
OGL(*move*,3,0,0)
OGL(*sphere*,0.5,10,10)
OGL(*move*,-6,0,0)
OGL(*sphere*,0.5,10,10)
OGL(*move*,3,0,0)
OGL(*rotate*,0,0,90)
OGL(*tube*,0.5,0.5,6,10)
OGL(*endlist*)
~GETCLIENTRECT(%HWND,A#)
MITTE%=LONG(A#,8)/2
HOEHE%=LONG(A#,12)
FAKTOR!=17.5
SETTIMER 20
WHILE { WHILE 1 } /* LINE:76 {
OGL(*clear*)
OGL(*origin*,0,0,-40)
WHILELOOP { WHILELOOP 1,15 } /* LINE:79 {
OGL(*draw*,BLOCK#[&LOOP])
OGL(*draw*,BLOCK#[&LOOP])
OGL(*draw*,BLOCK#[&LOOP])
OGL(*draw*,BLOCK#[&LOOP])
OGL(*draw*,BLOCK#[&LOOP])
OGL(*draw*,BLOCK#[&LOOP])
OGL(*draw*,BLOCK#[&LOOP])
OGL(*draw*,BLOCK#[&LOOP])
OGL(*draw*,BLOCK#[&LOOP])
OGL(*draw*,BLOCK#[&LOOP])
OGL(*draw*,BLOCK#[&LOOP])
OGL(*draw*,BLOCK#[&LOOP])
OGL(*draw*,BLOCK#[&LOOP])
OGL(*draw*,BLOCK#[&LOOP])
OGL(*draw*,BLOCK#[&LOOP])
}
POSX!=(%MOUSEX-MITTE%)/FAKTOR!
OGL(*move*,POSX!,-16,0)
OGL(*drawlist*,100)
OGL(*origin*,0,0,-40)
OGL(*draw*,BALL#)
IF { IF BALL#.POSY!<=-15 } /* LINE:87 {
OGL(*origin*,0,0,-40)
OGL(*2D*,BALL#.POSX!+BALL#.POSDX!,BALL#.POSY!+BALL#.POSDY!,0,A&,B&)
OGL(*starttest*,A&,B&,5,5)
OGL(*clear*)
Stürzt bei mir mit Exception ab...
Schöne Grüße
Michael Wodrich
Scheint wohl an meinem knappen Speicher zu liegen - - System ist im Moment sehr empfindlich.
(1.956)
Hatte mich schon gefreut.
... aber mit ein bisl Glück ist damit vielleicht sogar der TestMode-Bug gänzlich verschwunden! Das muss ich aber noch testen... 
Deutsch
English
Français
Español
Italia