10.03.2019 - Round 1 results of our "A Love Letter For FreeBASIC" game dev competition have been published. Please be sure to check the results thread: http://games.freebasic.net/forum/index.php?topic=629.0. Don't forget that the competition is continuing with a round 2, lasting till 29th of April, 300 USD first prize. Stay tuned!
Recent Posts
dim win as any ptr
dim as integer winsx,winsy,winpx,winpy
winsx = 440
winsy = 25
winpx = 500
winpy = 200
SUB Cwindow(winax AS INTEGER,winay AS INTEGER,winex AS INTEGER,winey AS INTEGER,title AS STRING,wcolor AS INTEGER)
LINE(winax,winay+1)-(winex+1,winey),RGBA(0, 0, 50, 0), BF
LINE(winax+1,winay+1)-(winex-1,winey-1),rgb(238, 238, 238), BF
LINE(winax+2,winay+2)-(winex-2,winey-2),rgb(30, 32, 65), B
LINE(winax+3,winay+3)-(winex-3,winay +21),rgb(30, 32, 65), BF
END SUB
dim icons as any ptr
dim as integer iconsposx,iconsposy
dim as integer iconssizex,iconssizey
icons = imagecreate(iconsposx,iconsposy)
bload exepath + "/pic/icon.bmp",icons
iconssizex = 44
iconssizey = 46
iconsposx = 46
iconsposy = 46
dim button as any ptr
dim as integer mousebuttons ,buttonposx,buttonposy
dim as integer buttonsizex,buttonsizey
buttonsizex = 95
buttonsizey = 30
buttonposx = 10
buttonposy = 700
#include "button.bi"
#include "mouse.bi"
#include "win.bi"
#include "icons.bi"
#include "window.bi"
ScreenRes 1024 ,768 ,16,2
'' Desktop width/height
'' screen
'' Create a screen at the width/height of your monitor.
'' Normally this would be slow, but GDI is fairly fast for this kind
'' of thing.
'' Start our timer/
'' loads starting pic
print "Made by NEO2501 "
print "loading mouse drivers"
dim as integer exittheloop
Const True = 1 '' if true then 1
const false = not true '' if false then not true
'' for win button window .... just a note ... donnt 11 get 11
'' calls the statring buttons to the right pic and placement
GetMouse mousex, mousey , , mousebuttons, '' gets the mosue
'' cls screen do not fuck with .....or timeing with get messywith out
Do
Mouse = GetMouse (x, y, , buttons)
'' Draw checkered background
icons = imagecreate(iconsposx,iconsposy)
bload exepath + "/pic/icon.bmp",icons
winpx=x:winpy=y
'' from this line down is buttonsize x,y ,buttonpos x,y
if buttons=1 then
winpx=x:winpy=y
CLS
put (iconsposx,iconsposy),icons
Cwindow(x,y,420,240,"",3)
DRAW STRING(+150,+150),"-gui demo"
DRAW STRING(410,465),"Press 'Esc' to exit the demo"
endif
Sleep 1,1 ' Put ANY sleep in all your loops to prevent 100 % CPU usage!
ImageDestroy( icons )
loop until exittheloop = True or Multikey(&h01) ' exit loop if you also press ESCAPE
end