'SAVE
REM STATS
GLOBAL ACCSTATIS

REM MAKE VARIBLES LOAD ON START
ACCSTATIS = PEEK($E000)

' IF YOU WANT IT TO UPDATE AUTOMATICLY
ON VBL CALL SVAR


'IF YOU WANT TO SAVE THE CURRENT STATE NORMALY
'CALL SVAR


ACCSTATIS=ACCSTATIS
CALL SVAR

' MY_VAR WILL BE 67 EVERY TIME ACROSS THE WHOLE PROGRAM :3


SUB SVAR
POKE $E000, ACCSTATIS
END SUB


'DEFAULTS
'UPDATE IF BE LATEST ALWAYS!



MAIN=1
MINI=0
SNAP=2
MODE=1
TOUCHSCREEN



FONT 0
TEXT 6,4, "LOWCRAFT"
TEXT 6,5, "LAUNCHER V1"
WAIT 80
CLW
TEXT 4,3, "LOWCRAFT"
TEXT 5,4, "LAUNCHER V1"
WAIT 10
CLW
TEXT 2,2, "LOWCRAFT"
TEXT 6,3, "LAUNCHER V1"
WAIT 10
CLW
TEXT 1,1, "LOWCRAFT"
TEXT 7,2, "LAUNCHER V1"
WAIT 10
CLW
TEXT 0,1, "LOWCRAFT"
TEXT 8,1, "LAUNCHER V1"
WAIT 10
CLW
TEXT 0,0, "LOWCRAFT"
TEXT 9,0, "LAUNCHER V1"
WAIT 120
LAUNCHER:
KEYBOARD OFF
FONT 0
BG_COLOR=0
POKE $FF00,BG_COLOR
PAL 0
CLW
TEXT 0,0, "LOWCRAFT"
TEXT 9,0, "LAUNCHER V1"
WAIT 1
IF ACCSTATIS>0 THEN TEXT 0,2, "-BASE----------------"
IF ACCSTATIS>0 THEN TEXT 0,8, "-     ----------------"
PAL 3
IF ACCSTATIS>0 THEN TEXT 1,8, "ULTRA"
PAL 0
IF ACCSTATIS>0 THEN TEXT 5,10, "NO UPDATES"
IF ACCSTATIS=2 THEN TEXT 3,4, "CHOOSE VERSION"

IF ACCSTATIS=2 THEN
   TEXT 3,5, "V"+STR$(MAIN)+"."+STR$(MINI)+"."+STR$(SNAP)+""
   END IF
   
IF ACCSTATIS=0 THEN TEXT 0,7, "NO ACCOUNT, SIGNUP"
IF ACCSTATIS=1 THEN TEXT 6,7, "BUY GAME"
IF ACCSTATIS=2 THEN TEXT 6,7, "PLAY NOW"
DO
  IF TAP THEN
    CY=TOUCH.Y\8
    IF CY>=2 AND CY<=11 THEN
      IF ACCSTATIS=2 AND CY=4 THEN GOTO CHOOSEGAMEVERSION
      IF ACCSTATIS=0 AND CY=7 THEN GOTO SIGNUP
      IF ACCSTATIS=1 AND CY=7 THEN GOTO BUYGAME
      IF ACCSTATIS=2 AND CY=7 THEN
        IF MAIN=1 AND MINI=0 THEN 
         IF SNAP=0 THEN GOTO LAUNCHV100
        END IF
        IF MAIN=1 AND MINI=0 THEN
         IF SNAP=1 THEN GOTO LAUNCHV101
        END IF
        IF MAIN=1 AND MINI=0 THEN
         IF SNAP=12 THEN GOTO LAUNCHV1012
        END IF
        IF MAIN=1 AND MINI=0 THEN
         IF SNAP=2 THEN GOTO LAUNCHV102
        END IF
      END IF
    END IF
  END IF
  WAIT VBL
LOOP


CHOOSEGAMEVERSION:
FONT 0
WAIT 1
CLW
TEXT 6,0, "VERSIONS"
TEXT 0,1, "--------------------"
TEXT 1,2, "V 1.0.0   (3/7/26)  "
TEXT 1,3, "?ABOUT"
TEXT 0,4, "--------------------"
TEXT 1,5, "V 1.0.1  (3/31/26)  "
TEXT 1,6, "?ABOUT"
TEXT 0,7, "--------------------"
TEXT 1,8, "V 1.0.12 (4/18/26)  "
TEXT 1,9, "?ABOUT"
TEXT 0,10, "--------------------"
TEXT 1,11, "V 1.0.2 (5/12/26)  "
TEXT 1,12, "?ABOUT"
TEXT 0,13, "--------------------"



