Cursor

Übersicht

BlitzBasic

Beginners-Corner

	Valium Gast Betreff: Cursor	Fr, Okt 08, 2004 21:46 Antworten mit Zitat
Hi, habe neu angefangen, BB zu proggen. Komme auch bissher ziemlich gut klar! Nun möchte ich aber, dass ich einen Cursor bekomme, damit ich auch die einzellnen Schaltflächen anklicken kann. Einen Cursor abe ich schon gemacht, weiß aber nicht wie ich den dann als "mauszeiger" reinbekomm. (Also das sich die Maus bewegt und der Mauszeger auch). Hier der Code: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800, 600, 16, 1 SetBuffer BackBuffer() ;- Globale Global logo = LoadFont("Comic Sans MS",35) Global font2 = LoadFont("Arial",20, 1) Global font3 = LoadFont("Arial",15, 1) Global font4 = LoadFont("Arial",16) Global maus= LoadImage("D:\BlitzBasic\maus.bmp") PosX = MouseX() PosY = MouseY() ;- Hauptschleife Repeat Flip Hauptmenue Until KeyHit(1) End ;- Hauptmenue Function Hauptmenue () MaskImage Maus, 255, 0, 255 DrawImage Maus, 200, 200 SetFont Logo Color 128,0,0 Text 280, 20, "Onkelz Lyrics Quiz" SetFont font3 Text 575,575, "This Game powert by Dr.Valium" SetFont font2 Color 180,0,0 Text 30, 100, "Herzlich Willkommen beim Onkelz Lyrics Quiz (OLQ)! Diese Version von OLQ ist eine Beta!" Text 30, 120, "Nun wünsche ich Euch viel Spass! Viva Loz Tioz!" SetFont font3 Color 128, 0, 0 Text 40, 177, ":: Neues Spiel :: " Text 40, 202, ":: Rangliste :: " Text 40, 227, ":: Credits :: " Text 40, 252, ":: Exit ::" Color 128,0,0 Line 280, 50, 500, 50 Line 280, 55, 500, 55 Rect 30,175,200,20, 0 ;Links, Oben, Rechts, Unten Rect 30,200,200,20, 0 ;Links, Oben, Rechts, Unten Rect 30,225,200,20, 0 ;Links, Oben, Rechts, Unten Rect 30,250,200,20, 0 ;Links, Oben, Rechts, Unten End Function Hoffe ihr könnt mir helfen! bYe

Valium

Gast

Betreff: Cursor

Fr, Okt 08, 2004 21:46
Antworten mit Zitat

Hi,

habe neu angefangen, BB zu proggen. Komme auch bissher ziemlich gut klar! Nun möchte ich aber, dass ich einen Cursor bekomme, damit ich auch die einzellnen Schaltflächen anklicken kann. Einen Cursor abe ich schon gemacht, weiß aber nicht wie ich den dann als "mauszeiger" reinbekomm. (Also das sich die Maus bewegt und der Mauszeger auch).

Hier der Code:

Code: [AUSKLAPPEN]

Graphics 800, 600, 16, 1
SetBuffer BackBuffer()

;- Globale

Global logo = LoadFont("Comic Sans MS",35)
Global font2 = LoadFont("Arial",20, 1)
Global font3 = LoadFont("Arial",15, 1)
Global font4 = LoadFont("Arial",16)
Global maus= LoadImage("D:\BlitzBasic\maus.bmp")

PosX = MouseX()
PosY = MouseY()

;- Hauptschleife

Repeat
Flip
Hauptmenue

Until KeyHit(1)
End

;- Hauptmenue

Function Hauptmenue ()

MaskImage Maus, 255, 0, 255
DrawImage Maus, 200, 200

SetFont Logo
Color 128,0,0

Text 280, 20, "Onkelz Lyrics Quiz"
SetFont font3

Text 575,575, "This Game powert by Dr.Valium"

SetFont font2

Color 180,0,0

Text 30, 100, "Herzlich Willkommen beim Onkelz Lyrics Quiz (OLQ)! Diese Version von OLQ ist eine Beta!"
Text 30, 120, "Nun wünsche ich Euch viel Spass! Viva Loz Tioz!"

SetFont font3
Color 128, 0, 0
Text 40, 177, ":: Neues Spiel :: "
Text 40, 202, ":: Rangliste :: "
Text 40, 227, ":: Credits :: "
Text 40, 252, ":: Exit ::"

Color 128,0,0

Line 280, 50, 500, 50
Line 280, 55, 500, 55

Rect 30,175,200,20, 0 ;Links, Oben, Rechts, Unten
Rect 30,200,200,20, 0 ;Links, Oben, Rechts, Unten
Rect 30,225,200,20, 0 ;Links, Oben, Rechts, Unten
Rect 30,250,200,20, 0 ;Links, Oben, Rechts, Unten

End Function

Hoffe ihr könnt mir helfen!

bYe

	Suco-X Betreff: .....	Fr, Okt 08, 2004 22:06 Antworten mit Zitat
DrawImage deincursorimage,MouseX(),MouseY() EDIT : Gerade nochwas entdeckt. Hast es ja fast richtig. Nur PosX und PosY müssen in die Schleife. Also so : Code: [AUSKLAPPEN] [EINKLAPPEN] PosX = MouseX() PosY = MouseY() DrawImage Maus, PosX, PosY MaskImage dagegen muss nicht in die Schleife Mfg Suco
Intel Core 2 Quad Q8300, 4× 2500 MHz, 4096 MB DDR2-Ram, GeForce 9600GT 512 MB

Suco-X

Betreff: .....

Fr, Okt 08, 2004 22:06
Antworten mit Zitat

DrawImage deincursorimage,MouseX(),MouseY()
EDIT :
Gerade nochwas entdeckt. Hast es ja fast richtig. Nur PosX und PosY müssen in die Schleife. Also so :
Code: [AUSKLAPPEN]

PosX = MouseX()
PosY = MouseY()
DrawImage Maus, PosX, PosY

MaskImage dagegen muss nicht in die Schleife
Mfg Suco

Intel Core 2 Quad Q8300, 4× 2500 MHz, 4096 MB DDR2-Ram, GeForce 9600GT 512 MB

Zuletzt bearbeitet von Suco-X am Fr, Okt 08, 2004 22:09, insgesamt 2-mal bearbeitet

	sidolin	Fr, Okt 08, 2004 22:07 Antworten mit Zitat
DrawImage Maus, PosX, PosY
..:: P4 1500 MHZ : 512 MB RDRAM : GFORCE 4 ::..

sidolin

Fr, Okt 08, 2004 22:07
Antworten mit Zitat

DrawImage Maus, PosX, PosY

..:: P4 1500 MHZ : 512 MB RDRAM : GFORCE 4 ::..

	lucifer	Fr, Okt 08, 2004 22:08 Antworten mit Zitat
Du mußt nur in der Hauptmenu Funktion den Mauszeiger an MouseX() MouseY() zeichnen. Also so: Code: [AUSKLAPPEN] [EINKLAPPEN] Function Haputmenu() ... DrawImage Maus,MouseX(),MouseY() .... End Function Ausserdem würde ich nicht die MaskImage Funktion in der Hauptmenu Funktion nich aufrufen sondern nur eimal am Anfang. /edit zu spät
Aktuelles Projekt: Demonspawn RPG

lucifer

Fr, Okt 08, 2004 22:08
Antworten mit Zitat

Du mußt nur in der Hauptmenu Funktion den Mauszeiger an MouseX() MouseY() zeichnen. Also so:

Code: [AUSKLAPPEN]

Function Haputmenu()
...
DrawImage Maus,MouseX(),MouseY()
....
End Function

