Curser

Übersicht

BlitzBasic

Beginners-Corner

Gehe zu Seite Zurück 1, 2, 3 Weiter

	Schranz0r	Di, Nov 14, 2006 16:37 Antworten mit Zitat
bruce85 hat Folgendes geschrieben: mit Funktionen kannste das machen edit: oder du verwendest eine Variable z.B. Bild Code: [AUSKLAPPEN] [EINKLAPPEN] If Bild = 1 Then DrawImage Bild1,x,y EndIf If Bild = 2 Then DrawImage Bild2,x,y EndIf Andreas schöner ist hier doch BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Select Bild Case 1 DrawImage Bild1,x,y Case 2 DrawImage Bild2,x,y Default Text 10,10,"KEIN BILD VORHANDEN" End Select
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!HAUPTSACH et kost VIEL!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Schranz0r

Di, Nov 14, 2006 16:37
Antworten mit Zitat

bruce85 hat Folgendes geschrieben:

mit Funktionen kannste das machen Wink

edit: oder du verwendest eine Variable z.B. Bild

Code: [AUSKLAPPEN]

If Bild = 1 Then
DrawImage Bild1,x,y
EndIf

If Bild = 2 Then
DrawImage Bild2,x,y
EndIf

Andreas

schöner ist hier doch

BlitzBasic: [AUSKLAPPEN]


Select Bild
Case 1
    DrawImage Bild1,x,y
Case 2
    DrawImage Bild2,x,y
Default
    Text 10,10,"KEIN BILD VORHANDEN"
End Select

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!HAUPTSACH et kost VIEL!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	joni8a	Di, Nov 14, 2006 17:36 Antworten mit Zitat
Hallo, und wie kann ich die maus denn für eine kollisions abfrage benutzen

joni8a

Di, Nov 14, 2006 17:36
Antworten mit Zitat

Hallo, und wie kann ich die maus denn für eine kollisions abfrage benutzen

	Hubsi	Di, Nov 14, 2006 17:39 Antworten mit Zitat
ql:RectsOverLap wobei die Mausspitze ein 1*1 großes Quadrat darstellt.
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

Di, Nov 14, 2006 17:39
Antworten mit Zitat

ql:RectsOverLap wobei die Mausspitze ein 1*1 großes Quadrat darstellt.

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	joni8a	Di, Nov 14, 2006 17:41 Antworten mit Zitat
Aber ich muss die maus ja irgendwo als variable darsstellen. zb wenn ich eine collisions abfrage machen, will den bei overlap nimmt er ja keine rücksicht auf tranzparens

joni8a

Di, Nov 14, 2006 17:41
Antworten mit Zitat

Aber ich muss die maus ja irgendwo als variable darsstellen. zb wenn ich eine collisions abfrage machen, will den bei overlap nimmt er ja keine rücksicht auf tranzparens

	timmeTheOnly	Di, Nov 14, 2006 17:44 Antworten mit Zitat
oder: [BlitzBasic] graphics 1024, 768 setbuffer backbuffer() global cursor = loadimage("data/cursor.bmp") global Bild = loadimage("data/blid.bmp") while not keyhit(1) cls if mousex() > 10 and mousex() < 10 + imagewidth(Bild) and mousey() > 10 and mousey() < 10 + imageheight(Bild) then text 100, 100, "Kollision!" endif flip wend end [/BlitzBasic] PS: was ist das s**** Tag für BB Code?

timmeTheOnly

Di, Nov 14, 2006 17:44
Antworten mit Zitat

oder:

[BlitzBasic]
graphics 1024, 768
setbuffer backbuffer()

global cursor = loadimage("data/cursor.bmp")
global Bild = loadimage("data/blid.bmp")

while not keyhit(1)
cls
if mousex() > 10 and mousex() < 10 + imagewidth(Bild) and mousey() > 10 and mousey() < 10 + imageheight(Bild) then
text 100, 100, "Kollision!"
endif
flip
wend
end
[/BlitzBasic]

PS: was ist das s**** Tag für BB Code?