DO
  IF TAP THEN
    CY=TOUCH.Y\8
    CX=TOUCH.X\8
    IF CY>=1 AND CY<=100 THEN
      IF CX>=0 AND CX<=16 THEN
        IF CY=2 AND 1<CX<13 THEN
        MAIN=1
        MINI=0
        SNAP=0
        CLW
        PAL 0
        TEXT 5,7, "LOADING..."
        WAIT 10
        GOTO LAUNCHER
        END IF
        
      IF CY=5 AND 1<CX<13 THEN
        MAIN=1
        MINI=0
        SNAP=1
        CLW
        PAL 0
        TEXT 5,7, "LOADING..."
        WAIT 10
        GOTO LAUNCHER
        END IF
        
       IF CY=8 AND 1<CX<13 THEN
        MAIN=1
        MINI=0
        SNAP=12
        CLW
        PAL 0
        TEXT 5,7, "LOADING..."
        WAIT 10
        GOTO LAUNCHER
        END IF
        
        IF CY=11 AND 1<CX<13 THEN
        MAIN=1
        MINI=0
        SNAP=2
        CLW
        PAL 0
        TEXT 5,7, "LOADING..."
        WAIT 10
        GOTO LAUNCHER
        END IF
        
         IF CY=3 THEN GOTO ABOUT100
         IF CY=6 THEN GOTO ABOUT101
         IF CY=9 THEN GOTO ABOUT1012
         IF CY=12 THEN GOTO ABOUT102
          END IF                 
      END IF  
    END IF
  
  WAIT VBL
LOOP


SIGNUP:
FONT 192
CLW
TEXT 0,0, " ENTER EMAIL"
TEXT 0,1, " RE-ENTER EMAIL"
INPUT EMAIL$
INPUT EMAILC$
ACCSTATIS=1+ACCSTATIS
GOTO LAUNCHER


ABOUT100:
FONT 192
PAL 0
CLW
WAIT 1
TEXT 0,0, "<="
TEXT 0,1, "V 1.0.0"
TEXT 0,2, "---------------------"
TEXT 0,3, "ORIGINAL GAME"
TEXT 0,4, "LOOK AROUND"
DO
  IF TAP THEN
    CY=TOUCH.Y\8
    IF CY>=0 AND CY<=11 THEN
      IF CY=0 THEN GOTO CHOOSEGAMEVERSION
    END IF
  END IF
  WAIT VBL
LOOP


ABOUT101:
FONT 192
PAL 0
CLW
WAIT 1
TEXT 0,0, "<="
TEXT 0,1, "V 1.0.1"
TEXT 0,2, "---------------------"
TEXT 0,3, "BUG FIXES"
TEXT 0,4, "GAMEMODE SELECTION"
TEXT 0,6, "@2026"
TEXT 0,7, "LOWCRAFT STUDIOS"
TEXT 0,8, "SOFTWARE CENTER"
DO
  IF TAP THEN
    CY=TOUCH.Y\8
    IF CY>=0 AND CY<=11 THEN
      IF CY=0 THEN GOTO CHOOSEGAMEVERSION
    END IF
  END IF
  WAIT VBL
LOOP


ABOUT1012:
FONT 192
PAL 0
CLW
WAIT 1
TEXT 0,0, "<="
TEXT 0,1, "V 1.0.12"
TEXT 0,2, "---------------------"
TEXT 0,3, "BUG FIXES"
TEXT 0,4, "FIXED GAMEMODE SYMBOL"
TEXT 0,6, "@2026"
TEXT 0,7, "LOWCRAFT STUDIOS"
TEXT 0,8, "SOFTWARE CENTER"
DO
  IF TAP THEN
    CY=TOUCH.Y\8
    IF CY>=0 AND CY<=11 THEN
      IF CY=0 THEN GOTO CHOOSEGAMEVERSION
    END IF
  END IF
  WAIT VBL
LOOP


ABOUT102:
FONT 192
PAL 0
CLW
WAIT 1
TEXT 0,0, "<="
TEXT 0,1, "V 1.0.2"
TEXT 0,2, "---------------------"
TEXT 0,3, "BUG FIXES"
TEXT 0,4, "ABILITY TO CHANGE"
TEXT 0,5, "RENDER DISTANCE"
TEXT 0,7, "@2026"
TEXT 0,8, "LOWCRAFT STUDIOS"
TEXT 0,9, "SOFTWARE CENTER"
DO
  IF TAP THEN
    CY=TOUCH.Y\8
    IF CY>=0 AND CY<=11 THEN
      IF CY=0 THEN GOTO CHOOSEGAMEVERSION
    END IF
  END IF
  WAIT VBL
LOOP

BUYGAME:
CLW
TEXT 0,0, "    -    -    -    "
TEXT 0,1, "16-DIGIT CREDITCARD#"
INPUT CC
ACCSTATIS=2
CLW
TEXT 4,6, "PROCESSING"
WAIT 180
GOTO LAUNCHER
CLW

LAUNCHV100:
CLW
WAIT 120


'-----'MINECRAFT-----


'DEFUALT SETTINGS



FONT 0
TEXT 0,0, "LOWCRAFT"
TEXT 0,1, "STUDIOS"
WAIT 60
TEXT 0,3, "LOADING..."
WAIT 120
PANO:
CLW
TOUCHSCREEN
BG_COLOR=6
POKE $FF00,BG_COLOR
TEXT 6,2, "LOWCRAFT"
TEXT 8,3, "BASE"
TEXT 4,8, "SINGLEPLAYER"
TEXT 4,10, "OPTIONS"
TEXT 4,12, "QUIT GAME"
TEXT 14,15, "V"+STR$(MAIN)+"."+STR$(MINI)+"."+STR$(SNAP)+""
DO
  IF TAP THEN
    CY=TOUCH.Y\8
    IF CY>=2 AND CY<=14 THEN
      IF CY=8 THEN GOTO SINGLEPLAYERWORLDS
      IF CY=10 THEN GOTO OPTIONSMENU
      IF CY=12 THEN
      CLW
      WAIT 120
      GOTO LAUNCHER
      END IF
    END IF
  END IF
  WAIT VBL
