Search found 103 matches

by mrminecrafttnt
Jun 06, 2022 5:58
Forum: General
Topic: Simple textfile to array loader
Replies: 2
Views: 181

Re: Simple textfile to array loader

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! :)
by mrminecrafttnt
Jun 05, 2022 17:34
Forum: General
Topic: Simple textfile to array loader
Replies: 2
Views: 181

Simple textfile to array loader

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...
by mrminecrafttnt
May 15, 2022 23:00
Forum: General
Topic: Why is this lagging?
Replies: 1
Views: 142

Why is this lagging?

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...
by mrminecrafttnt
Mar 28, 2022 10:23
Forum: Sources, Examples, Tips and Tricks
Topic: Minimalistic procedual Sinus Rendering
Replies: 0
Views: 395

Minimalistic procedual Sinus Rendering

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...
by mrminecrafttnt
Mar 20, 2022 10:21
Forum: Projects
Topic: Operation Cheatme!
Replies: 0
Views: 450

Operation Cheatme!

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...
by mrminecrafttnt
Mar 17, 2022 11:47
Forum: General
Topic: Program closes in FBIde without errors by pressing F5
Replies: 1
Views: 169

Program closes in FBIde without errors by pressing F5

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...
by mrminecrafttnt
Oct 25, 2021 11:02
Forum: Community Discussion
Topic: Decrypt challenge
Replies: 9
Views: 1209

Re: Decrypt challenge

Yep it is Base64 encoded, but after this you need to decrypt it..
Hint: use randomize, xor, rnd and brain.. :)
by mrminecrafttnt
Oct 22, 2021 22:42
Forum: Community Discussion
Topic: Decrypt challenge
Replies: 9
Views: 1209

Decrypt challenge

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

Code: Select all

dim as string message = "Vq/yNcZe45Tp0PjgEitdOelz4F6NhexKxCeO"
by mrminecrafttnt
Jul 13, 2021 9:38
Forum: Sources, Examples, Tips and Tricks
Topic: Just a simple Loginengine
Replies: 0
Views: 1128

Just a simple Loginengine

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(...
by mrminecrafttnt
Jun 11, 2021 0:57
Forum: Beginners
Topic: Enum not working
Replies: 4
Views: 577

Re: Enum not working

Yeah but why this error?
Any fixes are welcome..
by mrminecrafttnt
Jun 10, 2021 23:44
Forum: Beginners
Topic: Enum not working
Replies: 4
Views: 577

Enum not working

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
by mrminecrafttnt
May 17, 2021 14:56
Forum: Sources, Examples, Tips and Tricks
Topic: 8-bit Sandboxed HelloWorld CPU Emulator
Replies: 0
Views: 817

8-bit Sandboxed HelloWorld CPU Emulator

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 ...
by mrminecrafttnt
Jan 22, 2021 13:01
Forum: Sources, Examples, Tips and Tricks
Topic: Crackme challange
Replies: 0
Views: 957

Crackme challange

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...
by mrminecrafttnt
Nov 28, 2020 21:17
Forum: Sources, Examples, Tips and Tricks
Topic: The ultimate FBGFX thread
Replies: 18
Views: 3071

The ultimate FBGFX thread

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!
by mrminecrafttnt
Nov 18, 2020 7:20
Forum: General
Topic: Split 8bit in 4bit
Replies: 26
Views: 2502

Split 8bit in 4bit

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...