How to make an OPEN WORLD with LibertyBasic

[atomose]

How to make an
OPEN WORLD

with LibertyBasic !

You can use the code and change it as well for make your own game. More the map is bigger more you need good hardware.

Here is the CODE with files (v1.44)



With this code you can ...
- make a move without delay on the keyboard
- control sprite cycle speed
- manage collisions with objects
- be able to make your character disappear behind an object
- manage the save / load system of a game
- put enemies / friends on the map
- have a real-time fight system
- block the multiple opening of the game so that it only opens in one copy
- manage the variables of a character with the level up
- have several graphicboxes on the same window
- use the data system to make the map
and many other things


hope this will help news people in LB to make the next game generation !
if you need more information about the code send me a PM 

thx to tsh73 for the help !

[Rod]

Cool, I could not find the black exit but that might just be me. I did find the green square. Is the black image at top right a map? If so I could not see anything in it.

[atomose]

hi !
yes the black case is on the top right. Strange you dont see it ... of you have any idea for improv performances tell me ^^.

[tsh73]

Interesting place to run around .

I guess that black box just replaces Windows "X" top right.
By the way, if you use window_popup, the window title
"Open World PIXEL RPG 4.0"
is not visible at all!

you have any idea for improv performances tell me

Add
   #main.map, "discard"
right after
[endLEVEL]

Also
it really bothered me that 6 special squares were repainted every x,y
So I move it out of loop
and put IF which prevents them being repainted inside of loop.

' Touch the green case = victory ; Touch the red case = Game over ; Black case for exit the game

' Creat By Atomose Studio 2022 with LibertyBasic 4.51 pro



nomainwin

dim p(x,y) : global dy,dx : WindowWidth = 1600 : WindowHeight = 900 : UpperLeftX=int((DisplayWidth-WindowWidth)/2) : UpperLeftY=int((DisplayHeight-WindowHeight)/2) : x= 90 : y= 60 : valIniX = 21 : valIniY = 10 : perso1x = 30 : perso1y = 15 : ennemi1x = 36 : ennemi1y = 17 : ennemi2x = 41 : ennemi2y = 25 : ennemi3x = 19 : ennemi3y = 33 : ennemi4x = 50 : ennemi4y = 40 : ennemi5x = 55 : ennemi5y = 30

graphicbox #main.map, 0+10, 0+10, WindowWidth-20, WindowHeight-20

open "Open World PIXEL RPG 4.0" for window_popup as #main

#main, "trapclose [quit]"

#main.map, "setfocus; down; fill white; when leftButtonDown [close]"



' map du jeu ou les 0 representent les zones ou l'ont peut marcher

redim p(x,y)

data 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3

data 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3

data 3,3,3,3,3,3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,1,1,1,1,0,1,1,1,0,1,1,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,1,0,0,1,1,1,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,1,1,1,1,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,1,0,0,0,1,0,0,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,1,0,0,0,1,0,0,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,1,1,1,1,1,1,1,1,0,0,1,1,0,0,1,0,0,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,1,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,1,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,1,1,1,1,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,1,0,0,0,0,1,1,1,1,0,1,1,1,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,1,0,0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,1,1,1,1,1,1,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,3,3,3,3,3,3

data 3,3,3,3,3,3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,3,3,3,3,3,3

data 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3

data 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3

for b=0 to y-1

   for a=0 to x-1

       read valeur : p(a,b)= valeur

   next a

next b



[endLEVEL]

   #main.map, "discard"

