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!
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.
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
thx for the help .