---

This years DBPro Minimal Media Christmas challenge is now underway! The competition runs from Sunday 16th December 2007 to Monday 7th January 2008. For full details on how to enter, please see the Rules and Information page here: www.andromedus.com/mmcc2007

Prizes

1st Prize: $100 TGC voucher + GUI Studio

2nd Prize: $50 TGC voucher + GUI Studio

3rd Prize: $50 TGC voucher

---

Sounds interesting, maybe I'll give it a go

---

I will definitely attempt to try.




-Dan

---

Hehe, that sound like fun.

Here is a little something I knocked up (no, it's not the missus!), makes me feel all cold inside (no, it's still not the missus!) hehe.

+ Code Snippet

Type tDMode
   hWnd,hDc,Width,Height,Depth as dWord
EndType
Global Display as tDMode
Get_Desktop()
While inkey$()="" and MouseClick()=0 :Sync:EndWhile
End
Function Get_Desktop()
  ` Disable Escapekey
  ` Disable SystemKeys`
   Hide Window : Sync : Wait 100
   Load Dll "User32.dll",1
   Load Dll "Gdi32.dll",2
   Display.hWnd   = Call dll(1,"GetDesktopWindow")
   Display.Width  = Call dll(1,"GetSystemMetrics",0)
   Display.Height = Call dll(1,"GetSystemMetrics",1)
   Display.hDc    = Call dll(1,"GetDC",0)
   Display.Depth  = Call dll(2,"GetDeviceCaps",Display.hDc,12)
   Set Display Mode Display.Width,Display.Height,Display.Depth,1
   Color Backdrop RGB(0,0,128)
   Sync rate 0 : Sync On : Sync : Lock Pixels
   For Y=0 to Display.Height-1
      For X=0 to Display.Width-1
         F#=Frost((X*1.)/(Display.Width*1.),(Y*1.)/(Display.Height*1.))
         C=Call Dll(2,"GetPixel",Display.hDc,X,Y)
         R=RGBB(C):R=R+((255-R)*F#):If R>255 then R=255
         G=RGBG(C):G=G+((255-G)*F#):If G>255 then G=255
         B=RGBR(C):B=B+((255-B)*F#):If B>255 then B=255
         Dot X,Y,RGB(R,G,B)
      Next
   Next
   Unlock Pixels : Sync
   Crystalize() : Sync
   Message() : Sync
`   Ink 0,0 : Text 1,1,Str$( Display.Width)+" "+Str$(Display.Height)+" "+Str$(Display.Depth)
`   Ink RGB(255,255,255),0 : Text 0,0,Str$( Display.Width)+" "+Str$(Display.Height)+" "+Str$(Display.Depth)
   Call dll 1,"ReleaseDC",0,Display.hDc
   Delete dll 2
   Delete dll 1
   Enable Escapekey
   Enable SystemKeys
   Show Window
EndFunction

Function Frost(X#,Y#)
   X# = (X#-.5)*100.0 : Y# = (Y#-.5)*100.0
   Angle# = ATANFULL(X#,Y#) ` 0 - 360
   M#=Sqrt((50^2)*2)
   Lenth# = Sqrt((X#*X#)+(Y#*Y#)):if Lenth#>100.0 then Lenth#=100.0
   F#=(Sin(90.0*(Lenth#/M#))*.8)+(Rnd(20)/100.0)
   If F#>1.0 then F#=1.0
 EndFunction F#