LOOP


OPTIONSMENU:
FONT 0
WAIT 1
CLW
TEXT 0,0, "<="
TEXT 3,4, "VIDEO / DISPLAY"
TEXT 7,5, "AUDIO"
TEXT 4,6, "CALIBRATION"
DO
  IF TAP THEN
    CY=TOUCH.Y\8
    IF CY>=0 AND CY<=21 THEN
      IF CY=0 THEN GOTO PANO
      IF CY=4 THEN END
      IF CY=5 THEN END
      IF CY=6 THEN GOTO CALB
    END IF
  END IF
  WAIT VBL
LOOP

CALB:
DO
CX=TOUCH.X\8
CY=TOUCH.Y\8
CLW
FONT 192
TEXT 0,0, "<= CALIBRATION BETA"
PRINT
PRINT TOUCH.X,TOUCH.Y
  IF TAP THEN
    CY=TOUCH.Y\8
    IF CY>=0 AND CY<=21 THEN
      IF CY=0 THEN GOTO OPTIONSMENU
    END IF
  END IF
  WAIT VBL
LOOP



SINGLEPLAYERWORLDS:
CLW
TEXT 7,0, "WORLDS"
TEXT 0,1, "--------------------"
TEXT 1,14, "NEW WORLD"
TEXT 1,15, "CANCEL"
DO
  IF TAP THEN
    CY=TOUCH.Y\8
    IF CY>=2 AND CY<=21 THEN
      IF CY=14 THEN GOTO NEWWORLD
      IF CY=15 THEN GOTO PANO
    END IF
  END IF
  WAIT VBL
LOOP

NEWWORLD:
CLW
WAIT 1
TEXT 6,0, "NEW WORLD"
TEXT 0,1, "--------------------"
TEXT 4,5, "MORE OPTIONS"
TEXT 8,14, "GO!"
TEXT 6,15, "CANCEL"
DO
  IF TAP THEN
    CY=TOUCH.Y\8
    IF CY>=2 AND CY<=21 THEN
      IF CY=5 THEN GOTO MOREOPTIONS
      IF CY=15 THEN GOTO SINGLEPLAYERWORLDS
      IF CY=14 THEN GOTO CREATEWORLDFAIL
    END IF
  END IF
  WAIT VBL
LOOP

CREATEWORLDFAIL:
CLW
IF MINI>=0 AND SNAP>=10 THEN GOTO CREATEWORLD
TEXT 5,6, "GENERATING"
SPRITE 0,56,60,64
SPRITE 0 SIZE 1
SPRITE 0 PAL 0
SPRITE 1,72,60,68
SPRITE 1 SIZE 1
SPRITE 1 PAL 0
SPRITE 2,86,60,72
SPRITE 2 SIZE 1
SPRITE 2 PAL 0
WAIT 10
SPRITE 0,56,60,66
SPRITE 0 SIZE 1
SPRITE 0 PAL 0
SPRITE 1,72,60,70
SPRITE 1 SIZE 1
SPRITE 1 PAL 0
SPRITE 2,86,60,72
SPRITE 2 SIZE 1
SPRITE 2 PAL 0
WAIT 10
SPRITE 0,56,60,66
SPRITE 0 SIZE 1
SPRITE 0 PAL 0
SPRITE 1,72,60,68
SPRITE 1 SIZE 1
SPRITE 1 PAL 0
SPRITE 2,86,60,74
SPRITE 2 SIZE 1
SPRITE 2 PAL 0
WAIT 10
SPRITE 0,56,60,66
SPRITE 0 SIZE 1
SPRITE 0 PAL 0
SPRITE 1,72,60,70
SPRITE 1 SIZE 1
SPRITE 1 PAL 0
SPRITE 2,86,60,72
SPRITE 2 SIZE 1
SPRITE 2 PAL 0
WAIT 60
SPRITE OFF
FONT 192
CLW
WAIT 10
TEXT 0,0, "ERROR 916"
TEXT 0,1, "--------------------"
TEXT 0,2, "COULD NOT CREATE"
TEXT 0,3, "WORLD FOR THIS"
TEXT 0,4, "UPDATE"
TEXT 0,6, "EMAIL HERE:"
TEXT 0,7, "NOOBTOPROGMGMAIL.COM"
TEXT 0,9, "--------------------"
FONT 0
TEXT 1,10, "@2026" 
FONT 192
TEXT 1,11, "LOWCRAFT STUDIOS"
TEXT 1,12, "SOFTWARE CENTER"
TEXT 1,13, "ALL RIGHTS RESERVED"
TEXT 6,15, "V "+STR$(MAIN)+"."+STR$(MINI)+"."+STR$(SNAP)+""
END


CREATEWORLD:
CLW
END


MOREOPTIONS:
CLW
TEXT 2,2, "RESOURCE PACKS"
TEXT 2,3, "BEHAVIOR PACKS"
TEXT 2,15, "DONE"
DO
  IF TAP THEN
    CY=TOUCH.Y\8
    IF CY>=2 AND CY<=21 THEN
      IF CY=2 THEN GOTO RP
      IF CY=3 THEN GOTO BP
      IF CY=15 THEN GOTO NEWWORLD
    END IF
  END IF
  WAIT VBL
LOOP


RP:
CLW
TEXT 2,0, "RESOURCE PACKS"
TEXT 4,5, "NONE AVALIBLE"
WAIT 120
GOTO MOREOPTIONS

