CodeBase Entries

This function is used to switch to fullscreen mode.

I know this is newbie, this code is a decrypted for messages u can write

This program is all objects in your director load,play & texture

3 new functions that work with the USGS gridfloat files. 1. lo_val() returns the lowest height value in the gridfloat file. 2. hi_val() returns the highest height value in the gridfloat file. 3. convert_to_unit() takes in a regular gridfloat file and converts the height values to normalized values (0.0 to 1.0)

Allows sprites to be rotated around a point of origin.

This is just something I have been doing, not knowing WTF i was doing!!! (BTW this is the first thing i have ever made on here...)

just like dooruse but will close behind you automatically

More life like response to colision, distance and attacks

TextBox on Dark Basic Pro

Dim Simon(400) Sync On Do SimonCount = SimonCount + 1 Simon(SimonCount) = Rnd(3)+1 For Run = 1 To SimonCount Light = Simon(Run) Box 0,0,100,100,RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0) Box 100,0,200,100,RGB(0,255,0),RGB(0,255,0),RGB(0,255,0),RGB(0,255,0) Box 200,0,300,100,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255) Box 300,0,400,100,RGB(255,255,0),RGB(255,255,0),RGB(255,255,0),RGB(255,255,0) Box (100*(Light-1)),0,(100*Light),100,RGB(255,255,255),RGB(255,255,255),RGB(255,255,255),RGB(255,255,255) Sync Sync Sleep 400 Box 0,0,100,100,RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0) Box 100,0,200,100,RGB(0,255,0),RGB(0,255,0),RGB(0,255,0),RGB(0,255,0) Box 200,0,300,100,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255) Box 300,0,400,100,RGB(255,255,0),RGB(255,255,0),RGB(255,255,0),RGB(255,255,0) Sync Sync Sleep 100 Next Run For Run = 1 To SimonCount Choice = 0 While Mouseclick() = 0 Box 0,0,100,100,RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0) Box 100,0,200,100,RGB(0,255,0),RGB(0,255,0),RGB(0,255,0),RGB(0,255,0) Box 200,0,300,100,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255) Box 300,0,400,100,RGB(255,255,0),RGB(255,255,0),RGB(255,255,0),RGB(255,255,0) Sync Sync EndWhile If MouseX() > 0 And MouseX() < 100 Then Choice = 1 If MouseX() > 100 And MouseX() < 200 Then Choice = 2 If MouseX() > 200 And MouseX() < 300 Then Choice = 3 If MouseX() > 300 And MouseX() < 400 Then Choice = 4 Box (100*(Choice-1)),0,(100*Choice),100,RGB(255,255,255),RGB(255,255,255),RGB(255,255,255),RGB(255,255,255) Sync Sync Sleep 400 Box 0,0,100,100,RGB(255,0,0),RGB(255,0,0),RGB(255,0,0),RGB(255,0,0) Box 100,0,200,100,RGB(0,255,0),RGB(0,255,0),RGB(0,255,0),RGB(0,255,0) Box 200,0,300,100,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255) Box 300,0,400,100,RGB(255,255,0),RGB(255,255,0),RGB(255,255,0),RGB(255,255,0) Sync Sync Sleep 100 If Simon(Run) <> Choice Then Goto TheEnd Next Run Loop TheEnd: Print "You got "+Str$(SimonCount-1)+" rounds!" Sync Sync Sleep 1000 End

This is my first ever game.

Kaleidoscope converted from Atari ST FastBasic

Place large numbers of media "load sound " ",1 etc statements into your dba programme by copying and pasting.

A simple graphics program that creates a rotating cube and a translating circle with some camera views. The user has the normal view and create more five different views.

Speaking Clock converted by Jonathan Hawkins from Atari ST Fast Basic by Dave Jones from Atari User February 1987,you need the Speech Module for it to work.

A basic 3D jump and run platformer with a timer. If anyone has any comments i'd be glad to hear them. Btw, im kind of a self taught coder, i've learned by example mostly so this is based off of code I found in the forums; so if i did anything horribly wrong i'd be glad to hear any corrections if people bother to look ^_^.

This is a short prgoram displaing scancode of each keyboard button when it`s pressed.

Force a Windows Left, Middle, RightClick, Double Click and more

This is a turn based battle system for an RPG.

Third Person Camera Function

Another security program, yet this one saves a password (use the reset password program to set password to "aaaa"

If you want texture limb any .jpg,.bmp... image ,you must write this code :~)

if press space key , obje is jump.

just randomly made this, its of no use but im happy with it got any suggestions let me know

Very Basic First Program

complete applications

Very simple but handy li'l function to read in RGB triplets from data statements, and make an X*Y image from them, via a memblock. Very handy for making medialess programs.

load media in middle of the game

A small program that demonstrates placing 2D sprites where the mouse is clicked.

Raster map Path Finder / AI / NPC Finds a path from Pointa(startx,starty) to Pointb(destx,desty)