Search found 81 matches

by mrminecrafttnt
Dec 26, 2018 12:15
Forum: Projects
Topic: Fbc compiler benchmark
Replies: 0
Views: 206

Fbc compiler benchmark

Benchmarks your FBC Compiler.. :) dim as double runtime = timer width 120,40 color 15 locate 2,2 Print "FBCBench 0.1 - Compiled with:";__FB_VERSION__ color 7 dim as integer subnr,osubnr,defaultsubnr = 5000,setsubnr setsubnr = val(command) if setsubnr = 0 then setsubnr = defaultsubnr : prin...
by mrminecrafttnt
Dec 17, 2018 22:35
Forum: General
Topic: Have i found an hidden Print function??
Replies: 2
Views: 135

Have i found an hidden Print function??

Check this..

Code: Select all

screenres 640,480
print string((1024*8)+210,2)
sleep
by mrminecrafttnt
Dec 14, 2018 22:05
Forum: General
Topic: Passing fixed-len string as arguments: possible but not recommended?
Replies: 19
Views: 530

Re: Passing fixed-len string as arguments impossible?

It's not supported.. declare sub test (x as zstring * 6) gives me error 323: Fixed-length string combined with BYREF (not supported), before ')' in 'declare sub test (x as zstring * 6) you have to write your own routines... ;) You ive did this for you. It's not perfect but it sill works ;) type auto...
by mrminecrafttnt
Dec 12, 2018 20:15
Forum: General
Topic: Programm is simply closeing but.. why??
Replies: 4
Views: 190

Re: Programm is simply closeing but.. why??

Hello, can you show an output of what it does before it crashes? Yep it is now stablilized to show what it does and where it fails. #define thread_uninitalized 0 #define thread_running 1 #define thread_crashed 2 type thread_controller state as uinteger declare sub reboot(t_adress as any ptr,byref s...
by mrminecrafttnt
Dec 12, 2018 19:23
Forum: General
Topic: Programm is simply closeing but.. why??
Replies: 4
Views: 190

Programm is simply closeing but.. why??

I am try to make an auto restarting sub after an crash but it will simply close my programm without errors?? I don't know why it will do this.. ? This is mytherious.. :/ #define thread_uninitalized 0 #define thread_running 1 #define thread_crashed 2 type thread_controller state as uinteger declare s...
by mrminecrafttnt
Dec 11, 2018 0:20
Forum: Tips and Tricks
Topic: Stack CPU Emulation
Replies: 1
Views: 143

Stack CPU Emulation

This one emulates a Stack like a CPU. Push - Writes a Value into the Stack Pop - Reads a value form the Stack 1024 Values can be written pro Stack What is does: https://en.wikipedia.org/wiki/Stack_(abstract_data_type) type stack id as integer ptr d as integer ptr declare sub push (value as integer) ...
by mrminecrafttnt
Dec 09, 2018 11:31
Forum: General
Topic: How to fix error 177 ???
Replies: 40
Views: 897

Re: How to fix error 177 ???

Ok, i think now waht is do, i've fixed this with: function Inventory.getObj(ObjName as string) as InventoryObjectData dim as integer id = search_id(ObjName) if id = -1 then print "Object not found" dim as InventoryObjectData EmptyObject return EmptyObject else return ObjectData(id) end if ...
by mrminecrafttnt
Dec 06, 2018 21:56
Forum: General
Topic: How to fix error 177 ???
Replies: 40
Views: 897

How to fix error 177 ???

Hi! I am writing actually on an new Inventory Engine. But i stopped at error 177. ?? What does this means: RETURN mixed with 'FUNCTION =' or EXIT FUNCTION (using both styles together is unsupported when returning objects with constructors), found 'ObjectData' in 'return ObjectData(id)' Thanks for he...
by mrminecrafttnt
Dec 06, 2018 16:41
Forum: General
Topic: Possible to combine an fbc dll with VB.net as main programm??
Replies: 1
Views: 130

Possible to combine an fbc dll with VB.net as main programm??

With my methods, the application will simply freeze..??
by mrminecrafttnt
Dec 03, 2018 23:58
Forum: General
Topic: Anticheating engine - how to improve this?
Replies: 4
Views: 290

Re: Anticheating engine - how to improve this?

-Selftest added for Randomizer and the main functions -Instructioncounter added that detected if too much code changed -> output is an random value -Warning added for cheaters, this will be triggered when too much code is changed Happy hacking! :) type ash value as integer declare constructor end ty...
by mrminecrafttnt
Dec 01, 2018 11:01
Forum: General
Topic: Anticheating engine - how to improve this?
Replies: 4
Views: 290

Re: Anticheating engine - how to improve this?

New features: -some obusfactoring -error compension -returning random numbers when a cheat was detected in multiple cases -timer based anti debugging Good look to cheat this! :) type anticheat T as integer errorcompension as integer value(2) as integer key(2) as integer hash as integer declare sub s...
by mrminecrafttnt
Nov 26, 2018 7:29
Forum: General
Topic: Anticheating engine - how to improve this?
Replies: 4
Views: 290

Anticheating engine - how to improve this?

Hi i am actually improving my anticheating engine. Any ideas? :) It encrypts the orignal value and hashes this encrypted value after this. Good look to cheat.. :) type anticheat value as integer key as integer hash as integer declare sub set (v as integer) declare function get as integer end type su...
by mrminecrafttnt
Oct 28, 2018 15:01
Forum: Projects
Topic: The uncheatable Value
Replies: 0
Views: 212

The uncheatable Value

Simply try to use Cheatengine to change this value.. good look! :D type encoded_ubyte dim as ulongint ptr value dim as ulongint ptr key declare sub set (value as ubyte) declare function get as ubyte declare constructor declare destructor end type constructor encoded_ubyte key = new ulongint[1] value...
by mrminecrafttnt
Oct 26, 2018 13:23
Forum: Projects
Topic: FreebasicNetChat
Replies: 0
Views: 222

FreebasicNetChat

This one is an Idea to chat over an approved Networkfolder with read/write rights, simple encryption included.. ;) -Edit: some Bugs are already fixed ;) open "FBChat.dat" for binary as #1 sub write_msg(msg as string) dim as ushort length = len(msg) dim as ubyte buffer(length) for i as inte...
by mrminecrafttnt
Oct 22, 2018 9:03
Forum: Projects
Topic: Cubeeater [GAME]
Replies: 6
Views: 456

Re: Cubeeater [GAME]

Simple disable the border detection with

Code: Select all

 
 .
 .
 .
    with user
       ' if .x + .size > 640 then setmouse mx-.size,my
        'if .y + .size > 480 then setmouse mx,my-.size
  .
  .
  .
end with

Go to advanced search