FreeImage?

Übersicht

BlitzBasic

Beginners-Corner

	Thoth Betreff: FreeImage?	So, Apr 10, 2005 20:25 Antworten mit Zitat
hallo, BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,32,2 SetBuffer BackBuffer() ego_soldat = LoadImage (\"gfx/ego_soldat.png\") pistol_schall = LoadImage (\"gfx/pistol_schall.png\") ego_soldatx = 550 ego_soldaty = 400 MaskImage ego_soldat,255,0,255 MaskImage pistol_schall,255,0,255 ClsColor 255,0,0 Repeat ; ; Cls DrawImage pistol_schall,200,150 If ImagesCollide (ego_soldat,ego_soldatx,ego_soldaty,frame,pistol_schall,200,150,frame) And KeyHit(18) Then FreeImage pistol_schall DrawImage ego_soldat,ego_soldatx,ego_soldaty If KeyDown(200) Then ego_soldaty = ego_soldaty - 2 If KeyDown(208) Then ego_soldaty = ego_soldaty + 2 If KeyDown(203) Then ego_soldatx = ego_soldatx - 2 If KeyDown(205) Then ego_soldatx = ego_soldatx + 2 Flip ; ; Until KeyHit(1) ich hab beim einem kleinen spiel ein sowie ich glaube simples problem, und doch find ich partout den grund für den fehler nich... Memory Acces Violation Danke! Thoth

Thoth

Betreff: FreeImage?

So, Apr 10, 2005 20:25
Antworten mit Zitat

hallo,

BlitzBasic: [AUSKLAPPEN]

Graphics 800,600,32,2
SetBuffer BackBuffer()

ego_soldat = LoadImage (\"gfx/ego_soldat.png\")
pistol_schall = LoadImage (\"gfx/pistol_schall.png\")

ego_soldatx = 550
ego_soldaty = 400

MaskImage ego_soldat,255,0,255
MaskImage pistol_schall,255,0,255

ClsColor 255,0,0

Repeat
;
;
  Cls

  DrawImage pistol_schall,200,150
  
  If ImagesCollide (ego_soldat,ego_soldatx,ego_soldaty,frame,pistol_schall,200,150,frame) And KeyHit(18) Then FreeImage pistol_schall
    
  DrawImage ego_soldat,ego_soldatx,ego_soldaty
  
  If KeyDown(200) Then ego_soldaty = ego_soldaty - 2
  If KeyDown(208) Then ego_soldaty = ego_soldaty + 2
  If KeyDown(203) Then ego_soldatx = ego_soldatx - 2
  If KeyDown(205) Then ego_soldatx = ego_soldatx + 2
  
  Flip
;
;
Until KeyHit(1)

ich hab beim einem kleinen spiel ein sowie ich glaube simples problem, und doch find ich partout den grund für den fehler nich... Memory Acces Violation

Danke!

Thoth

	Dreamora	So, Apr 10, 2005 20:27 Antworten mit Zitat
das problem ist, dass du das Bild löscht aus dem speicher und danach dennoch eine imagecollide mit ihm durchführen willst, obwohl es nicht mehr existiert.
Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

Dreamora

So, Apr 10, 2005 20:27
Antworten mit Zitat

das problem ist, dass du das Bild löscht aus dem speicher und danach dennoch eine imagecollide mit ihm durchführen willst, obwohl es nicht mehr existiert.

Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

	Rallimen Sieger des 30-EUR-Wettbewerbs	So, Apr 10, 2005 20:28 Antworten mit Zitat
mit FreeImage pistol_schall löscht du das Bild aus dem Speicher, und bei der nächsren Imagecolli Abfrage ist es nicht mehr da und der Fehler kommt !
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

So, Apr 10, 2005 20:28
Antworten mit Zitat

mit FreeImage pistol_schall löscht du das Bild aus dem Speicher, und bei der nächsren Imagecolli Abfrage ist es nicht mehr da und der Fehler kommt !

[BB2D | BB3D | BB+]

	Thoth	So, Apr 10, 2005 20:29 Antworten mit Zitat
wie kann ich das bild dann "entfernen", denn ich will das die person mit "E" die waffe einsammelt, und dann soll sie verschwinden....

Thoth

So, Apr 10, 2005 20:29
Antworten mit Zitat

wie kann ich das bild dann "entfernen", denn ich will das die person mit "E" die waffe einsammelt, und dann soll sie verschwinden....

	BladeRunner Moderator	So, Apr 10, 2005 20:33 Antworten mit Zitat
indem du den drawimagebefehl nur solange ausführen lässt wie das teil da ist.
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

So, Apr 10, 2005 20:33
Antworten mit Zitat

indem du den drawimagebefehl nur solange ausführen lässt wie das teil da ist.

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

	Rallimen Sieger des 30-EUR-Wettbewerbs	So, Apr 10, 2005 20:34 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] if Waffe_auf_boden = 1 then drawimage waffe If imagecollie Spieler ... Waffe then ... ... Waffe_auf_boden = 0 end if
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

So, Apr 10, 2005 20:34
Antworten mit Zitat

Code: [AUSKLAPPEN]

if Waffe_auf_boden = 1 then drawimage waffe

If imagecollie Spieler ... Waffe then
...
...
Waffe_auf_boden = 0
end if

[BB2D | BB3D | BB+]

	Thoth	So, Apr 10, 2005 20:38 Antworten mit Zitat
danke, aber irgendwie funzt es immer noch nicht: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,32,2 SetBuffer BackBuffer() ego_soldat = LoadImage (\"gfx/ego_soldat.png\") pistol_schall = LoadImage (\"gfx/pistol_schall.png\") ego_soldatx = 550 ego_soldaty = 400 pistol_schall_boden = 1 MaskImage ego_soldat,255,0,255 MaskImage pistol_schall,255,0,255 ClsColor 255,0,0 Repeat ; ; Cls If pistol_schall_boden = 1 Then DrawImage pistol_schall,200,150 EndIf If ImagesCollide (ego_soldat,ego_soldatx,ego_soldaty,frame,pistol_schall,200,150,frame) And KeyHit(18) Then FreeImage pistol_schall pistol_schall_boden = 0 EndIf DrawImage ego_soldat,ego_soldatx,ego_soldaty If KeyDown(200) Then ego_soldaty = ego_soldaty - 2 If KeyDown(208) Then ego_soldaty = ego_soldaty + 2 If KeyDown(203) Then ego_soldatx = ego_soldatx - 2 If KeyDown(205) Then ego_soldatx = ego_soldatx + 2 Flip ; ; Until KeyHit(1) mfG

Thoth

So, Apr 10, 2005 20:38
Antworten mit Zitat

danke, aber irgendwie funzt es immer noch nicht:

BlitzBasic: [AUSKLAPPEN]

Graphics 800,600,32,2
SetBuffer BackBuffer()

ego_soldat = LoadImage (\"gfx/ego_soldat.png\")
pistol_schall = LoadImage (\"gfx/pistol_schall.png\")

ego_soldatx = 550
ego_soldaty = 400

pistol_schall_boden = 1

MaskImage ego_soldat,255,0,255
MaskImage pistol_schall,255,0,255

ClsColor 255,0,0

Repeat
;
;
  Cls
  If pistol_schall_boden = 1 Then
   DrawImage pistol_schall,200,150
  EndIf
  
  If ImagesCollide (ego_soldat,ego_soldatx,ego_soldaty,frame,pistol_schall,200,150,frame) And KeyHit(18) Then
   FreeImage pistol_schall
   pistol_schall_boden = 0
  EndIf
  
  DrawImage ego_soldat,ego_soldatx,ego_soldaty
  
  If KeyDown(200) Then ego_soldaty = ego_soldaty - 2
  If KeyDown(208) Then ego_soldaty = ego_soldaty + 2
  If KeyDown(203) Then ego_soldatx = ego_soldatx - 2
  If KeyDown(205) Then ego_soldatx = ego_soldatx + 2
  
  Flip
;
;
Until KeyHit(1)

mfG

	Dreamora	So, Apr 10, 2005 20:43 Antworten mit Zitat
Wie oben geschrieben: KEIN Freeimage! Freeimage kommt erst wenn das Spiel beendet wird, aber nicht während es läuft, da du sonst den kollisionstest nicht mehr machen darfst!
Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

Dreamora

So, Apr 10, 2005 20:43
Antworten mit Zitat

Wie oben geschrieben: KEIN Freeimage!
Freeimage kommt erst wenn das Spiel beendet wird, aber nicht während es läuft, da du sonst den kollisionstest nicht mehr machen darfst!

Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

	Thoth	So, Apr 10, 2005 20:46 Antworten mit Zitat
ups.. logikfehler von mir Thx an alle Thoth

Thoth

So, Apr 10, 2005 20:46
Antworten mit Zitat

ups.. logikfehler von mir Very Happy

Thx an alle Smile

Thoth

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

FreeImage?

Betreff: FreeImage?