Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Prithak

Pages: [1] 2 3 4
1
QB64 Discussion / Re: Blocking stuff D:
« on: April 07, 2020, 11:41:23 am »
Well, that was odd but glad you got that sorted out lol

2
QB64 Discussion / Re: Blocking stuff D:
« on: April 05, 2020, 04:27:29 am »
Quote from: TempodiBasic on April 04, 2020, 11:14:57 am
Hi Prithak

your last post code is very incomplete!

So I add something to become it clearer than now....

but the glitch is logic and not about typing....

This your issue let me remember another in a graphic game engine in which the output of grafic doesn't recognize the position of objects of the scene  in respect with the main character... in that engine issue the engine has not option to distinguish the position of the character towards the object that are able to be pass back.

In your collision engine you haven't thought what it happens to the OldY and OldX variable at the second cycle of loop...
here my code can show you what it happens
Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1280, 720, 32)
  2. _SCREENMOVE 1, 1 ' better show alla the window
  3.  
  4. TYPE vec1
  5.     x AS INTEGER
  6.     y AS INTEGER
  7.     speed AS INTEGER
  9.  
  10. TYPE vec2
  11.     x1 AS INTEGER
  12.     y1 AS INTEGER
  13.     x2 AS INTEGER
  14.     y2 AS INTEGER
  15.     r AS INTEGER
  16.     g AS INTEGER
  17.     b AS INTEGER
  18.     btype AS STRING
  20.  
  21. DIM SHARED player AS vec1
  24. DIM SHARED obstacle(9) AS vec2
  25. DIM SHARED oldx, oldy AS INTEGER
  26.  
  27. player.speed = 5
  28.  
  29. player.x = 100 ' character need a point of start X and Y
  30. player.y = 200
  31.  
  33.  
  34.  
  35. map = "map1.txt"
  36.  
  37. openMap
  38. j = 1
  40.     CLS , _RGB32(0, 255, 61) ' it is better to give a color to background
  41.     makeplayer
  42.     playerMovement
  43.  
  44.     FOR j = 1 TO i 'the loop checks for obstacles
  45.  
  46.         LOCATE 9: PRINT j
  47.         ' here graphic output
  48.         LINE (obstacle(j).x1, obstacle(j).y1)-(obstacle(j).x2, obstacle(j).y2), _RGB32(obstacle(j).r, obstacle(j).g, obstacle(j).b), BF
  49.         ' here it tests for collision between character and obstacles
  50.         block obstacle(j).x1, obstacle(j).y1, obstacle(j).x2, obstacle(j).y2
  51.  
  52.     NEXT j
  53.  
  54.     _DISPLAY
  55.     _LIMIT 20
  56. LOOP UNTIL _KEYHIT = 32 ' you can exit from game with spacebar
  57.  
  58. SUB openMap
  59.     OPEN map FOR INPUT AS #1
  60.     WHILE NOT EOF(1)
  61.         i = i + 1
  62.         INPUT #1, obstacle(i).btype, obstacle(i).x1, obstacle(i).y1, obstacle(i).x2, obstacle(i).y2, obstacle(i).r, obstacle(i).g, obstacle(i).b
  63.     WEND
  64.     CLOSE #1
  65.     PRINT i
  67.  
  68. SUB makeplayer
  69.     CIRCLE (player.x, player.y), 10, _RGB32(100, 200, 255)
  70.     PAINT (player.x, player.y), _RGB32(100, 200, 255), _RGB32(100, 200, 255)
  72.  
  73. SUB playerMovement
  74.     IF _KEYDOWN(18432) THEN player.y = player.y - player.speed
  75.     IF _KEYDOWN(20480) THEN player.y = player.y + player.speed
  76.     IF _KEYDOWN(19200) THEN player.x = player.x - player.speed
  77.     IF _KEYDOWN(19712) THEN player.x = player.x + player.speed
  79.  
  80. SUB block (x1, y1, x2, y2)
  81.  
  82.     IF (player.x + 10 >= x1 AND player.x - 10 <= x2) AND (player.y + 10 >= y1 AND player.y - 10 <= y2) THEN
  83.         ' if player X is in the X range of obstacle AND player Y is in the Y range of obstacle
  84.         ' I restore the old X and Y to player
  85.         player.x = oldx
  86.         player.y = oldy
  87.  
  88.         LOCATE 10
  89.         PRINT "X="; player.x; " Y="; player.y; " x1 "; x1; " x2 "; x2; " y1 "; y1; " y2 "; y2
  90.         PRINT "Oldx = "; oldx; " OldY= "; oldy
  91.  
  92.     ELSE
  93.         ' if player is out of obstacle
  94.         ' I store actual X and Y of player into OLD X and Y
  95.         oldx = player.x
  96.         oldy = player.y
  97.     END IF
  98.  
  100.  

as you can see when you go through the second obstacle using a FOR loop that tests before first obstacle and then the following second obstacle so it changes the value of OldX and OldY and then when it tests the second obstacle it restore the OldX and OldY calculated towards the first obstacle.

So you can imagine how to solve this issue... a STATIC flag into the collision engine? Or and array of OldY and OldY dor each obstacle to use...or whatelse?

THANK YOU! YOU ARE A LIFE SAVER. Like seriously, why didn't I think about that. Now, I am using an array for Oldx and Oldy. So, the blocking mechanism is working PERFECTLY. I had to make some changes tho. Here is the code:
Code: [Select]
screen _newimage(1280,720,32)

type vec1
    x as integer
    y as integer
    speed as integer
end type

type vec2
    x1 as integer
    y1 as integer
    x2 as integer
    y2 as integer
    r as integer
    g as integer
    b as integer
    btype as string
    oldx as integer
    oldy as integer
    wl as string
end type


dim shared player as vec1
dim shared map as string
dim shared obstacle(9) as vec2
player.speed = 5

dim shared i as integer

map = "map1.txt"

player.x = _width / 2
player.y = _height / 2

openMap
j=1
do
    cls

    makeplayer
    playerMovement

    for j = 1 to i
        if obstacle(j).btype = "obs" then
            line (obstacle(j).x1, obstacle(j).y1)-(obstacle(j).x2, obstacle(j).y2),_rgb32(obstacle(j).r,obstacle(j).g,obstacle(j).b),BF
            if player.x + 10 >= obstacle(j).x1 and player.x - 10 <= obstacle(j).x2 and player.y + 10 >= obstacle(j).y1 and player.y - 10 <= obstacle(j).y2 then
                player.x = obstacle(j).oldx
                player.y = obstacle(j).oldy
            else
                obstacle(j).oldx = player.x
                obstacle(j).oldy = player.y
            end if
        elseif obstacle(j).btype = "warp" then
            line (obstacle(j).x1, obstacle(j).y1)-(obstacle(j).x2, obstacle(j).y2),_rgb32(obstacle(j).r,obstacle(j).g,obstacle(j).b),BF
            if collision%(obstacle(j).x1, obstacle(j).y1, obstacle(j).x2, obstacle(j).y2) then
                map = obstacle(i).wl
                openMap
            end if
        end if
    next j

    _display
    _limit 120
loop

sub openMap
    i=0
    open map for input as #1
    while not eof(1)
        i = i + 1
        input #1, obstacle(i).btype, obstacle(i).x1, obstacle(i).y1, obstacle(i).x2, obstacle(i). y2, obstacle(i).r, obstacle(i).g, obstacle(i).b
        if obstacle(i).btype = "warp" then input #1, obstacle(i).wl
    wend
    close #1
end sub

sub makeplayer
    circle (player.x, player.y), 10, _rgb32(100,200,255)
    paint (player.x, player.y), _rgb32(100,200,255), _rgb32(100,200,255)
end sub

sub playerMovement
    if _keydown(18432) then player.y = player.y - player.speed
    if _keydown(20480) then player.y = player.y + player.speed
    if _keydown(19200) then player.x = player.x - player.speed
    if _keydown(19712) then player.x = player.x + player.speed
end sub

function collision%(x1,y1,x2,y2)
    if player.x >= x1 and player.x <= x2 and player.y >= y1 and player.y <= y2 then
        collision% = 1
    end if
end function

Map1.txt
Code: [Select]
obs,600,50,1280,100,100,200,255
obs,0,0,700,50,100,200,255
warp,500,500,550,550,255,200,100,map2.txt

Map2.txt
Code: [Select]
obs, 600,50,1280,100,242,242,242
obs, 500,0,700,50,242,242,242
warp, 100,100,150,150,255,200,100,map1.txt

-Prithak

3
QB64 Discussion / Re: Blocking stuff D:
« on: April 04, 2020, 08:44:29 am »
I FINALLY did things with Array. But, the same problem has arrived to my doorstep D:
Code: [Select]
screen _newimage(1280,720,32)

type vec1
    x as integer
    y as integer
    speed as integer
end type

type vec2
    x1 as integer
    y1 as integer
    x2 as integer
    y2 as integer
    r as integer
    g as integer
    b as integer
    btype as string
end type

dim shared player as vec1
dim shared speed as integer
dim shared map as string
dim shared obstacle(9) as vec2
dim shared oldx, oldy as integer

player.speed = 5

dim shared i as integer

map = "map1.txt"

openMap
j=1
do
    cls

    makeplayer
    playerMovement

    for j = 1 to i
        line (obstacle(j).x1, obstacle(j).y1)-(obstacle(j).x2, obstacle(j).y2),_rgb32(obstacle(j).r,obstacle(j).g,obstacle(j).b),BF
        block obstacle(j).x1, obstacle(j).y1, obstacle(j).x2, obstacle(j).y2
    next j

    _display
    _limit 60
loop

sub openMap
    open map for input as #1
    while not eof(1)
        i = i + 1
        input #1, obstacle(i).btype, obstacle(i).x1, obstacle(i).y1, obstacle(i).x2, obstacle(i). y2, obstacle(i).r, obstacle(i).g, obstacle(i).b
    wend
    close #1
end sub

sub makeplayer
    circle (player.x, player.y), 10, _rgb32(100,200,255)
    paint (player.x, player.y), _rgb32(100,200,255), _rgb32(100,200,255)
end sub

sub playerMovement
    if _keydown(18432) then player.y = player.y - player.speed
    if _keydown(20480) then player.y = player.y + player.speed
    if _keydown(19200) then player.x = player.x - player.speed
    if _keydown(19712) then player.x = player.x + player.speed
end sub

sub block(x1,y1,x2,y2)

    if player.x + 10 >= x1 and player.x - 10 <= x2 and player.y + 10 >= y1 and player.y - 10 <= y2 then
        player.x = oldx
        player.y = oldy
    else
        oldx = player.x
        oldy = player.y
    end if

end sub

4
QB64 Discussion / Re: Blocking stuff D:
« on: April 04, 2020, 07:46:51 am »
I tried to Re-Do some stuff and Look what I've Found:
Code: [Select]
screen _newimage(1280,720,32)

type vec1
    x as integer
    y as integer
end type

type vec2
    x1 as integer
    y1 as integer
    x2 as integer
    y2 as integer
    r as integer
    g as integer
    b as integer
    btype as string
end type

dim shared player as vec1
dim shared speed as integer
dim shared map as string
dim shared obstacle(9) as vec2

dim shared i as integer

map = "map1.txt"

openMap

do
    cls
    j = j + 1



    if j > i then j = 0
    _display
loop

sub openMap
    open map for input as #1
    while not eof(1)
        input #1, obstacle(i).btype, obstacle(i).x1, obstacle(i).x2, obstacle(i).y1, obstacle(i). y2, obstacle(i).r, obstacle(i).g, obstacle(i).b
        i = i + 1
    wend
    close #1
end sub
"Input pas end of file!"
WHYYYY??

-Prithak

5
QB64 Discussion / Re: Blocking stuff D:
« on: April 04, 2020, 07:37:23 am »
Quote from: Unseen Machine on April 04, 2020, 07:02:34 am
Are you sure? I easily get 25-35 fps with my current programs and they are far more CPU/Memory heavy than what you've posted. I cant see that you'd notice any difference in speed if you used arrays aposed to individual variables to store each value.

Good luck,

Unseen
Ok. Would you mind sending me an example. Cuz, when I tried to do it. It just didn't work.

Sincerely,
Prithak

6
QB64 Discussion / Re: Blocking stuff D:
« on: April 04, 2020, 06:15:59 am »
Quote from: EricE on April 04, 2020, 06:00:53 am
Just to get the code to compile I had to make this change to explicitly specify that the map1 file is in the same directory as the exe:

Code: QB64: [Select]
  1. map = ".\map1.txt"
Uhh... No you don't need to do that...

7
QB64 Discussion / Re: Blocking stuff D:
« on: April 04, 2020, 06:09:25 am »
Quote from: Unseen Machine on April 04, 2020, 05:56:44 am
Hi,

Its cause your only storing one set of data for the obstacles. You need to use an array to store more than one.

Id suggest you define a TYPE for the obstacles and then use an array of that type to handle them

i.e

type Obstacle
X1 AS integer
X2 as integer
Y1 as integer
Y2 as integer
Color as _unsigned long
End type

Dim Obstacle(9) as obstacle '// Creates an array of ten Obstacle type variables.

Have fun and happy coding!

Unseen
Ya. I figured. But, Using Arrays would SIGNIFICANTLY slow down the computer. So, I figured this plan out. If this works, I won't have to worry about performance. Soo... If there is a way out, PLEASE TEACH MEH!!!

-Prithak

8
QB64 Discussion / Blocking stuff D:
« on: April 04, 2020, 04:30:12 am »
Hey, Long time no see. Anyways,

I was developing a game where I run on a problem IMMEDIATELY xD. And I can't quite figure out what that problem is. Would you look at the code and find it out?
Code: [Select]
screen _newimage(1280,720,32)

_fullscreen

'Declaring Variables
type vec
    x as integer
    y as integer
    speed as integer
end type

dim shared player as vec
dim shared map as string

dim shared oldx, oldy as integer

player.speed = 3
map = "map1.txt"

player.x = _width / 2
player.y = _height / 2

'Main Loop
do
    cls

    makeplayer
    playerMovement
    'Test
    'makeObstacle 100,100,200,200,255,200,100

    makeMap

    'For Experiments: The co-ordinates
    _printstring (0,0), str$(player.x) + str$(player.y)

    _display
loop until _keyhit = 27
system
'Subs and Functions

sub makeplayer
    circle (player.x, player.y), 10, _rgb32(100,200,255)
    paint (player.x, player.y), _rgb32(100,200,255), _rgb32(100,200,255)
end sub

sub playerMovement
    if _keydown(18432) then player.y = player.y - player.speed
    if _keydown(20480) then player.y = player.y + player.speed
    if _keydown(19200) then player.x = player.x - player.speed
    if _keydown(19712) then player.x = player.x + player.speed
end sub

sub makeObstacle(x1,y1,x2,y2,r,g,b)

    line (x1,y1)-(x2,y2),_rgb32(r,g,b), BF

    if player.x + 10 >= x1 and player.x - 10 <= x2 and player.y + 10 >= y1 and player.y - 10 <= y2 then
        player.x = oldx
        player.y = oldy
    else
        oldx = player.x
        oldy = player.y
    end if

end sub

sub makeMap
    open map for input as #1
    while not eof(1)
        input #1, cm$,x1,y1,x2,y2,r,g,b
        if cm$ = "obs" then
            makeObstacle x1,y1,x2,y2,r,g,b
        end if
    wend
    close #1
end sub

Here's the file called "map1.txt"
Code: [Select]
obs, 0,0,700,50,242,242,242
obs, 800,50,1280,100,242,242,242

Here, the 1st obstacle is blocking the character perfectly, but the second one isn't. Why???

-Prithak

9
QB64 Discussion / Re: Not working!
« on: July 22, 2019, 11:17:31 pm »
Thank you everyone for helping me out! Thanks to you now I can really continue making this game xD! Well... I guess I'm gonna go coding whilst solving a Rubik's cube lol!

-Prithak

10
QB64 Discussion / Not working!
« on: July 22, 2019, 03:50:59 am »
Alright! Back to programming with my exams now gone! Here I coded this stuff:

Code: [Select]
screen _newimage(800,600,32)

dim shared x as integer
dim shared y as integer
dim shared oldx as integer
dim shared oldy as integer

x = 100
y = 200

color , _rgb32(50,200,0)

