Menu

Show posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

Show posts Menu

Messages - WPShadow

#1
Just by the way: this time I also will join the contest...  :D
#2
Hi,

here we go again:


Definition

Create a Console Demo program in GLBasic. Like they were in the good old days.

Rules


  • Write the whole program only in GLBasic
  • use whatever you want (third party libraries)
  • the program must be a console!!!
  • Make the result look impressive

Goal

Impress everybody with your awesome console result.

Submission

Post your code or add an zip - fil, so we can check your result.

Closing Date

21.09.2019

Poll Date

The poll will open after the first submission and will be open until 31.07.2019.

Example

In this Youtube - Playlist you can see a list of old demos.

https://www.youtube.com/watch?v=KTjnt_WSJu8&list=PLK7_Bh0oHAPE3WcT6o8miSDNnu4zkp3hp


Winner

This is a fun contest and there is nothing to win... Nevertheless, together we can choose a winner...


Good luck and have fun.
#3
I will close this poll in 10 days... that should be more than enough time!
#4
Quoteonly question is how fast console window can be refreshed, and some functions to print at selected X,Y position would be also usefully.

That shouldn't be your problem... every developer have to find a way by himself to fix this issue  :D

I will set everything up for the next contest from 01.06 - 14.07. ?

I think 6 weeks should be enough
#5
How about 1,5 month contest running time and two weeks breaks?
#6
Ok, I have a few questions and I think we all should discuss this:


  • How often should we make a contest? Every month, every 2 months?
  • How long should the breaks be between 2 contests?
  • How long should the contest itself be?

I have many stupid and funny ideas for little contests like this. Some are harder, others are short and easy. And I think it's really funny, also for me...

But I want everyone to be happy with them and not to spam one contest after another
#7
Grundlegend kann man die Grafikgröße beibehalten und die Positionen entsprechend skalieren.

Wenn man die Grafik - Größen ebenfalls anpassen muss, dann würde ich

Code (glbasic) Select

STARTPOLY
POLYVECTOR
ENDPOLY


empfehlen.
#8
QuoteI like these contests because it gives access to some cool functions.

That's my idea. Short little codes and everybody can learn something from the different programming styles
#9
Hi,

benutz hier einfach den Befehl

Code (glbasic) Select
GETDESKTOPSIZE

Der liefert dir die Auflösung zurück. Anschließend kannst du mit

Code (glbasic) Select
SETSCREEN

die Auflösung anpassen.
#10
This is awesome
#11
Thank you!
:good:
#12
I know, this contest looks pointless at first, but it's pretty handy for backgrounds or scenes in games
#13
Hi,

here we go, it's time for an other contest:


Definition

Write a 2D art program in GLBasic. It should be a little piece of art, not an art creation program.

Rules


  • Write the whole program only in GLBasic
  • no third party libraries
  • Keep the code short and simple
  • Make the result look impressive

Goal

Show us your best little art project, with or without movement and impress us.

Submission

Just post your code here in a codeblock, so everybody can study your awesome work.

Closing Date

19.05.2019

Example

Here is my little example. It's an optical illusion.

If you press the space bar, you can start and stop the movement.

Code (glbasic) Select


TYPE tRect
x
y
direction
speed
ENDTYPE

GLOBAL rect[] AS tRect, space

main()

FUNCTION main:

generateRects()

WHILE TRUE

drawLines()
drawBoxes()

IF INKEY$() = " "
INC space, 1
IF space > 1 THEN space = 0
ENDIF

SHOWSCREEN
WEND

ENDFUNCTION

FUNCTION generateRects:
LOCAL r AS tRect
LOCAL offset


FOR tmpY = 0 TO 15

offset = RND(25)

r.direction =  MOD(tmpY, 2)
r.speed = 100 + RND(200)

FOR tmpX = 0 TO 10
r.x = 0 + (tmpX * 60) + offset
r.y = 5 + (tmpY * 30)

DIMPUSH rect[], r

NEXT
NEXT

ENDFUNCTION

FUNCTION addRect: x, y, direction

ENDFUNCTION

FUNCTION drawLines:
LOCAL tmpY

FOR tmpY = 0 TO 15
DRAWRECT 0, 0 + (tmpY * 30), 640, 5, RGB(128, 128, 128)
NEXT

ENDFUNCTION

FUNCTION drawBoxes:

FOREACH r IN rect[]

IF space = TRUE
IF r.direction = 0
INC r.x, r.speed / 500
ENDIF
IF r.direction = 1
DEC r.x, r.speed / 500
ENDIF
ENDIF

DRAWRECT r.x, r.y, 5, 25, RGB(128, 128, 128)
DRAWRECT r.x + 5, r.y, 25, 25, RGB(255, 255, 255)
DRAWRECT r.x + 30, r.y, 5, 25, RGB(128, 128, 128)

IF r.x < -30
r.x = 640
ENDIF
IF r.x > 640
r.x = -30
ENDIF
NEXT

ENDFUNCTION


Winner

This is a fun contest and there is nothing to win... Nevertheless, together we can choose a winner...



Good luck and have fun.

=====

Winner of the contest:

:enc:Qedo (50%) & Snoopy (50%) :enc:

#14
I'm only the "promoter" of the contest, so my code will only be some kind of example...

I've a great idea for the next contest and will set it up this week, if somebody would like to join it  =D
#15
Nice one!  :good:

Everything is prepared for the next competition... We will see in the poll on sunday who's the winner!  :booze: