@Gunslinger: looks very nice. Thanks for sharing.

Record broken today again:

Most users ever online was 349 on Aug 13, 2019 8:13

badidea wrote:

UEZ wrote:Land It - a primitiv game where you have to land the shuttle on a flat ground.
Arrow keys to steer shuttle (yellow). You must land less than 0.5 speed. Press Enter to start and Q to exit game.
Version 0.1 without shorten the code too much ...

This should be fixed in v0.15+.

@D.J.Peters: Hmmm, that's odd. I can play it properly on my notebook. Your version doesn't run properly on my machine - it flickers, keys cannot be used properly anymore and the text "Out of fuel. Game Over!" is displayed permanently. Anyhow, I updated the code to v0.15 without frame count...

Land It - a primitiv game where you have to land the shuttle on a flat ground. Arrow keys to steer shuttle (yellow). You must land less than 0.5 speed. Press Enter to start and Q to exit game. When "Game over" is displayed, press R to restart. Version 0.25 ( 3312 bytes): 'Coded by UEZ v0....

This seems to work when adding -s gui to the building parameter.

Example: fbc.exe" -b "Test.bas" -gen gcc -Wc -Ofast -s gui

When you omit -s gui console will be shown by default.

Moonshine 700 bytes: #Include "fbgfx.bi" #Define S Single Using FB:Const As Integer NS=1023:Dim Shared As S N(NS) Randomize:For x As Integer = 0 To NS:N(x)=Rnd():Next Function sN1d(x As S) As S x=Abs(x):Dim As Integer x1=Int(x),x2=x1+1:Dim As S tx=x-x1:x1 And=NS:x2 And=NS:Dim As S l=N(x1),...

srvaldez wrote:thank you UEZ
look forward to the unicode version :-)

Well, if you save the source code in UTF-8 format then unicode will work automatically with compiled exe.

@UEZ thank you but your input box as it is, lacks the functionality of returning user input, other than the yes or no but I like the fading effect :-) Indeed, my mind was at a messagebox rather than an inputbox. I updated the code but currently ANSI only. I need to find out how to get unicode compa...

Here my next version which is small advanced version from my previous example: 'Coded by UEZ build 2019-07-15 #Include "windows.bi" Dim Shared As HWND g__hGUI, g__hInput Dim Shared As HBRUSH g__hBrush Dim Shared As Ulong g__TxtColor = 0 Sub __FadeInputBox() Static As UByte c = 0 Dim As REC...

Here my version: 'Coded by UEZ build 2019-07-15 #Include "windows.bi" Dim Shared As HWND g__hGUI, g__hInput Function __WndProc(hWnd As HWND, uMsg As UINT, wParam As WPARAM, lParam As LPARAM) As Integer Select Case hWnd Case g__hGUI Select Case uMsg Case WM_CLOSE PostQuitMessage(0) Return 0...

Makoto WATANABE wrote:...
By the way, I would like to translate your program into Japanese and introduce it to Japanese people on my website.
Please consent to this.

Yes, go ahead. ^^

@UEZ works as advertised :-) just an observation, when compiling with -w pedantic there are a number of warnings due to missing byval or byref in your function declarations, it's easy enough to see that they should be byval, except for arrays another thing, a normal exit is usually 0. I hope that y...

@Makoto WATANABE: you can do something like this here using GDI+: 'coded by UEZ build 2019-07-12 #Ifdef __Fb_64bit__ #Inclib "gdiplus" #Include "win/gdiplus-c.bi" #Else #Include "win/gdiplus.bi" Using gdiplus #Endif #Include "fbgfx.bi" Using FB Dim Shared gdip...

Here an example how to decode GIF frames using GDIPlus windows lib -> viewtopic.php?f=7&t=27429&p=258357&hilit=GIF+Anim+to+ASCII+Player.#p258342