BP:
CLW
TEXT 2,0, "BEHAVIOR PACKS"
TEXT 4,5, "NONE AVALIBLE"
WAIT 120
GOTO MOREOPTIONS



MANAGEWORLDS:
CLW

LAUNCHV101:
CLW
WAIT 120


'-----'MINECRAFT-----


'DEFUALT SETTINGS



FONT 0
TEXT 0,0, "LOWCRAFT"
TEXT 0,1, "STUDIOS"
WAIT 60
TEXT 0,3, "LOADING..."
WAIT 120
PANO1:
CLW
TOUCHSCREEN
BG_COLOR=6
POKE $FF00,BG_COLOR
TEXT 6,2, "LOWCRAFT"
TEXT 8,3, "BASE"
TEXT 4,8, "SINGLEPLAYER"
TEXT 4,10, "OPTIONS"
TEXT 4,12, "QUIT GAME"
TEXT 14,15, "V"+STR$(MAIN)+"."+STR$(MINI)+"."+STR$(SNAP)+""
DO
  IF TAP THEN
    CY=TOUCH.Y\8
    IF CY>=2 AND CY<=14 THEN
      IF CY=8 THEN GOTO SINGLEPLAYERWORLDS1
      IF CY=10 THEN GOTO OPTIONSMENU1
      IF CY=12 THEN
      CLW
      WAIT 120
      GOTO LAUNCHER
      END IF
    END IF
  END IF
  WAIT VBL
LOOP


OPTIONSMENU1:
FONT 0
WAIT 1
CLW
TEXT 0,0, "<="
TEXT 3,4, "VIDEO / DISPLAY"
TEXT 7,5, "AUDIO"
TEXT 4,6, "CALIBRATION"
DO
  IF TAP THEN
    CY=TOUCH.Y\8
    IF CY>=0 AND CY<=21 THEN
      IF CY=0 THEN GOTO PANO1
      IF CY=4 THEN END
      IF CY=5 THEN END
      IF CY=6 THEN GOTO CALB
    END IF
  END IF
  WAIT VBL
LOOP






SINGLEPLAYERWORLDS1:
CLW
TEXT 7,0, "WORLDS"
TEXT 0,1, "--------------------"
TEXT 1,14, "NEW WORLD"
TEXT 1,15, "CANCEL"
DO
  IF TAP THEN
    CY=TOUCH.Y\8
    IF CY>=2 AND CY<=21 THEN
      IF CY=14 THEN GOTO NEWWORLD1
      IF CY=15 THEN GOTO PANO1
    END IF
  END IF
  WAIT VBL
LOOP

NEWWORLD1:
MODE=1

SCH:
CLW

DO
WAIT 1

TEXT 6,0, "NEW WORLD"
TEXT 0,1, "--------------------"
IF MODE=1 THEN TEXT 6,3, "SURVIVAL"
IF MODE=1 THEN
SPRITE 3,40,24,78
SPRITE 3 SIZE 0
SPRITE 3 PAL 4
END IF
IF MODE=2 THEN TEXT 6,4, "CREATIVE"
IF MODE=2 THEN
SPRITE 3,40,32,77
SPRITE 3 SIZE 0
SPRITE 3 PAL 5
END IF
IF MODE=3 THEN TEXT 6,5, "HARDCORE"
IF MODE=3 THEN
SPRITE 3,40,40,76
SPRITE 3 SIZE 0
SPRITE 3 PAL 4
END IF
TEXT 4,8, "MORE OPTIONS"
TEXT 8,14, "GO!"
TEXT 6,15, "CANCEL"

  IF TAP THEN
  CLW
    CY=TOUCH.Y\8
    IF CY>=2 AND CY<=21 THEN
      IF MODE=1 AND CY=3 THEN MODE=1+MODE
      IF MODE=2 AND CY=4 THEN MODE=1+MODE
      IF MODE=3 AND CY=5 THEN MODE=1
      IF CY=8 THEN GOTO MOREOPTIONS1
      IF CY=15 THEN GOTO SINGLEPLAYERWORLDS1
      IF CY=14 THEN GOTO CREATEWORLDFAIL1
    END IF
  END IF
  WAIT VBL
LOOP

MOREOPTIONS1:
CLW
TEXT 2,2, "RESOURCE PACKS"
TEXT 2,3, "BEHAVIOR PACKS"
TEXT 2,15, "DONE"
DO
  IF TAP THEN
    CY=TOUCH.Y\8
    IF CY>=2 AND CY<=21 THEN
      IF CY=2 THEN GOTO RP2
      IF CY=3 THEN GOTO BP2
      IF CY=15 THEN GOTO NEWWORLD1
    END IF
  END IF
  WAIT VBL
LOOP


RP1:
CLW
TEXT 2,0, "RESOURCE PACKS"
TEXT 4,5, "NONE AVALIBLE"
WAIT 120
GOTO MOREOPTIONS1

BP1:
CLW
TEXT 2,0, "BEHAVIOR PACKS"
TEXT 4,5, "NONE AVALIBLE"
WAIT 120
GOTO MOREOPTIONS1


MODENEXT1:
IF MODE=1 THEN MODE=1+MODE
IF MODE=2 THEN MODE=1+MODE
IF MODE=3 THEN MODE=1
GOTO SCH

