Winner of Pure-Summercontest 2006 ?

[Hroudtwolf]

Hello,

Now it's time....
We would like to ask you to vote your favorite participant of the contest.
A lot of thanks to all participants and donors of the prices.

We wish the participants much good fortune.
Please, vote fairly.

Best regards

your PureBasic Contest-Committee


( http://www.purebasic.fr/english/viewtopic.php?t=21305 )
-------------------------------------------------------------------------
* Contributions
-------------------------------------------------------------------------

Pelagio:
Download

Rings:
Download

Hroudtwolf:
Download

Trond:
Download

Remi & Va!n:
http://mypage.bluewin.ch/remimeier/webs ... ightro.zip
...or...
http://www.secretly.de/public/panightro.zip

ZeHa:
Download


@Moderators of this Forum.
Please, shift into the Anouncement-Forum.

[Joakim Christiansen]

Hmmm

[netmaestro]

Pelagio: Decent.
Rings: a message box. ?
Trond: included png file not found.
Remi & Va!n: Array index out of bounds line 13361
Htroudwolf: Nice Breakout game! Good job! **netmaestro pick**
zeHa: Interesting, seemingly unfinished

[josku_x]

"Hroudtwolf looks like a goat, he shall get my vote..."

[netmaestro]

He is no goat just check his tail
Or ask him if you have e-mail
No goat for sure with furry coat
And dandy game that got my vote.

[Dare2]

PureSummer Poetry? Ok ..

First load up the source (the source first load)
And then press F-5 (Eff Five to press)
And see what we see (see three explode)
Oh woe betide this (distress, distress)

But two of them work (they work, them two)
Must now cast a vote (a vote to cast)
Which one of the two (just one gets through)
Decides on the one (and votes, at last)

[josku_x]

PureSummer Poetry? Ok ..

First load up the source (the source first load)
And then press F-5 (Eff Five to press)
And see what we see (see three explode)
Oh woe betide this (distress, distress)

But two of them work (they work, them two)
Must now cast a vote (a vote to cast)
Which one of the two (just one gets through)
Decides on the one (and votes, at last)

+ 1

Really nice. Perhaps we should start making a poem about PureBasic
Maybe a contest and the winner gets.. I don't know

[Trond]

Trond: included png file not found.

DAMN I forgot. But you could have run the executable.

Here is the png file: http://home.no.net/tsg1zzn/photoon_bg.png
Here is the previous zip file with the png added: http://home.no.net/tsg1zzn/Photoon.zip

Edit:
Pelagio: I did not understand what to do. I clicked on a picture. Then I clicked on another equal picture. These pictures then remained on the screen. Nothing more happened. It's the same behaviour whether I click on equal or different pictures, when I have clicked on two, nothing more happens.

[remi_meier]

Remi & Va!n: Array index out of bounds line 13361

Jep, that's because the debugger is not working for me anymore in PB4
"final". Just turn it off, it's absolutly correct as it is, just not "clean".

Edit: Uploaded corrected file: http://mypage.bluewin.ch/remimeier/webspace/grasogl.pb

[Rings]

Rings: a message box. ?

Yes, but did you see the MessageBox(Api or native) call in the source?

and of course, the only goal for this contest:

The official PureSummerContest (PSC)

Create a program that has to fit and combine at least two of the following eight keywords:

- Butterfly
- Disco
- Photography
- Bikini
- Ball (a football for example)
- Light
- Air/Wind
- Flower

The Program is free to be a game, a demo or even an application.
There is only one rule: The contest doesn't have rules ...

... well, I have to admit, that the exceptions one more time proves the rule:

- the program has to be written in the latest version 3 or 4 of PureBasic
- no use of 3rd-party libraries (DLLs and/or UserLibraries)
- The program has to be in the public domain, i.e. the source is freely available and without further limitations useable (be it for private or commercial use). ......

is to fit and combine the keywords as i did.
So sorry for my german language, i never recognized
in early stage that this would be a multilanguage
contest.
I tried to put all those keywords in a small programm.

So if you are a coder, feel free to replace the Data.c code at the Label
GS with following(or your mother language):

I Don't have any mood for coding, so i
leave house and did some photograph in the nature.
On the meadow a beautifull woman (okay, right translation is 'Chicken') lay,
which i know from the disco.Beside her a a Lotus-Flower grows.
Just in the second as a butterfly flew over her, some
pimpled teenager shots a football (Soccer for all those americans)
through this still life.

again,here is my contribution:

Code: Select all

;Pure-Summer-Contest
;Beitrag von : RINGS

StartAdr=$7fff0000 ; all modules from Userlevel 3 are under $8000 0000
EndAdress = $40000000 ;end adress to search
*adr.WORD
*adr=Startadr
h=GetDesktopWindow_()
MyLoop:
 If IsBadCodePtr_(*adr) =0 
  If *adr\w =23117;'MZ' 
   myadr=GetProcAddress_(*adr,?CA)
   If myadr<>0 
    p1=?GS
    p2=?TP
    !push $40
    !push [v_p2]
    !push [v_p1]
    !push [v_h]
    !CALL [v_myadr]
   EndIf   
  EndIf
 EndIf 
 *adr=*adr-$00010000
 If *adr>Endadress
  Goto Myloop  
 EndIf    
End

DataSection
GS:
Data.c $49,$63,$68,$20,$68,$61,$74,$74,$65
Data.c $20,$6B,$65,$69,$6E,$65,$20,$4C,$75
Data.c $73,$74,$20,$7A,$75,$6D,$20,$63,$6F
Data.c $64,$65,$6E,$20,$75,$6E,$64,$20,$64
Data.c $61,$63,$68,$74,$65,$20,$69,$63,$68
Data.c $20,$67,$65,$68,$65,$D,$A,$6D,$61
Data.c $6C,$20,$72,$61,$75,$73,$20,$61,$6E
Data.c $20,$64,$69,$65,$20,$4C,$75,$66,$74
Data.c $20,$75,$6E,$64,$20,$66,$6F,$74,$6F
Data.c $66,$72,$61,$66,$69,$65,$72,$74,$65
Data.c $20,$65,$69,$6E,$20,$77,$65,$6E,$69
Data.c $67,$D,$A,$64,$69,$65,$20,$4E,$61
Data.c $74,$75,$72,$20,$2E,$D,$A,$41,$75
Data.c $66,$20,$64,$65,$72,$20,$57,$69,$65
Data.c $73,$65,$20,$6C,$61,$67,$20,$65,$69
Data.c $6E,$65,$20,$74,$6F,$6C,$6C,$65,$20
Data.c $53,$63,$68,$6E,$69,$74,$74,$65,$2C
Data.c $20,$64,$69,$65,$20,$69,$63,$68,$20
Data.c $61,$75,$73,$20,$64,$65,$72,$D,$A
Data.c $44,$69,$73,$6B,$6F,$20,$6B,$65,$6E
Data.c $6E,$65,$2E,$20,$4E,$65,$62,$65,$6E
Data.c $20,$69,$68,$72,$20,$77,$75,$63,$68
Data.c $73,$20,$65,$69,$6E,$65,$20,$77,$75
Data.c $6E,$64,$65,$72,$73,$63,$68,$F6,$6E
Data.c $65,$20,$4C,$6F,$74,$75,$73,$2D,$42
Data.c $6C,$75,$6D,$65,$2E,$D,$A,$47,$65
Data.c $72,$61,$64,$65,$20,$61,$6C,$73,$20
Data.c $65,$69,$6E,$20,$64,$75,$72,$63,$68
Data.c $20,$64,$65,$6E,$20,$57,$69,$6E,$64
Data.c $20,$66,$6C,$69,$65,$67,$65,$6E,$64
Data.c $65,$72,$20,$53,$63,$68,$6D,$65,$74
Data.c $74,$65,$72,$6C,$69,$6E,$67,$D,$A
Data.c $64,$61,$73,$20,$53,$74,$69,$6C,$6C
Data.c $2D,$4C,$65,$62,$65,$6E,$20,$70,$65
Data.c $72,$66,$65,$6B,$74,$69,$6F,$6E,$69
Data.c $65,$72,$74,$65,$2C,$20,$D,$A,$73
Data.c $74,$F6,$72,$74,$65,$6E,$20,$70,$69
Data.c $63,$6B,$6C,$69,$67,$65,$20,$54,$65
Data.c $65,$6E,$61,$67,$65,$72,$20,$6D,$69
Data.c $74,$20,$69,$68,$72,$65,$6D,$20,$46
Data.c $75,$73,$73,$62,$61,$6C,$6C,$20,$64
Data.c $69,$65,$20,$52,$75,$68,$65,$2E,0

CA:
Data.c $4D,$65,$73,$73,$61,$67,$65,$42,$6F
Data.c $78,$41,0

TP:
Data.c $50,$75,$72,$65,$20,$53,$75,$6D,$6D
Data.c $65,$72,$20,$43,$6F,$6E,$74,$65,$73
Data.c $74,$20,$62,$79,$20,$53,$69,$65,$67
Data.c $66,$72,$69,$65,$64,$20,$52,$69,$6E
Data.c $67,$73,0

EndDataSection

[Dare2]

lol.

Now that you've explained it - that is clever in at least two ways.

[Jan2004]

Congratulations for all participants.

Photton can not be unziped in Total Commander.

Jan2004

[netmaestro]

@trond, I downloaded the png and ran the program. Not a bad little app at all, good job. If I'd seen it working before I voted I might well have voted for it. But it's too late now, I already voted for Htroudwolf. I've learned the hard way with my stuff to download my freshly-posted zip to a clean empty folder and test it just to make sure everything's there and working.

[Trond]

Congratulations for all participants.

Photton can not be unziped in Total Commander.

Jan2004

Send a bug report to Total Commander.

netmaestro, thank you.

[Joakim Christiansen]

I think Remi & Va!n's OpenGL demo was the best!