Ausserdem würde ich nicht die MaskImage Funktion in der Hauptmenu Funktion nich aufrufen sondern nur eimal am Anfang.

/edit zu spät

Aktuelles Projekt:
Demonspawn
RPG

	Valium Gast	Fr, Okt 08, 2004 22:11 Antworten mit Zitat
Danke für Hilfe, funzt aber nicht Also bewegt sich nicht ... Warum?

Valium

Gast

Fr, Okt 08, 2004 22:11
Antworten mit Zitat

Danke für Hilfe, funzt aber nicht Sad

Also bewegt sich nicht ... Warum?

	Valium Gast	Fr, Okt 08, 2004 22:13 Antworten mit Zitat
Ah, jetzt gehts! Leider wird der Mauszeiher praktosch immer "hinterhergezogen". Also Ich habe irgentwann 300 Mauszeiger afum Bildschirm!?

Valium

Gast

Fr, Okt 08, 2004 22:13
Antworten mit Zitat

Ah, jetzt gehts! Leider wird der Mauszeiher praktosch immer "hinterhergezogen". Also Ich habe irgentwann 300 Mauszeiger afum Bildschirm!?

	sidolin	Fr, Okt 08, 2004 22:14 Antworten mit Zitat
cls
..:: P4 1500 MHZ : 512 MB RDRAM : GFORCE 4 ::..

sidolin

Fr, Okt 08, 2004 22:14
Antworten mit Zitat

cls

..:: P4 1500 MHZ : 512 MB RDRAM : GFORCE 4 ::..

	Valium Gast	Fr, Okt 08, 2004 22:20 Antworten mit Zitat
Super, thx! Klappt alles Nur noch E.I.N.S: Wenn ich mir dem Cursor über die tabelle gehe, ist die tabele praktisch über dem zeiger "drüber". Es sollte genau umgekerht sein, dass der Cursor die Tabelle etwa "abdeckt". Jemand noch ne Idee?

Valium

Gast

Fr, Okt 08, 2004 22:20
Antworten mit Zitat

Super, thx!

Klappt alles Smile

Nur noch E.I.N.S:
Wenn ich mir dem Cursor über die tabelle gehe, ist die tabele praktisch über dem zeiger "drüber". Es sollte genau umgekerht sein, dass der Cursor die Tabelle etwa "abdeckt".

Jemand noch ne Idee?

	sidolin	Fr, Okt 08, 2004 22:21 Antworten mit Zitat
erst tabelle zeichnen dann maus zeichnen sprich reihenfolge ändern
..:: P4 1500 MHZ : 512 MB RDRAM : GFORCE 4 ::..

sidolin

Fr, Okt 08, 2004 22:21
Antworten mit Zitat

erst tabelle zeichnen
dann maus zeichnen
sprich reihenfolge ändern

..:: P4 1500 MHZ : 512 MB RDRAM : GFORCE 4 ::..

	Valium Gast	Fr, Okt 08, 2004 22:25 Antworten mit Zitat
Super Leute, geil

Valium

Gast

Fr, Okt 08, 2004 22:25
Antworten mit Zitat

Super Leute, geil Smile

	Valium Gast	Fr, Okt 08, 2004 23:43 Antworten mit Zitat
Ok, neues Prob: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800, 600, 16, 1 SetBuffer BackBuffer() ;- Globale Global logo = LoadFont("Comic Sans MS",35) Global font2 = LoadFont("Arial",20, 1) Global font3 = LoadFont("Arial",15, 1) Global font4 = LoadFont("Arial",16) Global maus= LoadImage("D:\BlitzBasic\maus.bmp") PosX = MouseX() PosY = MouseY() ;- Hauptschleife Repeat Flip Cls Hauptmenue Credits Until KeyHit(1) End ;- Hauptmenue Function Hauptmenue () MaskImage Maus, 255, 0, 255 SetFont font3 Text 0,0,"X- Position: " + MouseX() Text 0,15,"Y- Position: " + MouseY() SetFont Logo Color 128,0,0 Text 280, 20, "Onkelz Lyrics Quiz" SetFont font3 Text 575,575, "This Game powert by Dr.Valium" SetFont font2 Color 180,0,0 Text 30, 100, "Herzlich Willkommen beim Onkelz Lyrics Quiz (OLQ)! Diese Version von OLQ ist eine Beta!" Text 30, 120, "Nun wünsche ich Euch viel Spass! Viva Loz Tioz!" SetFont font3 Color 128, 0, 0 Text 40, 177, ":: Neues Spiel :: " Text 40, 202, ":: Rangliste :: " Text 40, 227, ":: Credits :: " Text 40, 252, ":: Exit ::" Color 128,0,0 Line 280, 50, 500, 50 Line 280, 55, 500, 55 Rect 30,175,200,20, 0 ;Links, Oben, Rechts, Unten Rect 30,200,200,20, 0 ;Links, Oben, Rechts, Unten Rect 30,225,200,20, 0 ;Links, Oben, Rechts, Unten Rect 30,250,200,20, 0 ;Links, Oben, Rechts, Unten ;- Blink If MouseX() > 30 And MouseX () < 230 And MouseY() > 175 And MouseY() <195 Color 255,0,0 Rect 30,175,200,20,0 EndIf If MouseX() > 30 And MouseX () < 230 And MouseY() > 200 And MouseY() <220 Color 255,0,0 Rect 30,200,200,20,0 EndIf If MouseX() > 30 And MouseX () < 230 And MouseY() > 225 And MouseY() <245 Color 255,0,0 Rect 30,225,200,20,0 EndIf If MouseX() > 30 And MouseX () < 230 And MouseY() > 250 And MouseY() <270 Color 255,0,0 Rect 30,250,200,20,0 EndIf DrawImage Maus,MouseX(),MouseY() ;- Functionen des Hauptmenues If MouseHit(1) And RectsOverlap (MouseX(),MouseY(),1,1,30,250,200,20) Flip Credits Cls EndIf End Function ;- Credits Function Credits() SetFont Logo Color 128,0,0 Text 280, 20, "Credits" End Function Wenn ich auf "Exit" klicke, will ich zu den Credits. (Ich weiß, sehr umständlich - muss es aber bevor ich es richtig anwende auch drauf haben). Naja also ich komm nicht rein ... Habe bestimmt schon 30-45 Mins dran rumgebastelt ... Please Help!

Valium

Gast

Fr, Okt 08, 2004 23:43
Antworten mit Zitat

Ok, neues Prob:

Code: [AUSKLAPPEN]

Graphics 800, 600, 16, 1
SetBuffer BackBuffer()

;- Globale

Global logo = LoadFont("Comic Sans MS",35)
Global font2 = LoadFont("Arial",20, 1)
Global font3 = LoadFont("Arial",15, 1)
Global font4 = LoadFont("Arial",16)
Global maus= LoadImage("D:\BlitzBasic\maus.bmp")

PosX = MouseX()
PosY = MouseY()

;- Hauptschleife

Repeat
Flip
Cls

Hauptmenue
Credits

Until KeyHit(1)
End

;- Hauptmenue

Function Hauptmenue ()

MaskImage Maus, 255, 0, 255

SetFont font3
Text 0,0,"X- Position: " + MouseX()
Text 0,15,"Y- Position: " + MouseY()

SetFont Logo
Color 128,0,0

Text 280, 20, "Onkelz Lyrics Quiz"
SetFont font3

Text 575,575, "This Game powert by Dr.Valium"

SetFont font2

Color 180,0,0

Text 30, 100, "Herzlich Willkommen beim Onkelz Lyrics Quiz (OLQ)! Diese Version von OLQ ist eine Beta!"
Text 30, 120, "Nun wünsche ich Euch viel Spass! Viva Loz Tioz!"

SetFont font3
Color 128, 0, 0
Text 40, 177, ":: Neues Spiel :: "
Text 40, 202, ":: Rangliste :: "
Text 40, 227, ":: Credits :: "
Text 40, 252, ":: Exit ::"

Color 128,0,0

Line 280, 50, 500, 50
Line 280, 55, 500, 55

Rect 30,175,200,20, 0 ;Links, Oben, Rechts, Unten
Rect 30,200,200,20, 0 ;Links, Oben, Rechts, Unten
Rect 30,225,200,20, 0 ;Links, Oben, Rechts, Unten
Rect 30,250,200,20, 0 ;Links, Oben, Rechts, Unten

;- Blink

If MouseX() > 30 And MouseX () < 230 And MouseY() > 175 And MouseY() <195
Color 255,0,0
Rect 30,175,200,20,0
EndIf

If MouseX() > 30 And MouseX () < 230 And MouseY() > 200 And MouseY() <220
Color 255,0,0
Rect 30,200,200,20,0
EndIf

If MouseX() > 30 And MouseX () < 230 And MouseY() > 225 And MouseY() <245
Color 255,0,0
Rect 30,225,200,20,0
EndIf

If MouseX() > 30 And MouseX () < 230 And MouseY() > 250 And MouseY() <270
Color 255,0,0
Rect 30,250,200,20,0
EndIf

DrawImage Maus,MouseX(),MouseY()

;- Functionen des Hauptmenues

If MouseHit(1) And RectsOverlap (MouseX(),MouseY(),1,1,30,250,200,20)
Flip
Credits
Cls
EndIf

End Function

;- Credits

Function Credits()

SetFont Logo
Color 128,0,0

Text 280, 20, "Credits"

End Function

Wenn ich auf "Exit" klicke, will ich zu den Credits. (Ich weiß, sehr umständlich - muss es aber bevor ich es richtig anwende auch drauf haben). Naja also ich komm nicht rein ... Habe bestimmt schon 30-45 Mins dran rumgebastelt ...

Please Help!

	Gerhard	Sa, Okt 09, 2004 10:46 Antworten mit Zitat
Deine Funktion Credits word zwar gezeigt, aber nur gaaanz kurz. Mach mal probehalber nach Text und Flip ein Waitkey() oder sowas rein.

Gerhard

Sa, Okt 09, 2004 10:46
Antworten mit Zitat

Deine Funktion Credits word zwar gezeigt, aber nur gaaanz kurz. Mach mal probehalber nach Text und Flip ein Waitkey() oder sowas rein.

	Valium Gast	Sa, Okt 09, 2004 12:51 Antworten mit Zitat
k, dankeschön! Nach ein bisschen Werken geht jetzt alles super. Werde mich jetzt dann mal anmelden, und gucken wann der nächste Fehler kommt ;D Danke! Valium

Valium

Gast

Sa, Okt 09, 2004 12:51
Antworten mit Zitat

k, dankeschön! Nach ein bisschen Werken geht jetzt alles super. Werde mich jetzt dann mal anmelden, und gucken wann der nächste Fehler kommt ;D

Danke!
Valium

	Valium	Sa, Okt 09, 2004 13:04 Antworten mit Zitat
Und schon isses da. Also, ich entschuldige mich, für diese dummen Probs! Hier der Code: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800, 600, 16, 1 SetBuffer BackBuffer() ;- Globale Global logo = LoadFont("Comic Sans MS",35) Global font2 = LoadFont("Arial",20, 1) Global font3 = LoadFont("Arial",15, 1) Global font4 = LoadFont("Arial",16) Global font5 = LoadFont("Comic Sans MS",25) Global maus= LoadImage("D:\BlitzBasic\maus.bmp") Global credits= LoadImage("D:\BlitzBasic\credits.bmp") Global lo = LoadImage("D:\BlitzBasic\logo.bmp") PosX = MouseX() PosY = MouseY() ;- Hauptschleife Repeat Flip Cls DrawImage Maus,MouseX(),MouseY() Hauptmenue Until KeyHit(1) End ;- Hauptmenue Function Hauptmenue () MaskImage Maus, 255, 0, 255 SetFont font3 Text 0,0,"X- Position: " + MouseX() Text 0,15,"Y- Position: " + MouseY() SetFont Logo Color 128,0,0 SetFont font3 Text 575,575, "This Game powert by Dr.Valium" DrawImage lo, x, y SetFont font2 Color 180,0,0 Text 30, 100, "Herzlich Willkommen beim Onkelz Lyrics Quiz (OLQ)! Diese Version von OLQ ist eine Beta!" Text 30, 120, "Nun wünsche ich Euch viel Spass! Viva Loz Tioz!" SetFont font3 Color 128, 0, 0 Text 40, 177, ":: Neues Spiel :: " Text 40, 202, ":: Rangliste :: " Text 40, 227, ":: Credits :: " Text 40, 252, ":: Exit ::" Color 128,0,0 Rect 30,175,200,20, 0 ;Links, Oben, Rechts, Unten Rect 30,200,200,20, 0 ;Links, Oben, Rechts, Unten Rect 30,225,200,20, 0 ;Links, Oben, Rechts, Unten Rect 30,250,200,20, 0 ;Links, Oben, Rechts, Unten ;- Blink If MouseX() > 30 And MouseX () < 230 And MouseY() > 175 And MouseY() <195 Color 255,0,0 Rect 30,175,200,20,0 EndIf If MouseX() > 30 And MouseX () < 230 And MouseY() > 200 And MouseY() <220 Color 255,0,0 Rect 30,200,200,20,0 EndIf If MouseX() > 30 And MouseX () < 230 And MouseY() > 225 And MouseY() <245 Color 255,0,0 Rect 30,225,200,20,0 EndIf If MouseX() > 30 And MouseX () < 230 And MouseY() > 250 And MouseY() <270 Color 255,0,0 Rect 30,250,200,20,0 EndIf DrawImage Maus,MouseX(),MouseY() ;- Functionen des Hauptmenues If MouseHit(1) And RectsOverlap (MouseX(),MouseY(),1,1,30,230,225,20) Credits DrawImage Maus,MouseX(),MouseY() EndIf If MouseHit(1) And RectsOverlap (MouseX(),MouseY(),1,1,30,230,250,20) End EndIf DrawImage Maus,MouseX(),MouseY() End Function ;- credits Function Credits() Cls SetFont Logo Color 128,0,0 DrawImage Credits, x, y Line 40, 140, 135, 140 Line 40, 195, 133, 195 Line 40, 250, 130, 250 Line 40, 305, 183, 305 Line 40, 360, 193, 360 SetFont font5 Text 40, 120, ":: Coding ::" Text 40, 175, ":: Grafik ::" Text 40, 230, ":: Sound ::" Text 40, 285, ":: Beta Tester ::" Text 40, 340, ":: Speazial THX ::" SetFont font2 Color 255, 0, 0 Text 40, 150, "Dr. Valium -alias- Marco H." Text 40, 205, "Dr. Valium -alias- Marco H." Text 40, 260, "Dr. Valium -alias- Marco H." Text 40, 315, "Out$ider -alias- Sascha H." Text 40, 390, "RobSite.de" Text 40, 410, "BlitzForum.de" DrawImage Maus,MouseX(),MouseY() Flip WaitKey() End Function So, es gibt 2 probs: 1.) Wenn ich auf Credits klicke, gehts auf aber mein Mauszeiger macht nix mehr ... 2.) Wenn ich auf Exit klicke geht nix. Es wird praktisch immer nur das "erste" beachtet! Weiß nicht warum ... Hoffe auf erneute hilfe! bye!

Valium

Sa, Okt 09, 2004 13:04
Antworten mit Zitat

Und schon isses da.
Also, ich entschuldige mich, für diese dummen Probs!
Hier der Code:

Code: [AUSKLAPPEN]

Graphics 800, 600, 16, 1
SetBuffer BackBuffer()

;- Globale

Global logo = LoadFont("Comic Sans MS",35)
Global font2 = LoadFont("Arial",20, 1)
Global font3 = LoadFont("Arial",15, 1)
Global font4 = LoadFont("Arial",16)
Global font5 = LoadFont("Comic Sans MS",25)
Global maus= LoadImage("D:\BlitzBasic\maus.bmp")
Global credits= LoadImage("D:\BlitzBasic\credits.bmp")
Global lo = LoadImage("D:\BlitzBasic\logo.bmp")

PosX = MouseX()
PosY = MouseY()

;- Hauptschleife

Repeat
Flip
Cls

DrawImage Maus,MouseX(),MouseY()

Hauptmenue

Until KeyHit(1)
End

;- Hauptmenue

Function Hauptmenue ()

MaskImage Maus, 255, 0, 255

SetFont font3
Text 0,0,"X- Position: " + MouseX()
Text 0,15,"Y- Position: " + MouseY()

SetFont Logo
Color 128,0,0

SetFont font3

Text 575,575, "This Game powert by Dr.Valium"
DrawImage lo, x, y

SetFont font2

Color 180,0,0

Text 30, 100, "Herzlich Willkommen beim Onkelz Lyrics Quiz (OLQ)! Diese Version von OLQ ist eine Beta!"
Text 30, 120, "Nun wünsche ich Euch viel Spass! Viva Loz Tioz!"

SetFont font3
Color 128, 0, 0
Text 40, 177, ":: Neues Spiel :: "
Text 40, 202, ":: Rangliste :: "
Text 40, 227, ":: Credits :: "
Text 40, 252, ":: Exit ::"

Color 128,0,0

Rect 30,175,200,20, 0 ;Links, Oben, Rechts, Unten
Rect 30,200,200,20, 0 ;Links, Oben, Rechts, Unten
Rect 30,225,200,20, 0 ;Links, Oben, Rechts, Unten
Rect 30,250,200,20, 0 ;Links, Oben, Rechts, Unten

;- Blink

If MouseX() > 30 And MouseX () < 230 And MouseY() > 175 And MouseY() <195
Color 255,0,0
Rect 30,175,200,20,0
EndIf

If MouseX() > 30 And MouseX () < 230 And MouseY() > 200 And MouseY() <220
Color 255,0,0
Rect 30,200,200,20,0
EndIf

If MouseX() > 30 And MouseX () < 230 And MouseY() > 225 And MouseY() <245
Color 255,0,0
Rect 30,225,200,20,0
EndIf

If MouseX() > 30 And MouseX () < 230 And MouseY() > 250 And MouseY() <270
Color 255,0,0
Rect 30,250,200,20,0
EndIf

DrawImage Maus,MouseX(),MouseY()

;- Functionen des Hauptmenues

If MouseHit(1) And RectsOverlap (MouseX(),MouseY(),1,1,30,230,225,20)
Credits
DrawImage Maus,MouseX(),MouseY()
EndIf

If MouseHit(1) And RectsOverlap (MouseX(),MouseY(),1,1,30,230,250,20)
End
EndIf

DrawImage Maus,MouseX(),MouseY()

End Function

;- credits

Function Credits()

Cls

SetFont Logo
Color 128,0,0

DrawImage Credits, x, y

Line 40, 140, 135, 140
Line 40, 195, 133, 195
Line 40, 250, 130, 250
Line 40, 305, 183, 305
Line 40, 360, 193, 360

SetFont font5

Text 40, 120, ":: Coding ::"
Text 40, 175, ":: Grafik ::"
Text 40, 230, ":: Sound ::"
Text 40, 285, ":: Beta Tester ::"
Text 40, 340, ":: Speazial THX ::"

SetFont font2
Color 255, 0, 0

Text 40, 150, "Dr. Valium -alias- Marco H."
Text 40, 205, "Dr. Valium -alias- Marco H."
Text 40, 260, "Dr. Valium -alias- Marco H."
Text 40, 315, "Out$ider -alias- Sascha H."
Text 40, 390, "RobSite.de"
Text 40, 410, "BlitzForum.de"

DrawImage Maus,MouseX(),MouseY()

Flip

WaitKey()

End Function

So, es gibt 2 probs:
1.) Wenn ich auf Credits klicke, gehts auf aber mein Mauszeiger macht nix mehr ...
2.) Wenn ich auf Exit klicke geht nix. Es wird praktisch immer nur das "erste" beachtet! Weiß nicht warum ...

Hoffe auf erneute hilfe!
bye!

	Mattis_the_brain	Sa, Okt 09, 2004 13:18 Antworten mit Zitat
Nicht böse nehmen aber du kannst nicht wegen jeder kleinigkeit ins Foum gehen und fragen, sondern denk mal lieber selber nach oder such dir jemanden unter icq der so einigermaßen Programmieren kann, den du dann bei Problemen fragen kannst. mfg Mattis

Mattis_the_brain

Sa, Okt 09, 2004 13:18
Antworten mit Zitat

Nicht böse nehmen aber du kannst nicht wegen jeder kleinigkeit ins Foum gehen und fragen, sondern denk mal lieber selber nach oder such dir jemanden unter icq der so einigermaßen Programmieren kann, den du dann bei Problemen fragen kannst. mfg Mattis

	Valium	Sa, Okt 09, 2004 13:52 Antworten mit Zitat
lol, du glaubst gar ned wie lange ich schon rumprobiere. Aber wenn ichs halt ned hinbekomme!? Ich proge nun seit 24Stunde an diesem Spiel. Seit etwa 48Stunden habe ich BlitzBasic. Was will man erwarten? Ich habs verscuht, bekomms aber nicht raus! Hoffe mir hilft jemand

Valium

Sa, Okt 09, 2004 13:52
Antworten mit Zitat

lol, du glaubst gar ned wie lange ich schon rumprobiere. Aber wenn ichs halt ned hinbekomme!?
Ich proge nun seit 24Stunde an diesem Spiel. Seit etwa 48Stunden habe ich BlitzBasic. Was will man erwarten? Ich habs verscuht, bekomms aber nicht raus!

Hoffe mir hilft jemand

	lucifer	Sa, Okt 09, 2004 15:10 Antworten mit Zitat