timer 0

   ' mouvements des ennemis , 4 possibilitees pour 4 directions avec conditions de detections d'obstables

   ennemi1moove = int(rnd(1)*4+1)

   select case ennemi1moove

       case 1

           if p((ennemi1x+1),(ennemi1y)) = 0 and ennemi1x <88 then ennemi1x = ennemi1x + 1

       case 2

           if p((ennemi1x-1),(ennemi1y)) = 0 and ennemi1x >2 then ennemi1x = ennemi1x - 1

       case 3

           if p((ennemi1x),(ennemi1y+1)) = 0 and ennemi1y <58 then ennemi1y = ennemi1y + 1

       case 4

           if p((ennemi1x),(ennemi1y-1)) = 0 and ennemi1y >2 then ennemi1y = ennemi1y - 1

   end select

   ennemi2moove = int(rnd(1)*4+1)

   select case ennemi2moove

       case 1

           if p((ennemi2x+1),(ennemi2y)) = 0 and ennemi2x <88 then ennemi2x = ennemi2x + 1

       case 2

           if p((ennemi2x-1),(ennemi2y)) = 0 and ennemi2x >2 then ennemi2x = ennemi2x - 1

       case 3

           if p((ennemi2x),(ennemi2y+1)) = 0 and ennemi2y <58 then ennemi2y = ennemi2y + 1

       case 4

           if p((ennemi2x),(ennemi2y-1)) = 0 and ennemi2y >2 then ennemi2y = ennemi2y - 1

   end select

   ennemi3moove = int(rnd(1)*4+1)

   select case ennemi3moove

       case 1

           if p((ennemi3x+1),(ennemi3y)) = 0 and ennemi3x <88 then ennemi3x = ennemi3x + 1

       case 2

           if p((ennemi3x-1),(ennemi3y)) = 0 and ennemi3x >2 then ennemi3x = ennemi3x - 1

       case 3

           if p((ennemi3x),(ennemi3y+1)) = 0 and ennemi3y <58 then ennemi3y = ennemi3y + 1

       case 4

           if p((ennemi3x),(ennemi3y-1)) = 0 and ennemi3y >2 then ennemi3y = ennemi3y - 1

   end select

   ennemi5moove = int(rnd(1)*4+1)

   select case ennemi5moove

       case 1

           if p((ennemi5x+1),(ennemi5y)) = 0 and ennemi5x <88 then ennemi5x = ennemi5x + 1

       case 2

           if p((ennemi5x-1),(ennemi5y)) = 0 and ennemi5x >2 then ennemi5x = ennemi5x - 1

       case 3

           if p((ennemi5x),(ennemi5y+1)) = 0 and ennemi5y <58 then ennemi5y = ennemi5y + 1

       case 4

           if p((ennemi5x),(ennemi5y-1)) = 0 and ennemi5y >2 then ennemi5y = ennemi5y - 1

   end select







   ennemi4moove = int(rnd(1)*4+1)

   select case ennemi4moove

       case 1

           if p((ennemi4x+1),(ennemi4y)) = 0 and ennemi4x <88 then ennemi4x = ennemi4x + 1

       case 2

           if p((ennemi4x-1),(ennemi4y)) = 0 and ennemi4x >2 then ennemi4x = ennemi4x - 1

       case 3

           if p((ennemi4x),(ennemi4y+1)) = 0 and ennemi4y <58 then ennemi4y = ennemi4y + 1

       case 4

           if p((ennemi4x),(ennemi4y-1)) = 0 and ennemi4y >2 then ennemi4y = ennemi4y - 1

   end select



' boucle qui genere la map

           ' personnage

           #main.map, "color brown; backcolor cyan ; place ";int(WindowWidth/2)-(WindowWidth/31);" ";int(WindowHeight/2)-(WindowHeight/28);"; boxfilled ";int((WindowWidth/2)+(WindowWidth/48));" ";int(WindowHeight/2)+(WindowHeight/17)

           ' ennemis

           #main.map, "backcolor red ; color yellow"

           #main.map, "place ";int((ennemi1x-valIniX)*((WindowWidth/19)-1));" ";int((ennemi1y-valIniY)*((WindowHeight/11)+1.85));"; boxfilled ";int((ennemi1x-valIniX)*((WindowWidth/19)-1)+82);" ";int((ennemi1y-valIniY)*((WindowHeight/11)+1.85)+82)

           #main.map, "place ";int((ennemi2x-valIniX)*((WindowWidth/19)-1));" ";int((ennemi2y-valIniY)*((WindowHeight/11)+1.85));"; boxfilled ";int((ennemi2x-valIniX)*((WindowWidth/19)-1)+82);" ";int((ennemi2y-valIniY)*((WindowHeight/11)+1.85)+82)

           #main.map, "place ";int((ennemi3x-valIniX)*((WindowWidth/19)-1));" ";int((ennemi3y-valIniY)*((WindowHeight/11)+1.85));"; boxfilled ";int((ennemi3x-valIniX)*((WindowWidth/19)-1)+82);" ";int((ennemi3y-valIniY)*((WindowHeight/11)+1.85)+82)

           #main.map, "place ";int((ennemi5x-valIniX)*((WindowWidth/19)-1));" ";int((ennemi5y-valIniY)*((WindowHeight/11)+1.85));"; boxfilled ";int((ennemi5x-valIniX)*((WindowWidth/19)-1)+82);" ";int((ennemi5y-valIniY)*((WindowHeight/11)+1.85)+82)




          ' pion a atteindre pour gagner

           #main.map, "backcolor green ; color black ; place ";int((ennemi4x-valIniX)*((WindowWidth/19)-1));" ";int((ennemi4y-valIniY)*((WindowHeight/11)+1.85));"; boxfilled ";int((ennemi4x-valIniX)*((WindowWidth/19)-1)+82);" ";int((ennemi4y-valIniY)*((WindowHeight/11)+1.85)+82)

for y=int(0+valIniY) to int(valIniY+10)

           'redraw this exit square every line
           ' case fermeture du jeu

           #main.map, "BACKCOLOR BLACK; place ";int(WindowWidth-90);" ";10;"; boxfilled ";int(WindowWidth-90)+50;" ";60

   for x= int(0+valIniX) to int(valIniX+18)

   'do not repaint special squares
   if  (x = ennemi1x and y = ennemi1y) or _
       (x = ennemi2x and y = ennemi2y) or _
       (x = ennemi3x and y = ennemi3y) or _
       (x = ennemi4x and y = ennemi4y) or _
       (x = ennemi5x and y = ennemi5y) or _
        (perso1x= x and  perso1y = y) _
   then [skip]

       select case p(x,y)

       case 0

           ' terrain accecible

           #main.map, "color lightgray; backcolor lightgray; place ";valX;" ";valY;"; boxfilled ";valX+((WindowWidth/19)-1);" ";valY+((WindowHeight/11)+1.85)


       case 1

           ' murs

           #main.map, "color black ; backcolor darkgray; place ";valX;" ";valY;"; boxfilled ";valX+((WindowWidth/19)-1.05);" ";valY+((WindowHeight/11)+1.85)

       case 2,3,4

           ' textures en dehors des limites

           #main.map, "color blue ; backcolor blue; place ";valX;" ";valY;"; boxfilled ";valX+((WindowWidth/19)-1.05);" ";valY+((WindowHeight/11)+1.85)

       end select
[skip]
       valX = valX + ((WindowWidth/19)-1.05)

   next

   valX = 0 : valY = valY + ((WindowHeight/11)+1.85)

next

valX = 0 : valY = 0



' condition de victoire ou de defaite

if (ennemi1x = perso1x and ennemi1y = perso1y) or (ennemi2x = perso1x and ennemi2y = perso1y) or (ennemi3x = perso1x and ennemi3y = perso1y) or (ennemi5x = perso1x and ennemi5y = perso1y) then notice " " + chr$(13) + "Game Over" : close #main : end

if (ennemi4x = perso1x and ennemi4y = perso1y) then notice " " + chr$(13) + "Victory !" : close #main : end



' commandes qui interprete les touches du joueur (deplacement)

dx = 0 : dy = 0 : call readJStick 1 : if dy <> 0 then dx = 0

valIniX = valIniX+(1*dx) : perso1x = perso1x +(1*dx) : valIniY = valIniY+(1*dy) : perso1y = perso1y +(1*dy)



select case p(perso1x,perso1y)

   case 1

   if dx = -1 then dx = 0 : valIniX = valIniX +1 : perso1x = perso1x +1

   if dx =  1 then dx = 0 : valIniX = valIniX -1 : perso1x = perso1x -1

   if dy =  1 then dy = 0 : valIniY = valIniY -1 : perso1y = perso1y -1

   if dy = -1 then dy = 0 : valIniY = valIniY +1 : perso1y = perso1y +1

   end select

timer 40, [endLEVEL]
'timer 300, [endLEVEL]



wait



   [close]

   mX = MouseX : mY = MouseY

   if mX > int(WindowWidth-90) and mX < int(WindowWidth-90)+50 and mY > 10 and mY < 60 then goto [quit]

   wait

   [quit]

   timer 0 : close #main : end



   ' les deux fonctions ci dessous sont a utiliser avec le call pour avoir un deplacement avec les touches sans delais

   function GetAsyncKeyState(key)

       calldll #user32, "GetAsyncKeyState",key as long,GetAsyncKeyState as long

       if GetAsyncKeyState<>0 then GetAsyncKeyState=1

   end function



   sub readJStick n

       if GetAsyncKeyState(asc("Z")) or GetAsyncKeyState(_VK_UP)    then dy = -1

       if GetAsyncKeyState(asc("W")) or GetAsyncKeyState(_VK_UP)    then dy = -1

       if GetAsyncKeyState(asc("S")) or GetAsyncKeyState(_VK_DOWN)  then dy =  1

       if GetAsyncKeyState(asc("Q")) or GetAsyncKeyState(_VK_LEFT)  then dx = -1

       if GetAsyncKeyState(asc("A")) or GetAsyncKeyState(_VK_LEFT)  then dx = -1

       if GetAsyncKeyState(asc("D")) or GetAsyncKeyState(_VK_RIGHT) then dx =  1

   end sub



[atomose]

hi !
thx tsh73 for help i will post update later

[atomose]

Hi all !

Well, a really large upgrade for this project. New sprites, animations, better graphics, fight available, respawn ennemies, regeneration and open source code .
Have fun !!

special thx to tsh73 for help

[atomose]

Hi,

Very large upgrade for this open source demo game. A lot of bug fixed, new graphics, better code optimisation.
You can take is for you (its open source) and make your own game. I hope we will have more game makers now ^^.

[Rod]

The code runs well, the movement is smooth but I was puzzled why the sprite disappeared from time to time. I notice that your sprites are not drawn correctly. They work, especially where you use the whole frame as background. However the sprite image should be in color in the bottom frame, surrounded by black, in the upper frame the image should be in the shape of the sprite but completely black surrounded by white.

If I get time I will code a sprite drawing routine that will take your bmp and redraw the sprite correctly masked.

[atomose]

its normal if sprite are not visible when they go on tree. Its the same with your character ^^. I make it in the code for "more fun" but you can remoove it easily

i use this line of code for hide sprite when they go on tree. You can remoove it .
if (p(INT(ennemi1x),INT(ennemi1y))=5 or p(INT(ennemi1x+0.5),INT(ennemi1y))=5 or p(INT(ennemi1x+0.5),INT(ennemi1y+0.8))=5 OR p(INT(ennemi1x+0.5),INT(ennemi1y))=43 or p(INT(ennemi1x+0.5),INT(ennemi1y+0.8))=43) then ennemi1P = 6 : goto [secu1AI1]

[Brandon Parker]

As Rod pointed out, your sprites should look like the image below to conform to what is expected.




Here is the sprite creator that ships with Liberty BASIC in the help file. To use the sprite creator, your file BMP image should start off just like the bottom section of the image above at the size you want your sprite to be.


