Project Horizon

[sovenyimre]

Oh. Thank you.

[d4rk3lf]

Wow.
Love these weather changes.

Amazing effect, and very well executed.

[sovenyimre]

Originally Posted by d4rk3lf

Wow.
Love these weather changes.

Amazing effect, and very well executed.

It is a bit buggy but if the lighting it the enemy, it will die and burn. And as a fantasy option, adjustable to reanimate if it hits the dead ones
...and there is an underwater version with bubbles.

[alain.treesong]

Hi Sovenymire,

I've just seen your problem with the Exist function.
I've just tested and don't reproduce the problem : I call exist on existing file and get -1 then I change the disk when there is no more this file and a new exist function call return 0. I tested on Amos pro with rom 1.3 and with rom 3.1 on an A500 hardware winuae config.
What is your test env ?

[sovenyimre]

Thank You for testing.
"I need the input."- Dr. Evil

Winuae and amos pro 2 with exact timing, no extra speed for df0: and close to the real hw as possible. (A500, A1200, k1.3...k3.1)
The funny thing is that everything is working as an angel on hdd when I messing with the files behind the back of winuae ( I made the file exist or not by rename it under windows).
But when I do the test (compiled and without the messing) on df0, the file will allway exist with -1 once been found, even if I change the disk and the volume name is different. The problem is when I want to use files on a previous disk.
... I will paste the code I used here when I am home.
And I am here.

-------------------------------------------------------------
Screen Open 0,352,288,16,Lowres : Screen Display 0,,,320,256
Hide On : Curs Off : Flash Off : Cls 0 : Ink 7,0

Do
CURFILE$="menu.iff"
Gosub INSERT

CURFILE$="level.iff"
Gosub INSERT
Loop

INFO:
Screen Swap
For S=0 To 31 : Screen Offset 0,0,S : View : Wait Vbl : Next S
Repeat : View : Wait Vbl : Until Key State(64)
For S=0 To 31 : Screen Offset 0,0,31-S : View : Wait Vbl : Next S
Screen Offset 0,0,0 : View : Wait Vbl
Return

INSERT:
LS:
Cls 0,0,256 To 320,288
FE=Exist(CURFILE$)
Trap Load Iff CURFILE$
If Errtrap=81 or FE<>-1
Text 16,268,"Insert DISK "+CURFILE$+" and Press SPACE"
Gosub INFO
Goto LS
End If
Text 16,268,"Flag for file -"+CURFILE$+": "+Str$(FE)
Text 16,280,"Error trap -"+CURFILE$+": "+Str$(Errtrap)
Gosub INFO
Return
-------------------------------------------------------------

p.s.

The source abowe was the test program I used.
I spent weeks search to find a solution, and when I ask for , the (SIMPLE!) code suddenly works without alteration.

It must be sorcery!

Thank's for everyone