cls

do
cls

open "blocks.txt" for input as #1

while not eof(1)

input #1, x1,y1,x2,y2,r,g,b

makeobs x1,y1,x2,y2,r,g,b
wend

close #1

    IF _KEYDOWN(CVI(CHR$(0) + "P")) THEN y = y - 5   '_KEYDOWN(20480)
    IF _KEYDOWN(CVI(CHR$(0) + "H")) THEN y = y + 5   '_KEYDOWN(18432)
    IF _KEYDOWN(CVI(CHR$(0) + "K")) THEN x = x + 5   '_KEYDOWN(19200)
    IF _KEYDOWN(CVI(CHR$(0) + "M")) THEN x = x - 5   '_KEYDOWN(19712)

'The sprites will be 20x20 pixels, I believe...
line (_width/2,_height/2)-step(20,20),_rgb32(255,200,100),BF

_printstring(0,0),str$(x) + " " + str$(y)

_limit 100
_Display
loop
 
FUNCTION collision% (b1x, b1y, b1w, b1h, b2x, b2y, b2w, b2h)
    IF (b1y + b1h < b2y) OR (b1y > b2y + b2h) OR (b1x > b2x + b2w) OR (b1x + b1w < b2x) THEN
        collision% = 0
    ELSE
        collision% = 1
    END IF
END FUNCTION

sub makeobs (x1,y1,w,h,r,g,b)

line(x + x1, y + y1)-step(w,h),_rgb32(r,g,b),BF
Line(x + x1, y + y1)-step(w,h),_Rgb32(255,255,255),B
'200, 200 - 220, 220

if collision%(_width/2,_height/2,20,20,x + x1, y + y1,w,h) then
y = oldy
x = oldx
else
oldy = y
oldx = x
end if


end sub

And here's "blocks.txt"
Code: [Select]
200,100,100,100,100,200,255
200,300,100,100,100,200,255
100,200,100,100,100,200,255
300,200,100,100,100,200,255

Ok. For some reason, the character's only being blocked by the first obstacle? WHY??

-Prithak

11
QB64 Discussion / Why is it not blocking?
« on: April 14, 2019, 03:20:29 am »
Man, I've tried everything! It is not working!
Code: QB64: [Select]
  1. 'First Prototype of my game project!
  2. 'Never knew I would get this far!
  3. 'A Special thanks to Petr, Pete, bplus, _vince, TempodiBasic, SMcNeil Let me know if I forgot your name here xD
  4. '-Prithak
  5.  
  6. _TITLE "Japang!"
  7. SCREEN _NEWIMAGE(800, 600, 32)
  8. COLOR _RGB32(0, 0, 0), _RGB32(211, 211, 211)
  13. DIM SHARED y_change AS SINGLE
  18.  
  19. main:
  23.     _PRINTSTRING (600, 100), "Japang!"
  24.     _PRINTSTRING (600, 300), "Play"
  25.     _PRINTSTRING (600, 350), "Help"
  26.  
  27.     _PRINTSTRING (600, 400), "Exit"
  28.     LINE (570, 340)-(600 + LEN("help") * 16, 375), _RGB32(255, 255, 255), B
  29.     LINE (570, 290)-(600 + LEN("play") * 16, 325), _RGB32(255, 255, 255), B
  30.     LINE (570, 390)-(600 + LEN("exit") * 16, 425), _RGB32(255, 255, 255), B
  31.     IF mouseclick(570, 290, 600 + LEN("play") * 16, 325) THEN
  32.         game
  33.     END IF
  34.     IF mouseclick(570, 340, 600 + LEN("help") * 16, 375) THEN
  35.         GOTO help
  36.     END IF
  37.     IF mouseclick(570, 290, 600 + LEN("exit") * 16, 425) THEN
  38.         SYSTEM
  39.     END IF
  40.     _DISPLAY
  42.  
  43. help:
  45. PRINT "Use the arrow keys to move around!"
  49. PRINT "Use the upper arrow key to jump!"
  53. PRINT "Get to the green block for victory!"
  57. PRINT "Touching any red blocks will kill you!"
  60. GOTO main
  61.  
  62. SUB game
  63. IF level = 2 THEN GOTO lvl2
  64. IF level = 3 THEN GOTO lvl3
  65. IF level = 4 THEN GOTO lvl4
  66. IF level = 5 THEN GOTO lvl5
  67. camx = 0
  68. camy = 0
  69. 'Just for testing!
  70. x = 200
  71. y = 200
  72. gravity = 9.8
  75.     CLS
  76.     makechar
  77.     IF _KEYDOWN(19200) THEN
  78.         x = x - 10
  79.  
  80.     END IF
  81.     IF _KEYDOWN(19712) THEN
  82.         x = x + 10
  83.  
  84.     END IF
  85.     IF _KEYDOWN(18432) THEN
  86.         jump_i = 1
  87.     END IF
  88.  
  89.     IF jump_i = 1 AND y > 100 THEN
  90.         y = y - 20
  91.         cycle = cycle + 1
  92.         IF cycle > 20 THEN cycle = 0: jump_i = -1
  93.     END IF
  94.  
  95.     y = y + gravity
  96.     'Blocks
  97.     makeobs 100, 400
  98.  
  99.     LINE (500, 400)-STEP(200, 50), _RGB32(127, 255, 127), BF
  100.     IF collision%(x, y, 20, 20, 500, 400, 200, 50) THEN
  101.         CLS
  102.         _PRINTSTRING (300, 300), "LEVEL 1 COMPLETE!"
  103.         _DISPLAY
  104.         _DELAY 2
  105.         GOTO lvl2
  106.         END
  107.     END IF
  108.     IF y > 600 THEN game
  109.  
  110.     _DISPLAY
  111.     _LIMIT 60
  113.  
  114. lvl2:
  115. level = 2
  116. x = 200
  117. y = 400
  119.     CLS
  120.     makechar
  121.     IF _KEYDOWN(19200) THEN
  122.         x = x - 10
  123.  
  124.     END IF
  125.     IF _KEYDOWN(19712) THEN
  126.         x = x + 10
  127.  
  128.     END IF
  129.     IF _KEYDOWN(18432) THEN
  130.         jump_i = 1
  131.     END IF
  132.  
  133.     IF jump_i = 1 AND y > 100 THEN
  134.         y = y - 20
  135.         cycle = cycle + 1
  136.         IF cycle > 20 THEN cycle = 0: jump_i = -1
  137.     END IF
  138.  
  139.     y = y + gravity
  140.  
  141.     IF y > 600 THEN GOTO lvl2
  142.     angle = angle + 5
  143.  
  144.     rotate _WIDTH / 2, _HEIGHT / 2, angle
  145.  
  146.  
  147.     makeobs 100, 500
  148.  
  149.     makeobs 500, 500
  150.  
  151.     IF coins < 1 THEN
  152.         CIRCLE (600, 480), 5, _RGB32(255, 255, 17)
  153.         PAINT (600, 480), _RGB32(255, 255, 17), _RGB32(255, 255, 17)
  154.         IF collision%(x, y, 20, 20, 600, 480, 5, 5) THEN
  155.             coins = coins + 1
  156.         END IF
  157.     END IF
  158.  
  159.     LINE (100, 300)-STEP(200, 50), _RGB32(127, 255, 127), BF
  160.     IF collision%(x, y, 20, 20, 100, 300, 200, 50) THEN
  161.         CLS
  162.         _PRINTSTRING (300, 300), "LEVEL 2 COMPLETE!"
  163.         _PRINTSTRING (300, 325), "Coins collected: " + STR$(coins)
  164.         _DISPLAY
  165.         _DELAY 2
  166.         GOTO lvl3
  167.         END
  168.     END IF
  169.  
  170.     _DISPLAY
  171.     _LIMIT 60
  173.  
  174. lvl3:
  175. level = 3
  176. x = 100
  177. y = 300
  179.     CLS
  180.     makechar
  181.  
  182.     IF _KEYDOWN(19200) THEN
  183.         x = x - 10
  184.  
  185.     END IF
  186.     IF _KEYDOWN(19712) THEN
  187.         x = x + 10
  188.  
  189.     END IF
  190.     IF _KEYDOWN(18432) THEN
  191.         jump_i = 1
  192.     END IF
  193.  
  194.     IF jump_i = 1 AND y > 100 THEN
  195.         y = y - 20
  196.         cycle = cycle + 1
  197.         IF cycle > 20 THEN cycle = 0: jump_i = -1
  198.     END IF
  199.  
  200.     y = y + gravity
  201.  
  202.     IF coins < 2 THEN
  203.         CIRCLE (650, 470), 5, _RGB32(255, 255, 17)
  204.         PAINT (650, 470), _RGB32(255, 255, 17), _RGB32(255, 255, 17)
  205.         IF collision%(x, y, 20, 20, 650, 470, 5, 5) THEN
  206.             coins = coins + 1
  207.         END IF
  208.     END IF
  209.  
  210.  
  211.     makesobs 50, 500, 100, 50
  212.  
  213.     angle = angle + 5
  214.  
  215.     rotate _WIDTH / 2, 400, angle
  216.     rotate _WIDTH / 2, 200, angle
  217.  
  218.     makesobs 600, 500, 100, 50
  219.  
  220.     LINE (100, 200)-STEP(200, 50), _RGB32(127, 255, 127), BF
  221.     IF collision%(x, y, 20, 20, 100, 50, 200, 50) THEN
  222.         CLS
  223.         _PRINTSTRING (300, 300), "LEVEL 3 COMPLETE!"
  224.         _PRINTSTRING (300, 325), "Total coins: " + STR$(coins)
  225.         _DISPLAY
  226.         _DELAY 2
  227.         GOTO lvl4
  228.         END
  229.     END IF
  230.  
  231.     IF y > 600 THEN GOTO lvl3
  232.  
  233.     _DISPLAY
  234.     _LIMIT 60
  236. lvl4:
  237. level = 4
  238. x = 100
  239. y = 300
  240. camx = 0
  241. camy = 0
  244.     CLS
  245.     makechar
  246.  
  247.     IF _KEYDOWN(19200) THEN
  248.         x = x - 10
  249.         camx = camx + 5
  250.     END IF
  251.     IF _KEYDOWN(19712) THEN
  252.         x = x + 10
  253.         camx = camx - 5
  254.     END IF
  255.     IF _KEYDOWN(18432) THEN
  256.         jump_i = 1
  257.     END IF
  258.  
  259.  
  260.     IF jump_i = 1 AND y > 100 THEN
  261.         y = y - 20
  262.         camy = camy - 5
  263.         cycle = cycle + 1
  264.         IF cycle > 20 THEN cycle = 0: jump_i = -1
  265.     END IF
  266.  
  267.     y = y + gravity
  268.     camy = camy + 2
  269.     _PRINTSTRING (0, 0), "Get used to the camera folks!"
  270.     IF camy > 50 THEN camy = 50
  271.  
  272.  
  273.     makeobs camx + 50, camy + 500
  274.     makeredobs camx + 300, camy + 500
  275.     makeobs camx + 550, camy + 500
  276.     makeredobs camx + 800, camy + 500
  277.  
  278.     LINE (camx + 1050, camy + 500)-STEP(200, 50), _RGB32(127, 255, 127), BF
  279.     IF collision%(x, y, 20, 20, camx + 1050, camy + 500, 200, 50) THEN
  280.         CLS
  281.         _PRINTSTRING (300, 300), "LEVEL 4 COMPLETE!"
  282.         _DISPLAY
  283.         _DELAY 2
  284.         GOTO lvl5
  285.         END
  286.     END IF
  287.  
  288.     IF y > 600 THEN GOTO lvl4
  289.  
  290.     _LIMIT 60
  291.     _DISPLAY
  293.  
  294. lvl5:
  295. level = 5
  296. x = 200
  297. y = 100
  298. camx = 0
  299. camy = 0
  302.     CLS
  303.     makechar
  304.  
  305.     IF _KEYDOWN(19200) THEN
  306.         x = x - 10
  307.         camx = camx + 5
  308.     END IF
  309.     IF _KEYDOWN(19712) THEN
  310.         x = x + 10
  311.         camx = camx - 5
  312.     END IF
  313.     IF _KEYDOWN(18432) THEN
  314.         jump_i = 1
  315.     END IF
  316.  
  317.  
  318.     IF jump_i = 1 AND y > 100 THEN
  319.         y = y - 20
  320.         camy = camy - 5
  321.         cycle = cycle + 1
  322.         IF cycle > 20 THEN cycle = 0: jump_i = -1
  323.     END IF
  324.  
  325.     y = y + gravity
  326.     camy = camy + 2
  327.  
  328.     IF camy > 50 THEN camy = 50
  329.  
  330.     makeobs camx + 50, camy + 500
  331.     angle = angle + 5
  332.     rotate camx + 350, camy + 450, angle
  333.  
  334.     makeobs camx + 500, camy + 400
  335.     makeobs camx + 800, camy + 400
  336.  
  337.     IF y > 600 THEN GOTO lvl5
  338.  
  339.     _DISPLAY
  340.     _LIMIT 60
  342.  
  344.  
  345.  
  346. SUB makechar
  347. 'CIRCLE (x, y), 20, _RGB32(100, 150, 255)
  348. 'PAINT (x, y), _RGB32(100, 150, 255), _RGB32(100, 150, 255)
  349. LINE (x, y)-STEP(20, 20), _RGB32(100, 150, 255), BF
  351.  
  352. FUNCTION collision% (b1x, b1y, b1w, b1h, b2x, b2y, b2w, b2h)
  353. IF (b1y + b1h < b2y) OR (b1y > b2y + b2h) OR (b1x > b2x + b2w) OR (b1x + b1w < b2x) THEN
  354.     collision% = 0
  356.     collision% = 1
  359.  
  360. SUB makeobs (bx, by)
  361. LINE (bx, by)-STEP(200, 50), _RGB32(255, 150, 100), BF
  362. IF collision%(x, y, 20, 20, bx, by, 200, 50) THEN
  363.     y = oldy
  364.     gravity = 0
  365.     y_change = 0
  367.     oldy = y
  368.     gravity = 9.8
  371.  
  372. SUB makesobs (bx, by, w, h)
  373. LINE (bx, by)-STEP(w, h), _RGB32(255, 150, 100), BF
  374. IF collision%(x, y, 20, 20, bx, by, w, h) THEN
  375.     y = oldy
  376.     gravity = 0
  377.     y_change = 0
  379.     oldy = y
  380.     gravity = 9.8
  383.  
  384. SUB makeredobs (bx, by)
  385. LINE (bx, by)-STEP(200, 50), _RGB32(255, 0, 0), BF
  386. IF collision(x, y, 20, 20, bx, by, 200, 50) THEN
  387.     CLS
  388.     _PRINTSTRING (300, 300), "GAME OVER!"
  389.     _DISPLAY
  390.     _DELAY 2
  391.     game
  394. SUB rotate (px, py, deg)
  395. px2 = px + COS(_D2R(deg)) * 100
  396. py2 = py + SIN(_D2R(deg)) * 100
  397.  
  398. CIRCLE (px2, py2), 10, _RGB32(255, 0, 0)
  399. PAINT (px2, py2), _RGB32(255, 0, 0), _RGB32(255, 0, 0)
  400.  
  401. LINE (px, py)-(px2, py2), _RGB32(0, 0, 0)
  402.  
  403. IF collision(x, y, 20, 20, px2, py2, 10, 10) THEN
  404.     CLS
  405.     _PRINTSTRING (300, 300), "GAME OVER!"
  406.     _DISPLAY
  407.     _DELAY 2
  408.     game
  411.  
  412. FUNCTION mouseclick (x1, y1, x2, y2)
  413. mx = _MOUSEX
  414. my = _MOUSEY
  415. mb = _MOUSEBUTTON(1)
  416.  
  417. IF mx >= x1 AND mx <= x2 AND my >= y1 AND my <= y2 AND mb THEN
  418.     mouseclick = 1
