Search found 66 matches

by mrminecrafttnt
Oct 21, 2018 12:04
Forum: Projects
Topic: Cubeeater [GAME]
Replies: 2
Views: 74

Cubeeater [GAME]

Here is my first game :) You playing a red cube. User the mouse to eat other cubes. Have fun :) const level_incraser = .75 const beginnlevel = 1 type cube_2d x as double y as double c as integer size as double declare sub draw declare function is_hit(cube as cube_2d) as integer end type 'draws our c...
by mrminecrafttnt
Oct 20, 2018 22:55
Forum: Tips and Tricks
Topic: Collision detection circle <-> rectangle with position correction
Replies: 2
Views: 97

Re: Collision detection circle <-> rectangle with position correction

I made a little Minigame, based on your code with 2D cubes, have fun :D type cube_2d x as integer y as integer c as integer size as double declare sub draw declare function is_hit(cube as cube_2d) as integer end type 'draws our cube sub cube_2d.draw line(x,y)-(x+size,y+size),c,bf end sub 'checks if ...
by mrminecrafttnt
Oct 16, 2018 11:01
Forum: Projects
Topic: Sort of overselling this as a project... Arkanoid physics toy
Replies: 6
Views: 294

Re: Sort of overselling this as a project... Arkanoid physics toy

change dim Active_Screen as Integer dim Passive_Screen as Integer to dim Active_Screen as Integer = 1 dim Passive_Screen as Integer = 0 and if Active_Screen = 1 then Active_Screen = 0 else Active_Screen = 1 if Active_Screen = 1 then Passive_Screen = 0 else Passive_Screen = 1 to swap Active_Screen, P...
by mrminecrafttnt
Oct 14, 2018 22:33
Forum: Projects
Topic: A simple RPG Engine with Charakters, buyable Items, Inventory and a simple Fightsystem, written by me
Replies: 6
Views: 275

Re: A simple RPG Engine with Charakters, buyable Items, Inventory and a simple Fightsystem, written by me

Can I do anything here besides pressing SPACE? Here is a little version with Healing and Hero Leveling and a little Quest Press [Space] to fight, [H] to get heal you self.. Actually i have so much to rewrite to get more Dynamic.. :) type Experience XP as Uinteger XP_Next as Uinteger Level as Uinteg...
by mrminecrafttnt
Oct 12, 2018 15:00
Forum: Projects
Topic: A simple RPG Engine with Charakters, buyable Items, Inventory and a simple Fightsystem, written by me
Replies: 6
Views: 275

Re: A simple RPG Engine with Charakters, buyable Items, Inventory and a simple Fightsystem, written by me

Yay! The crash i now removed but it does not that waht it should..^^
With:

Code: Select all

dim Items(any) as Item

Update:
OK! Engine errors are complete fixed. And the code is updated.
Let me know when you have more issuses..
by mrminecrafttnt
Oct 11, 2018 11:29
Forum: Projects
Topic: A simple RPG Engine with Charakters, buyable Items, Inventory and a simple Fightsystem, written by me
Replies: 6
Views: 275

A simple RPG Engine with Charakters, buyable Items, Inventory and a simple Fightsystem, written by me

type Item Itemname as string ItemType as string ItemID as Integer Amount as Integer Cost as Integer Damage as Integer end type type charakter Username as String Inventory(any) as Item HP as integer Damage as integer end type 'find an item in an itemtable function find_item(ItemName as string,ItemTa...
by mrminecrafttnt
Oct 09, 2018 22:18
Forum: Projects
Topic: FBChat
Replies: 0
Views: 190

FBChat

Hi there this is a very simple Chat programm for an shared folder. 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 integer = 0 to length-1 buffer(i)=msg[i] next put #1,1,length put #1,,buffer() end sub fun...
by mrminecrafttnt
Sep 25, 2018 10:31
Forum: General
Topic: How to access to an ANY Arrey in a udt??
Replies: 4
Views: 117

Re: How to access to an ANY Arrey in a udt??

