"closeScreen" plus some extra functions [DBC] [should work for DBPro also]

Author

Message

Underworld 1020

20

Years of Service

User Offline

Joined: 2nd Mar 2004

Location: NY, USA

Posted: 25th May 2006 06:31 Edited at: 28th May 2006 08:23

Link

The "closeScreen" function will allow you to add different screen transition effects to your programs. I've also included some other functions that are pretty useful too.

NOTE: Their are two versions for the "closeScreen" function; one for DBC, one for DBPRO.

Here's the functions:

drawSquare

+ Code Snippet

function drawSquare(x, y, size)
   dec size
   if size > 0
      box x, y, (x + size), (y + size)
   else
      dot x, y
   endIf
endFunction

drawVerticalLine

+ Code Snippet

function drawVerticalLine(x, y1, y2, lineWidth)
   dec lineWidth
   if lineWidth > 0
      box x, y1, (x + lineWidth), y2
   else
      line x, y1, x, y2
   endIf
endFunction

drawHorizontalLine

+ Code Snippet

function drawHorizontalLine(y, x1, x2, lineWidth)
   dec lineWidth
   if lineWidth > 0
      box x1, y, x2, (y + lineWidth)
   else
      line x1, y, x2, y
   endIf
endFunction

drawHollowBox

+ Code Snippet

function drawHollowBox(x1, y1, x2, y2, lineWidth)
   drawVerticalLine(x1, y1, y2, lineWidth)
   drawHorizontalLine(y2, x1, (x2 + (lineWidth - 1)), lineWidth)
   drawVerticalLine(x2, y1, y2, lineWidth)
   drawHorizontalLine(y1, x1, x2, lineWidth)
endFunction

closeScreen - DBC VERSION

+ Code Snippet

function closeScreen(totalLoops, fromBottom, fromLeft, fromTop, fromRight, lineWidth, delay)
   screenWidth = screen width() : screenHeight = screen height()
   screenWidthHalf = (screenWidth / 2) : screenHeightHalf = (screenHeight / 2)
   x1 = 0 : y1 = 0
   x2 = screenWidth : y2 = screenHeight
   for num = 0 to (totalLoops / lineWidth)
      if fromBottom = 1 then drawHorizontalLine(y2, 0, (screenWidth - 1), lineWidth) : dec y2, lineWidth
      if fromLeft = 1 then drawVerticalLine(x1, 0, (screenHeight - 1), lineWidth) : inc x1, lineWidth
      if fromTop = 1 then drawHorizontalLine(y1, 0, (screenWidth - 1), lineWidth) : inc y1, lineWidth
      if fromRight = 1 then drawVerticalLine(x2, 0, (screenHeight - 1), lineWidth) : dec x2, lineWidth
      sync
      if delay > 0 then wait delay
   next num
endFunction

closeScreen - DBPRO VERSION

+ Code Snippet

function closeScreen(totalLoops, fromBottom, fromLeft, fromTop, fromRight, lineWidth, delay)
   screenWidth = screen width() : screenHeight = screen height()
   screenWidthHalf = (screenWidth / 2) : screenHeightHalf = (screenHeight / 2)
   x1 = 0 : y1 = 0
   x2 = screenWidth : y2 = screenHeight
   for num = 0 to (totalLoops / (lineWidth - 1))
      if fromBottom = 1 then drawHorizontalLine(y2, 0, screenWidth, lineWidth) : dec y2, (lineWidth - 1)
      if fromLeft = 1 then drawVerticalLine(x1, 0, screenHeight, lineWidth) : inc x1, (lineWidth - 1)
      if fromTop = 1 then drawHorizontalLine(y1, 0, screenWidth, lineWidth) : inc y1, (lineWidth - 1)
      if fromRight = 1 then drawVerticalLine(x2, 0, screenHeight, lineWidth) : dec x2, (lineWidth - 1)
      sync
      if delay > 0 then wait delay
   next num
endFunction

NOTE: The "closeScreen" function uses BOTH the "drawHorizontalLine" and "drawVerticalLine" functions.

Here's my favorite use of the "closeScreen" function (DBC):

sync on : sync rate 60
cls rgb(255, 255, 255)

