Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

DarkBASIC Professional Discussion / Super Glitchy Dark Basic Professional at home.

Author
Message
RecyxleStudios
8
Years of Service
User Offline
Joined: 27th Feb 2016
Location:
Posted: 27th Feb 2016 03:39
So at my school we have the paid for version of dark basic pro (I think the version is pretty old) and I have decided to upload my files to google docs, whenever I try to run my game it will just crash, so I decided to download the free source code to use it. First is this the best way to get dbp for free?, and next my code shows up with random characters instead of numbers
I will also put up my original code (or a link to it)
http://www.4shared.com/zip/GCW9qmoPba/spirit_quest-2016-02-26.html
Another note; This version of dbp always yells at me that I don't have the compiler I have no idea how to fix this.
RecyxleStudios
8
Years of Service
User Offline
Joined: 27th Feb 2016
Location:
Posted: 27th Feb 2016 04:00

`*****************************************
`*****************************************
`***
`*** TITLE - Phase 3 Teaser
`*** VERSION - 1.0.0b LAST UPDATED - 1.1.2005
`*** DEVELOPER - Jason Holm
`*** Created By Terry Vertina
`*** Date Created 1/28/16
`*** COPYRIGHT - Ingenious Student Labs
`*** DATE CREATED - 1.1.2005
`***
` ***
` *** START SYSTEM SETUP SECTION
` ***
sync on
sync rate 60
autocam on
hide mouse
randomize timer()
`CAMERA COLLISON
`automatic camera collision 0,,0

` ***
` *** STOP SYSTEM SETUP SECTION
` ***
` ***************************************
` ***
` *** START INTRO SECTION
` ***
` ***
` *** INTRO SECTION HEADER
` ***
`DECLARE VARIABLES
`SCREEN DISPLAY
cls 0
ink rgb(255,255,255),0
center text 320,220,"YOUR SPIRIT QUEST"
center text 320,260,"HIT ANY KEY TO BEGIN"
`LOAD IMAGES
load image "images/wall1.jpg",6
load sound "sounds/treecrack.wav",3
load music "sounds/aoda.mp3",4
load music "music/wrec.mp3",1
load image "image/floor1.jpg",7
load image "image/floor02.jpg",8
load image "image/bark.jpg",9
load image "image/floor3.jpg",10
load image "image/floor4.jpg",11
load image "image/floor5.jpg",12
load image "image/fruit1.jpg",13
load image "image/fruit2.jpg",14
load image "image/fruit3.jpg",15
load image "images/floor.gif",16
load music "music/conn.mp3",5
load image "image/ilum.png",18
`LOAD SOUNDS
`SOUND EFFECTS
`SPECIAL EFFECTS
`REFRESH SCREEN
sync
` ***
` *** INTRO SECTION LOOP
` ***
do
`SCREEN DISPLAY
`CONTROL INPUT
if keystate( scancode() ) = 1 then goto OptionsSection
`REFRESH SCREEN
sync
loop
` ***
` *** END INTRO SECTION
` ***
` *****************************************
` ***
` *** START OPTIONS SECTION
` ***
` ***
` *** OPTIONS SECTION HEADER
` ***
OptionsSection:
`DECLARE VARIABLES
`Levels
TotalLevels = 1 : `Total number of levels
LevelNumber = 1 : `Start on Level 1
`SCREEN DISPLAY
cls 0
ink rgb(255,255,255),0
center text 320,260,"HIT ANY KEY TO LOAD YOUR QUEST"
`LOAD SOUNDS
`SOUND EFFECTS
`SPECIAL EFFECTS
`REFRESH SCREEN
sync
` ***
` *** OPTIONS SECTION LOOP
` ***
do
if scancode() = 0 then exit
loop
do
`SCREEN DISPLAY
`CONTROL INPUT
if Keystate(scancode())=1 then goto LevelIntroSection
`REFRESH SCREEN
sync
loop
` ***
` *** END OPTIONS SECTION
` ***
` *****************************************
` ***
` *** START LEVEL INTRO SECTION
` ***
` ***
` *** OPTIONS SECTION HEADER
` ***
LevelIntroSection:
`DECLARE VARIABLES
`SCREEN DISPLAY
cls 0
ink rgb(255,255,255),0
center text 320,220, "BEGIN YOUR SPIRIT QUEST FOR REAL THIS TIME"
set cursor 320,240
center text 320,260, "HIT ANY KEY TO BEGIN"
`LOAD SOUNDS
`SOUND EFFECTS
`SPECIAL EFFECTS
`REFRESH SCREEN
sync
` ***
` *** OPTIONS SECTION LOOP
` ***
do
if scancode() = 0 then exit
loop
do
`SCREEN DISPLAY
`CONTROL INPUT
if keystate( scancode() ) = 1 then goto MainSection
`REFRESH SCREEN
sync
loop
` ***
` *** END LEVEL INTRO SECTION
` ***
` *****************************************
` ***
` *** START MAIN SECTION
` ***
` ***
` *** MAIN SECTION HEADER
` ***
MainSection:
`DECLARE VARIABLES
`Player Character
`Projectiles
`Enemies
`Other
`LOAD IMAGES
`SCREEN DISPLAY
play music 1
set music volume 1,100
cls 0
backdrop on
`TEXT
`HEADS-UP DISPLAY (HUD)
`OBJECT CREATION
`North Wall Light Blue
make object box 2,3000,1000,10
position object 2,0,500,1500
` color object 2,rgb(0,64,255)
texture object 2,8
`West Wall Light Red
make object box 3,3200,1000,10
position object 3,1500,500,100
` color object 3,rgb(255,0,25)
texture object 3,10
rotate object 3,0,90,0
`South Wall Yellow Orange
make object box 4,3600,1000,10
position object 4,0,500,-1500
`color object 4,rgb(150,20,0)
texture object 4,11
rotate object 4,360,0,0
`East Wall Blue Green
make object box 5,3500,1000,10
position object 5, -1500,500,-100
`color object 5,rgb(0,255,50)
texture object 5,12
rotate object 5,0,90,0
REM Floor Green
make object plain 10,3000,3000,10
`color object 10,rgb(0,255,0)
texture object 10,7
rotate object 10,90,360,0
`Player Character
make object cylinder 1,100
make object sphere 99,52
position object 1,0,50,0
`color object 1, rgb(255,0,0)
texture object 1,6
make mesh from object 1,99
delete object 99
load image "images\canlid.jpg",1
add limb 1,1,1
link limb 1,0,1
offset limb 1,1,0,50,0
scale limb 1,1,200,1,200
texture limb 1,1,1
`Enemies
`Pick-Ups
for s = 90 to 1000
mkolp=rnd(2)
make object sphere s,100
position object s, rnd(1500)-rnd(1500),100,rnd(1500)-rnd(1500)
if mkolp =0 then texture object s,13
if mkolp =1 then texture object s,14
if mkolp =2 then texture object s,15

`color object s, rgb(rnd(255),rnd(255),rnd(255))
next s
`LOAD MODELS
for x = 25 to 30
make object cylinder x,100
`color object x,rgb(139,69,100)
position object x,0,150,0
texture object x,9
scale object x,25,300,25
make object sphere 68,100
make mesh from object 1,68
delete object 68
load image "images\tree1.jpg",2
add limb x,1,1
link limb x,0,1
offset limb x,1, 0,100,0
scale limb x,1, 550,200,550
` color limb x,1, rgb (34,149,34)

texture limb x,1,2
position object x, rnd(1500)-rnd(1500),100,rnd(1500)-rnd(1500)
next x
`World Map
`SET LIGHTS
make light 1
position light 1, 0,500,1000
point light 1, 0,0,0
set light range 1,100000000
make light 2
position light 2, 0,500,-1000
point light 2, 0,0,0
set light range 2,100000000
make light 3
position light 3, 1000,500,100
point light 2, 0,0,0
set light range 3,100000000
make light 4
position light 4, -1000,500,-100
point light 4, 0,0,0
set light range 4,100000000
`SET CAMERA
cpx#=camera position x()
cpy#=camera position y()
cpz#=camera position z()
cpx= camera angle x()
cpy= camera angle y()
cpz= camera angle z()