Here we go! I solve this so: type menu_item menuitemname as string menuitemadress as sub menuitembutton as ubyte declare sub runit end type type menu menuname as string dim as integer px,py declare sub add_item (itemname as string,menu_adress as sub ) declare sub open_menu items(any) as menu_item de...
by mrminecrafttnt
Sep 25, 2018 8:29
Forum: General
Topic: How to access to an ANY Arrey in a udt??
Replies: 4
Views: 117

How to access to an ANY Arrey in a udt??

I am just writing on an dynamic Menu engine but i get Illegal non-static member access, found 'items' in 'print cast(menu_item ptr,menu.items(i).menuitemname)' type menu_item menuitemname as string menuitemadress as sub ptr menubutton as ubyte declare sub set_menuitem (menutext as string,menu_adress...
by mrminecrafttnt
Aug 02, 2018 16:18
Forum: Tips and Tricks
Topic: Cheat prevetion for Ubytes
Replies: 24
Views: 1142

Cheat prevetion for Ubytes

type memorycell as ubyte cell : 1 as ubyte paritycell : 1 as ubyte read_write_state : 1 as ubyte protected_mode : 1 declare function rw_cell (value as ubyte = 0) as ubyte declare sub lock_cell declare sub unlock_cell declare sub write_mode declare sub read_mode end type function memorycell.rw_cell ...
by mrminecrafttnt
May 10, 2018 15:40
Forum: Tips and Tricks
Topic: Back to the roots - A very simple Arrowkey handler
Replies: 0
Views: 228

Back to the roots - A very simple Arrowkey handler

dim as string inputbuffer do inputbuffer = inkey select case inputbuffer CASE CHR(255)+"H" ' Arrowkey UP print "UP" CASE CHR(255)+"P" ' Arrowkey DOWN print "DOWN" CASE CHR(255)+"K" ' Arrowkey LEFT print "LEFT" CASE CHR(255)+"M" '...
by mrminecrafttnt
Dec 22, 2017 16:53
Forum: Tips and Tricks
Topic: Faster Renderer for Pset
Replies: 27
Views: 1331

Re: Faster Renderer for Pset

MrSwiss wrote:
mrminecrafttnt wrote:Works with fbc 32 bit fine.

In FBC 32 - UInteger = ULong, (32-bit int. type) however,
in FBC 64 - UInteger = ULongInt (64-bit int. type)

Only a ULong is, on both Compilers (always) 32-bit !!!


Good to know, code is now working on fbc 32bit and fbc 64bit :)
by mrminecrafttnt
Dec 22, 2017 16:39
Forum: Tips and Tricks
Topic: Faster Renderer for Pset
Replies: 27
Views: 1331

Re: Faster Renderer for Pset

I've rewitten the code. Here is a 1920x1080, 32bit demo :) Works with fbc 32 bit and 64 bit fine. const sw = 1920 const sh = 1080 screenres sw,sh,32,2 dim as integer cx #undef pset sub pset (x as uinteger,y as uinteger,c as ulong) static s as uinteger ptr static w as uinteger if s = 0 then s = scree...
by mrminecrafttnt
Dec 22, 2017 15:40
Forum: Tips and Tricks
Topic: Faster Renderer for Pset
Replies: 27
Views: 1331

Re: Faster Renderer for Pset

Here is an example for 32bit Color, i will still working on it, to optimize the speed, actually i working on a high efficient ASM code with SSE3 and MMX :) screenres 1920,1080,32,2 #undef pset sub pset(y as uinteger,x as uinteger,c as uinteger) static s as integer ptr static w as integer if w = 0 th...
by mrminecrafttnt
Dec 20, 2017 22:57
Forum: General
Topic: Code runs slow with fbc 64 bit..
Replies: 3
Views: 276

Code runs slow with fbc 64 bit..

The compiled code is working faster in fbc 32 bit. In fbc 64 bit is it very slow but why? Tested with fbc 1.05.0 screenres 1920,1080 #undef pset sub pset(y as integer,x as integer,c as integer) static s as ubyte ptr static w as integer if w = 0 then screeninfo w,,c s = screenptr end if s[(x*w)+y]=c ...

Go to advanced search