QB64 Code

_TITLE "Pokemon Hellflame - Fanmade - Prithak"
SCREEN _NEWIMAGE(800, 600, 32)
DIM totalpkmn$(14)
DIM curpkmn$(6)
DIM types$(14)
talktomom$ = "false"
talktogary$ = "false"
IF _FILEEXISTS("pkmn.txt") THEN
    OPEN "pkmn.txt" FOR INPUT AS #1
    FOR i = 1 TO 14
        INPUT #1, totalpkmn$(i)
        INPUT #1, types$(i)
    NEXT i
    CLOSE #1
END IF
IF _FILEEXISTS("limit.txt") THEN
    OPEN "limit.txt" FOR INPUT AS #1
    INPUT #1, limit
    CLOSE #1
ELSE
    OPEN "limit.txt" FOR OUTPUT AS #1
    PRINT #1, "30"
    CLOSE #1
    limit = 30
END IF
x = 540
y = 360
text limit, 1, 1, "ZZZZ....."
SLEEP
text limit, 2, 1, "ZZZZZZZ.......'"
SLEEP
text limit, 3, 1, "*Ugh* It's morning already?"
SLEEP
CLS
home1
makechar x, y
COLOR , _RGB32(100, 200, 255)
LINE (0, 0)-(800, 50), _RGB32(100, 200, 255), BF
text limit, 1, 1, "Oh yeah! Today is the day I get my starter Pokemon!"
SLEEP
text limit, 2, 1, "I gotta get to the professor's lab soon!"
SLEEP
text limit, 3, 1, "Gotta say that to mom as well..."
SLEEP
COLOR , _RGB32(0, 0, 0)
homes1:
CLS s
DO

    home1

    k$ = UCASE$(INKEY$)

    IF k$ = "W" THEN y = y - 10
    IF k$ = "S" THEN y = y + 10
    IF k$ = "A" THEN x = x - 10
    IF k$ = "D" THEN x = x + 10

    block x, y, 100, 100, 300, 200
    block x, y, (10 + 790) / 2, 10, (10 + 790) / 2, 300
    block x, y, (10 + 790) / 2, 400, (10 + 790) / 2, 790


    IF detect(x, y, 100, 540, 140, 580) AND talktomom$ = "false" THEN
        textbar limit, 1, 1, "You should probably talk to your mom first..."

        _DISPLAY
        SLEEP
        y = y - 20
    ELSEIF detect(x, y, 100, 540, 140, 580) AND talktomom$ = "true" THEN
        x = 120
        y = 200
        GOTO r1
    END IF

    makechar x, y
    IF detect(x, y, 320 - 100, 150 - 100, 320 + 100, 150 + 100) THEN
        _PRINTSTRING (0, 500), "Press 'E' to interact!"
    END IF
    IF detect(x, y, 320 - 100, 150 - 100, 320 + 100, 150 + 100) AND k$ = "E" THEN
        textbar limit, 1, 1, "MOM: I'm so glad you are going to be a pokemon trainer now! People do grow fast!"
        SLEEP
        talktomom$ = "true"
    END IF

    LOCATE 1, 1: PRINT x; y
    COLOR , _RGB32(0, 0, 0)
    _DISPLAY
    CLS
LOOP


r1:
CLS
_AUTODISPLAY
IF talktogary$ = "false" THEN
    road1
    makechar x, y
    makechar2 x, y + 40, 50, 60, 40
    SLEEP 1
    textbar limit, 1, 1, "GARY: Oh! " + name$ + " can you come to my home for a bit? I've got something to give ya"
    SLEEP
    textbar limit, 1, 1, "Oh, OK!"
    SLEEP
    COLOR , _RGB32(0, 0, 0)
    FOR i = y + 40 TO y + 50 STEP 20
        road1
        makechar x, y
        makechar2 x, i, 50, 60, 40
        _DISPLAY
        _LIMIT 10
        CLS
    NEXT
    FOR j = x TO x + 450 STEP 20
        road1
        makechar x, y
        makechar2 j, i, 50, 60, 40
        _DISPLAY
        _LIMIT 10
        CLS
    NEXT j
    FOR i = y + 50 TO y - 20 STEP -20
        road1
        makechar x, y
        makechar2 j, i, 50, 60, 40
        _DISPLAY
        _LIMIT 10
        CLS
    NEXT i
END IF
talktogary$ = "true"
DO

    road1
    move x, y

    makechar x, y
    IF detect(x, y, 100, 100, 180, 180) THEN
        x = 120
        y = 520
        GOTO homes1
    END IF

    IF x > 380 AND y <= 580 AND y >= 400 THEN
        x = 380
    END IF


    LOCATE 1, 1: PRINT x; y
    _DISPLAY
    CLS
LOOP
road1

SUB home1 ()
    LINE (100, 100)-(300, 200), _RGB32(100, 200, 255), BF
    LINE (100, 100)-(300, 200), _RGB32(255, 255, 255), B
    makechar2 320, 150, 68, 68, 68

    LINE ((10 + 790) / 2, 10)-((10 + 790) / 2, 300), _RGB32(100, 200, 255)
    LINE ((10 + 790) / 2, 400)-((10 + 790) / 2, 590), _RGB32(100, 200, 255)

    LINE (490, 350)-(600, 550), _RGB32(100, 200, 255), BF
    LINE (490, 350)-(600, 550), _RGB32(255, 255, 255), B

    LINE (100, 590)-(100, 550), _RGB32(100, 200, 255)
    LINE (150, 590)-(150, 550), _RGB32(100, 200, 255)
END SUB

SUB crosspath ()
    LINE (350, 0)-(450, 600), _RGB32(100, 200, 255), BF
    LINE (0, 250)-(800, 350), _RGB32(100, 200, 255), BF
END SUB

SUB road1 ()
    crosspath
    LINE (100, 100)-(200, 200), _RGB32(255, 200, 100), BF
    LINE (100, 100)-(200, 200), _RGB32(255, 255, 255), B

    LINE (540, 100)-(660, 200), _RGB32(67, 67, 67), BF
    LINE (540, 100)-(660, 200), _RGB32(255, 255, 255), B

    LINE (60, 460)-(320, 580), _RGB32(120, 49, 50), BF
    LINE (60, 460)-(320, 580), _RGB32(255, 255, 255), B


END SUB

SUB makechar (x, y)
    CIRCLE (x, y), 10, _RGB32(255, 255, 255)
END SUB

FUNCTION detect (x, y, x1, y1, x2, y2)
    IF x >= x1 AND x <= x2 AND y >= y1 AND y <= y2 THEN
        detect = -1
    END IF
END FUNCTION

SUB text (limit, x, y, a$)
    FOR i = 1 TO LEN(a$)
        LOCATE x, y: PRINT LEFT$(a$, i)
        _LIMIT limit
    NEXT i
END SUB

SUB makechar2 (x, y, r, g, b)
    CIRCLE (x, y), 10, _RGB32(r, g, b)
END SUB

SUB textbar (limit, x, y, a$)
    LINE (0, 0)-(800, 50), _RGB32(100, 200, 255), BF
    COLOR , _RGB32(100, 200, 255)
    FOR i = 1 TO LEN(a$)
        LOCATE x, y: PRINT LEFT$(a$, i)
        _LIMIT limit
        _DISPLAY
    NEXT i
END SUB

SUB move (x, y)
    k$ = UCASE$(INKEY$)

    IF k$ = "W" THEN y = y - 10
    IF k$ = "S" THEN y = y + 10
    IF k$ = "A" THEN x = x - 10
    IF k$ = "D" THEN x = x + 10
END SUB

SUB block (x, y, x1, y1, x2, y2)
    IF detect(x, y, x1, y1, x2, y1) THEN y = y - 10
    IF detect(x, y, x1, y2, x2, y2) THEN y = y + 10
    IF detect(x, y, x1, y1, x1, y2) THEN x = x - 10
    IF detect(x, y, x2, y1, x2, y2) THEN x = x + 10
END SUB