So funktioniert alles Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800, 600, 16, 1 SetBuffer BackBuffer() ;- Globale Global logo = LoadFont("Comic Sans MS",35) Global font2 = LoadFont("Arial",20, 1) Global font3 = LoadFont("Arial",15, 1) Global font4 = LoadFont("Arial",16) Global font5 = LoadFont("Comic Sans MS",25) Global maus= LoadImage("E:\mein C++ spiel\Destin of a Warrior\steinzeitaxt.png") Global credits= LoadImage("C:\screenshot.bmp") Global lo = LoadImage("C:\Programme\Blitz3D\demonspawn\Bark 02.jpg") PosX = MouseX() PosY = MouseY() ;- Hauptschleife Repeat Flip Cls DrawImage Maus,MouseX(),MouseY() Hauptmenue Until KeyHit(1) End ;- Hauptmenue Function Hauptmenue () MaskImage Maus, 255, 0, 255 SetFont font3 Text 0,0,"X- Position: " + MouseX() Text 0,15,"Y- Position: " + MouseY() SetFont Logo Color 128,0,0 SetFont font3 Text 575,575, "This Game powert by Dr.Valium" DrawImage lo, x, y SetFont font2 Color 180,0,0 Text 30, 100, "Herzlich Willkommen beim Onkelz Lyrics Quiz (OLQ)! Diese Version von OLQ ist eine Beta!" Text 30, 120, "Nun wünsche ich Euch viel Spass! Viva Loz Tioz!" SetFont font3 Color 128, 0, 0 Text 40, 177, ":: Neues Spiel :: " Text 40, 202, ":: Rangliste :: " Text 40, 227, ":: Credits :: " Text 40, 252, ":: Exit ::" Color 128,0,0 Rect 30,175,200,20, 0 ;Links, Oben, Rechts, Unten Rect 30,200,200,20, 0 ;Links, Oben, Rechts, Unten Rect 30,225,200,20, 0 ;Links, Oben, Rechts, Unten Rect 30,250,200,20, 0 ;Links, Oben, Rechts, Unten ;- Blink If MouseX() > 30 And MouseX () < 230 And MouseY() > 175 And MouseY() <195 Color 255,0,0 Rect 30,175,200,20,0 EndIf If MouseX() > 30 And MouseX () < 230 And MouseY() > 200 And MouseY() <220 Color 255,0,0 Rect 30,200,200,20,0 EndIf If MouseX() > 30 And MouseX () < 230 And MouseY() > 225 And MouseY() <245 Color 255,0,0 Rect 30,225,200,20,0 EndIf If MouseX() > 30 And MouseX () < 230 And MouseY() > 250 And MouseY() <270 Color 255,0,0 Rect 30,250,200,20,0 EndIf DrawImage Maus,MouseX(),MouseY() ;- Functionen des Hauptmenues If MouseDown(1)And RectsOverlap (MouseX(),MouseY(),1,1,30,230,225,20) Credits DrawImage Maus,MouseX(),MouseY() EndIf If MouseDown(1) And RectsOverlap(MouseX(),MouseY(),1,1,30,250,250,20) Then End End EndIf DrawImage Maus,MouseX(),MouseY() End Function ;- credits Function Credits() While Not KeyHit(1) Cls SetFont Logo Color 128,0,0 DrawImage Credits, x, y Line 40, 140, 135, 140 Line 40, 195, 133, 195 Line 40, 250, 130, 250 Line 40, 305, 183, 305 Line 40, 360, 193, 360 SetFont font5 Text 40, 120, ":: Coding ::" Text 40, 175, ":: Grafik ::" Text 40, 230, ":: Sound ::" Text 40, 285, ":: Beta Tester ::" Text 40, 340, ":: Speazial THX ::" SetFont font2 Color 255, 0, 0 Text 40, 150, "Dr. Valium -alias- Marco H." Text 40, 205, "Dr. Valium -alias- Marco H." Text 40, 260, "Dr. Valium -alias- Marco H." Text 40, 315, "Out$ider -alias- Sascha H." Text 40, 390, "RobSite.de" Text 40, 410, "BlitzForum.de" DrawImage Maus,MouseX(),MouseY() Flip Wend End Function Das du die Maus nicht bewegen konntest, bei den Credits, lag an Waitkey(). Das unterbindet alles bis du ne Taste drückst. Darum muss das alles in While not keyhit(1) ... Wend Scheife packen. Die Taste kannst du natürlich noch verändern. Das das ander nicht geklappt hat lag eimal an Moushit(1). Warum kannst du mal in der Onlinehilfe nachlesen. Und auserdem hast du die Koordinaten bei RectOverlap() falsch eingegeben.
Aktuelles Projekt: Demonspawn RPG

lucifer

Sa, Okt 09, 2004 15:10
Antworten mit Zitat

So funktioniert alles
Code: [AUSKLAPPEN]

Graphics 800, 600, 16, 1
SetBuffer BackBuffer()

;- Globale

Global logo = LoadFont("Comic Sans MS",35)
Global font2 = LoadFont("Arial",20, 1)
Global font3 = LoadFont("Arial",15, 1)
Global font4 = LoadFont("Arial",16)
Global font5 = LoadFont("Comic Sans MS",25)
Global maus= LoadImage("E:\mein C++ spiel\Destin of a Warrior\steinzeitaxt.png")
Global credits= LoadImage("C:\screenshot.bmp")
Global lo = LoadImage("C:\Programme\Blitz3D\demonspawn\Bark 02.jpg")

PosX = MouseX()
PosY = MouseY()

;- Hauptschleife

Repeat
Flip
Cls

DrawImage Maus,MouseX(),MouseY()

Hauptmenue

Until KeyHit(1)
End

;- Hauptmenue

Function Hauptmenue ()

MaskImage Maus, 255, 0, 255

SetFont font3
Text 0,0,"X- Position: " + MouseX()
Text 0,15,"Y- Position: " + MouseY()

SetFont Logo
Color 128,0,0

SetFont font3

Text 575,575, "This Game powert by Dr.Valium"
DrawImage lo, x, y

SetFont font2

Color 180,0,0

Text 30, 100, "Herzlich Willkommen beim Onkelz Lyrics Quiz (OLQ)! Diese Version von OLQ ist eine Beta!"
Text 30, 120, "Nun wünsche ich Euch viel Spass! Viva Loz Tioz!"

SetFont font3
Color 128, 0, 0
Text 40, 177, ":: Neues Spiel :: "
Text 40, 202, ":: Rangliste :: "
Text 40, 227, ":: Credits :: "
Text 40, 252, ":: Exit ::"

Color 128,0,0

Rect 30,175,200,20, 0 ;Links, Oben, Rechts, Unten
Rect 30,200,200,20, 0 ;Links, Oben, Rechts, Unten
Rect 30,225,200,20, 0 ;Links, Oben, Rechts, Unten
Rect 30,250,200,20, 0 ;Links, Oben, Rechts, Unten

;- Blink

If MouseX() > 30 And MouseX () < 230 And MouseY() > 175 And MouseY() <195
Color 255,0,0
Rect 30,175,200,20,0
EndIf

If MouseX() > 30 And MouseX () < 230 And MouseY() > 200 And MouseY() <220
Color 255,0,0
Rect 30,200,200,20,0
EndIf

If MouseX() > 30 And MouseX () < 230 And MouseY() > 225 And MouseY() <245
Color 255,0,0
Rect 30,225,200,20,0
EndIf

If MouseX() > 30 And MouseX () < 230 And MouseY() > 250 And MouseY() <270
Color 255,0,0
Rect 30,250,200,20,0
EndIf

DrawImage Maus,MouseX(),MouseY()

;- Functionen des Hauptmenues
If MouseDown(1)And RectsOverlap (MouseX(),MouseY(),1,1,30,230,225,20)
Credits
DrawImage Maus,MouseX(),MouseY()
EndIf

If MouseDown(1) And RectsOverlap(MouseX(),MouseY(),1,1,30,250,250,20) Then
End
End
EndIf

DrawImage Maus,MouseX(),MouseY()

End Function

;- credits

Function Credits()
While Not KeyHit(1)
Cls

SetFont Logo
Color 128,0,0

DrawImage Credits, x, y

Line 40, 140, 135, 140
Line 40, 195, 133, 195
Line 40, 250, 130, 250
Line 40, 305, 183, 305
Line 40, 360, 193, 360

SetFont font5

Text 40, 120, ":: Coding ::"
Text 40, 175, ":: Grafik ::"
Text 40, 230, ":: Sound ::"
Text 40, 285, ":: Beta Tester ::"
Text 40, 340, ":: Speazial THX ::"

