This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
// --------------------------------- //
// Project: Test_GetPixel
// Start: Wednesday, June 23, 2010
// IDE Version: 8.002
SETCURRENTDIR("Media") // seperate media and binaries?
LOADSPRITE "sprite.png",0 //Load the Sprite you want
LOCAL color[] //Create a new array for pixelcolors
DIM color[64][64] //dim it to the size of your sprite
DRAWSPRITE 0,0,0 //Draw the sprite
FOR x=0 TO 63 //For each x and y pixel get the pixel color
FOR y=0 TO 63
color[x][y] = GETPIXEL(x,y) //<-
NEXT
NEXT
LOADSPRITE "",0//clear the sprite
BLACKSCREEN //Clear the screen before run the game
GLOBAL pixelcolor[] //in this array we put one rgb value
DIM pixelcolor[3] //R, G, B
pixelcolor = GetRgbFromInt(color[0][0]) //put the pixel 0,0 - color into the array as RGB
WHILE TRUE //main loop
PRINT "R:"+pixelcolor[0],0,0
PRINT "G:"+pixelcolor[1],0,10
PRINT "B:"+pixelcolor[2],0,20
DEBUG pixelcolor
SHOWSCREEN //Draw the screen
WEND //Back to topic :P
// ------------------------------------------------------------- //
// --- GETRGBFROMINT --- Returns RGB with 3 parameters (R, G, B)´in an array
// ------------------------------------------------------------- //
@FUNCTION GetRgbFromInt: value
LOCAL value, tmp
LOCAL color[]
DIM color[3]
color[2] = value / 65536//B
tmp = MOD(value, 65536)
color[1] = tmp / 256//G
color[0] = tmp - (color[1] * 256)//R
RETURN color
ENDFUNCTION // GETRGBFROMINTQuotecompiling:
C:\DOKUME~1\ADMINI~1\LOKALE~1\Temp\glbasic\gpc_temp0.cpp: In function `int __GLBASIC__::__MainGameSub_()':
C:\DOKUME~1\ADMINI~1\LOKALE~1\Temp\glbasic\gpc_temp0.cpp:201: error: no match for 'operator=' in '__GLBASIC__::pixelcolor = __GLBASIC__::GetRgbFromInt((&color)->__GLBASIC__::DGIntArray::operator()(0, 0))'
E:/Programme/GLBasic_Beta/Compiler/platform/Include/glb.h:342: note: candidates are: __GLBASIC__::DGIntArray& __GLBASIC__::DGIntArray::operator=(const __GLBASIC__::DGIntArray&)
*** FATAL ERROR - Bitte die Compiler-Ausgabe ins Forum kopieren
).
// --------------------------------- //
// Project: cannon
// Start: Wednesday, March 17, 2010
// IDE Version: 7.082
TYPE Tcannon
x
y
power
phi
isAlive
shoot
ENDTYPE
TYPE Tbowl
x
y
dir_x
dir_y
ENDTYPE
SETCURRENTDIR("Media") // seperate media and binaries?
//GFX
LOADSPRITE "cannon.png", 0 //cannon-foot
LOADSPRITE "cannon1.png", 1 //cannon
LOADSPRITE "bowl.png", 2 //cannon bowl
//GLOBALS
GLOBAL scr_x, scr_y
GETSCREENSIZE scr_x, scr_y //get the screensize into scr_x and scr_y
GLOBAL cannon AS Tcannon //Create a newcannonn
GLOBAL newBowl AS Tbowl
GLOBAL bowls[] AS Tbowl
//Set the cannon properties
cannon.x = scr_x/2-64
cannon.y = scr_y-38
cannon.power = 1
cannon.phi = 0
cannon.isAlive = TRUE
//CONSTANTS
GLOBAL LEFT% = 203
GLOBAL RIGHT% = 205
GLOBAL SPACE% = 57
WHILE TRUE //main loop
DRAWRECT 0,0,scr_x,scr_y,RGB(200,200,255)
//For each shot do this
FOREACH Shot IN bowls[]
INC Shot.x, Shot.dir_x
INC Shot.y, Shot.dir_y
DRAWSPRITE 2,Shot.x,Shot.y //Draw the cannon ball
NEXT
IF cannon.isAlive = TRUE
IF KEY(LEFT%) //turn left
IF cannon.phi<180
INC cannon.phi, 2
ENDIF
ENDIF
IF KEY(RIGHT%) //turn right
IF cannon.phi>0
DEC cannon.phi, 2
ENDIF
ENDIF
IF KEY(SPACE%) //shoot
IF cannon.shoot
//create a new shot
newBowl.x = cannon.x + 80
newBowl.y = cannon.y + 16
newBowl.dir_x = SIN(cannon.phi) //??????????????????????????
newBowl.dir_y = COS(cannon.phi) //??????????????????????????
DIMPUSH bowls[], newBowl
cannon.shoot = FALSE //only one shot per press
ENDIF
ELSE
cannon.shoot = TRUE //if space = unpressed then shoot = true
ENDIF
ROTOSPRITE 1, cannon.x, cannon.y, cannon.phi //Draw the cannon
DRAWSPRITE 0,scr_x/2-16,scr_y-32 //Draw the cannon-foot
ENDIF
SHOWSCREEN //Draw the screen
WEND //aaaaaand again
PLAYMUSIC file$, TRUE
WHILE TRUE
SHOWSCREEN
WEND
// --------------------------------- //
// Project: lineTest
// Start: Wednesday, November 25, 2009
// IDE Version: 7.082
TYPE Tpoint
x
y
ENDTYPE
GLOBAL line_nr=0
LOCAL newPoint AS Tpoint
LOCAL Points[] AS Tpoint
SYSTEMPOINTER TRUE
WHILE TRUE
LOCAL mx,my,b1,b2
MOUSESTATE mx,my,b1,b2
//erstellt ein neues Quadrat unter dem Mauszeiger
IF b1
IF mousefree=TRUE
newPoint.x=mx-10
newPoint.y=my-10
DIMPUSH Points[], newPoint
INC line_nr,1
mousefree=FALSE
ENDIF
ELSE
mousefree=TRUE
ENDIF
//Hier wird das Quadrat gezeichnet und soll eine Linie von diesem zum letzten Quadrat zeichnen...
FOREACH Check IN Points[]
DrawQuad(Check.x,Check.y,20,RGB(255,255,255))
//Das hier geht natürlich nicht, aber wie kann ich das realisieren? :)
IF line_nr>0
DRAWLINE Check.x+10,Check.y+10, Check-1.x+10, Check-1.y+10, RGB(255,255,255)
ENDIF
NEXT
PRINT mousefree, 10,10
PRINT line_nr, 10,20
SHOWSCREEN
WEND
// ------------------------------------------------------------- //
// --- DRAWQUAD ---
// ------------------------------------------------------------- //
FUNCTION DrawQuad: x, y, width, color
// Diese Variablen sind als LOCAL definiert:
// x, y, width, color
DRAWLINE x,y,x+width,y,color
DRAWLINE x+width,y,x+width,y+width,color
DRAWLINE x+width,y+width,x,y+width,color
DRAWLINE x,y+width,x,y,color
ENDFUNCTION // DRAWQUAD
),
). So und da auch schon mein eigentliches Problem, das Auto (rotosprite) kann derzeit beschleunigen und wenn man vom Gas geht, dann "rollt" es aus. Allerdings auch nur in eine Richtung und ich weiß nicht so recht wie ich mein auto "gelenkt" bekomme und habe hier im Forum nichts derartiges gefunden. sin/cos oder atan? Oder ganz anders? Wenn ihr mir einen Tipp geben könntet, oder mich auf einen Thread mit Lösung führen könntet, wäre ich euch sehr dankbar!