QB64 Game (PokeBattleX)

DIM x AS INTEGER
DIM y AS INTEGER
x = 370
y = 550
SCREEN _NEWIMAGE(800, 600, 32)
CLS
PRINT "Loading files"
PRINT "1"
bg1& = _LOADIMAGE("game/assests/bg/1.png")
PRINT 2
bg2& = _LOADIMAGE("game/assests/bg/t1.png")
PRINT 3
bg3& = _LOADIMAGE("game/assests/bg/t2.png")
PRINT 4
bg4& = _LOADIMAGE("game/assests/bg/t3.png")
PRINT 5
text1& = _LOADIMAGE("game/assests/text/1.png")
PRINT 6
text2& = _LOADIMAGE("game/assests/text/2.png")
PRINT 7
PRINT "Done"
main:
_PUTIMAGE , text2&
SLEEP
CLS
DO
    DO WHILE _MOUSEINPUT
        LOCATE 1, 1
        PRINT _MOUSEX, _MOUSEY
        LOCATE 20, 15
        PRINT "PokeBattleX"
        _PUTIMAGE (561, 52), bg2&
        _PUTIMAGE (561, 180), bg3&
        _PUTIMAGE (561, 308), bg4&

        FOR xs1% = 560 TO 798
            FOR ys1% = 48 TO 142
                IF _MOUSEX = xs1% AND _MOUSEY = ys1% AND _MOUSEBUTTON(1) = -1 THEN GOTO game
            NEXT ys1%
        NEXT xs1%

    LOOP
LOOP

co:
CLS
PRINT _MOUSEX, _MOUSEY
SLEEP
GOTO main

game:
bg1& = _LOADIMAGE("game/assests/bg/1.png")
OPEN "game/assests/files/speed.txt" FOR INPUT AS #1
INPUT #1, speed
CLOSE #1
char& = _LOADIMAGE("game/assests/char/2.jpg")
CLS
DO
    _PUTIMAGE , bg1&
    _PUTIMAGE (x, y), char&
    keypress$ = UCASE$(INKEY$)

    IF keypress$ = "W" THEN
        CLS
        char& = _LOADIMAGE("game/assests/char/2.jpg")
        y = y - speed
    ELSEIF keypress$ = "S" THEN
        CLS
        char& = _LOADIMAGE("game/assests/char/1.jpg")
        y = y + speed
    ELSEIF keypress$ = "A" THEN
        CLS
        char& = _LOADIMAGE("game/assests/char/3.jpg")
        x = x - speed
    ELSEIF keypress$ = "D" THEN
        CLS
        char& = _LOADIMAGE("game/assests/char/4.jpg")
        x = x + speed
    ELSEIF keypress$ = "C" THEN
        GOTO co2
    ELSEIF keypress$ = "M" THEN
        GOTO menu
    END IF

    FOR xs2% = 220 TO 510
        FOR ys2% = 110 TO 380
            IF x = xs2% AND y = ys2% THEN GOTO rg
        NEXT ys2%
    NEXT xs2%

LOOP

co2:
CLS
LOCATE 1, 1
PRINT x; y
SLEEP
GOTO game

rg:
CLS
PRINT "FIGHT WITH WHICH BOT?"
PRINT
PRINT "1) Easy Bot"
PRINT "2) Medium Bot"
PRINT "3) Hard Bot"
PRINT
INPUT "Which"; ch
IF ch = 1 THEN GOTO eb
IF ch = 2 THEN GOTO mb
IF ch = 3 THEN GOTO hb
menu:
SCREEN 12
COLOR , 3
CLS

DO
    DO WHILE _MOUSEINPUT
        keypress$ = UCASE$(INKEY$)
        LOCATE 1, 1
        PRINT _MOUSEX; _MOUSEY
        LINE (232, 210)-(377, 250), , B
        LOCATE 15, 35
        PRINT "Team"
        LOCATE 28, 1
        PRINT "Press 'X' to go back"
        IF keypress$ = "X" THEN
            GOTO game
        END IF
        FOR xs3% = 232 TO 377
            FOR ys3% = 210 TO 250
                IF _MOUSEX = xs3% AND _MOUSEY = ys3% AND _MOUSEBUTTON(1) = -1 THEN GOTO team
            NEXT ys3%
        NEXT xs3%
    LOOP
LOOP