SetFont font2
Color 255, 0, 0

Text 40, 150, "Dr. Valium -alias- Marco H."
Text 40, 205, "Dr. Valium -alias- Marco H."
Text 40, 260, "Dr. Valium -alias- Marco H."
Text 40, 315, "Out$ider -alias- Sascha H."
Text 40, 390, "RobSite.de"
Text 40, 410, "BlitzForum.de"

DrawImage Maus,MouseX(),MouseY()

Flip
Wend
End Function

Das du die Maus nicht bewegen konntest, bei den Credits, lag an Waitkey(). Das unterbindet alles bis du ne Taste drückst. Darum muss das alles in While not keyhit(1) ... Wend Scheife packen. Die Taste kannst du natürlich noch verändern. Das das ander nicht geklappt hat lag eimal an Moushit(1). Warum kannst du mal in der Onlinehilfe nachlesen. Und auserdem hast du die Koordinaten bei RectOverlap() falsch eingegeben.

Aktuelles Projekt:
Demonspawn
RPG

	Valium	Sa, Okt 09, 2004 15:21 Antworten mit Zitat
Boah thx alter!

Valium

Sa, Okt 09, 2004 15:21
Antworten mit Zitat

Boah thx alter! Smile

	Valium	Sa, Okt 09, 2004 18:07 Antworten mit Zitat
NEIN! Ich habe wieder ein Problem. Ich bin so ein noob . Sry! Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800, 600, 16, 1 SetBuffer BackBuffer() ;- Globale Global logo = LoadFont("Comic Sans MS",35) Global font2 = LoadFont("Arial",20, 1) Global font3 = LoadFont("Arial",15, 1) Global font4 = LoadFont("Arial",16) Global font5 = LoadFont("Comic Sans MS",25) Global maus= LoadImage("D:\BlitzBasic\maus.bmp") Global credits= LoadImage("D:\BlitzBasic\credits.bmp") Global lo = LoadImage("D:\BlitzBasic\logo.bmp") PosX = MouseX() PosY = MouseY() ;- Hauptschleife Repeat Flip Cls DrawImage Maus,MouseX(),MouseY() Hauptmenue Until KeyHit(1) End ;- Hauptmenue Function Hauptmenue () MaskImage Maus, 255, 0, 255 SetFont font3 Text 0,0,"X- Position: " + MouseX() Text 0,15,"Y- Position: " + MouseY() SetFont Logo Color 128,0,0 SetFont font3 Text 575,575, "This Game powert by Dr.Valium" DrawImage lo, x, y SetFont font2 Color 180,0,0 Text 30, 100, "Herzlich Willkommen beim Onkelz Lyrics Quiz (OLQ)! Diese Version von OLQ ist eine Beta!" Text 30, 120, "Nun wünsche ich Euch viel Spass! Viva Loz Tioz!" SetFont font3 Color 128, 0, 0 Text 40, 177, ":: Neues Spiel :: " Text 40, 202, ":: Rangliste :: " Text 40, 227, ":: Credits :: " Text 40, 252, ":: Exit ::" Color 128,0,0 Rect 30,175,200,20, 0 ;Links, Oben, Rechts, Unten Rect 30,200,200,20, 0 ;Links, Oben, Rechts, Unten Rect 30,225,200,20, 0 ;Links, Oben, Rechts, Unten Rect 30,250,200,20, 0 ;Links, Oben, Rechts, Unten ;- Blink If MouseX() > 30 And MouseX () < 230 And MouseY() > 175 And MouseY() <195 Color 255,0,0 Rect 30,175,200,20,0 EndIf If MouseX() > 30 And MouseX () < 230 And MouseY() > 200 And MouseY() <220 Color 255,0,0 Rect 30,200,200,20,0 EndIf If MouseX() > 30 And MouseX () < 230 And MouseY() > 225 And MouseY() <245 Color 255,0,0 Rect 30,225,200,20,0 EndIf If MouseX() > 30 And MouseX () < 230 And MouseY() > 250 And MouseY() <270 Color 255,0,0 Rect 30,250,200,20,0 EndIf DrawImage Maus,MouseX(),MouseY() ;- Functionen des Hauptmenues If MouseHit(1) And RectsOverlap (MouseX(),MouseY(),1,1,30,230,225,20) Credits DrawImage Maus,MouseX(),MouseY() EndIf If MouseDown(1) And RectsOverlap(MouseX(),MouseY(),1,1,30,250,250,20) Then End End EndIf DrawImage Maus,MouseX(),MouseY() End Function ;- credits Function Credits() Repeat Cls SetFont font3 Text 0,0,"X- Position: " + MouseX() Text 0,15,"Y- Position: " + MouseY() SetFont Logo Color 128,0,0 DrawImage Credits, x, y Line 40, 140, 135, 140 Line 40, 195, 133, 195 Line 40, 250, 130, 250 Line 40, 305, 183, 305 Line 40, 360, 193, 360 SetFont font5 Text 40, 120, ":: Coding ::" Text 40, 175, ":: Grafik ::" Text 40, 230, ":: Sound ::" Text 40, 285, ":: Beta Tester ::" Text 40, 340, ":: Speazial THX ::" SetFont font2 Color 255, 0, 0 Text 40, 150, "Dr. Valium -alias- Marco H." Text 40, 205, "Dr. Valium -alias- Marco H." Text 40, 260, "Dr. Valium -alias- Marco H." Text 40, 315, "Out$ider -alias- Sascha H." Text 40, 390, "RobSite.de" Text 40, 410, "BlitzForum.de" SetFont font3 Text 325, 550, " :: Zurück zum Hauptmenü ::" Color 128, 0, 0 Rect 305,550,200,20,0 ;Links, Oben, Rechts, Unten If MouseX() > 305 And MouseX () < 505 And MouseY() > 550 And MouseY() < 570 Color 255,0,0 Rect 305,550,200,20,0 EndIf If MouseDown(1) And RectsOverlap (MouseX(),MouseY(),1,1,305,505,550,20)Then Cls Flip Hauptmenue DrawImage Maus,MouseX(),MouseY() EndIf DrawImage Maus,MouseX(),MouseY() Flip Until Hauptmenue() End Function Also, in den Credits. Ich möchte dieses Rect benutzen, damit ich zurück ins Hauptmenü komme. Es klappt aber nicht. Egal wie oft ich draufklicke. Please help! Ich wollte mich auch schon jemand in ICQ fragen, aber der jenige gibt mir keine Antwort. Bitte helft mir!

Valium

Sa, Okt 09, 2004 18:07
Antworten mit Zitat

NEIN! Ich habe wieder ein Problem. Ich bin so ein noob Sad

. Sry!

Code: [AUSKLAPPEN]

Graphics 800, 600, 16, 1
SetBuffer BackBuffer()

;- Globale

Global logo = LoadFont("Comic Sans MS",35)
Global font2 = LoadFont("Arial",20, 1)
Global font3 = LoadFont("Arial",15, 1)
Global font4 = LoadFont("Arial",16)
Global font5 = LoadFont("Comic Sans MS",25)
Global maus= LoadImage("D:\BlitzBasic\maus.bmp")
Global credits= LoadImage("D:\BlitzBasic\credits.bmp")
Global lo = LoadImage("D:\BlitzBasic\logo.bmp")

PosX = MouseX()
PosY = MouseY()

;- Hauptschleife

Repeat
Flip
Cls

DrawImage Maus,MouseX(),MouseY()

Hauptmenue

Until KeyHit(1)
End

;- Hauptmenue

Function Hauptmenue ()

MaskImage Maus, 255, 0, 255