Zuletzt bearbeitet von timmeTheOnly am Di, Nov 14, 2006 17:47, insgesamt einmal bearbeitet

	Hubsi	Di, Nov 14, 2006 17:44 Antworten mit Zitat
ql:ImageRectCollide() ql:MouseX() ql:MouseY() Viel mehr ist das nicht
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

Di, Nov 14, 2006 17:44
Antworten mit Zitat

ql:ImageRectCollide()
ql:MouseX()
ql:MouseY()

Viel mehr ist das nicht Very Happy

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	joni8a	Di, Nov 14, 2006 18:00 Antworten mit Zitat
danke nun klappts

joni8a

Di, Nov 14, 2006 18:00
Antworten mit Zitat

danke nun klappts

	timmeTheOnly	Di, Nov 14, 2006 18:01 Antworten mit Zitat
wessen idee?

timmeTheOnly

Di, Nov 14, 2006 18:01
Antworten mit Zitat

wessen idee?

	joni8a	Di, Nov 14, 2006 20:21 Antworten mit Zitat
Kann man millisecs auch so einrichten dass er vom programm sart ab an zählt, oder muss man da was anderes benutzen

joni8a

Di, Nov 14, 2006 20:21
Antworten mit Zitat

Kann man millisecs auch so einrichten dass er vom programm sart ab an zählt, oder muss man da was anderes benutzen

	Hubsi	Di, Nov 14, 2006 20:33 Antworten mit Zitat
Nicht direkt, aber man kann ja mit einer simplen Rechnung arbeiten: Code: [AUSKLAPPEN] [EINKLAPPEN] ; Am Anfang des Programms: start_temp=MilliSecs() ; Im Programm selbst: mehr_oder_weniger_von_0_gezählt=MilliSecs()-start_temp
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

Di, Nov 14, 2006 20:33
Antworten mit Zitat

Nicht direkt, aber man kann ja mit einer simplen Rechnung arbeiten:
Code: [AUSKLAPPEN]

; Am Anfang des Programms:
start_temp=MilliSecs()

; Im Programm selbst:
mehr_oder_weniger_von_0_gezählt=MilliSecs()-start_temp

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	joni8a	Di, Nov 14, 2006 21:15 Antworten mit Zitat
Hallo warum will er hier das mmenue nicht malen wenn ich auf den rucksack klicke: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480 ;------------VARIABLEN-------------; Global karte=LoadImage("schulkarte.bmp") Global leiste=LoadImage("itemleiste.bmp") Global rucksack=LoadImage("itemrucksack.bmp") Global maus=LoadImage("cursor.bmp") Global mmenue=LoadImage("mmenue.bmp") Global hunger=100 Global durst=100 Global menuebild=0 Global zkarte=0 Global startw=MilliSecs Global zeit Global mmenue1=0 Global zkarte1=0 MaskImage leiste,255,0,255 MaskImage rucksack,255,0,255 MaskImage karte,255,0,255 MaskImage maus,255,0,255 ;------------ENDE VARIABLEN--------; ;-----------HAUPTSCHLEIFE---------; SetBuffer BackBuffer() Repeat Cls ;----------FUNKTIONEN-----------; menue() collision() ifo() ;----------ENDE FUNKTIONEN-------; Flip Until KeyHit(1) ;--------ENDE HAUPTSCHLEIFE--------; ;--------FUNKTION MENÜ-------; Function menue() DrawImage leiste,0,3 DrawImage rucksack,-235,245 DrawImage karte,50,397 Color 0,0,255 Rect 210,435,durst,15 Color 0,255,0 Rect 210,455,hunger,15 Color 255,0,255 Text 210,435,"Durst" Text 210,455,"Hunger" If hunger=20 Then Text 300,200,"ESSEN SONST STIRBST DU!!!!" If durst=20 Then Text 250,150,"TRINKEN SONST STIRBST DU!!!!" End Function ;-----ENDE FUNKTION MENUE------; ;____FUNKTION collision------; Function collision() DrawImage maus,MouseX()-185,MouseY()-185 HidePointer If ImagesOverlap(rucksack,-235,245,maus,MouseX,MouseY) And MouseHit(1) Then mmenue1=mmenue1+1 If ImagesOverlap(maus,MouseX,MouseY,karte,50,397) And MouseHit(1) Then zkarte1=1 End Function ;-------ENDE FUNKTION COLLISION----------; ;------FUNKTION ESSEN UND TRINKEN---------; Function nahrung() zeit=MilliSecs anfangszeit=zeit-startw If anfangszeit>durst30000 Then durst=durst-10 If anfangszeit>hunger300000 Then hunger=hunger-10 End Function ;-------ENDE FUNKTION ESSEN UND TRINKEN------; ;-------FUNKTIONEN IFO------------; Function ifo() If mmenue1=1 Then DrawImage mmenue,640,422 End Function