ink 0, 0
closeScreen(screen width() / 2, 0, 1, 1, 1, 5, 0)
ink rgb(255, 255, 255), 0
print "done." : sync
suspend for key
end

function drawSquare(x, y, size)
   dec size
   if size > 0
      box x, y, (x + size), (y + size)
   else
      dot x, y
   endIf
endFunction

function drawVerticalLine(x, y1, y2, lineWidth)
   dec lineWidth
   if lineWidth > 0
      box x, y1, (x + lineWidth), y2
   else
      line x, y1, x, y2
   endIf
endFunction

function drawHorizontalLine(y, x1, x2, lineWidth)
   dec lineWidth
   if lineWidth > 0
      box x1, y, x2, (y + lineWidth)
   else
      line x1, y, x2, y
   endIf
endFunction

function drawHollowBox(x1, y1, x2, y2, lineWidth)
   drawVerticalLine(x1, y1, y2, lineWidth)
   drawHorizontalLine(y2, x1, (x2 + (lineWidth - 1)), lineWidth)
   drawVerticalLine(x2, y1, y2, lineWidth)
   drawHorizontalLine(y1, x1, x2, lineWidth)
endFunction

function closeScreen(totalLoops, fromBottom, fromLeft, fromTop, fromRight, lineWidth, delay)
   screenWidth = screen width() : screenHeight = screen height()
   screenWidthHalf = (screenWidth / 2) : screenHeightHalf = (screenHeight / 2)
   x1 = 0 : y1 = 0
   x2 = screenWidth : y2 = screenHeight
   for num = 0 to (totalLoops / lineWidth)
      if fromBottom = 1 then drawHorizontalLine(y2, 0, (screenWidth - 1), lineWidth) : dec y2, lineWidth
      if fromLeft = 1 then drawVerticalLine(x1, 0, (screenHeight - 1), lineWidth) : inc x1, lineWidth
      if fromTop = 1 then drawHorizontalLine(y1, 0, (screenWidth - 1), lineWidth) : inc y1, lineWidth
      if fromRight = 1 then drawVerticalLine(x2, 0, (screenHeight - 1), lineWidth) : dec x2, lineWidth
      sync
      if delay > 0 then wait delay
   next num
endFunction

+ Code Snippet

sync on : sync rate 60
cls rgb(255, 255, 255)

ink 0, 0
closeScreen(screen width() / 2, 0, 1, 1, 1, 5, 0)
ink rgb(255, 255, 255), 0
print "done." : sync
suspend for key
end

function drawSquare(x, y, size)
   dec size
   if size > 0
      box x, y, (x + size), (y + size)
   else
      dot x, y
   endIf
endFunction

function drawVerticalLine(x, y1, y2, lineWidth)
   dec lineWidth
   if lineWidth > 0
      box x, y1, (x + lineWidth), y2
   else
      line x, y1, x, y2
   endIf
endFunction

function drawHorizontalLine(y, x1, x2, lineWidth)
   dec lineWidth
   if lineWidth > 0
      box x1, y, x2, (y + lineWidth)
   else
      line x1, y, x2, y
   endIf
endFunction

function drawHollowBox(x1, y1, x2, y2, lineWidth)
   drawVerticalLine(x1, y1, y2, lineWidth)
   drawHorizontalLine(y2, x1, (x2 + (lineWidth - 1)), lineWidth)
   drawVerticalLine(x2, y1, y2, lineWidth)
   drawHorizontalLine(y1, x1, x2, lineWidth)
endFunction

function closeScreen(totalLoops, fromBottom, fromLeft, fromTop, fromRight, lineWidth, delay)
   screenWidth = screen width() : screenHeight = screen height()
   screenWidthHalf = (screenWidth / 2) : screenHeightHalf = (screenHeight / 2)
   x1 = 0 : y1 = 0
   x2 = screenWidth : y2 = screenHeight
   for num = 0 to (totalLoops / lineWidth)
      if fromBottom = 1 then drawHorizontalLine(y2, 0, (screenWidth - 1), lineWidth) : dec y2, lineWidth
      if fromLeft = 1 then drawVerticalLine(x1, 0, (screenHeight - 1), lineWidth) : inc x1, lineWidth
      if fromTop = 1 then drawHorizontalLine(y1, 0, (screenWidth - 1), lineWidth) : inc y1, lineWidth
      if fromRight = 1 then drawVerticalLine(x2, 0, (screenHeight - 1), lineWidth) : dec x2, lineWidth
      sync
      if delay > 0 then wait delay
   next num
