Cursor
Übersicht BlitzBasic Beginners-Corner
ValiumGastBetreff: 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-XBetreff: ..... |
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 ::.. |
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 |
ValiumGast |
Fr, Okt 08, 2004 22:11 Antworten mit Zitat |
|
---|---|---|
Danke für Hilfe, funzt aber nicht
Also bewegt sich nicht ... Warum? |
||
ValiumGast |
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 ::.. |
ValiumGast |
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? |
||
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 ::.. |
ValiumGast |
Fr, Okt 08, 2004 22:25 Antworten mit Zitat |
|
---|---|---|
Super Leute, geil | ||
ValiumGast |
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. | ||
ValiumGast |
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] 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 | ||
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] 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 18:07 Antworten mit Zitat |
|
---|---|---|
NEIN! Ich habe wieder ein Problem. Ich bin so ein noob . 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] 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
Powered by phpBB © 2001 - 2006, phpBB Group