the annoying game

[Nituvious]

oops, this was for 4.40!! sorry!

[Edit] Here is the binary with the image. Also the path was changed for the image.

[Demivec]

oops, this was for 4.40!! sorry!

[Edit] Here is the binary with the image. Also the path was changed for the image.

Thanks for the version tip, it functions much better. I'm still a little confused about why it malfunctions with v4.50b2 (well, it is a beta I guess).

Have you posted this before, it seems a little familiar?

[Nituvious]

No, this is the first "game" I've created. I think there are Flash games out there like this though.

[Kaeru Gaman]

Applications, Games, Tools, User libs and useful stuff coded in PureBasic

I do get "it". But I will refrain from posting anything else in this section.

I didn't want to drive you away...

Here is the binary with the image. Also the path was changed for the image.

yes, this was what I meant.

If you put something into the showcase, it should be runnable.

it could be tiny, neat, work-in-progress or even deep alpha state with tons of bugs to find...

but it should not try to load an image from an absolute path and come without the image.
I felt jackassed when I F5ed your code.

-------------------------------------------------------------------------------

I adapted your first code with some on-the-fly-drawing, now that I know what the Image was meant to look like.
something like that in your first post would have been completely sufficent.

Code: Select all

Enumeration
  #MWindow
  #MLoadImage
  #MImage
EndEnumeration
Global xScore.l,ImgX = Random(350),ImgY = Random(350)
Global sSeconds.l = 30000


; UsePNGImageDecoder()
; LoadImage(#MLoadImage,"C:\Code\Projects\Catchme.png")
CreateImage(#MLoadImage, 50, 50 )
  StartDrawing(ImageOutput(#MLoadImage))
    Box( 0,0, 50,50, $FFFFFF )
    DrawingMode(#PB_2DDrawing_Outlined)
    Circle( 24,24, 23, $000000 )
    Circle( 24,25, 23, $000000 )
    Circle( 25,24, 23, $000000 )
    Circle( 25,25, 23, $000000 )
    Circle( 16,16,  6, $000000 )
    Circle( 16,16,  5, $000000 )
    Circle( 33,16,  6, $000000 )
    Circle( 33,16,  5, $000000 )
    LineXY( 15,35, 34,31, $000000 )
    LineXY( 15,36, 34,32, $000000 )
    LineXY( 15,37, 34,33, $000000 )
  StopDrawing()


OpenWindow(#MWindow,0,0,400,400,"Score: 0",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ImageGadget(#MImage,ImgX,ImgY,50,50,ImageID(#MLoadImage),#PB_EventType_LeftClick)

Procedure sTimer()
  sSeconds.l-10
  Debug sSeconds.l
  If sSeconds.l <= 0
    ImgX = Random(350)
    ImgY = Random(350)
    ResizeGadget(#MImage,ImgX,ImgY,50,50)
    If xScore >= 1
      sSeconds = 30000/xScore.l+1
    Else
      sSeconds.l=30000
    EndIf
  EndIf
 
EndProcedure
Procedure sRandomMove()
  sTimer()
  Select EventType()
    Case #PB_EventType_LeftClick
      Delay(5)
      xScore.l+1
      ImgX = Random(350)
      ImgY = Random(350)
      SetWindowTitle(#MWindow,"Score: "+Str(xScore.l))
      ResizeGadget(#MImage,ImgX,ImgY,50,50)
      If xScore >= 1
        sSeconds = 30000/xScore.l+1
      Else
        sSeconds.l=30000
      EndIf

  EndSelect
EndProcedure
Repeat
  EventID = WaitWindowEvent(10)
  sRandomMove()
Until EventID = #PB_Event_CloseWindow

[Nituvious]

Oh okay
The image was just something I doodled on gimp while I waited for a phone call haha.
And sorry for the first post. I take 100% fault for it. I will edit the original.

[UserOfPure]

Okay, because I obviously don't "get it", what's so show-casy about it? I click the face, and it moves away? So what? What's the big deal here? Do I expect too much for a showcase app?

[Kaeru Gaman]

in the german forums, the T&T section is named "Code, Tips & Tricks", so you can post little codes there.
here is no special showcase section for little codes here, so where else to put it?

[Joakim Christiansen]

Do I expect too much for a showcase app?

The forum section is called "Applications - Feedback and Discussion".
I see no problem here... he made a simple game and wanted to show it and get some feedback, and that is what this forum section is for! To show what you have made and get feedback.

So WHAT if it isn't much to showcase... we should treat everybody with respect even if they are new to PB and not as talented as some of us. If people don't like this "game" then they can just avoid replying here, the rudeness has to stop.

[Fluid Byte]

Applications != Sourcecode

[Joakim Christiansen]

Applications != Sourcecode

Applications, Games, Tools, User libs and useful stuff coded in PureBasic

What he made would go under the game category and with or without source code it is still a "game".

Where else should he post this? (just asking)
Maybe a new forum section called "First creations showcase" should be made where users can post whatever without being ridiculed.

[Fluid Byte]

No one is "ridiculed". Stop being dramatic :roll:

[epidemicz]

Pretty impossible around 80 . Nice job man.

[El_Choni]

Hi, this is something I threw together in a few minutes. I wanted to see if I could divide by zero... (+Infinity!?)

Purebasic makes it possible!

[netmaestro]

...Wha..??? If El_Choni's back anything's possible!!

[Perkin]

Anything is possible
Anagram: His noisy PB genitals