Recent Posts

Pages: [1] 2 3 ... 10
1
EGSL / gamestate
« Last post by pielago on 16. February 2017, 11:22:45 »
Was wondering if anyone done a game with gamestate? like menu , game etc ??? I am trying to make a game with states once the game start to display a welcome than send to menu but i haven't figure out yet how in this engine works ???  tried  love2d way and also corona sdk way but  none of them  work?

can anyone help with an example??
2
EGSL / Re: how to make a simple game executable ( mac ) with icon?
« Last post by pielago on 16. February 2017, 11:16:22 »
awww. i see well  hope someone actually did the game executable and be kind of  help me..
3
EGSL / Re: how to make a simple game executable ( mac ) with icon?
« Last post by ZXDunny on 15. February 2017, 00:20:36 »
You might have to convert your png icon file into a .icns resource - there's lots of info on how to do that on Google. Also the Apple developer documentation is pretty much invaluable for instruction in how to create an application bundle.
4
I posted a download of the Script BASIC for Windows 32 bit bundled in an Inno setup file. If you have some spare time on your hands and can give it a try, your feedback would be appreciated. Examples you create and willing to share are always welcome.

Script BASIC Windows 32 bit Inno Install Download
5
EGSL / Re: how to make a simple game executable ( mac ) with icon?
« Last post by pielago on 14. February 2017, 21:52:02 »
I just did that and I still have problems but this time another folder is created ? after i click executable...
is there a site or a place where i can see it how its done????on the plus side i made a very small progress from 0 :)  in to the executable !!
6
Code and examples / Re: Graphic effects
« Last post by Galileo on 14. February 2017, 19:13:56 »
Code: [Select]
// Effect 5b
// Developed in Yabasic 2.78.0 by Galileo, 2/2017
// Play with parameters

width = 640 : height = 480
ndrops = 500
sizeletter = 300 : t$ = "B"

dim drop(ndrops, 6)
dim bg(width, height)

dcount = 0
for n = 1 to ndrops
newDrop(n)
next n

open window width,height
backcolor 255,255,255
clear window
color 1,0,0
text 10,15,"Please, wait ...","swiss12"
color 0,0,0
text width/2,height/2,t$,"swiss"+str$(sizeletter),"cc"
for x = 1 to width
for y = 1 to height
if getbit$(x,y,x,y) = "rgb 1,1:000000" bg(x, y) = 1
next y
next x
clear window

do
for n = 1 to ndrops
x = drop(n,1) : y = drop(n,2)
if drop(n,2) > height+3 newDrop(n)
clear fill circle drop(n,1),drop(n,2), 3
if (x > -1) and (x < width + 1) and (y > -1) and (y < height + 1) and bg(x, y) then
if drop(n,3)> .01 then
drop(n,3)=drop(n,3)-.01
else
drop(n,3)=0
end if
end if
drop(n,2) = drop(n,2) + drop(n,3)
color drop(n,4),drop(n,5),drop(n,6)
fill circle drop(n,1),drop(n,2), 3
next n
loop


sub newDrop(n)
drop(n, 1) = ran(width)
drop(n, 2) = -ran(height)
drop(n, 3) = ran(3)+.5
drop(n, 4) = ran(255)
drop(n, 5) = ran(255)
drop(n, 6) = ran(255)
end sub
7
EGSL / Re: how to make a simple game executable ( mac ) with icon?
« Last post by ZXDunny on 14. February 2017, 16:01:04 »
On OSX, Applications don't have icons associated with them - they are bundled.

Basically you need to google that. Your executable goes into the <appname>.app/Contents/MacOS and your Icon into the resources folder, then fill in the required info.plist file. OSX will then treat that folder (with the .app extension) as a single file, using the icon you supply. You can also execute batch files if your executable needs to be run via a runtime exe.
8
EGSL / how to make a simple game executable ( mac ) with icon?
« Last post by pielago on 14. February 2017, 04:25:06 »
hope someone can help me with these  problems?
I did the tutorial?
added a text and a simple icon.png
under a folder made on the desktop called  tutorial.. i have a  ( tutorial.lua ) + icon.png
when I finish that  small example instead of pressing the play  (did before to test it.. it worked) i pressed the executable button but nothing happened??? do I need anything else under the folder tutorial???
and will the game work for windows? or just mac ( i am using mac )  ???


thanks!!!
9
Code and examples / Happy Valentines Day
« Last post by B+ on 14. February 2017, 02:17:21 »
Code: [Select]
'Draw heart.bas FreeBASIC [B+=MGA] 2107-02-13
' orig from SmallBASIC version 2017-02-13

Const As Double PI = ACos(-1)

'Set screen size here
dim as integer xmax = 800, ymax = 720, depth = 32
screenres xmax, ymax, depth, 2
WindowTitle "Draw Heart  -  Press esc to exit"

Sub drawHeart(x As Double, y As double, angle As double, height As Double)
'below 50 not so good over 300 outgrows height box
'height x height is approximately the square the heart fits inside
'x, y is bottom point of upright heart
  Dim As Double k, r
k = 3*pi/2 'when angle = 0 then you have standard upright heart
For r = 0 to height/6
    Circle(x + 5*r*cos(k + angle - pi/11), y + 5*r*sin(k + angle - pi/11)), r^1.2, , , , , F
    Circle(x + 5*r*cos(k + angle + pi/11), y + 5*r*sin(k + angle + pi/11)), r^1.2, , , , , F
  Next
  'fix bottom point
  for r = -pi/9 to pi/9 step .02
    Line(x, y)-(x + .8*height*cos(k + angle + r), y + .8*height*sin(k + angle + r))
  Next
End Sub

Dim As Integer page, notpage
Dim As Integer a = 127
Dim As Double hmax = 590/760*ymax
Dim As Double red, green, blue, h
Dim As UInteger cc
Dim ky as String
notpage = 1
While ky <> Chr(27)
If page = 0 THEN page = 1 ELSE page = 0   'These two lines flip the page and the
  If notpage = 1 THEN notpage = 0 ELSE notpage = 1 'backpage
  SCREENSET page, notpage 'This flips the page
  red = rnd^2 : green = rnd^2 : blue = rnd^2
  for h = hmax to 15 step -1
    Color rgb(a+a*sin(red*h*.1), a+a*sin(green*h*.1), a+a*sin(blue*h*.1) )
    drawHeart(xmax/2, ymax - 20, 0, h)
  Next
  ky = InKey
Wend
10
Code and examples / Re: Graphic effects
« Last post by Galileo on 13. February 2017, 20:20:11 »
Code: [Select]
// Effect 14
// Developed in Yabasic 2.78.0 by Galileo, 2/2017
// Play with parameters

width = 640 : height = 480
sizeletter = 300 : t$ = "B"

open window width,height
clear window

scol = 255/height
col = 0

for y = height to 0 step -1
color col,col,col
line 0,y to width,y
col = col + scol
next y

color 100,100,100
text width/2+5,height/2+5,t$,"swiss"+str$(sizeletter),"cc"

color 1,0,0
text width/2,height/2,t$,"swiss"+str$(sizeletter),"cc"

inix = width/2-sizeletter/2 : finx = inix+sizeletter
iniy = height/2-sizeletter/2 : finy = iniy+sizeletter

scol = 255/(finy-iniy)
col = 255

for y = iniy to finy
color col,col,col
for x = inix to finx
cpixel$ = getbit$(x,y,x,y)
if cpixel$ = "rgb 1,1:010000" then
dot x,y
end if
next x
col = col - scol
next y
Pages: [1] 2 3 ... 10