'small utility to add masks to the
 'top of sprite images
 nomainwin
 bmpheight=0 'bitmap height
 bmpwidth=0 'bitmap width
 bitmap$="" 'bitmap file name
 savefile$="" 'save file name
 hBitmap=0 'handle for loaded bitmap
 hWindow=0 'window handle
 menu #1, "&File", "&Open Sprite",[openSprite],_
   "&Save As...",[saveAs],|,"E&xit",[quit]
 open "Add Masks to Sprites" for graphics_fs_nsb as #1
 print #1, "trapclose [quit]"
 print #1, "down;place 20 40"
 print #1, "|Open the desired sprite image."
 print #1, "|A mask will be added to the sprite "
 print #1, "|as you watch."
 print #1, "|This might take time for large images."
 print #1, "|Images larger than the window "
 print #1, "|will be cut off."
 print #1, "|If it is satisfactory, choose "
 print #1, "|'Save As...' from the File menu."
 hWindow=hwnd(#1)

[loop]
 input aVar$

[quit]
 close #1
 end

[openSprite]
 if hBitmap<>0 then
   unloadbmp ("bm")
   print #1, "cls"
 end if
 filedialog "Open Sprite","*.bmp",bitmap$
 if bitmap$="" then
   notice "No bitmap chosen!"
   goto [loop]
 end if
 print #1, "cls"
 loadbmp "bm" , bitmap$
 hBitmap=hbmp("bm")
 print #1, "down;drawbmp bm 0 0"
 bmpheight=HeightBitmap(bitmap$)
 bmpwidth=WidthBitmap(bitmap$)
 print #1, "drawbmp bm 0 ";bmpheight
 call MakeMask bmpwidth, bmpheight, hWindow
 goto [loop]

[saveAs]
 print #1, "getbmp SpriteMask 0 0 ";bmpwidth;" ";2*bmpheight
 filedialog "Save As... ","*.bmp",savefile$
 if savefile$="" then
   notice "No filename specified!"
   goto [loop]
 end if
 bmpsave "SpriteMask",savefile$
 notice "Sprite and mask saved as ";savefile$
 goto [loop]

'************FUNCTIONS******************
function WidthBitmap(name$)
 open name$ for input as #pic
 pic$=input$(#pic,29)
 close #pic
 WidthBitmap = asc(mid$(pic$,19,1)) + _
   (asc(mid$(pic$,20,1)) * 256)
end function

function HeightBitmap(name$)
 open name$ for input as #pic
 pic$=input$(#pic,29)
 close #pic
 HeightBitmap = asc(mid$(pic$,23,1)) + _
   (asc(mid$(pic$,24,1)) * 256)
end function

sub MakeMask wide, high, hWnd
 cursor hourglass
 white=(255*256*256)+(255*256)+255
 black=0
 open "user32" for dll as #user
 Open "gdi32"for DLL as #gdi
 CallDll #user, "GetDC",_
   hWnd as long,_
   hDC as long
 for i = 0 to wide-1
   for j = 0 to high-1
     CallDll #gdi, "GetPixel",_
       hDC as long,_
       i as long,_
       j as long,_
       pColor as long
     if pColor=black then
       newColor=white
     else
       newColor=black
     end if
     CallDll #gdi, "SetPixel",_
       hDC as long,_
       i as long, _
       j as long, _
       newColor as long, _
       r as long
   next j
 next i
 CallDll #user, "ReleaseDC",_
   hWnd as long,_
   hDC as long,_
   r as long
 close #user
 close #gdi
 cursor normal
end sub


{:0)

Brandon Parker

[atomose]

i know Brandon Parker ^^ thx.
Make sprite as i made will not put trouble in the game. when sprites disappeared its not because of the pictures but its me into the code that make it.
but you right, i will update with sprites maked normally.

[atomose]

New upgrade (v1.33 for the second code) with better performance and optimisation. Now it work at 60fps without freeze.

[Rod]

Movement is smooth and fast, nice.

[atomose]

An amazing update!

- Code optimization going from 1600 lines to ..... only 480 !!!
- performance improvement
- added 8-way movement (hold 2 keys to do this)
- still as many AIs that can be much more configurable now
- many bugs/crash fixed

"ESC" keyboard for close the game

(code on the first post)

[atomose]

new update which optimizes the code from 480 lines to 430 lines !

A new font has been added to make the values more readable. a lot of unnecessary variables or commands have been removed

normally the game is stable on most current pc's at 60fps and shouldn't have any bugs/crashes