CREATEWORLDFAIL1:
SPRITE OFF
CLW
IF MINI>=0 AND SNAP>=10 THEN GOTO CREATEWORLD
TEXT 5,6, "GENERATING"
SPRITE 0,56,60,64
SPRITE 0 SIZE 1
SPRITE 0 PAL 0
SPRITE 1,72,60,68
SPRITE 1 SIZE 1
SPRITE 1 PAL 0
SPRITE 2,86,60,72
SPRITE 2 SIZE 1
SPRITE 2 PAL 0
WAIT 10
SPRITE 0,56,60,66
SPRITE 0 SIZE 1
SPRITE 0 PAL 0
SPRITE 1,72,60,70
SPRITE 1 SIZE 1
SPRITE 1 PAL 0
SPRITE 2,86,60,72
SPRITE 2 SIZE 1
SPRITE 2 PAL 0
WAIT 10
SPRITE 0,56,60,66
SPRITE 0 SIZE 1
SPRITE 0 PAL 0
SPRITE 1,72,60,68
SPRITE 1 SIZE 1
SPRITE 1 PAL 0
SPRITE 2,86,60,74
SPRITE 2 SIZE 1
SPRITE 2 PAL 0
WAIT 10
SPRITE 0,56,60,66
SPRITE 0 SIZE 1
SPRITE 0 PAL 0
SPRITE 1,72,60,70
SPRITE 1 SIZE 1
SPRITE 1 PAL 0
SPRITE 2,86,60,72
SPRITE 2 SIZE 1
SPRITE 2 PAL 0
WAIT 60
SPRITE OFF
FONT 192
CLW
WAIT 10
TEXT 0,0, "ERROR 916"
TEXT 0,1, "--------------------"
TEXT 0,2, "COULD NOT CREATE"
TEXT 0,3, "WORLD FOR THIS"
TEXT 0,4, "UPDATE"
TEXT 0,6, "EMAIL HERE:"
TEXT 0,7, "NOOBTOPROGMGMAIL.COM"
TEXT 0,9, "--------------------"
FONT 0
TEXT 1,10, "@2026" 
FONT 192
TEXT 1,11, "LOWCRAFT STUDIOS"
TEXT 1,12, "SOFTWARE CENTER"
TEXT 1,13, "ALL RIGHTS RESERVED"
TEXT 6,15, "V "+STR$(MAIN)+"."+STR$(MINI)+"."+STR$(SNAP)+""
END

LAUNCHV1012:
CLW
WAIT 120


'-----'MINECRAFT-----


'DEFUALT SETTINGS



FONT 0
TEXT 0,0, "LOWCRAFT"
TEXT 0,1, "STUDIOS"
WAIT 60
TEXT 0,3, "LOADING..."
WAIT 120
PANO2:
CLW
TOUCHSCREEN
BG_COLOR=6
POKE $FF00,BG_COLOR
TEXT 6,2, "LOWCRAFT"
TEXT 8,3, "BASE"
TEXT 4,8, "SINGLEPLAYER"
TEXT 4,10, "OPTIONS"
TEXT 4,12, "QUIT GAME"
TEXT 14,15, "V"+STR$(MAIN)+"."+STR$(MINI)+"."+STR$(SNAP)+""
DO
  IF TAP THEN
    CY=TOUCH.Y\8
    IF CY>=2 AND CY<=14 THEN
      IF CY=8 THEN GOTO SINGLEPLAYERWORLDS2
      IF CY=10 THEN GOTO OPTIONSMENU2
      IF CY=12 THEN
      CLW
      WAIT 120
      GOTO LAUNCHER
      END IF
    END IF
  END IF
  WAIT VBL
LOOP


OPTIONSMENU2:
FONT 0
WAIT 1
CLW
TEXT 0,0, "<="
TEXT 3,4, "VIDEO / DISPLAY"
TEXT 7,5, "AUDIO"
TEXT 4,6, "CALIBRATION"
DO
  IF TAP THEN
    CY=TOUCH.Y\8
    IF CY>=0 AND CY<=21 THEN
      IF CY=0 THEN GOTO PANO2
      IF CY=4 THEN END
      IF CY=5 THEN END
      IF CY=6 THEN END
    END IF
  END IF
  WAIT VBL
LOOP






SINGLEPLAYERWORLDS2:
SPRITE OFF
CLW
TEXT 7,0, "WORLDS"
TEXT 0,1, "--------------------"
TEXT 1,14, "NEW WORLD"
TEXT 1,15, "CANCEL"
DO
  IF TAP THEN
    CY=TOUCH.Y\8
    IF CY>=2 AND CY<=21 THEN
      IF CY=14 THEN GOTO NEWWORLD2
      IF CY=15 THEN GOTO PANO2
    END IF
  END IF
  WAIT VBL
LOOP

NEWWORLD2:
MODE=1

SCH2:
CLW

DO
WAIT 1

