fxm wrote: ↑Jun 05, 2022 18:28 If you don't want to split a text line in the file if a delimiter (comma) is encountered in the line, use 'line input #' rather than 'input #'.
(see documentation)

In addition:
Print "Strings:";ubound(load) - lbound(load) + 1

Thanks!

My Question is is that the correct method to load a textfile in an arrey? open "loadme.txt" for input access read as #1 if lof(1)=0 then print "Make a ""loadme.txt"" first." : sleep :end redim load(any) as string dim payload as string Print "loading..&quo...

dim shared as double lagtime,t1,t2,recordlagtime screenres 640,480 locate ,,0 do t1 = timer locate 1,1 print chr(int(rnd*255)); t2 = timer lagtime = t2-t1 if lagtime > recordlagtime then recordlagtime = lagtime locate 30,2 print using "RECORDLAGTIME: ##.#####";recordlagtime; print "s...

I found a way to render with sinus. dim as double x,y,z screenres 640,480 screenlock do y=sin(y)*320+320 x=sin(x)*240+240 pset(y,x),y imp x z+=1 loop until z = 7400000 print "Press a key to exit" screenunlock sleep dim as double x,y,z,o screenres 640,480 do o+=0.00000035 y=sin(y)*320+320 x...

Hi i've just programmed a nice anticheating Engine - Your mission is to hack the displayed Value without changing the Sourcecode. You need 1.09.0 x64 to compile it - no guarantee that will work in other versions.. - i hope you did it :) type ac_ubyte_simple dim value2 as ubyte dim value as ubyte dim...

I have an issue with fbide, when i run this code in fbide(0.4.6) by pressing F5 it will simply close and not pass but if i compile this code and run it directly then will it work. I think there is an issue by the deallocate routine can anyone have an look on it? Ive added already some debug stuff. r...

Yep it is Base64 encoded, but after this you need to decrypt it..
Hint: use randomize, xor, rnd and brain.. :)

Your mission is to decrypt this message!
This can complete be done in Freebasic, its not too hard.. :)

Yay, i think its a very nice Loginengine :) type rightstable admin_rights as integer user_rights as integer is_banned as integer end type type account dim as string password dim as string username dim as integer id dim as rightstable rights dim as integer isloggedin end type dim as account accounts(...

Yeah but why this error?
Any fixes are welcome..

Hello Folks, i acctually not understand why this is not working, thanks! ENUM ProcessState Running Stopped Shutdown Free end enum type process dim as ubyte state declare constructor() end type constructor process process.state = ProcessState.Free end constructor

This thing represents a minimalistic coustom CPU emulator to print an 'Hello World' I think that is a good basepoint to write an more complex emulator. dim shared as ubyte r0,r1,exitflag,prgctr,ram(256) sub cpu do 'case x = opcode select case ram(prgctr) case 0 print chr(ram(r0)); case 1 r0+=1 case ...

Hi guys i had worked very hard on this Crackme, can anyone hack my code? Good look! :D #include "windows.bi" screen 0 width 80,10 color 15 locate ,,0 #define allow_cls #define exitenabled #define buildmode #ifdef enable_debugger declare sub debug_vm Width 120,80 #define boot_debugger #endi...

Rules:
- Post your code that shows some nice effects in screenmode
- Only the original FBGFX.bi is allowd
- Additional DirectX or OpenGL is cheating.. :)
- Have fun!

How do i split and 8bit value in two 4 bit values in freebasic? The theretical code exists but i dont know how to translate this in freebasic.. xD type ubyte4 dim as ubyte hi : 4 dim as ubyte lo : 4 declare sub split(value as ubyte) declare function unsplit as ubyte end type sub ubyte4.split(value a...