mit maus auf text klicken ...

Übersicht

BlitzBasic

Beginners-Corner

	Kado Betreff: mit maus auf text klicken ...	Sa, Nov 13, 2004 17:44 Antworten mit Zitat
wie mache ich das man mit der maus bei BB auf den text klicken und der dann die sache macht z.b Code: [AUSKLAPPEN] [EINKLAPPEN] Text 40,40, "1- In den wald gehen" Text 40,55, "2- In die Stadt gehen" Menu=Input&$("Wohin gehts?") Und dann einfach if menu = 1 text "blabla" endif waitkey also sowas bloss nur mit der maus

Kado

Betreff: mit maus auf text klicken ...

Sa, Nov 13, 2004 17:44
Antworten mit Zitat

wie mache ich das man mit der maus bei BB auf den text klicken und der dann die sache macht Razz

z.b
Code: [AUSKLAPPEN]

Text 40,40, "1- In den wald gehen"
Text 40,55, "2- In die Stadt gehen"
Menu=Input&$("Wohin gehts?")

Und dann einfach

if menu = 1
text "blabla"
endif

waitkey

also sowas bloss nur mit der maus

	Paul	Sa, Nov 13, 2004 18:02 Antworten mit Zitat
geht so nich, du könntest aber entweder bei verschiedenfarbigen texten die Farbe am Mauspointer abfragen (readpixelfast) und dann auf klick prüfen, oder einfach mit if rectsoverlap(mousex(),mousey(),1,1,text_oben,text_links,text_breite,text_höhe) and mousehit(1) prüfen. Paul
Stratocaster black - Roland MicroCube User posted image Girgl-World, wer's nich kennt, is' blöd!

Paul

Sa, Nov 13, 2004 18:02
Antworten mit Zitat

geht so nich, du könntest aber entweder bei verschiedenfarbigen texten die Farbe am Mauspointer abfragen (readpixelfast) und dann auf klick prüfen, oder einfach mit if rectsoverlap(mousex(),mousey(),1,1,text_oben,text_links,text_breite,text_höhe) and mousehit(1) prüfen.

Paul

Stratocaster black - Roland MicroCube
User posted image
Girgl-World, wer's nich kennt, is' blöd!

	pile	Sa, Nov 13, 2004 18:24 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] Repeat Cls x=MouseX() y=MouseY() Locate 0,0 Print x + " " + y Rect 100,200,100,50 If x => 100 And x <= 200 And y => 200 And y <=250 And MouseDown(1) Gosub menu EndIf Flip Until GetMouse()=2 End .menu Cls Locate 0,0 Print "Wow, du hast es in das Menü geschaft" Print Print "Weiter mit beliebiger Taste" WaitKey Return Jetzt mußte nur noch für das weiße Kästchen nen Text oder was auch immer hinschreiben.
MfG. Pile Aktuelles Projekt: Irgendwas in den BlitzEditor eintippen und sehen ob was dabei rauskommt. Fortschritt: ca. 3.141592653589793238%

pile

Sa, Nov 13, 2004 18:24
Antworten mit Zitat

Code: [AUSKLAPPEN]

Repeat
Cls
x=MouseX()
y=MouseY()
Locate 0,0
Print x + " " + y
Rect 100,200,100,50
If x => 100 And x <= 200 And y => 200 And y <=250 And MouseDown(1)
Gosub menu
EndIf
Flip
Until GetMouse()=2
End
.menu
Cls
Locate 0,0
Print "Wow, du hast es in das Menü geschaft"
Print
Print "Weiter mit beliebiger Taste"
WaitKey
Return

Jetzt mußte nur noch für das weiße Kästchen nen Text oder was auch immer hinschreiben.

MfG. Pile
Aktuelles Projekt: Irgendwas in den BlitzEditor eintippen und sehen ob was dabei rauskommt. Fortschritt: ca. 3.141592653589793238%