endFunction

NOTE: Try adding some ink commands to the "closeScreen" function for some more cool effects.
Something like this: (DBC)

sync on : sync rate 60
cls rgb(255, 255, 255)

ink 0, 0
closeScreen(screen width() / 2, 0, 1, 1, 1, 5, 0)
ink rgb(255, 255, 255), 0
print "done." : sync
suspend for key
end

function drawSquare(x, y, size)
   dec size
   if size > 0
      box x, y, (x + size), (y + size)
   else
      dot x, y
   endIf
endFunction

function drawVerticalLine(x, y1, y2, lineWidth)
   dec lineWidth
   if lineWidth > 0
      box x, y1, (x + lineWidth), y2
   else
      line x, y1, x, y2
   endIf
endFunction

function drawHorizontalLine(y, x1, x2, lineWidth)
   dec lineWidth
   if lineWidth > 0
      box x1, y, x2, (y + lineWidth)
   else
      line x1, y, x2, y
   endIf
endFunction

function drawHollowBox(x1, y1, x2, y2, lineWidth)
   drawVerticalLine(x1, y1, y2, lineWidth)
   drawHorizontalLine(y2, x1, (x2 + (lineWidth - 1)), lineWidth)
   drawVerticalLine(x2, y1, y2, lineWidth)
   drawHorizontalLine(y1, x1, x2, lineWidth)
endFunction

function closeScreen(totalLoops, fromBottom, fromLeft, fromTop, fromRight, lineWidth, delay)
   screenWidth = screen width() : screenHeight = screen height()
   screenWidthHalf = (screenWidth / 2) : screenHeightHalf = (screenHeight / 2)
   x1 = 0 : y1 = 0
   x2 = screenWidth : y2 = screenHeight
   for num = 0 to (totalLoops / lineWidth)
      ink rgb(255, 0, 0), 0
      if fromBottom = 1 then drawHorizontalLine(y2, 0, (screenWidth - 1), lineWidth) : dec y2, lineWidth
      ink rgb(0, 255, 0), 0
      if fromLeft = 1 then drawVerticalLine(x1, 0, (screenHeight - 1), lineWidth) : inc x1, lineWidth
      ink rgb(0, 0, 255), 0
      if fromTop = 1 then drawHorizontalLine(y1, 0, (screenWidth - 1), lineWidth) : inc y1, lineWidth
      ink rgb(255, 255, 0), 0
      if fromRight = 1 then drawVerticalLine(x2, 0, (screenHeight - 1), lineWidth) : dec x2, lineWidth
      sync
      if delay > 0 then wait delay
   next num
endFunction

+ Code Snippet

sync on : sync rate 60
cls rgb(255, 255, 255)

ink 0, 0
closeScreen(screen width() / 2, 0, 1, 1, 1, 5, 0)
ink rgb(255, 255, 255), 0
print "done." : sync
suspend for key
end

function drawSquare(x, y, size)
   dec size
   if size > 0
      box x, y, (x + size), (y + size)
   else
      dot x, y
   endIf
endFunction

function drawVerticalLine(x, y1, y2, lineWidth)
   dec lineWidth
   if lineWidth > 0
      box x, y1, (x + lineWidth), y2
   else
      line x, y1, x, y2
   endIf
endFunction

function drawHorizontalLine(y, x1, x2, lineWidth)
   dec lineWidth
   if lineWidth > 0
      box x1, y, x2, (y + lineWidth)
   else
      line x1, y, x2, y
   endIf
endFunction

function drawHollowBox(x1, y1, x2, y2, lineWidth)
   drawVerticalLine(x1, y1, y2, lineWidth)
   drawHorizontalLine(y2, x1, (x2 + (lineWidth - 1)), lineWidth)
   drawVerticalLine(x2, y1, y2, lineWidth)
   drawHorizontalLine(y1, x1, x2, lineWidth)