In the 5th level, why is the second obstacle not blocking the character?

12
Programs / Re: Japang!
« on: April 13, 2019, 09:19:32 pm »
Quote from: TempodiBasic on April 13, 2019, 05:14:49 pm
Fine! Well suited. Very fast!

Please add <Help> button with instructions for keys active and a little story or the goal.

Negative Feedback:
Aargh! There is a big big big mistake at line code 25...
Code: QB64: [Select]
  1. IF mouseclick(570, 290, 600 + LEN("play") * 16, 425) THEN
you use LEN("play")! Aargh! you must use LEN("quit")!!!!
:-)
:-P what do you think of this joke?

Lol! The length of "play" and the length of "quit" is the same is it not? Yeah, The help button will be added along with setting on the next update! I won't be able to code today but tomorrow? That might be a nice time!

13
Programs / Japang!
« on: April 13, 2019, 08:23:40 am »
Sorry for the weird name! I'll change it soon enough!

This is a game I made in 2 days:
Code: QB64: [Select]
  1. 'First Prototype of my game project!
  2. 'Never knew I would get this far!
  3. 'A Special thanks to Petr, Pete, bplus, _vince, TempodiBasic, SMcNeil Let me know if I forgot your name here xD
  4. '-Prithak
  5.  
  6. _TITLE "Japang!"
  7. SCREEN _NEWIMAGE(800, 600, 32)
  8. COLOR _RGB32(0, 0, 0), _RGB32(211, 211, 211)
  13. DIM SHARED y_change AS SINGLE
  17.     _PRINTSTRING (600, 100), "Japang!"
  18.     _PRINTSTRING (600, 300), "Play"
  19.     _PRINTSTRING (600, 400), "Exit"
  20.     LINE (570, 290)-(600 + LEN("play") * 16, 325), _RGB32(255, 255, 255), B
  21.     LINE (570, 390)-(600 + LEN("exit") * 16, 425), _RGB32(255, 255, 255), B
  22.     IF mouseclick(570, 290, 600 + LEN("play") * 16, 325) THEN
  23.         game
  24.     END IF
  25.     IF mouseclick(570, 290, 600 + LEN("play") * 16, 425) THEN
  26.         SYSTEM
  27.     END IF
  29.  
  30.  
  31. SUB game
  32.     x = 200
  33.     y = 200
  34.     gravity = 9.8
  35.     CLS
  36.     DO
  37.         CLS
  38.         makechar
  39.         IF _KEYDOWN(19200) THEN
  40.             x = x - 10
  41.  
  42.         END IF
  43.         IF _KEYDOWN(19712) THEN
  44.             x = x + 10
  45.  
  46.         END IF
  47.         IF _KEYDOWN(18432) THEN
  48.             jump_i = 1
  49.         END IF
  50.  
  51.         IF jump_i = 1 AND y > 100 THEN
  52.             y = y - 20
  53.             cycle = cycle + 1
  54.             IF cycle > 20 THEN cycle = 0: jump_i = -1
  55.         END IF
  56.  
  57.         y = y + gravity
  58.         'Blocks
  59.         makeobs 100, 400
  60.  
  61.         LINE (500, 400)-STEP(200, 50), _RGB32(127, 255, 127), BF
  62.         IF collision%(x, y, 20, 20, 500, 400, 200, 50) THEN
  63.             CLS
  64.             _PRINTSTRING (300, 300), "LEVEL 1 COMPLETE!"
  65.             _DISPLAY
  66.             _DELAY 2
  67.             GOTO lvl2
  68.             END
  69.         END IF
  70.         IF y > 600 THEN game
  71.  
  72.         _DISPLAY
  73.         _LIMIT 60
  74.     LOOP
  75.  
  76.     lvl2:
  77.     x = 200
  78.     y = 400
  79.     DO
  80.         CLS
  81.         makechar
  82.         IF _KEYDOWN(19200) THEN
  83.             x = x - 10
  84.  
  85.         END IF
  86.         IF _KEYDOWN(19712) THEN
  87.             x = x + 10
  88.  
  89.         END IF
  90.         IF _KEYDOWN(18432) THEN
  91.             jump_i = 1
  92.         END IF
  93.  
  94.         IF jump_i = 1 AND y > 100 THEN
  95.             y = y - 20
  96.             cycle = cycle + 1
  97.             IF cycle > 20 THEN cycle = 0: jump_i = -1
  98.         END IF
  99.  
  100.         y = y + gravity
  101.  
  102.         IF y > 600 THEN GOTO lvl2
  103.         angle = angle + 5
  104.  
  105.         rotate _WIDTH / 2, _HEIGHT / 2, angle
  106.  
  107.  
  108.         makeobs 100, 500
  109.  
  110.         makeobs 500, 500
  111.  
  112.         IF coins < 1 THEN
  113.             CIRCLE (600, 480), 5, _RGB32(255, 255, 17)
  114.             PAINT (600, 480), _RGB32(255, 255, 17), _RGB32(255, 255, 17)
  115.             IF collision%(x, y, 20, 20, 600, 480, 5, 5) THEN
  116.                 coins = coins + 1
  117.             END IF
  118.         END IF
  119.  
  120.         LINE (100, 300)-STEP(200, 50), _RGB32(127, 255, 127), BF
  121.         IF collision%(x, y, 20, 20, 100, 300, 200, 50) THEN
  122.             CLS
  123.             _PRINTSTRING (300, 300), "LEVEL 2 COMPLETE!"
  124.             _PRINTSTRING (300, 325), "Coins collected: " + STR$(coins)
  125.             _DISPLAY
  126.             _DELAY 2
  127.             GOTO lvl3
  128.             END
  129.         END IF
  130.  
  131.         _DISPLAY
  132.         _LIMIT 60
  133.     LOOP
  134.  
  135.     lvl3:
  136.     x = 100
  137.     y = 300
  138.     DO
  139.         CLS
  140.         makechar
  141.  
  142.         IF _KEYDOWN(19200) THEN
  143.             x = x - 10
  144.  
  145.         END IF
  146.         IF _KEYDOWN(19712) THEN
  147.             x = x + 10
  148.  
  149.         END IF
  150.         IF _KEYDOWN(18432) THEN
  151.             jump_i = 1
  152.         END IF
  153.  
  154.         IF jump_i = 1 AND y > 100 THEN
  155.             y = y - 20
  156.             cycle = cycle + 1
  157.             IF cycle > 20 THEN cycle = 0: jump_i = -1
  158.         END IF
  159.  
  160.         y = y + gravity
  161.  
  162.         IF coins < 2 THEN
  163.             CIRCLE (650, 470), 5, _RGB32(255, 255, 17)
  164.             PAINT (650, 470), _RGB32(255, 255, 17), _RGB32(255, 255, 17)
  165.             IF collision%(x, y, 20, 20, 650, 470, 5, 5) THEN
  166.                 coins = coins + 1
  167.             END IF
  168.         END IF
  169.  
  170.  
  171.         makesobs 50, 500, 100, 50
  172.  
  173.         angle = angle + 5
  174.  
  175.         rotate _WIDTH / 2, 400, angle
  176.         rotate _WIDTH / 2, 200, angle
  177.  
  178.         makesobs 600, 500, 100, 50
  179.  
  180.         LINE (100, 200)-STEP(200, 50), _RGB32(127, 255, 127), BF
  181.         IF collision%(x, y, 20, 20, 100, 50, 200, 50) THEN
  182.             CLS
  183.             _PRINTSTRING (300, 300), "LEVEL 3 COMPLETE!"
  184.             _PRINTSTRING (300, 325), "Total coins: " + STR$(coins)
  185.             _DISPLAY
  186.             _DELAY 2
  187.             END
  188.         END IF
  189.  
  190.         IF y > 600 THEN GOTO lvl3
  191.  
  192.         _DISPLAY
  193.         _LIMIT 60
  194.     LOOP
  196.  
  197. SUB makechar
  198.     'CIRCLE (x, y), 20, _RGB32(100, 150, 255)
  199.     'PAINT (x, y), _RGB32(100, 150, 255), _RGB32(100, 150, 255)
  200.     LINE (x, y)-STEP(20, 20), _RGB32(100, 150, 255), BF
  202.  
  203. FUNCTION collision% (b1x, b1y, b1w, b1h, b2x, b2y, b2w, b2h)
  204.     IF (b1y + b1h < b2y) OR (b1y > b2y + b2h) OR (b1x > b2x + b2w) OR (b1x + b1w < b2x) THEN
  205.         collision% = 0
  206.     ELSE
  207.         collision% = 1
  208.     END IF
  210.  
  211. SUB makeobs (bx, by)
  212.     LINE (bx, by)-STEP(200, 50), _RGB32(255, 150, 100), BF
  213.     IF collision%(x, y, 20, 20, bx, by, 200, 50) THEN
  214.         y = oldy
  215.         gravity = 0
  216.         y_change = 0
  217.     ELSE
  218.         oldy = y
  219.         gravity = 9.8
  220.     END IF
  222.  
  223. SUB makesobs (bx, by, w, h)
  224.     LINE (bx, by)-STEP(w, h), _RGB32(255, 150, 100), BF
  225.     IF collision%(x, y, 20, 20, bx, by, w, h) THEN
  226.         y = oldy
  227.         gravity = 0
  228.         y_change = 0
  229.     ELSE
  230.         oldy = y
  231.         gravity = 9.8
  232.     END IF
  234.  
  235. SUB rotate (px, py, deg)
  236.     px2 = px + COS(_D2R(deg)) * 100
  237.     py2 = py + SIN(_D2R(deg)) * 100
  238.  
  239.     CIRCLE (px2, py2), 10, _RGB32(100, 150, 255)
  240.     PAINT (px2, py2), _RGB32(100, 150, 255), _RGB32(100, 150, 255)
  241.  
  242.     LINE (px, py)-(px2, py2), _RGB32(0, 0, 0)
  243.  
  244.     IF collision(x, y, 20, 20, px2, py2, 10, 10) THEN
  245.         CLS
  246.         _PRINTSTRING (300, 300), "GAME OVER!"
  247.         _DISPLAY
  248.         _DELAY 2
  249.         game
  250.     END IF
  252.  
  253. FUNCTION mouseclick (x1, y1, x2, y2)
  254.     mx = _MOUSEX
  255.     my = _MOUSEY
  256.     mb = _MOUSEBUTTON(1)
  257.  
  258.     IF mx >= x1 AND mx <= x2 AND my >= y1 AND my <= y2 AND mb THEN
  259.         mouseclick = 1
  260.     END IF
  262.  

I will be making more of this! AT LEAST 10 LEVELS! Until then, play this!

-Prithak

14
QB64 Discussion / Re: Why is this happening?
« on: April 13, 2019, 06:11:58 am »
Quote from: SMcNeill on April 13, 2019, 01:54:23 am
It’s because the _KEYDOWN check is in an ELSEIF statement.  Make all those become independent IF checks instead.

Thanks man, wouldh've never figured out that on my own!

15
QB64 Discussion / Re: Why is this happening?
« on: April 13, 2019, 12:42:13 am »
Alright, another question!

When I press the upper arrow key and the left arrow key at the same time, only the upper arrow key works but not the left arrow key. What is causing it and How do I solve it? HELP!

-Prithak

Pages: [1] 2 3 4