TEXT 6,0, "NEW WORLD"
TEXT 0,1, "--------------------"
IF MODE=1 THEN TEXT 6,3, "SURVIVAL"
IF MODE=1 THEN
SPRITE 3,40,24,78
SPRITE 3 SIZE 0
SPRITE 3 PAL 4
END IF
IF MODE=2 THEN TEXT 6,4, "CREATIVE"
IF MODE=2 THEN
SPRITE 3,40,32,77
SPRITE 3 SIZE 0
SPRITE 3 PAL 5
END IF
IF MODE=3 THEN TEXT 6,5, "HARDCORE"
IF MODE=3 THEN
SPRITE 3,40,40,76
SPRITE 3 SIZE 0
SPRITE 3 PAL 4
END IF
TEXT 4,8, "MORE OPTIONS"
TEXT 8,14, "GO!"
TEXT 6,15, "CANCEL"

  IF TAP THEN
  CLW
    CY=TOUCH.Y\8
    IF CY>=2 AND CY<=21 THEN
      IF MODE=1 AND CY=3 THEN MODE=1+MODE
      IF MODE=2 AND CY=4 THEN MODE=1+MODE
      IF MODE=3 AND CY=5 THEN MODE=1
      IF CY=8 THEN GOTO MOREOPTIONS2
      IF CY=15 THEN GOTO SINGLEPLAYERWORLDS2
      IF CY=14 THEN GOTO CREATEWORLDFAIL2
    END IF
  END IF
  WAIT VBL
LOOP

MOREOPTIONS2:
SPRITE OFF
CLW
TEXT 2,2, "RESOURCE PACKS"
TEXT 2,3, "BEHAVIOR PACKS"
TEXT 2,15, "DONE"
DO
  IF TAP THEN
    CY=TOUCH.Y\8
    IF CY>=2 AND CY<=21 THEN
      IF CY=2 THEN GOTO RP2
      IF CY=3 THEN GOTO BP2
      IF CY=15 THEN GOTO NEWWORLD2
    END IF
  END IF
  WAIT VBL
LOOP


RP2:
CLW
TEXT 2,0, "RESOURCE PACKS"
TEXT 4,5, "NONE AVALIBLE"
WAIT 120
GOTO MOREOPTIONS2

BP2:
CLW
TEXT 2,0, "BEHAVIOR PACKS"
TEXT 4,5, "NONE AVALIBLE"
WAIT 120
GOTO MOREOPTIONS2



LAUNCHV102:
CLW
WAIT 120


'-----'MINECRAFT-----


'DEFUALT SETTINGS



FONT 0
TEXT 0,0, "LOWCRAFT"
TEXT 0,1, "STUDIOS"
WAIT 60
TEXT 0,3, "LOADING..."
WAIT 120
PANO3:
CLW
TOUCHSCREEN
BG_COLOR=6
POKE $FF00,BG_COLOR
TEXT 6,2, "LOWCRAFT"
TEXT 8,3, "BASE"
TEXT 4,8, "SINGLEPLAYER"
TEXT 4,10, "OPTIONS"
TEXT 4,12, "QUIT GAME"
TEXT 14,15, "V"+STR$(MAIN)+"."+STR$(MINI)+"."+STR$(SNAP)+""
DO
  IF TAP THEN
    CY=TOUCH.Y\8
    IF CY>=2 AND CY<=14 THEN
      IF CY=8 THEN GOTO SINGLEPLAYERWORLDS3
      IF CY=10 THEN GOTO OPTIONSMENU3
      IF CY=12 THEN
      CLW
      WAIT 120
      GOTO LAUNCHER
      END IF
    END IF
  END IF
  WAIT VBL
LOOP


OPTIONSMENU3:
FONT 0
WAIT 1
CLW
TEXT 0,0, "<="
TEXT 3,4, "VIDEO / DISPLAY"
TEXT 7,5, "AUDIO"
DO
  IF TAP THEN
    CY=TOUCH.Y\8
    IF CY>=0 AND CY<=21 THEN
      IF CY=0 THEN GOTO PANO3
      IF CY=4 THEN GOTO DISP
      IF CY=5 THEN END
    END IF
  END IF
  WAIT VBL
LOOP


DISP:
REND=2
DO


CLW
TEXT 0,0, "<="
TEXT 0,2, "RENDER DIST  "+STR$(REND)+"  CNKS"
TEXT 0,3, ""
IF TAP THEN
    CY=TOUCH.Y\8
    IF CY>=0 AND CY<=21 THEN
      IF CY=0 THEN GOTO OPTIONSMENU3
      
      IF CY=2 AND REND=2 THEN REND=2+REND
      IF CY=2 AND REND=4 THEN REND=2+REND
      IF CY=2 AND REND=6 THEN REND=2
    
    END IF
  END IF
  WAIT VBL
LOOP



SINGLEPLAYERWORLDS3:
SPRITE OFF
CLW
TEXT 7,0, "WORLDS"
TEXT 0,1, "--------------------"
TEXT 1,14, "NEW WORLD"
TEXT 1,15, "CANCEL"
DO
  IF TAP THEN
    CY=TOUCH.Y\8
    IF CY>=2 AND CY<=21 THEN
      IF CY=14 THEN GOTO NEWWORLD3
      IF CY=15 THEN GOTO PANO3
    END IF
  END IF
  WAIT VBL
LOOP

NEWWORLD3:
MODE=1

SCH3:
CLW

DO
WAIT 1