endFunction

function closeScreen(totalLoops, fromBottom, fromLeft, fromTop, fromRight, lineWidth, delay)
   screenWidth = screen width() : screenHeight = screen height()
   screenWidthHalf = (screenWidth / 2) : screenHeightHalf = (screenHeight / 2)
   x1 = 0 : y1 = 0
   x2 = screenWidth : y2 = screenHeight
   for num = 0 to (totalLoops / lineWidth)
      ink rgb(255, 0, 0), 0
      if fromBottom = 1 then drawHorizontalLine(y2, 0, (screenWidth - 1), lineWidth) : dec y2, lineWidth
      ink rgb(0, 255, 0), 0
      if fromLeft = 1 then drawVerticalLine(x1, 0, (screenHeight - 1), lineWidth) : inc x1, lineWidth
      ink rgb(0, 0, 255), 0
      if fromTop = 1 then drawHorizontalLine(y1, 0, (screenWidth - 1), lineWidth) : inc y1, lineWidth
      ink rgb(255, 255, 0), 0
      if fromRight = 1 then drawVerticalLine(x2, 0, (screenHeight - 1), lineWidth) : dec x2, lineWidth
      sync
      if delay > 0 then wait delay
   next num
endFunction

NOTE: To make those examples work for DBPRO just switch to the DBPRO version of the "closeScreen" function.

I've tested all the functions quite a bit, but still their may be some bugs hiding somewhere. If you spot any, then let me know. ENJOY!

Check Out My Site: http://www.freewebs.com/underworld1020

Back to top

Profile PM

Carolina South

20

Years of Service

User Offline

Joined: 28th Sep 2004

Location: South Carolina

Posted: 25th May 2006 18:30

Link

If you add a 'SYNC' before the line 'WAIT DELAY' then it
works fine in DBPro.

"Diplomacy is the art of saying 'Nice doggie' until you can find a rock." - Will Rogers

"The secret to creativity is knowing how to hide your sources." - Albert Einstein

Back to top

Profile PM Email

Underworld 1020

20

Years of Service

User Offline

Joined: 2nd Mar 2004

Location: NY, USA

Posted: 25th May 2006 23:31

Link

I just tried it in DBPro and the Sync command does make it work, but nothing like it does in DBC. The results are very different. I edited some of the functions to work for DBPro also, but it needs more work. I'll post up my work tommorow or late tonight.

Check Out My Site: http://www.freewebs.com/underworld1020

Back to top

Profile PM

Underworld 1020

20

Years of Service

User Offline

Joined: 2nd Mar 2004

Location: NY, USA

Posted: 28th May 2006 08:28 Edited at: 13th Aug 2006 11:51

Link

Their are a lot of differences between DBC and DBPRO, even in the draw commands, but I figured it out. All the code in my first post works 100%, as far as I know. If you tried it in DBPRO before that wasn't the correct result at all, so try again. Keep in mind the examples do look much better with an actual image in the background.

[href]http://www.michaelstaertow.com/[href]
[href]http://www.cdbaby.com/cd/staertow/from/starpolish[href]

Back to top

Profile PM

RUCCUS

19

Years of Service

User Offline

Joined: 11th Dec 2004

Location: Canada

Posted: 30th May 2006 02:18

Link

Im not trying to be harsh but, youve pretty much just rewritten already existing commands. Its like doing this;

+ Code Snippet

FUNCTION MakeBox(ObjID, X#, Y#, Z#)

   MAKE OBJECT BOX ObjID, X#, Y#, Z#

ENDFUNCTION

and saying you made a function that makes a 3D box. If you're just starting out with programming and youre trying to experiment then kudo's you're doing a good job, just, try to add some more options in the functions to make them have a use other than taking up more space than using the command alone.

- RUC'

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Code Snippets / "closeScreen" plus some extra functions [DBC] [should work for DBPro also]

Sorry your browser is not supported!

Code Snippets / &quot;closeScreen&quot; plus some extra functions [DBC] [should work for DBPro also]

Code Snippets / "closeScreen" plus some extra functions [DBC] [should work for DBPro also]