joni8a

Di, Nov 14, 2006 21:15
Antworten mit Zitat

Hallo warum will er hier das mmenue nicht malen wenn ich auf den rucksack klicke:
Code: [AUSKLAPPEN]

Graphics 640,480
;------------VARIABLEN-------------;
Global karte=LoadImage("schulkarte.bmp")
Global leiste=LoadImage("itemleiste.bmp")
Global rucksack=LoadImage("itemrucksack.bmp")
Global maus=LoadImage("cursor.bmp")
Global mmenue=LoadImage("mmenue.bmp")
Global hunger=100
Global durst=100
Global menuebild=0
Global zkarte=0
Global startw=MilliSecs
Global zeit
Global mmenue1=0
Global zkarte1=0
MaskImage leiste,255,0,255
MaskImage rucksack,255,0,255
MaskImage karte,255,0,255
MaskImage maus,255,0,255
;------------ENDE VARIABLEN--------;

;-----------HAUPTSCHLEIFE---------;
SetBuffer BackBuffer()
Repeat
Cls

;----------FUNKTIONEN-----------;
menue()
collision()
ifo()
;----------ENDE FUNKTIONEN-------;
Flip
Until KeyHit(1)
;--------ENDE HAUPTSCHLEIFE--------;

;--------FUNKTION MENÜ-------;
Function menue()
DrawImage leiste,0,3
DrawImage rucksack,-235,245
DrawImage karte,50,397
Color 0,0,255
Rect 210,435,durst,15
Color 0,255,0
Rect 210,455,hunger,15
Color 255,0,255
Text 210,435,"Durst"
Text 210,455,"Hunger"
If hunger=20 Then Text 300,200,"ESSEN SONST STIRBST DU!!!!"
If durst=20 Then Text 250,150,"TRINKEN SONST STIRBST DU!!!!"
End Function
;-----ENDE FUNKTION MENUE------;

;____FUNKTION collision------;
Function collision()
DrawImage maus,MouseX()-185,MouseY()-185
HidePointer
If ImagesOverlap(rucksack,-235,245,maus,MouseX,MouseY) And MouseHit(1) Then mmenue1=mmenue1+1
If ImagesOverlap(maus,MouseX,MouseY,karte,50,397) And MouseHit(1) Then zkarte1=1
End Function
;-------ENDE FUNKTION COLLISION----------;

;------FUNKTION ESSEN UND TRINKEN---------;
Function nahrung()
zeit=MilliSecs
anfangszeit=zeit-startw
If anfangszeit>durst*30000 Then durst=durst-10
If anfangszeit>hunger*300000 Then hunger=hunger-10
End Function
;-------ENDE FUNKTION ESSEN UND TRINKEN------;

;-------FUNKTIONEN IFO------------;
Function ifo()
If mmenue1=1 Then DrawImage mmenue,640,422
End Function

	Hagbard	Di, Nov 14, 2006 23:16 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] DrawImage maus, MouseX()-185,MouseY()-185 HidePointer If ImagesOverlap(rucksack,-235,245,maus,MouseX,MouseY) And MouseHit(1) Then mmenue1=mmenue1+1 Musst du da nicht bei der Kollision MouseX()-185,MouseY()-185 statt MouseX,MouseY schreiben?

Hagbard

Di, Nov 14, 2006 23:16
Antworten mit Zitat

Code: [AUSKLAPPEN]

