PucKmAn 1.1b

BackupUser · Post by **BackupUser** » Wed Mar 05, 2003 12:50 pm

Restored from previous forum. Originally posted by Marcus.

PucKmAn codÃ© en Pure

http://perso.wanadoo.fr/marcus.zone/fic ... man1.1.zip

@+
Marcus
http://perso.wanadoo.fr/marcus.zone

BackupUser · Post by **BackupUser** » Wed Mar 05, 2003 7:52 pm

Restored from previous forum. Originally posted by Denis.

Salut Marcus,

I done as you tell but It doesn't work
(j'ai fait comme indiquÃ© dans le .txt mais ca fonctionne pas)

Win 98 SE PIII 500, 128 Mo RAM

A+

Denis

BackupUser · Post by **BackupUser** » Thu Mar 06, 2003 2:38 pm

Restored from previous forum. Originally posted by ebs.

Marcus,

Very nice! It works great on Win XP.

Eric

Originally posted by Marcus

PucKmAn codÃ© en Pure

http://perso.wanadoo.fr/marcus.zone/fic ... man1.1.zip

@+
Marcus
http://perso.wanadoo.fr/marcus.zone

BackupUser · Post by **BackupUser** » Thu Mar 06, 2003 5:47 pm

Restored from previous forum. Originally posted by Max..

Runs very smoothly!

Max.

BackupUser · Post by **BackupUser** » Thu Mar 06, 2003 6:14 pm

Restored from previous forum. Originally posted by Rings.

:):)!

Its a long way to the top if you wanna .....CodeGuru

BackupUser · Post by **BackupUser** » Thu Mar 06, 2003 10:13 pm

Restored from previous forum. Originally posted by fred.

Yeah, roxx !

Fred - AlphaSND

BackupUser · Post by **BackupUser** » Fri Mar 07, 2003 2:05 am

Restored from previous forum. Originally posted by Fangbeast.

It's very funny, I need to practice more though

We are Dyslexic of Borg, prepare to have your ass laminated!

BackupUser · Post by **BackupUser** » Fri Mar 07, 2003 10:05 pm

Restored from previous forum. Originally posted by Marcus.

Thank you !
New PucKmAn 1.1c
Police graphic, source, exe, files, 98se/2K/Me/Xp

http://perso.wanadoo.fr/marcus.zone/fic ... man1.1.zip

@+
Marcus
http://perso.wanadoo.fr/marcus.zone

BackupUser · Post by **BackupUser** » Mon Mar 10, 2003 8:25 pm

Restored from previous forum. Originally posted by Passant.

Really nice game...

BackupUser · Post by **BackupUser** » Tue Mar 18, 2003 10:22 am

Restored from previous forum. Originally posted by Marcus.

PucKmAm + PURE v3.60 =

Dim

:):)

Marcus =

@+
Marcus
http://perso.wanadoo.fr/marcus.zone

BackupUser · Post by **BackupUser** » Tue Mar 18, 2003 10:36 am

Restored from previous forum. Originally posted by fred.

There was some bad array access in your code, the debugger should told you no ?

Fred - AlphaSND

BackupUser · Post by **BackupUser** » Tue Mar 18, 2003 2:28 pm

Restored from previous forum. Originally posted by Marcus.

;to test with PURE 3.51 then to test with PURE3.60
;En compilant avec Pure3.51 le resultat Ã l'Ã©cran est le suivant :
;
; bob(1)=1
; bob(2)=2
;
; x(1)=1
; x(2)=2
;
;Le resultat est juste et identique avec les 2 lignes dÃ©clarant x(1) et x(2)
;et egalement juste avec la boucle for next
;
;En compilant avec Pure3.60 le resultat Ã l'Ã©cran est le suivant :
;Avec les 2 lignes qui declare x(1) et x(2)
;
; bob(1)=2
; bob(2)=2
;
; x(1)=2
; x(2)=2
;
;Ce qui me semble faux !?
;Avec la boucle for next Ã la place des 2 lignes qui dÃ©clarent separement x(1) et x(2)
;
; bob(1)=2
; bob(2)=2
;
; x(1)=0
; x(2)=0
;
;DiffÃ©rent mais faux aussi !?
;
;Merci FRED

InitSprite() :InitKeyboard()
i.b
OpenScreen(1024,768,16,"Test")

Structure sprite
x.b
EndStructure

Dim bob.sprite(2)
bob(1)\x =1
bob(2)\x =2

Dim x.b(2)

;For i=1 To 2
;x(i) = bob(i)\x
;Next i

x(1) = bob(1)\x ; tester avec ces 2 lignes .
x(2) = bob(2)\x ; puis retester en les remplacent par la boucle for next au dessus .

Repeat
ClearScreen (0,0,0)
StartDrawing(ScreenOutput())
FrontColor(255,255,255)
DrawingMode(1)
Locate (100,100)
DrawText("bob(1)\x = " + Str(bob(1)\x))
Locate (100,120)
DrawText("bob(2)\x = " + Str(bob(2)\x))

Locate (100,160)
DrawText("x(1) = " + Str(x(1)) )
Locate (100,180)
DrawText("x(2) = " + Str(x(2)) )

StopDrawing()
FlipBuffers()
ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)

End

@+
Marcus
http://perso.wanadoo.fr/marcus.zone

BackupUser · Post by **BackupUser** » Tue Mar 18, 2003 5:51 pm

Restored from previous forum. Originally posted by Marcus.

Structure p
x.l
EndStructure

Dim b.p(3)

b( 0 )\x = 1
b( 1 )\x = 2
b( 2 )\x = 3

For i = 0 To 2
Debug b( i )\x
Next

:):)Pure3.60:):):)

@+
Marcus
http://perso.wanadoo.fr/marcus.zone

BackupUser · Post by **BackupUser** » Wed Mar 19, 2003 7:40 pm

Restored from previous forum. Originally posted by Marcus.

PucKmAn + Pure 3.61 =

@+
Marcus
http://perso.wanadoo.fr/marcus.zone

BackupUser · Post by **BackupUser** » Wed Mar 19, 2003 7:46 pm

Restored from previous forum. Originally posted by fred.

Still doesn't work.. Damn. What is the problem this time ?

Fred - AlphaSND