Function Crystalize()
   For I=1 to 200
      Randomize Timer()
      A = RND(7)*15        ` Angles 0 to 90 in 15 degree steps
      L = RND(75)+ 125     ` Length of Crystal 125 to 200
      W = 5+Rnd(15)        ` Width of Crystal 5 to 20
      `Get Start position For Crystal
      NewChrystal:
      X1 = 10+Rnd(Display.Width-20) :X2=X1+(Cos(A)*L)
      Y1 = 10+Rnd(Display.Height-20):Y2=Y1+(Sin(A)*L)
      Ch=0
      `Check End Position is within Screen and rotate 45 if not
      While (X2<=10) or (X2=>Display.Width-20) or (Y2<=10) Or (Y2=>Display.Height-20)
         A=WrapValue(A+45)
         X2=X1+(Cos(A)*L) :Y2=Y1+(Sin(A)*L)
         inc ch : if ch >8 then goto NewChrystal
      EndWhile
      `Calculate Offset steps
      XD=Abs(X1-X2): YD=Abs(Y1-Y2)
      XO=Int(Cos(A)*2):XO=Norm(XO): OX=Int(Cos(A-90)*2):OX=Norm(OX)
      YO=Int(Sin(A)*2):YO=Norm(YO): OY=Int(Sin(A-90)*2):OY=Norm(OY)
      `Find Longest Axis and step through each pixel
      IF XD>YD then L=XD else L=YD
      For J=0 to L  `Perform Length
      For OW=0 to W ` Perform Width
         `Get Start Pixel color
         PX=X1+int(XD*(J*1.0)/(L*1.0))+(OX*OW)
         PY=Y1+int(YD*(J*1.0)/(L*1.0))+(OY*OW)
         PC=Point(PX,PY)
         `Get Offset Pixel color
         QX=X1+XO
         QY=Y1+YO
         QC=Point(QX,QY)
         `Get Original Pixel color
         OC=Call Dll(2,"GetPixel",Display.hDc,PX,PY)
         `Calculate new color
         R=(((RGBR(PC)*1.50)+(RGBR(QC)*0.45)+(RGBB(OC)*0.05))/2)
         G=(((RGBG(PC)*1.50)+(RGBG(QC)*0.45)+(RGBG(OC)*0.05))/2)
         B=(((RGBB(PC)*1.50)+(RGBB(QC)*0.45)+(RGBR(OC)*0.05))/2)
         `Update Image
         Dot PX,PY,RGB(R,G,B)
      Next
      Next
   Next
EndFunction
Function Norm(I)
   If I>0 then I= 1
   If I<0 then I=-1
EndFunction I

