Open Source: Waponez III

[IceSoft]

Here my simple top down shooter:
https://www.youtube.com/shorts/ep01NvaxOwM
Inspired by Waponez II (orginal source is part of PureBasic and this one: viewtopic.php?t=88168 )

{New]
- Enemies shoting back (if died)

Source code (no data):
https://github.com/aismann/PureBasic_ex ... aponez_III

[darius676]

[IceSoft]

Here my simple top down shooter:
https://www.youtube.com/shorts/ep01NvaxOwM
Inspired by Waponez II (orginal source is part of PureBasic and this one: viewtopic.php?t=88168 )

{New]
- Enemies shoting back (if died)

Source code (no data):
https://github.com/aismann/PureBasic_ex ... aponez_III

[miso]

Nice, and thanks for sharing the code

[minimy]

Thank you very much IceSoft for share this nice code.

[IceSoft]

Add a bitmap font (not published at the moment)
removed bitmap

[miso]

I'm proudly joined forces with IceSoft for this project. Let's revive the title.

[IceSoft]

I'm proudly joined forces with IceSoft for this project. Let's revive the title.

Thanks miso!
There is a new "screenshot" showing the changes made by miso (see first entry).
Before all this is uploaded a "cleancode" will be done.
Been patient plz.

[IceSoft]

Still old sources but I add a movie about the progress:

ChangeLog (Thanks miso always)
- Using "Modules"
- Add some simple move patterns for the enemies
- Add score and lives
- bug fixes

[miso]

Yes, spearating the core funcionalities by responsibilities was a key. (As the original code was created or recreated from an old, possibly amiga PB source, and current pb has very convenient solutions today)

Those who want to help, I have a problem I can't reproduce at home. If you run this snippet and post the debug window result, that might help me/us.

Code: Select all

ExamineDesktops()
w=DesktopWidth(0)
h=DesktopHeight(0)
ws = DesktopScaledX(w)
hs = DesktopScaledY(h)

wf = DesktopResolutionX()
hf = DesktopResolutionY()

wus = DesktopUnscaledX(ws)
hus = DesktopUnscaledY(hs)

Debug w
Debug h
Debug wf
Debug hf
Debug ws
Debug hs
Debug wus
Debug hus

[IceSoft]

Those who want to help, I have a problem I can't reproduce at home. If you run this snippet and post the debug window result, that might help me/us.

/edit
Selected "Enable DPI aware...."
I got (Having 2 monitors):
1920
1200
1.0
1.0
1920
1200
1920
1200

[Drone]

Yes, spearating the core funcionalities by responsibilities was a key. (As the original code was created or recreated from an old, possibly amiga PB source, and current pb has very convenient solutions today)

Those who want to help, I have a problem I can't reproduce at home. If you run this snippet and post the debug window result, that might help me/us.

Code: Select all

ExamineDesktops()
w=DesktopWidth(0)
h=DesktopHeight(0)
ws = DesktopScaledX(w)
hs = DesktopScaledY(h)

wf = DesktopResolutionX()
hf = DesktopResolutionY()

wus = DesktopUnscaledX(ws)
hus = DesktopUnscaledY(hs)

Debug w
Debug h
Debug wf
Debug hf
Debug ws
Debug hs
Debug wus
Debug hus

Hi !

The application needs to be compiled with the 'DPI Aware' switch. (DesktopScaledX(Value))

I also change from integer

wf = DesktopResolutionX()
hf = DesktopResolutionY()

to float

wf.f = DesktopResolutionX() ; Need to be float
hf.f = DesktopResolutionY() ; Need to be float

to get correct result...

... and I forgot ...

Laptop : 1 monitor

1920
1080
1.5
1.5
2880
1620
1920
1080

[miso]

Thanks guys. Looks all normal.

@drone: you are absolutely right with the floats. Thanks.

[minimy]

Very intersting project.
Good luck with the project guys! All the best!