`SOUND EFFECTS
`SPECIAL EFFECTS
`REFRESH SCREEN
sync
` ***
` *** MAIN SECTION LOOP
` ***
do
if scancode() = 0 then exit
loop
do
`SPECIAL EFFECTS
`OBJECT ORIENTATIONS (Pre-Movement, Pre-Collision)
`Player Character
P1X# = object position X(1)
P1Y# = object position Y(1)
P1Z# = object position Z(1)
A1X = object angle X(1)
A1Y = object angle Y(1)
A1Z = object angle Z(1)
`Projectiles
`Enemies
`LIVE SCREEN DISPLAY
set cursor 0,25
print "Illegal's Collected: ";score
`TEXT
center text 320,440,"USE ARROW KEYS OR WASD TO MOVE | PRESS 'Q' TO QUIT"
`HUD
`CONTROL INPUT
`Acceleration and Pitch
if Upkey()=1 then move object 1,10
if Inkey$() = "w" then move object 1,10
if Downkey()=1 then move object 1,-10
if Inkey$() = "s" then move object 1,-10
`Turning and Banking
if Leftkey()=1 then Yrotate object 1,wrapvalue(A1Y-5)
if Inkey$() = "a" then Yrotate object 1,wrapvalue(A1Y-5)
if Rightkey()=1 then Yrotate object 1,wrapvalue(A1Y+5)
if Inkey$() = "d" then Yrotate object 1,wrapvalue(A1Y+5)
`Releasing Projectiles
`Quit Game
if Inkey$() = "q"
ClearWorld()
goto EndSection
endif
`TRANSFORM OBJECTS
`MOVE OBJECTS
`Player Character
`Projectiles
`Enemies
`OBJECT ORIENTATIONS (Post-Movement, Pre-Collision)
`Player Character
newP1X# = object position X(1)
newP1Y# = object position Y(1)
newP1Z# = object position Z(1)
newA1X = object angle X(1)
newA1Y = object angle Y(1)
newA1Z = object angle Z(1)
`Projectiles
`Enemies
`CHECK COLLISIONS
`Player Character
`Walls
for w = 2 to 5
if object collision(1,w)>0
position object 1, p1x#, p1y#, p1z#
endif
next w
`Pick-Ups
for h = 90 to 1000
if object collision(1,h)>0
play sound 3
score = score + 1
scale object 1,150,150,150
exclude object on h
endif
next h
if score = 500
play music 4
set music volume 1,50
set music volume 4,500
center text 320,240, "COLLECTING SPREE"
wait 10000
endif
if score = 911
stop music 4
stop music 1
play music 5
set music volume 5,500
wait 5000
make object triangle 66666,100
texture object 66666,18
wait 5000
center text 320,240, "TRUMP DID 911"
wait 50000
endif
`Enemies
`trees
for y = 25 to 30
if object collision(1,y)>0
play sound 3
position object 1, p1x#, p1y#, p1z#
endif
next y
`Projectiles
`Walls
`Enemies
`Enemies
`Walls
`OBJECT ORIENTATIONS (Post-Movement, Post-Collision)
`Player Character
P1X# = object position X(1)
P1Y# = object position Y(1)
P1Z# = object position Z(1)
A1X = object angle X(1)
A1Y = object angle Y(1)
A1Z = object angle Z(1)
`Projectiles
`Enemies
`CHECK PLAYER EXPIRATION
`MOVE CAMERA
position camera cpx#,P1Y#+85,cpz#
point camera P1X#,P1Y#+15,P1Z#
cpz# = newzvalue(P1Z#,A1Y-180,200)
cpx# = newxvalue(P1X#,A1Y-180,200)
if cpx# => 1399 then cpx# = 1399
if cpx# =< -1399 then cpx# = -1399
if cpz# => 1399 then cpz# = 1399
if cpz# =< -1399 then cpz# = -1399
`MOVE LIGHT
`REFRESH SCREEN
sync
loop
` ***
` *** STOP MAIN SECTION
` ***
` *****************************************
` ***
` *** START END SECTION
` ***
` ***
` *** END SECTION HEADER
` ***
EndSection:
`DECLARE VARIABLES
`SCREEN DISPLAY
cls 0
ink rgb(255,255,255),0
center text 320,220, "GAME OVER"
center text 320,260, "PLAY AGAIN [Y/N]?"
`SOUND EFFECTS
`SPECIAL EFFECTS
`REFRESH SCREEN
sync
` ***
` *** END SECTION LOOP
` ***
do
if scancode() = 0 then exit
loop
do
`CONTROL INPUT
if Inkey$() = "y" then goto OptionsSection
if Inkey$() = "n"
cls 0
end
endif
`REFRESH SCREEN
sync
loop
end
` ***
` *** STOP END SECTION
` ***
` *****************************************
` *****************************************
` ***
` *** START FUNCTIONS
` ***
` ***
` *** CLEAR WORLD - ClearWorld
` *** Remove all existing 3D elements from world
` ***
function ClearWorld
for x = 1 to 1000
if object exist(x) = 1 then delete object x
if matrix exist(x) = 1 then delete matrix x
if mesh exist(x) = 1 then delete mesh x
if light exist(x) = 1 then delete light x
if x <= 32
if animation exist(x) = 1 then delete animation x
endif
next x
`Static Objects
make object cube 1,5
make static object 1,3,0,0,0
delete object 1
delete static objects
fog off
backdrop off
cls 0
endfunction
` ***
` *** STOP FUNCTIONS
` ***
`***
`*** END PROGRAM
`***
`*****************************************
`*****************************************
Crazy Programmer
AGK Developer
19
Years of Service
User Offline
Joined: 6th Sep 2004
Location: Lost in AGK
Posted: 29th Feb 2016 23:19 Edited at: 29th Feb 2016 23:20
http://www.bing.com/search?q=download+DarkBasic+Pro&form=IE10TR&src=IE10TR&pc=ACJB

I don't know if im in the wrong sharing a link that hosts DBP from previous versions of the open source elite version. But there it is ^

Im sure if you keep looking through google/bing you will be able to find a version that is closer to yours at school (Out of Date) and you will be in the clear.

Also other thoughts, if you are using any plugins at school you will need to include them in your project at home. (Some may not work with the newer elite open source DBP).
Download My Games for Android. Made with AGK.
Jellyfish Dive- https://play.google.com/store/apps/details?id=com.CrazyProgrammerProductions.my_JellyFishSwim
Brick Destroyer - https://play.google.com/store/apps/details?id=com.CrazyProgrammerProductions.my_BrickDestroyer
Ping Bong - https://play.google.com/store/apps/details?id=com.CrazyProgrammerProductions.my_Pong_Ping_Bong

Login to post a reply

Server time is: 2024-03-29 12:16:00
Your offset time is: 2024-03-29 12:16:00