DrawImage maus, MouseX()-185,MouseY()-185
HidePointer
If ImagesOverlap(rucksack,-235,245,maus,MouseX,MouseY) And MouseHit(1) Then mmenue1=mmenue1+1

Musst du da nicht bei der Kollision MouseX()-185,MouseY()-185 statt MouseX,MouseY schreiben?

	joni8a	Mi, Nov 15, 2006 12:13 Antworten mit Zitat
Danke ich werde es versuchen wenn ich zu hause bin

joni8a

Mi, Nov 15, 2006 12:13
Antworten mit Zitat

Danke ich werde es versuchen wenn ich zu hause bin

	joni8a	Mi, Nov 15, 2006 16:29 Antworten mit Zitat
Hallo, ich habe es aus probiert und es funktioniert nicht leider.

joni8a

Mi, Nov 15, 2006 16:29
Antworten mit Zitat

Hallo, ich habe es aus probiert und es funktioniert nicht leider.

	BladeRunner Moderator	Mi, Nov 15, 2006 16:40 Antworten mit Zitat
Beim nächsten Doppelpost ist hier dicht. (Das gilt auch für zukünftige Threads von Dir) MfG BladeRunner
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

Mi, Nov 15, 2006 16:40
Antworten mit Zitat

Beim nächsten Doppelpost ist hier dicht.
(Das gilt auch für zukünftige Threads von Dir)

MfG BladeRunner

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

	joni8a	Mi, Nov 15, 2006 16:43 Antworten mit Zitat
Welchen doppelpost

joni8a

Mi, Nov 15, 2006 16:43
Antworten mit Zitat

Welchen doppelpost

	BladeRunner Moderator	Mi, Nov 15, 2006 16:50 Antworten mit Zitat
Deinen. Wenn du als letzter was geschrieben hast und was anfügen möchtest gibt es den Edit-button. Nutze ihn. (oben rechts der, über dem Post).
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

Mi, Nov 15, 2006 16:50
Antworten mit Zitat

Deinen. Wenn du als letzter was geschrieben hast und was anfügen möchtest gibt es den Edit-button. Nutze ihn. (oben rechts der, über dem Post).

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

	Hagbard	Mi, Nov 15, 2006 16:51 Antworten mit Zitat
Doppel-Post - zwei Beiträge hintereinander If ImagesOverlap(rucksack,-235,245,maus,MouseX,MouseY) And MouseHit(1) Then mmenue1=mmenue1+1 Wie willst du da mit der Maus hinkommen? Zeichne einfach mal ein Rechteck mit den Koordinaten, die du für die Kollision verwendest.

Hagbard

Mi, Nov 15, 2006 16:51
Antworten mit Zitat

Doppel-Post - zwei Beiträge hintereinander

If ImagesOverlap(rucksack,-235,245,maus,MouseX,MouseY) And MouseHit(1) Then mmenue1=mmenue1+1

Wie willst du da mit der Maus hinkommen?
Zeichne einfach mal ein Rechteck mit den Koordinaten, die du für die Kollision verwendest.

	joni8a	Mi, Nov 15, 2006 17:07 Antworten mit Zitat
Ich habees hinbekommen es lag daran das ich das bild falsch gezeichnet habe

joni8a

Mi, Nov 15, 2006 17:07
Antworten mit Zitat

Ich habees hinbekommen es lag daran das ich das bild falsch gezeichnet habe

	joni8a	Mi, Nov 15, 2006 20:13 Antworten mit Zitat
Hallo, ich hab eine frage wenn ich in einem menü bin und es soll wieder auf den hauptbildschirm schalten wenn ich auf auf sybol drücke wie kann ich das tuen habe schon was ausprobiert klappt aber nicht

joni8a

Mi, Nov 15, 2006 20:13
Antworten mit Zitat

Hallo, ich hab eine frage wenn ich in einem menü bin und es soll wieder auf den hauptbildschirm schalten wenn ich auf auf sybol drücke wie kann ich das tuen habe schon was ausprobiert klappt aber nicht

Gehe zu Seite Zurück 1, 2, 3 Weiter

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Curser