06-15-2009, 04:58 PM
Hi! I've a problem with this code:
in the second DO...LOOP, the "if...then...elseif" don't work!!! Why?
Code:
Sessione = TRUE
WHILE Sessione
'Barra di stato
Future.FillBox 2, Lx - 19, Rx - 2, Lx - 2, RGB2Color&(0, 0, 32)
Future.Box 1, Lx - 20, Rx - 1, Lx - 1, RGB2Color&(0, 128, 192)
'Barra del menu
Future.FillBox 2, Lx - 49, Rx - 2, Lx - 21, RGB2Color&(0, 24, 64)
Future.Box 1, Lx - 50, Rx - 1, Lx - 20, RGB2Color&(0, 128, 192)
Future.LoadBMP "\hawk\skin\" + skin$ + "\user.bmp", 5, Lx - 47
TIMER ON
ON TIMER(1) GOSUB Stato
Future.MouseOn
DO
    Future.UpdateMouse
    IF Future.MouseX% > 5 AND Future.MouseX% < 29 AND Future.MouseY% > Lx - 47 AND Future.MouseY% < Lx - 23 AND Future.MouseB% = 0 THEN
        Future.Print 5, Lx - 18, "Amministra il sistema", RGB2Color&(255, 255, 255), -1
    ELSEIF Future.MouseX% > 5 AND Future.MouseX% < 29 AND Future.MouseY% > Lx - 47 AND Future.MouseY% < Lx - 23 AND Future.MouseB% = 1 THEN
        Future.MouseOff
        Future.FillBox 33, Lx - 49, Rx - 2, Lx - 21, RGB2Color&(0, 52, 92)
        Future.Box 32, Lx - 50, Rx - 1, Lx - 20, RGB2Color&(0, 128, 192)
        Future.LoadBMP "\hawk\skin\" + skin$ + "\update.bmp", 37, Lx - 47
        Future.LoadBMP "\hawk\skin\" + skin$ + "\esci.bmp", 65, Lx - 47
        Future.MouseOn
        DO
            Future.UpdateMouse
            IF Future.MouseX% > 37 AND Future.MouseX% < 61 AND Future.MouseL% > Lx - 47 AND Future.MouseY% < Lx - 23 AND Future.MouseB% = 0 THEN
                Future.Print 5, Lx - 18, "Visualizza info aggiornamenti", RGB2Color&(255, 255, 255), -1
            ELSEIF Future.MouseX% > 37 AND Future.MouseX% < 61 AND Future.MouseL% > Lx - 47 AND Future.MouseY% < Lx - 23 AND Future.MouseB% = 1 THEN
                END
            ELSEIF Future.MouseX% > 65 AND Future.MouseX% < 89 AND Future.MouseL% > Lx - 47 AND Future.MouseY% < Lx - 23 AND Future.MouseB% = 0 THEN
                Future.Print 5, Lx - 18, "Esci da Hawk", RGB2Color&(255, 255, 255), -1
            ELSEIF Future.MouseX% > 65 AND Future.MouseX% < 89 AND Future.MouseL% > Lx - 47 AND Future.MouseY% < Lx - 23 AND Future.MouseB% = 1 THEN
                END
            END IF
        LOOP WHILE INKEY$=""
    END IF
   Â
LOOP WHILE INKEY$ = ""
Sessione = FALSE
Future.MouseOff
WEND
in the second DO...LOOP, the "if...then...elseif" don't work!!! Why?