team:
CLS
PRINT "Pokemon Available in the beta"
PRINT "1) Pikachu 2) Charmander 3) Squirtle"
PRINT "4) Bulbasaur 5) Charmeleon 6) Wartortle"
PRINT "7) Ivysaur 8) Charizard 9) Blastoise"
PRINT "10) Venusaur 11) Raichu"
PRINT
INPUT "Enter the number of your 1st Pokemon: "; p1
INPUT "Enter the number of your 2nd Pokemon: "; p2
INPUT "Enter the number of your 3rd Pokemon: "; p3
PRINT
PRINT "Saving your data......."
OPEN "game/assests/files/team.txt" FOR OUTPUT AS #4
PRINT #4, p1
PRINT #4, p2
PRINT #4, p3
CLOSE #4
PRINT "Done.."
CLS
PRINT "Moves available in the beta:"
PRINT "1) Acrobatics Damage: 20"
PRINT "2) Air Slash Damage: 35"
PRINT "3) Blaze Kick Damage: 50"
PRINT "4) Brave  Bird Damage: 55"
PRINT "5) Cut Damage: 60"
PRINT "6) Dig Damage: 70"
PRINT "7) 100,000 Volt Thunder Bolt Damage: 200"
PRINT "8) Inferno Overdrive Damage: 200"
PRINT "9) Bloom Doom Damage: 200"
PRINT "10) Hydro Vortex Damage: 200"
PRINT
PRINT "1st Pokemon Moves: "
PRINT
INPUT "Move no. 1"; m1
INPUT "Move no. 2"; m2
INPUT "Move no. 3"; m3
INPUT "Move no. 4"; m4
CLS
PRINT "1) Acrobatics Damage: 20"
PRINT "2) Air Slash Damage: 35"
PRINT "3) Blaze Kick Damage: 50"
PRINT "4) Brave  Bird Damage: 55"
PRINT "5) Cut Damage: 60"
PRINT "6) Dig Damage: 70"
PRINT "7) 100,000 Volt Thunder Bolt Damage: 200"
PRINT "8) Inferno Overdrive Damage: 200"
PRINT "9) Bloom Doom Damage: 200"
PRINT "10) Hydro Vortex Damage: 200"
PRINT
PRINT "2nd Pokemon Moves: "
PRINT
INPUT "Move no. 1"; m21
INPUT "Move no. 2"; m22
INPUT "Move no. 3"; m23
INPUT "Move no. 4"; m24
CLS
PRINT "1) Acrobatics Damage: 20"
PRINT "2) Air Slash Damage: 35"
PRINT "3) Blaze Kick Damage: 50"
PRINT "4) Brave  Bird Damage: 55"
PRINT "5) Cut Damage: 60"
PRINT "6) Dig Damage: 70"
PRINT "7) 100,000 Volt Thunder Bolt Damage: 200"
PRINT "8) Inferno Overdrive Damage: 200"
PRINT "9) Bloom Doom Damage: 200"
PRINT "10) Hydro Vortex Damage: 200"
PRINT
PRINT "3rd Pokemon Moves: "
PRINT
INPUT "Move no. 1"; m31
INPUT "Move no. 2"; m32
INPUT "Move no. 3"; m33
INPUT "Move no. 4"; m34
PRINT
PRINT "Done now saving..."
OPEN "game/assests/files/move1.txt" FOR OUTPUT AS #5
PRINT #5, m1
PRINT #5, m2
PRINT #5, m3
PRINT #5, m4
CLOSE #5
OPEN "game/assests/files/move2.txt" FOR OUTPUT AS #6
PRINT #6, m21
PRINT #6, m22
PRINT #6, m23
PRINT #6, m24
CLOSE #6
OPEN "game/assests/files/move3.txt" FOR OUTPUT AS #7
PRINT #7, m31
PRINT #7, m32
PRINT #7, m33
PRINT #7, m34
CLOSE #7
PRINT "DONE SAVING..."
PRINT "Mounting to game"
SLEEP 4
RUN

eb:
CLS
PRINT "Loading your pokemon"
OPEN "game/assests/files/team.txt" FOR BINARY AS #9
IF LOF(9) = 0 THEN
    PRINT "You have not selected any pokemon to fight with. Press any key to go back and click on 'M' then click team and arrange your pokemon"
ELSE
    OPEN "game/assests/files/team.txt" FOR INPUT AS #10
    INPUT #10, p1
    INPUT #10, p2
    INPUT #10, p3
    CLOSE #10
    GOTO main1
    CLOSE #9

    main1:
    IF p1 = 1 THEN
        p1$ = "Pikachu"
    ELSEIF p1 = 2 THEN
        p1$ = "Charmander"
    ELSEIF p1 = 3 THEN
        p1$ = "Squirtle"
    ELSEIF p1 = 4 THEN
        p1$ = "Bulbasaur"
    ELSEIF p1 = 5 THEN
        p1$ = "Charmeleon"
    ELSEIF p1 = 6 THEN
        p1$ = "Wartortle"
    ELSEIF p1 = 7 THEN
        p1$ = "Ivysaur"
    ELSEIF p1 = 8 THEN
        p1$ = "Charizard"
    ELSEIF p1 = 9 THEN
        p1$ = "Blastoise"
    ELSEIF p1 = 10 THEN
        p1$ = "Venusaur"
    ELSEIF p1 = 11 THEN
        p1$ = "Raichu"

    END IF
END IF
mb:
main2:
hb:
main3: