PureBasic Forums - English

Posted: **Sat May 27, 2006 1:44 am**

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.

Posted: **Sat May 27, 2006 1:57 am**

Posted: **Sat May 27, 2006 2:17 am**

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

Posted: **Sat May 27, 2006 3:40 am**

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

Posted: **Sat May 27, 2006 3:44 am**

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.

Posted: **Sat May 27, 2006 7:06 am**

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)

Posted: **Sat May 27, 2006 8:37 am**

Dare2 wrote: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

Posted: **Sat May 27, 2006 9:34 am**

netmaestro wrote: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.

Posted: **Sat May 27, 2006 9:58 am**

netmaestro wrote: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

Posted: **Sat May 27, 2006 5:12 pm**

netmaestro wrote: 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:

freedimension wrote: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

Posted: **Sat May 27, 2006 5:17 pm**

lol.

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

Posted: **Sat May 27, 2006 9:11 pm**

Congratulations for all participants.

Photton can not be unziped in Total Commander.

Jan2004

Posted: **Sat May 27, 2006 9:52 pm**

@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.

Posted: **Sat May 27, 2006 10:09 pm**

Jan2004 wrote:Congratulations for all participants.

Photton can not be unziped in Total Commander.

Jan2004

Send a bug report to Total Commander.

netmaestro, thank you.

Posted: **Sat May 27, 2006 10:39 pm**

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

PureBasic Forums - English

Winner of Pure-Summercontest 2006 ?

Winner of Pure-Summercontest 2006 ?