Function Message()
   Perform Checklist For Fonts
   Size=Text Size():Set Text Size 72 : Set Text to Bold
   T$="Merry Christmas." : BW=Text Width(T$) : BH=Text Height(T$)*1.1
   Create Bitmap 1,BW,BH : Set Current Bitmap 1
   Text 0,0,T$ : OH=BH*.5
   For b=0 to 3 : Blur bitmap 1,3 : next
   For X=0 to BW
      PX = (Display.Width*.5)+(X-(BW*.5))
      O=(Display.Height*.25)-(Sin(360.0*(X/(BW*1.)))*OH)
      For Y=0 to BH
         PY=Y+O
         Set Current Bitmap 1
         MC=Point(X,Y)
         If MC<>RGB(0,0,0)
            Set Current Bitmap 0
            OC=Call Dll(2,"GetPixel",Display.hDc,PX,PY)
            PC=Point(PX,PY)
            P2# =(RGBB(MC)/255.0)*.4 : P1#=1.0 - P2#
            `
            R=(RGBR(PC)*P1#)+(RGBB(OC)*P2#)
            G=(RGBG(PC)*P1#)+(RGBG(OC)*P2#)
            B=(RGBB(PC)*P1#)+(RGBR(OC)*P2#)
            Dot PX,PY,RGB(R,G,B)
         EndIf
      Next
   Next
   Set Current Bitmap 0 :   Delete Bitmap 1
   Set Text Size Size : Set Text To Normal
EndFunction

Frosty Monitors.. whoohoo

**[edit]** added a few other things to make it more... eh... Christmasy...

Go Create...

---

oh i remember this. Didnt have time to try it last year, and......again have no time to do it this year either LOL. Although, I could offer a prize! A copy of Nream! =] Can I do that ric? Never offered a prize b4, want to feel special hehe.

Nack

---

Haha TinTin, you froze up my computer! (Bad pun...)


Anyway, sounds fun, I might try this if I'm not too busy over the holidays.


I don't know how much media is gonna be provided for this comp, but do you expect we use ALL of it? (ie, if you provided several sprites, what if we only used 1 out of those?)

---

Ok folks - this contest just got serious! The Game Creators have just contacted me to say they would like to contribute to the prize list - to the tune of $200 of TGC vouchers to be distributed between 1st, 2nd and 3rd places! Mighty generous of them.

See the first post in this thread for a break down of the prizes.

@Nack: Thank you very much for the offer. Could you please email me at ric@andromedus.com

@GBark: Haven't quite figured out the last details yet, but I shouldn't worry too much about there being too much media. Last year, it was one single image. It may be a little more this year, but there won't be anything in there that you can't use with a bit of imagination - none of it will be too specific to any particular purpose.

---

Ow, man! Can you make also adiitional competition on winter HOLIDAYS, 1-15 january? There is a people interested at your c'n but they're working SO HARD (so do i) from 9 to 19.
There is no time before Xmas on ourmselfs!

Think about it.

And be gentle

---

Thank you for this new competition! I will join it because I like Xmas and Wintery theme, but I also like the City theme, that's why I hope there will be some city related media for this challenge, such as snowy roads, snowy buildings, winter weather skyboxes. The city theme is very important to me: lots of modern games takes place in huge cities. If you want I can upload some media for example. media that I have created, without copyright.

---

Oh yeah! And models like babes in santa's costume!
Although dont forget about HUGE black killer snowmans!
And evil xmas tree factory!
Merry evil xmas!

@jokes copyright 8)

---

Steve Vink (aka Batvink), the TGC Newsletter Editor and forum moderator has kindly agreed to join me on the judging panel. We will be looking at the entries carefully and picking the top three places once the competition ends - exactly how long that will take will depend on the number of entries.

mrHandy: Sorry, the dates are set. I'm sure you understand that different people across the world and across the age range have different holiday dates, so it isn't possible to please everyone - although the majority of people should find they have at least some holiday between the 16th Dec and 7th Jan.

MJ: Thanks for your suggestions regarding media. So that I don't give anyone an unfair headstart, I am not going to discuss what may or may not be included. The only clue I will give you is in the title of the challenge - 'minimal' - other than that, you'll just have to wait and see!

---

RIC! DARN my calc! 7th jan its perfect! Our team did our best!

Oh,oh, ad let MINIMAL MEDIA will be sphere and cube! =)

---

Thank you.

---

I will give it a shot.

---

I too plan to sink my teeth into this delicious crumpetition.



And if I'm not mistaken, Micheal Jackson up there is actually Serjo. Good heavens and stuff.

---

OMGFH ITS SERDJO3D!!
The most advanced and the best programmer in the worldzz!

Or maybe not..

---

Oh wow, good catch Mono... heh. Well I, for one, certainly look forward to this competition! Only 9 days to go...

---

Last year's competition was fun, I'll definitely be here to see the entires, and might enter if I have time.

---

Fantastic,

Thanks for providing another compo.

Unfortunately, Christmas is the one of the busiest times of year for me and most people who work in a service industry. I don’t get any holidays over the festive period (I’m even working on Christmas day) and with the increased commitments to friends and family, my time is going to be short. Still I will try and enter because I love doing these compos. (it’s the only time I come close to finishing a project).


Forgive me if i am being stupid but does this mean no Dark Physics, Sparkys collision, Advanced Terrain, etc

---

Ever one of those are plugins, so no. You can't use them.




-Dan

---

Sounds good, could you give a description of what media there will be at the start of the comp (2d/3d etc.), since I will not have the internet available for a while after the competition starts and end up getting a late start.

Thanks

---

That's pretty harsh - I hope you at least get paid extra!



Almost correct - no to Dark Physics, and no to Sparky's. Advanced Terrain is an exception. Everyone who has DBP has it, so it is effectively part of the language and therefore it is allowed.

I don't really want to get into the whole issue behind why - the 'what is classed as media' question tends to be a good way to open up a big can of worms! Suffice to say that full rules will be clarified when the compo begins, and that these rules haven't just been thought up randomly overnight - they have been thoroughly discussed and debated before, and are the same as those which have been in effect for the DBP challenges over the last 3 years.

Anyone not sure what is meant by 'no media' should look here: http://www.andromedus.com/dbp/html/media-rule.html


Your game/demo can be in either 2d or 3d. The media provided will not limit you to either one. I can't say more than that I'm afraid!

---

Is it necessary to use media?
Ive made non media cool crystal effect

And i would like to enter with it.. I may improve it withing the competition time but its already pretty cool imo

Edit:
Here is the code
I hope we can post our wips already.
I call this effect "Winter Madness" lol
+ Code Snippet

Sync On
Sync Rate 20
Autocam off
Move Camera -300
Type oRot
x as float
y as float
z as float
Endtype
Make Object Sphere 1,5,3,3
Color Object 1,RGB(0,0,29)
Set Reflection Shading On 1
Lock Vertexdata For Limb 1,0
Set Vertexdata Position 0,0,2.5,0
Set Vertexdata Position 1,0,2.5,0
Set Vertexdata Position 2,0,2.5,0
Set Vertexdata Position 3,0,2.5,0
Set Vertexdata Position 4,-1,7.25,2.16506361961
Set Vertexdata Position 5,1.875,1.24999988079,-1.08253192902
Set Vertexdata Position 6,-1.87500011921,1.24999988079,-1.08253157139
Set Vertexdata Position 7,-1.99999964237,2.25,2.16506361961
Set Vertexdata Position 8,0,-1.25000011921,2.1650633812
Set Vertexdata Position 9,1.875,-1.25000011921,-1.08253192902
Set Vertexdata Position 10,-1.875,-3.25,-1.08253145218
Set Vertexdata Position 11,-3.78551732183,-1.25000011921,2.1650633812
Set Vertexdata Position 12,0,-2.5,2.18556948539
Set Vertexdata Position 13,1.89275866092,-2.5,-1.09278481375
Set Vertexdata Position 14,-1.89275866092,-2.5,-1.09278452953
Set Vertexdata Position 15,-3.82137084563,-2.5,2.18556948539
Unlock Vertexdata
Ghost Object On 1
Set object Cull 1,0
ZRotate Object 1,180
Fix Object Pivot 1 
ObjAmount=1000
Global dx as float
Global dy as float
Global dz as float
Dim Rot(ObjAmount) as oRot
Rot(1).x=Rnd(360)
Rot(1).y=Rnd(360)
Rot(1).z=Rnd(360)
For x=2 to ObjAmount
 Instance Object x,1
 Rot(x).x=Rnd(2000)
 Rot(x).y=Rnd(2000)
 Rot(x).z=Rnd(2000)
 If x>50 and x<300
  Move Object x,-(x-48)
 Endif
 If x>=300
  Position object x,Object Position X(1),Object Position Y(1),Object Position Z(1)
  Move Object x,20
  Move Object Down x,20
 Endif
Next x
Make Object Sphere ObjAmount+1,900
Set Object Cull ObjAmount+1,0
Color Object ObjAmount+1,RGB(0,0,256)
Set Alpha Mapping On ObjAmount+1,10
Backdrop off
Tim=Timer()+5000
Action=1
Do
Inc Yrot,1
Text 0,0,str$(Screen Fps())
If Action=2
 if speed<(.5*(ObjAmount-250)) then inc Speed,1
Endif
If Action=5
 inc Speed,1
Endif
For x=1 to ObjAmount
If Action=5
 Position Object x,Cos(Object Position X(x)+Object Angle X(x)+Yrot),Cos(Object Position Y(x)+Object Angle Y(x)+YRot),Cos(Object Position Z(x)+Object Angle Z(x)+YRot)
 If x>250
  Move Object x,-Speed
 Endif
 If Timer()>Tim then Action=1:Tim=Timer()+5000
Endif
If Action=4
 Rotate Object x,0,0,0
 Point Object x,0,0,0
 Move Object x,5
 If Timer()>Tim then Speed=0:Action=5:Tim=Timer()+12000
Endif
If Action=3
 Move Object x,-10
 Rotate Camera rnd(5),rnd(5),rnd(5)
 If Timer()>Tim Then Action=4:Tim=Timer()+35000
Endif
If Action=2
 Position Object x,Cos(Object Position X(x)+Object Angle X(x)+Yrot),Cos(Object Position Y(x)+Object Angle Y(x)+YRot),Cos(Object Position Z(x)+Object Angle Z(x)+YRot)
 If x>250
  inc i,1
  speedo=.5*i-speed
  if speedo>0 then Move Object x,speedo
 Endif
If Object Collision(1,ObjAmount-30) then Action=3:Tim=Timer()+13000
Endif
If Action=1
 Position Object x,Cos(Object Position X(x)+Object Angle X(x)+Yrot),Cos(Object Position Y(x)+Object Angle Y(x)+YRot),Cos(Object Position Z(x)+Object Angle Z(x)+YRot)
 If x>250
  inc i,1
  Move Object x,.5*i
 Endif
 If Timer()>Tim then Speed=0:Action=2
Endif
 Rotate Object x,Rot(x).x+YRot,Rot(x).y+YRot,Rot(x).z+YRot
Next x
i=0
Fastsync
Loop

Here is Particle Version of it:
+ Code Snippet

Sync On
Sync Rate 0
Autocam off
Move Camera -300
Type oRot
x as float
y as float
z as float
Endtype
Make Object Plain 1,5,5
Ghost Object On 1
ObjAmount=600
Global dx as float
Global dy as float
Global dz as float
Dim Rot(ObjAmount) as oRot
Rot(1).x=Rnd(360)
Rot(1).y=Rnd(360)
Rot(1).z=Rnd(360)
For x=2 to ObjAmount
 Instance Object x,1
 Rot(x).x=Rnd(2000)
 Rot(x).y=Rnd(2000)
 Rot(x).z=Rnd(2000)
 If x>50 and x<300
  Move Object x,-(x-48)
 Endif
 If x>=300
  Position object x,Object Position X(1),Object Position Y(1),Object Position Z(1)
  Move Object x,20
  Move Object Down x,20
 Endif
Next x
Make Object Sphere ObjAmount+1,900
Set Object Cull ObjAmount+1,0
Color Object ObjAmount+1,RGB(0,0,256)
Set Alpha Mapping On ObjAmount+1,10
Backdrop off
Tim=Timer()+5000
Action=1
Do
Inc Yrot,1
Text 0,0,str$(Screen Fps())
If Action=2
 if speed<(.5*(ObjAmount-250)) then inc Speed,1
Endif
If Action=5
 inc Speed,1
Endif
For x=1 to ObjAmount
If Action=5
 Position Object x,Cos(Object Position X(x)+Object Angle X(x)+Yrot),Cos(Object Position Y(x)+Object Angle Y(x)+YRot),Cos(Object Position Z(x)+Object Angle Z(x)+YRot)
 If x>250
  Move Object x,-Speed
 Endif
 If Timer()>Tim then Action=1:Tim=Timer()+5000
Endif
If Action=4
 Rotate Object x,0,0,0
 Point Object x,0,0,0
 Move Object x,5
 If Timer()>Tim then Speed=0:Action=5:Tim=Timer()+12000
Endif
If Action=3
 Move Object x,-10
 Rotate Camera rnd(5),rnd(5),rnd(5)
 If Timer()>Tim Then Action=4:Tim=Timer()+35000
Endif
If Action=2
 Position Object x,Cos(Object Position X(x)+Object Angle X(x)+Yrot),Cos(Object Position Y(x)+Object Angle Y(x)+YRot),Cos(Object Position Z(x)+Object Angle Z(x)+YRot)
 If x>250
  inc i,1
  speedo=.5*i-speed
  if speedo>0 then Move Object x,speedo
 Endif
If Object Collision(1,ObjAmount-30) then Action=3:Tim=Timer()+13000
Endif
If Action=1
 Position Object x,Cos(Object Position X(x)+Object Angle X(x)+Yrot),Cos(Object Position Y(x)+Object Angle Y(x)+YRot),Cos(Object Position Z(x)+Object Angle Z(x)+YRot)
 If x>250
  inc i,1
  Move Object x,.5*i
 Endif
 If Timer()>Tim then Speed=0:Action=2
Endif
 Rotate Object x,Rot(x).x+YRot,Rot(x).y+YRot,Rot(x).z+YRot
Next x
i=0
Fastsync
Loop

The 3d version has sync rate because it may be faster on other comps and i was too lazy to but timer based system on it

The particle version doesnt have sync rate so you can test how speedy it is!

Note: Please do not steal or modify!

---

It will be necessary to use the provided media, yes.

That's quite cool Roxas! But I would wait until the competition begins before you do too much more, as you don't know what the media will be yet - and it might affect the direction you take.

---

sweet! this looks awsome. Ric, if we already have GUI studio, can we get a vouncher for your site? or sould we just give it away to some one else?

defintly doin this contest btw.

---

Sorry, there won't be any alternative prizes - I guess you could always try and sell GUI Studio though if you already have it!

---

okay, thats fair.

---

do we also get that media 1 pack addon for gui studio?

---

this sounds like fun! if im not too busy, ill see if i can knock something together

one question: are plugins allowed? probably not, but just checking.

---

After I got screwed over for a voucher on the last compo, no thanx

---

Sure you do!


No plugins, except Advanced Terrain which is effectively part of DBPro

---

Well, advanced Terrain uses external media for the height map, texture map, and detail map; so it seems that no, we cannot use advanced terrain. Unless someone is clever enough to produce those images using data commands(or something else) inside of DBPro, thus keeping the media internal, then that is a different story.

---

Easy

---

Coding without media??
Here we go!

---

It is really quite easy to generate them randomly using an algorithm. Certainly not a problem!

---

Are HLSL allowed? They're not medias, right?

---

Dude, I'm definitely entering!

---

HLSL isn't pure DBPro code - sorry! No media in this context means nothing that isn't pure DBP. Anyway - you already had a shader contest this year! (and if memory serves correctly, I seem to remember you did ok! )

@GatorHex:


That has nothing to do with me or this challenge! This contest is just a bit of Christmas fun to stop people getting bored during the holidays - feel free to join in or not!

---

So- can I use an array to store pixel information obtained from a real image as code, then build an image out of that as if it was a real image loaded as media?

---

Just a thought: if you are excepting any more prizes Epsilon Zero would be willing to donate one copy of Vegetator Professional:

http://forum.thegamecreators.com/?m=forum_view&t=109568&b=5