freebasic.net

AndT

dim a (1 to 1024,0 to 768) as ubyte
dim b (1 to 1024,0 to 768) as ubyte

I can't debug this because it is simply crashing by all what i do.

Version: 0.24.0 (WIN32)

AndT

Hello everybodey. Who can hack this? It is a game. You have to Display :"YES YOU DID IT - WRITE A TUTORIAL AND DONE :)" to win. ==--Features--== - A complex loginsystem - A little commandline interpreter (the parser is the sub 'makepdata') - No liniare code to win. - Some eastereggs - bugs...

AndT

Sure, it is not perfectly but usefull ;) 'It can pack and extract files very very fast ;) type fs ' //FILESYSTEM HEADER filelength as uinteger filenamelength as uinteger filename as string 'fec as any ptr ' instream fec error correction (to do, source removed) end type SUB PACK(PACKAGENAME AS STRING...

AndT

I've fixed it, i think it is now unbreakable ;) Declare Sub Print_Info () Dim Shared As Integer Score=1232123 - 5, OldScore,ALLOWDISPLAY 'Protectaddition Dim ProtectBank(0 To 10) As Integer Dim ProtectNr As Integer Dim Checksum As Integer Dim Checksum2 As Double Dim NoCrack As Ubyte = 129 Dim Fullte...

AndT

Code: Select all

' -exx will give a crash :)

declare sub print123
dim as sub ptr n = @ print123
dim as sub main


sub print123
    'exit sub 'this will print 2x 123 (dont work in -exx)
    print 123
end sub



main = n+1
main()

AndT

So simple does it work: dim as sub main sub callme print "HELLO :)" end sub main = @callme main() sleep This will display the correct adress of the called sub :) sub t1 print "this is the t1 sub" end sub sub t2 print "this is the t2 sub" end sub sub callsub (subadr as a...

AndT

Just for fun :) #include "windows.bi" const msg = "BEATBOX by AndT" const sleeptime = 100 dim shared beatboxend as ubyte sub pause sleep sleeptime,1 end sub sub s1 MessageBox( null, msg, msg, MB_ICONERROR ) end sub sub s2 MessageBox( null, msg, msg, MB_ICONINFORMATION ) end sub s...

AndT

i can only move this window down and right.. why? type v_window title as string titlesize as integer x as integer x_end as integer y as integer y_end as integer ' testcode text as string end type dim as v_window test_wnd 'testfenster with test_wnd .title = "Click here to move it.." .titles...

AndT

THIS "0.seq" is a preview of my extreme edition :) 0 PHAS 4 4 0 0 0 Camera 0 0 0 20 210.3999 420.7998 0 5 10 0 0 0 0 0 0 0 Hex Tunnel 2 0 9.671418e-002 -2.049299 0 0 0 0 0 0 100 23 7 1 0 0 1400 2 1 0.1 5.e-002 2.5e-002 -10 0 0 200 0.9 0.5578302 0.5051887 10 0 0 200 0.2311321 5.996351e-002 ...

AndT

it works :)
so i will make exteme edition with more waves and weapons *g*

AndT

"ld.exe: cannot find -lext-core"
what is to do?

AndT

As example: Insert in Function.bas: ' Insert Types, SUB'S, Function and more here... function testpressedkey as integer if inkey <> "" then return 1 end function Main.bas: ' Insert your Programm programm here.. DO PRINT "IT WORKS!" IF TESTPRESSEDKEY THEN EXIT DO LOOP END After th...

AndT

Lol, why then

Code: Select all

Type arreytype
    Dim As Ubyte arrey_in_type (1 To 102400)
End Type

Dim Shared As arreytype main (1 To 640000)
sleep

works without errors?

AndT

Code: Select all

type arreytype
    dim as ubyte arrey_in_type (1 to 64000)
end type

dim shared as arreytype main (1 to 100000)

AndT

Ich habe mir darüber überlegt wie die Programme in Freebasic vor Hacks geschützt werden könnten und bin auf eine ebenso effetive wie auch simple und leicht handzuhabende methode gestoßen. :D Ihr müsse diesen Code einfach Kompilieren und ausführen. Es werden zwei Dateien erstellt, eine 'key.dat' und ...

Search found 26 matches

Possible Bug with arrays?

Who can hack this? (Don't modify the code :p)

A simple Filepack / extract routine with a costum container

Possible bug?

A debugging method for subs :)

Beatbox with windows messagebox

problem with windowmoving

Bug detected?

A simple Applicationprotector (Freebasic only)