CodeBase Entries

loads any playlist format you wish to support without having to change the main function call.

scrolling tile engine

a small program that drives around a police car

a function for you to use on your objects for motion

REM Project: ballfacesspin REM Created: 16/08/2005 23:28:40 REM REM ***** Main Source File ***** REM hide mouse sync on load object "res/ballface.x",1 scale object 1,10,10,10 color backdrop 0 do rotate limb 1,3,x,y,z rotate limb 1,4,x1,y1,z1 inc y,1 dec z1,1 yrotate object 1,a# a#=a#+0.5 if y=>360 offset limb 1,3,bx#,by#,bz# by#=by#-0.02 endif if y=>200 offset limb 1,4,ox#,oy#,oz# oy#=oy#+0.02 endif if y=>1300 scale limb 1,2,cx,cy,cz inc cx,1 inc cy,1 inc cz,1 endif if cx=300 hide limb 1,2 endif sync loop

sync rate 50 sync on hide mouse load image "1",1 load image "2",2 create bitmap 1,640,480 for a = 1 to 51 ink rgb(a/2,a/2,25+a),0 line 0,a,639,a next a get image 3,0,0,640,50 flip bitmap 1 get image 4,0,430,640,480 x# = 320 : y# = 100 : a# = 1.5 : j = 0 : vel_y# = 0 : d = 1 : s# = 6 do cls if j = 0 vel_y# = 1.5 j = 1 endif if j = 1 if vel_y# > -4 vel_y# = vel_y# - a# y# = y# + sin(vel_y#)*35 else y# = y# + sin(vel_y#)*35 endif else if vel_y# > -4 vel_y# = vel_y# - a# y# = y# - sin(vel_y#)*30 else y# = y# - sin(vel_y#)*30 endif endif if y# <= 30 vel_y# = 0 j = 2 endif if y# => 340 j = 1 endif if d=1 then inc x#,s# if d=2 then dec x#,s# if x# => 528 d = 2 endif if x# <= 0 d=1 endif paste image 3,0,430 paste image 4,0,0 paste image 1,x#,y#,1 paste image 2,x#,530-y#/4,1 paste image 2,x#,-10-y#/4,1 copy bitmap 1,0 sync loop

Destroy all the dots!

15 new functions for file control, including IncodeFile and DecodeFile! Here's the complete list: -PrintFileContentsToScreen : -IncodeFile : -DecodeFile : -GetRidOfBlankLines : -GetRidOfAllSpacesInFile : -GetRidOfStringAtStart : -GetRidOfStringAtEnd : -GetRidOfStringAtPos : -WriteStringToStart : -WriteStringToEnd : -WriteStringToPos : -Return Varible = CountLinesInFile : -Return Varible = ReadStringAtStart : -Return Varible = ReadStringAtEnd : -Return Varible = ReadStringAtPos :

Well this is a mad lib i made when i was bored feel free to edit it for your own use :-)

moves a box around without sprite use

rem ben rider made this copyrights reserved rem ======================================== rem DARK BASIC rem ======================================== rem ---------------------------------------- rem Set the ink to white and paper color to black ink rgb(244,214,210),1 rem Set a new font rem the new font will work with all text command but not the print command set text font "times new roman" for t =8 to 100 step 2 rem Clear the screen cls rem Set the current font size set text size t text 0,10,"MY NEW TEXT SIZE" text 0,(10+text size())+2,"FONT SIZE "+str$(text size()) rem This will delay the loop so that you can see the fonts for a= 0 to 32000:next a next t rem Will wait for you to press any key suspend for key rem End the program end

this is a mod of someones jumping code it has a few tweaks to make it more usable

This program loads an file and plays it.

Very cool landscape generator.

Demonstrates key input and particle effects.

Draws a 20 pixel line and 11 dots. Gives a rundown of the rgb values of each pixel. In the left column are seem the resulting line rgb color values of each line pixel. In the right column are given the resulting dot pixel values. Click left mouse button to repeat for other colors.

These functions search a string in forward or reverse for a given string from a given starting point. Originally By IanM modified and commented by Keaz. (This function is CaSe SeSiTiVe)

A simple game that uses no media.

Makes a rainbow Balloon on the screen.

Ummm... a pinball game.

A short vertical 2D shoot em up

A way to handle a dynamic amount of data inside of a user defined type. This is a workaround which is very useful in all languages to an extent.

Does a print-out of all the colors of the rainbow, and shows their corresponding rgb value

Ball bounces around the screen

This code contains a function "DlgBox", which will display a Windows style InputBox or a MessageBox according to the Mode parameter.

Just make a simple menu using text, you can apply the same knowledge to bitmaps

the 1st april app minipulated to th max

How do I make a function of imaginary numbers that iterates?

Just use the function: Third_Person_View(Object#,X#,Y#,Z#)

My spinning cube effect