TEXT 6,0, "NEW WORLD"
TEXT 0,1, "--------------------"
IF MODE=1 THEN TEXT 6,3, "SURVIVAL"
IF MODE=1 THEN
SPRITE 3,40,24,78
SPRITE 3 SIZE 0
SPRITE 3 PAL 4
END IF
IF MODE=2 THEN TEXT 6,4, "CREATIVE"
IF MODE=2 THEN
SPRITE 3,40,32,77
SPRITE 3 SIZE 0
SPRITE 3 PAL 5
END IF
IF MODE=3 THEN TEXT 6,5, "HARDCORE"
IF MODE=3 THEN
SPRITE 3,40,40,76
SPRITE 3 SIZE 0
SPRITE 3 PAL 4
END IF
TEXT 4,8, "MORE OPTIONS"
TEXT 8,14, "GO!"
TEXT 6,15, "CANCEL"

  IF TAP THEN
  CLW
    CY=TOUCH.Y\8
    IF CY>=2 AND CY<=21 THEN
      IF MODE=1 AND CY=3 THEN MODE=1+MODE
      IF MODE=2 AND CY=4 THEN MODE=1+MODE
      IF MODE=3 AND CY=5 THEN MODE=1
      IF CY=8 THEN GOTO MOREOPTIONS3
      IF CY=15 THEN GOTO SINGLEPLAYERWORLDS3
      IF CY=14 THEN GOTO CREATEWORLDFAIL3
    END IF
  END IF
  WAIT VBL
LOOP

MOREOPTIONS3:
SPRITE OFF
CLW
TEXT 2,2, "RESOURCE PACKS"
TEXT 2,3, "BEHAVIOR PACKS"
TEXT 2,15, "DONE"
DO
  IF TAP THEN
    CY=TOUCH.Y\8
    IF CY>=2 AND CY<=21 THEN
      IF CY=2 THEN GOTO RP3
      IF CY=3 THEN GOTO BP3
      IF CY=15 THEN GOTO NEWWORLD3
    END IF
  END IF
  WAIT VBL
LOOP


RP3:
CLW
TEXT 2,0, "RESOURCE PACKS"
TEXT 4,5, "NONE AVALIBLE"
WAIT 120
GOTO MOREOPTIONS3

BP3:
CLW
TEXT 2,0, "BEHAVIOR PACKS"
TEXT 4,5, "NONE AVALIBLE"
WAIT 120
GOTO MOREOPTIONS3



CREATEWORLDFAIL3:
SPRITE OFF
CLW
IF MINI>=0 AND SNAP>=10 THEN GOTO CREATEWORLD
TEXT 5,6, "GENERATING"
SPRITE 0,56,60,64
SPRITE 0 SIZE 1
SPRITE 0 PAL 0
SPRITE 1,72,60,68
SPRITE 1 SIZE 1
SPRITE 1 PAL 0
SPRITE 2,86,60,72
SPRITE 2 SIZE 1
SPRITE 2 PAL 0
WAIT 10
SPRITE 0,56,60,66
SPRITE 0 SIZE 1
SPRITE 0 PAL 0
SPRITE 1,72,60,70
SPRITE 1 SIZE 1
SPRITE 1 PAL 0
SPRITE 2,86,60,72
SPRITE 2 SIZE 1
SPRITE 2 PAL 0
WAIT 10
SPRITE 0,56,60,66
SPRITE 0 SIZE 1
SPRITE 0 PAL 0
SPRITE 1,72,60,68
SPRITE 1 SIZE 1
SPRITE 1 PAL 0
SPRITE 2,86,60,74
SPRITE 2 SIZE 1
SPRITE 2 PAL 0
WAIT 10
SPRITE 0,56,60,66
SPRITE 0 SIZE 1
SPRITE 0 PAL 0
SPRITE 1,72,60,70
SPRITE 1 SIZE 1
SPRITE 1 PAL 0
SPRITE 2,86,60,72
SPRITE 2 SIZE 1
SPRITE 2 PAL 0
WAIT 60
SPRITE OFF
FONT 192
CLW
WAIT 10
TEXT 0,0, "ERROR 916"
TEXT 0,1, "--------------------"
TEXT 0,2, "COULD NOT CREATE"
TEXT 0,3, "WORLD FOR THIS"
TEXT 0,4, "UPDATE"
TEXT 0,6, "EMAIL HERE:"
TEXT 0,7, "NOOBTOPROGMGMAIL.COM"
TEXT 0,9, "--------------------"
FONT 0
TEXT 1,10, "@2026" 
FONT 192
TEXT 1,11, "LOWCRAFT STUDIOS"
TEXT 1,12, "SOFTWARE CENTER"
TEXT 1,13, "ALL RIGHTS RESERVED"
TEXT 6,15, "V "+STR$(MAIN)+"."+STR$(MINI)+"."+STR$(SNAP)+""
END



CREATEWORLDFAIL2:
SPRITE OFF
CLW
IF MINI>=0 AND SNAP>=10 THEN GOTO CREATEWORLD
TEXT 5,6, "GENERATING"
SPRITE 0,56,60,64
SPRITE 0 SIZE 1
SPRITE 0 PAL 0
SPRITE 1,72,60,68
SPRITE 1 SIZE 1
SPRITE 1 PAL 0
SPRITE 2,86,60,72
SPRITE 2 SIZE 1
SPRITE 2 PAL 0
WAIT 10
SPRITE 0,56,60,66
SPRITE 0 SIZE 1
SPRITE 0 PAL 0
SPRITE 1,72,60,70
SPRITE 1 SIZE 1
SPRITE 1 PAL 0
SPRITE 2,86,60,72
SPRITE 2 SIZE 1
SPRITE 2 PAL 0
WAIT 10
SPRITE 0,56,60,66
SPRITE 0 SIZE 1
SPRITE 0 PAL 0
SPRITE 1,72,60,68
SPRITE 1 SIZE 1
SPRITE 1 PAL 0
SPRITE 2,86,60,74
SPRITE 2 SIZE 1
SPRITE 2 PAL 0
WAIT 10
SPRITE 0,56,60,66
SPRITE 0 SIZE 1
SPRITE 0 PAL 0
SPRITE 1,72,60,70
SPRITE 1 SIZE 1
SPRITE 1 PAL 0
SPRITE 2,86,60,72
SPRITE 2 SIZE 1
SPRITE 2 PAL 0
WAIT 60
SPRITE OFF
FONT 192
CLW
WAIT 10
TEXT 0,0, "ERROR 916"
TEXT 0,1, "--------------------"
TEXT 0,2, "COULD NOT CREATE"
TEXT 0,3, "WORLD FOR THIS"
TEXT 0,4, "UPDATE"
TEXT 0,6, "EMAIL HERE:"
TEXT 0,7, "NOOBTOPROGMGMAIL.COM"
TEXT 0,9, "--------------------"
FONT 0
TEXT 1,10, "@2026" 
FONT 192
TEXT 1,11, "LOWCRAFT STUDIOS"
TEXT 1,12, "SOFTWARE CENTER"
TEXT 1,13, "ALL RIGHTS RESERVED"
TEXT 6,15, "V "+STR$(MAIN)+"."+STR$(MINI)+"."+STR$(SNAP)+""
END











#1:MAIN PALETTES
003F2A150038342000030C3000300C03
003020100008240C003F2A15003F2A15

#2:MAIN CHARACTERS
00000000000000000000000000000000
10101010101000100000000000000000
00007800000000007878780000000000
2020FC1024FC40303434823C0C826878
54282048002A54006C7C70781C7E6C10
420004400A280842A6A4ACA81D3D2D65
48102020208058AA78587850F41CD4DE
10100000000000000000100000000000
20004020204000203020606060602030
001004000004100010180C0C0C0C1810
000800002000000000183C1838000000
000000003C0000000000181842181800
00000000001000000000000000001010
00000000180000000000000024000000
00000000000000000000000000001800
04000010080020100C08081818103030
14480406060448142C6C606262606C2C
18281818181818181030301010101010
540E06081420403E6C6A020C1C306042
5020001408042074686C0C0C0C006C6C
040C2C0C2C7E0C0C0C14342464020404
78400014000420544460606C0C006C6C
10004094E0482050286C00ECAC0C6C68
7C0208001008001042060C0818181000
28121228106430283436363436461634
5060486040082450682C0C2C7C0C6C68
20000000002000000000000000000000
20000000002000000000000000002020
00000024302400000000063C503C0600
000000FFFFFF0000000000C0C0C00000
000020040E0420000000603C0A3C6000
0040404020427C0000606060607E7E00
20008000018000203C4299A1A199423C
0000082224046410000034263A36462E
40404872606072686060745646465654
000014000000081400002C6C60606C2C
000020304040302006063E166666163E
000028107C6010280000343642403634
08181818181818181408200808080808
104C00004C1206502E6A66666A2E0A6C
C0C0D0ECC4C0C0C08080A8A48C8C8C8C
18001818181818181000101010101010
18001818181818600800080808080850
000000003000040860606C7840686C6C
18181818181818181010101010101010
00008980C0C0C0C000007F5B5B5B5B5B
000054406060606000002C2C2C2C2C2C
00005000484800500000686C0C0C6C68
68724040726860605456666656544040
104C00004C1000002E6A62626A2E0606
000044746060606000007C5040404040
000054640824205000006C2C783C6C68
20007800000020003030403030303018
0000060606064E1E0000626262626A2A
00002C08440000180000686C6C283808
000002010174180600009BDB5B3E7E62
000020102020402800006C383030686C
2C48041020082070686C2C3838183050
00003C080408107C0000020C0C183042
18101010101010182830303030303028
1020000800100004303010181818080C
10000000000000102818181818181828
082004480000000018382C6C00000000
000000000000007E0000000000000001
00001F1F18191B1B00001F1F1F1E1C1C
0000FFFFFCFEFFFF0000FFFF03010000
00001F1F1818181800001F1F1F1F1F1F
0000FFFF000000000000FFFFFFFFFFFF
0000FFFF000000000000FFFFFFFFFFFF
0000FFFF000000000000FFFFFFFFFFFF
0000FFFF3F7FFFFF0000FFFFC0800000
0000FFFFFCFEFFFF0000FFFF03010000
0000FFFF000000000000FFFFFFFFFFFF
0000F8F8181818180000F8F8F8F8F8F8
0000FFFF3F7FFFFF0000FFFFC0800000
0000F8F81898D8D80000F8F8F8783838
006CFEFE7C3810000000446CAA442810
007E7C180000000000424E7E7E7E7E00
006CFEFEFE7C38100000000000000000
00000000000000000000000000000000
1B1B19181F1F00001C1C1E1F1F1F0000
FFFFFEFCFFFF000000000103FFFF0000
181818181F1F00001F1F1F1F1F1F0000
00000000FFFF0000FFFFFFFFFFFF0000
00000000FFFF0000FFFFFFFFFFFF0000
00000000FFFF0000FFFFFFFFFFFF0000
FFFF7F3FFFFF0000000080C0FFFF0000
FFFFFEFCFFFF000000000103FFFF0000
00000000FFFF0000FFFFFFFFFFFF0000
18181818F8F80000F8F8F8F8F8F80000
FFFF7F3FFFFF0000000080C0FFFF0000
D8D89818F8F80000383878F8F8F80000