RPG

'Prithak Adhikari
'Saugat Adhikari
'---------------------------
'A Project From
'2/16/2019
'To
'-
'---------------------------
'This project was created for
'us to collaborate with a game
'that we dreamt to made for
'some time!
SCREEN _NEWIMAGE(800, 600, 32)
DIM idle&(15)
DIM walk&(15)
DIM jump&(15)
DIM bush&(4)
DIM bg AS LONG
obsx = 700
obsy = 500
fps = 30
PRINT "LOADING..."
PRINT "Made by Prithak Games!"
bg = _LOADIMAGE("rpg/tileset/BG/BG.png")
y = 500
ic = 1
FOR i = 1 TO 15
    idle&(i) = _LOADIMAGE("rpg/char/Idle (" + LTRIM$(STR$(i)) + ").png")
NEXT i
FOR i = 1 TO 15
    walk&(i) = _LOADIMAGE("rpg/char/Walk (" + LTRIM$(STR$(i)) + ").png")
NEXT i
FOR i = 1 TO 15
    jump&(i) = _LOADIMAGE("rpg/char/Jump (" + LTRIM$(STR$(i)) + ").png")
NEXT i
FOR i = 1 TO 4
    bush&(i) = _LOADIMAGE("rpg/tileset/Object/Bush (" + LTRIM$(STR$(i)) + ").png")
NEXT i
i = 0
type$ = "Idle"
bgx = 0
bgy = 0
bgx2 = 800
bgy2 = 600

t = 0
direction = 1
base_y = y - 100
y = base_y
jump = 0
jump_i = 0
DO
    CLS
    k$ = UCASE$(INKEY$)
    IF x >= 0 THEN
        _PUTIMAGE (bgx - (x) MOD 800, 0)-STEP(800, 600), bg
        _PUTIMAGE (bgx - (x) MOD 800 + 800, 0)-STEP(800, 600), bg
    ELSE
        _PUTIMAGE (bgx + ABS(x) MOD 800, 0)-STEP(800, 600), bg
        _PUTIMAGE (bgx + ABS(x) MOD 800 - 800, 0)-STEP(800, 600), bg
    END IF

    t = t + 1
    IF _KEYDOWN(19200) THEN
        x = x - 10
        obsx = obsx + 10
        IF direction = 1 THEN direction = direction * -1
    END IF
    IF _KEYDOWN(19712) THEN
        x = x + 10
        obsx = obsx - 10
        IF direction = -1 THEN direction = direction * -1
    END IF
    IF _KEYDOWN(18432) AND jump = 0 THEN
        'start jump sequence
        jump_i = 5
        jump = 1
    END IF


    IF jump THEN
        IF jump_i > 0 THEN
            jump_i = jump_i - 1
            y = y - 50
        ELSE
            y = y + vy
            vy = vy + 0.8
        END IF

        IF y >= base_y THEN
            y = base_y
            vy = 0
            jump = 0
        END IF

        IF direction = 1 THEN
            _PUTIMAGE (350, y - 30)-(350 + direction * 200, y + 200), jump&(7)
        ELSEIF direction = -1 THEN
            _PUTIMAGE (350 + 100, y - 15)-(350 + 100 + direction * 200, y + 200), jump&(7)
        END IF
    ELSE
        IF _KEYDOWN(19200) OR _KEYDOWN(19712) THEN
            IF direction = 1 THEN
                _PUTIMAGE (350, y)-(350 + direction * 200, y + 200), walk&(t MOD 15 + 1)
            ELSEIF direction = -1 THEN
                _PUTIMAGE (350 + 100, y)-(350 + 100 + direction * 200, y + 200), walk&(t MOD 15 + 1)
            END IF
        ELSE
            IF direction = 1 THEN
                _PUTIMAGE (350, y)-(350 + direction * 200, y + 200), idle&(t MOD 15 + 1)
            ELSEIF direction = -1 THEN
                _PUTIMAGE (350 + 100, y)-(350 + 100 + direction * 200, y + 200), idle&(t MOD 15 + 1)
            END IF
        END IF
    END IF

    _PUTIMAGE (obsx, obsy)-(obsx + 100, obsy + 100), bush&(1)

    IF detect(x, y, obsx, obsy, obsx + 100, obsy + 100) THEN
        dead x, y
    END IF
    _LIMIT fps

    _DISPLAY
LOOP UNTIL _KEYHIT = 27

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 dead (x, y)
    FOR i = 1 TO 15
        die&(i) = _LOADIMAGE("rpg/char/dead (" + LTRIM$(STR$(i)) + ").png")
    NEXT i
    FOR i = 1 TO 15
        _PUTIMAGE (x, y), die&(i)
    NEXT i
END SUB