Hi Mr. President,
bräuchte mal Hilfe bei der Selektion mit dem Stift (PPC Version)
Habe bei Wumbo jetzt die Möglichkeit hergestellt, sich die gespeicherten Spiele über den Stift zu selektieren.
Teilauszug:
-----------------------------------------------------------------------------------
MOUSESTATE mousex, mousey, b1, b2
IF b1=1
obj=INTEGER(mousex/40) + 20*INTEGER(mousey/40)
IF obj=64 THEN sel=0 // Selektion über Stift "Play A"
IF obj=65 THEN sel=1 // Selektion über Stift "Play B"
IF obj=66 THEN sel=2 // Selektion über Stift "Play C"
ENDIF
SELECT sel
CASE 0; a$="A"; sx=347; sy=260; GLOBAL savefile$= ActLev$ + "01"
CASE 1; b$="B"; sx=430; sy=260; GLOBAL savefile$= ActLev$ + "02"
CASE 2; c$="C"; sx=510; sy=260; GLOBAL savefile$= ActLev$ + "03"
ENDSELECT
-----------------------------------------------------------------------------------
würde nun gerne, nachdem ich das gespeicherte Spiel mit dem Stift selektiert habe,
durch nochmaliges Tap mit dem Stift das gespeicherte Spiel starten.
Habe es mit dem Code:
---------------------------------------------------------------------------------------------
IF obj=64 AND sel=0 THEN RETURN ; ELSE; sel=0 // Selektion über Stift "Play A"
IF obj=65 AND sel=1 THEN RETURN ; ELSE; sel=1 // Selektion über Stift "Play B"
IF obj=66 AND sel=2 THEN RETURN ; ELSE; sel=2 // Selektion über Stift "Play C"
---------------------------------------------------------------------------------------------
versucht, bekomme aber eine ellenlange Fehlermeldung vom Compiler.
Kurioserweise, wenn ich den nachfolgenden Code
---------------------------------------------------------------------------------------------
IF obj=64 AND sel=0 THEN RETURN ; ELSE; sel=0 // Selektion über Stift "Play A"
IF obj=65 THEN sel=1 // Selektion über Stift "Play B"
IF obj=66 THEN sel=2 // Selektion über Stift "Play C"
---------------------------------------------------------------------------------------------
versuchsweise eingebe, funktioniert die Selektion und das Starten des Play's A.
Kannst Du mir irgendeinen Rat geben
Vielen Dank
Thomas
Ja, kann ich - juhuu! ;)
IF irgendwas THEN was_anderes();
IF irgendwas; was_anderes(); ELSE; was_ganz_anderes();Das ist der Grund, warum ich's immer in eigene Zeilen schreibe:
IF irgendwas
was_anderes();
ELSE
was_ganz_anderes();
ENDIFAlso, jeder Zeilenumbruch ist (wenn kein _ vorausgeht) gleichzeitig ein ; Zeichen.
Das mit dem Doppelklick: Wenn man was einmal anklickt, ist's aktiviert. Dann muss man warten bis der stift wieder weg vom Screen ist, und ein erneuter klick startet's dann:
IF b1 AND down=FALSE
down=TRUE
neu =was gewählt ist
IF neu = selektion
startgame ...
ELSE
selektion=neu
ENDIF
ENDIF
IF b1=FALSE THEN down=FALSE