Sorry your browser is not supported!

Ashingda27's Entry

set display mode 640,480,32
sync on
sync rate 80
autocam off

gosub Innitialize

REM ***************************************************************************************
REM * Main Loop                                                                           *
REM ***************************************************************************************
do
   gosub SpriteRotate
   gosub ObjectRotate

   text 0,0, "FPS: " + str$(screen fps())
   sync
loop

SpriteRotate:
   sprite 1,100,100,1
   rotate sprite 1,wrapvalue(a)
   a = a + 1
return

ObjectRotate:
   if upkey() = 1
      x# = x# + 1
      xrotate object 1,wrapvalue(x#)
   endif
   if leftkey() = 1
      y# = y# - 1
      Yrotate object 1,wrapvalue(y#)
   endif
   if rightkey() = 1
      y# = y# + 1
      Yrotate object 1,wrapvalue(y#)
   endif
   if downkey() = 1
      x# = x# - 1
      xrotate object 1,wrapvalue(x#)
   endif
return


REM ***************************************************************************************
REM * Innitialize                                                                         *
REM ***************************************************************************************
Innitialize:
   REM Sprite Image
   ink rgb(255,255,255),0
   box 0,0,110,20
   ink 0,0
   box 1,1,109,19
   ink rgb(255,255,255),0
   Text 0,0,"Sprite Rotate"
   get image 1,0,0,110,20

   REM Cube
   make object cube 1,50
   position camera 0,0,-100
return

speed# = 0.5;
rot# = 0;
sininc# = 0
global incr= 200
for i=1 to 10
print "this is basic text"

next i

input "Write your name: ",Name$

Print "hello, ",Name$
wait 2000
cls

Print " Press left click to draw a circle middle click to draw a dot and right click to draw a line"
print " Press space bar to go to sprites."



while spacekey()=0
Makecircle()
Makedot()
Makeline()

endwhile

gosub sprites:




Sprites:
text 200,200,"asdfasdfasdfasdfasdf"
get image 1,200,200,400,220
sprite 1,screen width()/2,screen height()/2,1
offset sprite 1,sprite width(1)/2,sprite height(1)/2

do

while shiftkey()=0
inc sininc#,0.5
if leftkey()=1
rot# = rot#-speed#
endif

if rightkey()=1
rot# = rot#+speed#
endif
scale sprite 1,90+sin(sininc#)*15
rotate sprite 1,rot#
Print "Rotate the words using left and right arrow keys press shift to move on"
endwhile

gosub threedee:

loop

threedee:
pick screen mousex(),mousey(),100
Print "left click to spawn cube right click to spawn spheres"
do
spawnbox()
spawnsphere()


loop

function spawnbox()
pick screen mousex(),mousey(),100
if mouseclick()=1
inc incr,1
make object cube incr,10
position object incr,get pick vector x(),get pick vector y(),get pick vector z()
rotate object incr,rnd(1000),rnd(1000),rnd(1000)
wait 100
endif

endfunction

function spawnsphere()
pick screen mousex(),mousey(),100
if mouseclick()=2
inc incr,1
make object sphere incr,10
position object incr,get pick vector x(),get pick vector y(),get pick vector z()
rotate object incr,rnd(1000),rnd(1000),rnd(1000)
wait 100
endif
endfunction

function Makecircle()

if mouseclick()=1
circle mousex(),mousey(),10
endif
endfunction

function Makedot()

if mouseclick()=4
dot mousex(),mousey()
endif
endfunction

function Makeline()

if mouseclick()=2
line mousex(),mousey(),mousex()+10,mousey()+10
endif
endfunction

REM *************************************************************************************
REM *     This is Lucifer1101's Entry to the DarkNoobs Pro Team, you may use this       *
REM *     code as you like royalty free as long as you dont claim it as your own...     *
REM *************************************************************************************

sync on
sync rate 80
autocam off
set display mode 640,480,32

gosub SetupEnvironment

` ***************************************************************************************
`                                      * Main Loop *
` ***************************************************************************************
do
	gosub HandleHUD
	gosub HandleObjects
	
	control camera using arrowkeys 0,1,1
    sync
loop

` ***************************************************************************************
`                                     * Subroutines *
` ***************************************************************************************
SetupEnvironment:
	`BGround
	cls rgb(5,5,5)
    fgcolor=RGB(255,255,255)
    bgcolor=RGB(255,255,255)
    ink fgcolor,bgcolor

    for n=1 to 3000
		dtx=rnd(1000):dty=rnd(1000)
        dot dtx,dty
    next n

    get image 2,0,0,256,256,1
    make object sphere 2,100000,6,6
    set object 2,1,1,0,0,0,0,0
    texture object 2,2
    scale object texture 2,10,10
    position object 2,0,0,0

	` HUD
    LineBox(1,1,160,18,1,rgb(255,255,255))
    ink rgb(255,255,255),0
    Text 0,0,"Lucifer1101's Entry"
    get image 1,0,0,161,19
    LEY=30
    MSpeed=2

    ` Objects
    make object cube 1,500
    position object 1,0,0,0
    texture object 1,1
    CSpeed=5
	
	` Camera
	position camera 0,0,-1000
	set camera range 1,1000000
	set object light 1,0
	
	` Light
	make light 1
	position light 1,0,0,0
return

HandleHUD:
	text 0,0, "FPS: " + str$(screen fps())
    sprite 1,LEX,LEY,1
    if slide=0
    	inc LEX,MSpeed
    else
    	dec LEX,MSpeed
    endif
    if LEX=480 then slide=1
    if LEX=0 then slide=0
return

HandleObjects:
	turn object left 1,1
	if spacekey()
		CubeY=object position y(1)
		if Cshake=0
			inc CubeY,CSpeed
		else
			dec CubeY,CSpeed
		endif
		if CubeY=20 then Cshake=1
		if CubeY=-20 then Cshake=0
		position object 1,0,CubeY,0
	else
		position object 1,0,0,0
	endif
return

` ***************************************************************************************
`                                      * Functions *
` ***************************************************************************************

Function LineBox(X1,Y1,X2,Y2,Thickness,LineColor)
ink LineColor,0
box X1-Thickness,Y1-Thickness,X2+Thickness,Y2+Thickness
ink 0,0
box X1,Y1,X2,Y2
Endfunction

Rem Project: Dark Noobs Pro (ject) Entry
Rem Created: 3/21/2009 11:59:43 AM

Remstart ***** Main Source File *****

To enter into this group you must show some aptitude on the basics of DBP, your entry must include -

* Basic Text (input, output)
* Basic 2d (line, dot, circle)
* Basic Sprites (rotate, offset)
* Basic 3d (cube, sphere, .x)
* Basic 3d Transform (position object, rotate object)

try your best to display atleast one of the options in each of the brackets, if you need any help with this just ask and somebody will be straight on to it..

remend



sync on
autocam off

` Constants
#constant SUN       1
#constant EARTH     2
#constant PICKr     3
#constant IMG_STAR  1

` Variables
Dist# as float = 300.0    ` The distance the earth is from the sun
Ang# as float = 0.0       ` The angle the earth is from the horizontal axis
ac# as float = 0.0001     ` angle change.
Intro$ as string = "Welcome To Pillarofire's demo. Click to continue."

` Display intro string
sync : center text screen width()/2, screen height()/2, Intro$
sync

` Make sun
make object sphere SUN, 50
position object SUN, 0.0, 0.0, 0.0
color object SUN, 0xFFFF00

` Make earth
make object sphere EARTH, 2
position object EARTH, 0.0, 0.0, 150.0
color object EARTH, 0x30FF30


` Pick Helper object
make object plain PICKr, 1000.0, 1000.0
xrotate object PICKr, 90.0
position object PICKr, 0.0, 0.0, 0.0
color object PICKr, 0x000000
set object light PICKr, 1
MakeStarImage( 512, IMG_STAR )
texture object PICKr, IMG_STAR

` position camera
position camera 0.0, 400.0, 0.0
point camera 0.0, 0.0, 0.0

wait mouse

Do
  ` The pick and stick
  if pick object( mousex(), mousey(), PICKr, PICKr )=PICKr and mouseclick()=1
    pickx# = camera position x() + get pick vector x()
    pickz# = camera position z() + get pick vector z()
    Ang# = atanfull( pickx#, pickz# )
    position object EARTH, 150.0 * sin(Ang#), 0.0, 150.0 * cos(Ang#)
    line object screen x(SUN), object screen y(SUN), object screen x(SUN), 40
    line object screen x(SUN), object screen y(SUN), object screen x(EARTH), object screen y(EARTH)
    text object screen x(SUN), object screen y(SUN)-25, str$( Ang# )
   else
    Ang# = Ang# + ac#
    RotateObjectAroundObject( EARTH, SUN, ac# )
  endif

  ` Some output
  ac# = ac# + mousemovez()/10000.0
  Time# = SecondsPerDegrees( Ang# )
  text screen width()/6, 25, "Time at Earth's angle = [DD],[HH],[MM],[SS] = " + TimeFormat( Time# )
  text object screen x(EARTH), object screen y(EARTH)+5, "Earth"
  text object screen x(SUN), object screen y(SUN)+5, "SUN"

  sync
loop

function RotateObjectAroundObject( o1 as integer, o2 as integer, ang# as float )
  x# = object position x(o2)
  y# = object position y(o2)
  z# = object position z(o2)
  dx# = object position x(o1) - x#
  dy# = object position y(o1) - y#
  dz# = object position z(o1) - z#
  nx# = dx# * cos( -ang# ) - dz# * sin( -ang# )
  nz# = dx# * sin( -ang# ) + dz# * cos( -ang# )
  nx# = nx# + x#
  nz# = nz# + z#
  position object o1, nx#, object position y(o1), nz#
endfunction

function SecondsPerDegrees( Degrees# as float )
  Time# as float
  Time# = Degrees# * 87660.0
endfunction Time#

function MinutesPerDegrees( Degrees# as float )
  Time# as float
  Time# = (Degrees# * 87660.0) / 60.0
endfunction Time#

function TimeFormat( Time# as float )
  SS# = SawTooth( Time#, 60.0 )
  MM# = SawTooth( Time#/60.0, 60.0 )
  HH# = SawTooth( Time#/3600.0, 24.0 )
  DD# = SawTooth( Time#/86400.0, 365.25 )
  TimeString$ = (str$(int(DD#))) + ":" + (str$(int(HH#))) + ":" + (str$(int(MM#))) + ":" + (str$(int(SS#)))
endfunction TimeString$

function SawTooth( x# as float, Amplitude# as float )
  t# = Amplitude# * ( x#/Amplitude# - floor( x#/Amplitude# ) )
endfunction t#

function rndrng( bottom, top )
  rn = rnd( top - bottom ) + bottom
endfunction rn

function MakeStarImage( TileSize as integer, imgNum as integer )
  `Width(DWORD), Height(DWORD), Depth(DWORD), Data(BYTES).
  make memblock 255, (TileSize*TileSize*4) + 12
    write memblock dword 255, 0, TileSize
    write memblock dword 255, 4, TileSize
    write memblock dword 255, 8, 32
    randomize timer()
    `for each pixel
    for i=12 to (TileSize*TileSize*4+11) step 4
      starhere = rnd( 100 ) > 92
      write memblock byte 255, i+2, starhere * rndrng( 240 , 255 ) : `R
      write memblock byte 255, i+1, starhere * rndrng( 240 , 255 ) : `G
      write memblock byte 255, i,   starhere * rndrng( 240 , 255 ) : `B
      write memblock byte 255, i+3, 0
    next i
  make image from memblock imgNum, 255
  delete memblock 255
endfunction

Rem Project: VerticalShooter
Rem Created: 3/22/2009 10:28:09 PM

Rem ***** Main Source File *****

` Define UDTs

` Declare Variables

` Load the media for the menu

` Show the main menu
  ` Display the title screen
  ` Draw each of the Menu options
  ` Loop until one of them is seleted.

` Load the game media
  ` If its a new game start from scratch
  ` if its a continue load the saved data media

` Initialize the game data
  ` if its a new game zeroize and set data to initial
  ` if its a continue then load values from saved file.

` Begin the main loop
do

  ` Control the Background first
    ` Get the portion of the background that we are currently at and draw it to the screen
    ` Increment our position and check if we are approaching the next sector.
    ` if we are approaching the next sector then load that sector and prepare its enemies

  ` Control the Enemies
    ` Spawn new enemies
    ` Control Enemy projectiles
      ` Spawn new Projectiles
      ` Update spawned projectiles and destroy if old
        ` if collision with player occurs
          ` play explosion sound
          ` reduce health of player
    ` Update spawned enemies positions and kill if health < 0

  ` Control the Player
    ` Get Player input
      ` If player wants to quit then return to main menu
    ` Update player and check if health is below min, destroy if necessary and play explosion
    ` Control Player projectiles
      ` Spawn new Projectiles
        ` Play spawn projectile sound
      ` Update spawned projectiles and destroy if old
        ` if collision with player occurs
          ` reduce health of player
          ` show impact animation?
    ` If destroyed and lives = 0 then end game and return to main menu

  sync
loop