SetFont font3
Text 0,0,"X- Position: " + MouseX()
Text 0,15,"Y- Position: " + MouseY()

SetFont Logo
Color 128,0,0

SetFont font3

Text 575,575, "This Game powert by Dr.Valium"
DrawImage lo, x, y

SetFont font2

Color 180,0,0

Text 30, 100, "Herzlich Willkommen beim Onkelz Lyrics Quiz (OLQ)! Diese Version von OLQ ist eine Beta!"
Text 30, 120, "Nun wünsche ich Euch viel Spass! Viva Loz Tioz!"

SetFont font3
Color 128, 0, 0
Text 40, 177, ":: Neues Spiel :: "
Text 40, 202, ":: Rangliste :: "
Text 40, 227, ":: Credits :: "
Text 40, 252, ":: Exit ::"

Color 128,0,0

Rect 30,175,200,20, 0 ;Links, Oben, Rechts, Unten
Rect 30,200,200,20, 0 ;Links, Oben, Rechts, Unten
Rect 30,225,200,20, 0 ;Links, Oben, Rechts, Unten
Rect 30,250,200,20, 0 ;Links, Oben, Rechts, Unten

;- Blink

If MouseX() > 30 And MouseX () < 230 And MouseY() > 175 And MouseY() <195
Color 255,0,0
Rect 30,175,200,20,0
EndIf

If MouseX() > 30 And MouseX () < 230 And MouseY() > 200 And MouseY() <220
Color 255,0,0
Rect 30,200,200,20,0
EndIf

If MouseX() > 30 And MouseX () < 230 And MouseY() > 225 And MouseY() <245
Color 255,0,0
Rect 30,225,200,20,0
EndIf

If MouseX() > 30 And MouseX () < 230 And MouseY() > 250 And MouseY() <270
Color 255,0,0
Rect 30,250,200,20,0
EndIf

DrawImage Maus,MouseX(),MouseY()

;- Functionen des Hauptmenues

If MouseHit(1) And RectsOverlap (MouseX(),MouseY(),1,1,30,230,225,20)
Credits
DrawImage Maus,MouseX(),MouseY()
EndIf

If MouseDown(1) And RectsOverlap(MouseX(),MouseY(),1,1,30,250,250,20) Then
End
End
EndIf

DrawImage Maus,MouseX(),MouseY()

End Function

;- credits

Function Credits()

Repeat

Cls

SetFont font3
Text 0,0,"X- Position: " + MouseX()
Text 0,15,"Y- Position: " + MouseY()

SetFont Logo
Color 128,0,0

DrawImage Credits, x, y

Line 40, 140, 135, 140
Line 40, 195, 133, 195
Line 40, 250, 130, 250
Line 40, 305, 183, 305
Line 40, 360, 193, 360

SetFont font5

Text 40, 120, ":: Coding ::"
Text 40, 175, ":: Grafik ::"
Text 40, 230, ":: Sound ::"
Text 40, 285, ":: Beta Tester ::"
Text 40, 340, ":: Speazial THX ::"

SetFont font2
Color 255, 0, 0

Text 40, 150, "Dr. Valium -alias- Marco H."
Text 40, 205, "Dr. Valium -alias- Marco H."
Text 40, 260, "Dr. Valium -alias- Marco H."
Text 40, 315, "Out$ider -alias- Sascha H."
Text 40, 390, "RobSite.de"
Text 40, 410, "BlitzForum.de"

SetFont font3

Text 325, 550, " :: Zurück zum Hauptmenü ::"

Color 128, 0, 0
Rect 305,550,200,20,0 ;Links, Oben, Rechts, Unten

If MouseX() > 305 And MouseX () < 505 And MouseY() > 550 And MouseY() < 570
Color 255,0,0
Rect 305,550,200,20,0
EndIf

If MouseDown(1) And RectsOverlap (MouseX(),MouseY(),1,1,305,505,550,20)Then
Cls
Flip
Hauptmenue
DrawImage Maus,MouseX(),MouseY()
EndIf

DrawImage Maus,MouseX(),MouseY()

Flip

Until Hauptmenue()

End Function

Also, in den Credits. Ich möchte dieses Rect benutzen, damit ich zurück ins Hauptmenü komme. Es klappt aber nicht. Egal wie oft ich draufklicke.
Please help! Ich wollte mich auch schon jemand in ICQ fragen, aber der jenige gibt mir keine Antwort. Bitte helft mir!

	lucifer	Sa, Okt 09, 2004 18:53 Antworten mit Zitat
So gehts: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800, 600, 16, 1 SetBuffer BackBuffer() ;- Globale Global logo = LoadFont("Comic Sans MS",35) Global font2 = LoadFont("Arial",20, 1) Global font3 = LoadFont("Arial",15, 1) Global font4 = LoadFont("Arial",16) Global font5 = LoadFont("Comic Sans MS",25) Global maus= LoadImage("E:\mein C++ spiel\Destin of a Warrior\SteinzeitAxt.png") Global credits= LoadImage("C:\screenshot.bmp") Global lo = LoadImage("C:\Programme\Blitz3D\demonspawn\Bark 02.jpg") PosX = MouseX() PosY = MouseY() ;- Hauptschleife Repeat Flip Cls DrawImage Maus,MouseX(),MouseY() Hauptmenue Until KeyHit(1) End ;- Hauptmenue Function Hauptmenue () MaskImage Maus, 255, 0, 255 SetFont font3 Text 0,0,"X- Position: " + MouseX() Text 0,15,"Y- Position: " + MouseY() SetFont Logo Color 128,0,0 SetFont font3 Text 575,575, "This Game powert by Dr.Valium" DrawImage lo, x, y SetFont font2 Color 180,0,0 Text 30, 100, "Herzlich Willkommen beim Onkelz Lyrics Quiz (OLQ)! Diese Version von OLQ ist eine Beta!" Text 30, 120, "Nun wünsche ich Euch viel Spass! Viva Loz Tioz!" SetFont font3 Color 128, 0, 0 Text 40, 177, ":: Neues Spiel :: " Text 40, 202, ":: Rangliste :: " Text 40, 227, ":: Credits :: " Text 40, 252, ":: Exit ::" Color 128,0,0 Rect 30,175,200,20, 0 ;Links, Oben, Rechts, Unten Rect 30,200,200,20, 0 ;Links, Oben, Rechts, Unten Rect 30,225,200,20, 0 ;Links, Oben, Rechts, Unten Rect 30,250,200,20, 0 ;Links, Oben, Rechts, Unten ;- Blink If MouseX() > 30 And MouseX () < 230 And MouseY() > 175 And MouseY() <195 Color 255,0,0 Rect 30,175,200,20,0 EndIf If MouseX() > 30 And MouseX () < 230 And MouseY() > 200 And MouseY() <220 Color 255,0,0 Rect 30,200,200,20,0 EndIf If MouseX() > 30 And MouseX () < 230 And MouseY() > 225 And MouseY() <245 Color 255,0,0 Rect 30,225,200,20,0 EndIf If MouseX() > 30 And MouseX () < 230 And MouseY() > 250 And MouseY() <270 Color 255,0,0 Rect 30,250,200,20,0 EndIf DrawImage Maus,MouseX(),MouseY() ;- Functionen des Hauptmenues If MouseHit(1) And RectsOverlap (MouseX(),MouseY(),1,1,30,230,225,20) Credits DrawImage Maus,MouseX(),MouseY() EndIf If MouseDown(1) And RectsOverlap(MouseX(),MouseY(),1,1,30,250,250,20) Then End End EndIf DrawImage Maus,MouseX(),MouseY() End Function ;- credits Function Credits() Repeat Cls SetFont font3 Text 0,0,"X- Position: " + MouseX() Text 0,15,"Y- Position: " + MouseY() SetFont Logo Color 128,0,0 DrawImage Credits, x, y Line 40, 140, 135, 140 Line 40, 195, 133, 195 Line 40, 250, 130, 250 Line 40, 305, 183, 305 Line 40, 360, 193, 360 SetFont font5 Text 40, 120, ":: Coding ::" Text 40, 175, ":: Grafik ::" Text 40, 230, ":: Sound ::" Text 40, 285, ":: Beta Tester ::" Text 40, 340, ":: Speazial THX ::" SetFont font2 Color 255, 0, 0 Text 40, 150, "Dr. Valium -alias- Marco H." Text 40, 205, "Dr. Valium -alias- Marco H." Text 40, 260, "Dr. Valium -alias- Marco H." Text 40, 315, "Out$ider -alias- Sascha H." Text 40, 390, "RobSite.de" Text 40, 410, "BlitzForum.de" SetFont font3 Text 325, 550, " :: Zurück zum Hauptmenü ::" Color 128, 0, 0 Rect 305,550,200,20,0 ;Links, Oben, Rechts, Unten If MouseX() > 305 And MouseX () < 505 And MouseY() > 550 And MouseY() < 570 Color 255,0,0 Rect 305,550,200,20,0 EndIf If MouseDown(1) And RectsOverlap (MouseX(),MouseY(),1,1,305,550,200,20)Then Exit EndIf DrawImage Maus,MouseX(),MouseY() Flip Forever End Function Erst mal hast du wieder mal die Koordinaten bei RectsOverlap falsch angegeben. Dann was du mit Repeat ... Until Hauptmenu() ereichen willst verstehe ich nicht. Deshalb hab ich das duch Repeat ... Forever ersetzt. Dann musstes du nur die RectOverlap Reaktion ersetzen mit Exit um aus der Repeat ... Forever Schleife rauszukommen.
Aktuelles Projekt: Demonspawn RPG

lucifer

Sa, Okt 09, 2004 18:53
Antworten mit Zitat

So gehts:

Code: [AUSKLAPPEN]

Graphics 800, 600, 16, 1
SetBuffer BackBuffer()

;- Globale

Global logo = LoadFont("Comic Sans MS",35)
Global font2 = LoadFont("Arial",20, 1)
Global font3 = LoadFont("Arial",15, 1)
Global font4 = LoadFont("Arial",16)
Global font5 = LoadFont("Comic Sans MS",25)
Global maus= LoadImage("E:\mein C++ spiel\Destin of a Warrior\SteinzeitAxt.png")
Global credits= LoadImage("C:\screenshot.bmp")
Global lo = LoadImage("C:\Programme\Blitz3D\demonspawn\Bark 02.jpg")

PosX = MouseX()
PosY = MouseY()

;- Hauptschleife

Repeat
Flip
Cls

DrawImage Maus,MouseX(),MouseY()

Hauptmenue

Until KeyHit(1)
End

;- Hauptmenue

Function Hauptmenue ()

MaskImage Maus, 255, 0, 255

SetFont font3
Text 0,0,"X- Position: " + MouseX()
Text 0,15,"Y- Position: " + MouseY()

SetFont Logo
Color 128,0,0

SetFont font3

Text 575,575, "This Game powert by Dr.Valium"
DrawImage lo, x, y

SetFont font2

Color 180,0,0

Text 30, 100, "Herzlich Willkommen beim Onkelz Lyrics Quiz (OLQ)! Diese Version von OLQ ist eine Beta!"
Text 30, 120, "Nun wünsche ich Euch viel Spass! Viva Loz Tioz!"

SetFont font3
Color 128, 0, 0
Text 40, 177, ":: Neues Spiel :: "
Text 40, 202, ":: Rangliste :: "
Text 40, 227, ":: Credits :: "
Text 40, 252, ":: Exit ::"

Color 128,0,0

Rect 30,175,200,20, 0 ;Links, Oben, Rechts, Unten
Rect 30,200,200,20, 0 ;Links, Oben, Rechts, Unten
Rect 30,225,200,20, 0 ;Links, Oben, Rechts, Unten
Rect 30,250,200,20, 0 ;Links, Oben, Rechts, Unten

;- Blink

If MouseX() > 30 And MouseX () < 230 And MouseY() > 175 And MouseY() <195
Color 255,0,0
Rect 30,175,200,20,0
EndIf

If MouseX() > 30 And MouseX () < 230 And MouseY() > 200 And MouseY() <220
Color 255,0,0
Rect 30,200,200,20,0
EndIf

If MouseX() > 30 And MouseX () < 230 And MouseY() > 225 And MouseY() <245
Color 255,0,0
Rect 30,225,200,20,0
EndIf

If MouseX() > 30 And MouseX () < 230 And MouseY() > 250 And MouseY() <270
Color 255,0,0
Rect 30,250,200,20,0
EndIf

DrawImage Maus,MouseX(),MouseY()

;- Functionen des Hauptmenues

If MouseHit(1) And RectsOverlap (MouseX(),MouseY(),1,1,30,230,225,20)
Credits
DrawImage Maus,MouseX(),MouseY()
EndIf

If MouseDown(1) And RectsOverlap(MouseX(),MouseY(),1,1,30,250,250,20) Then
End
End
EndIf

DrawImage Maus,MouseX(),MouseY()

End Function

;- credits

Function Credits()

Repeat

Cls

SetFont font3
Text 0,0,"X- Position: " + MouseX()
Text 0,15,"Y- Position: " + MouseY()

SetFont Logo
Color 128,0,0

DrawImage Credits, x, y

Line 40, 140, 135, 140
Line 40, 195, 133, 195
Line 40, 250, 130, 250
Line 40, 305, 183, 305
Line 40, 360, 193, 360

SetFont font5

Text 40, 120, ":: Coding ::"
Text 40, 175, ":: Grafik ::"
Text 40, 230, ":: Sound ::"
Text 40, 285, ":: Beta Tester ::"
Text 40, 340, ":: Speazial THX ::"

SetFont font2
Color 255, 0, 0

Text 40, 150, "Dr. Valium -alias- Marco H."
Text 40, 205, "Dr. Valium -alias- Marco H."
Text 40, 260, "Dr. Valium -alias- Marco H."
Text 40, 315, "Out$ider -alias- Sascha H."
Text 40, 390, "RobSite.de"
Text 40, 410, "BlitzForum.de"

SetFont font3

Text 325, 550, " :: Zurück zum Hauptmenü ::"

Color 128, 0, 0
Rect 305,550,200,20,0 ;Links, Oben, Rechts, Unten

If MouseX() > 305 And MouseX () < 505 And MouseY() > 550 And MouseY() < 570
Color 255,0,0
Rect 305,550,200,20,0
EndIf

If MouseDown(1) And RectsOverlap (MouseX(),MouseY(),1,1,305,550,200,20)Then
Exit
EndIf

DrawImage Maus,MouseX(),MouseY()

Flip

Forever

End Function

Erst mal hast du wieder mal die Koordinaten bei RectsOverlap falsch angegeben. Dann was du mit Repeat ... Until Hauptmenu() ereichen willst verstehe ich nicht. Deshalb hab ich das duch Repeat ... Forever ersetzt. Dann musstes du nur die RectOverlap Reaktion ersetzen mit Exit um aus der Repeat ... Forever Schleife rauszukommen.

Aktuelles Projekt:
Demonspawn
RPG

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Cursor

Valium

Betreff: Cursor

Betreff: .....

Valium

Valium

Valium

Valium

Valium

Valium