Page 1 of 2

Posted: Wed Mar 05, 2003 12:50 pm
by BackupUser
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

Posted: Wed Mar 05, 2003 7:52 pm
by BackupUser
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

Posted: Thu Mar 06, 2003 2:38 pm
by BackupUser
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

Posted: Thu Mar 06, 2003 5:47 pm
by BackupUser
Restored from previous forum. Originally posted by Max..

Runs very smoothly! :)

Max.

Posted: Thu Mar 06, 2003 6:14 pm
by BackupUser
Restored from previous forum. Originally posted by Rings.

:):):)!

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

Posted: Thu Mar 06, 2003 10:13 pm
by BackupUser
Restored from previous forum. Originally posted by fred.

Yeah, roxx !

Fred - AlphaSND

Posted: Fri Mar 07, 2003 2:05 am
by BackupUser
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!

Posted: Fri Mar 07, 2003 10:05 pm
by BackupUser
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

Posted: Mon Mar 10, 2003 8:25 pm
by BackupUser
Restored from previous forum. Originally posted by Passant.

Really nice game...

Posted: Tue Mar 18, 2003 10:22 am
by BackupUser
Restored from previous forum. Originally posted by Marcus.

PucKmAm + PURE v3.60 = :)
Dim :):):)

Marcus = :cry:

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

Posted: Tue Mar 18, 2003 10:36 am
by BackupUser
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

Posted: Tue Mar 18, 2003 2:28 pm
by BackupUser
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

Posted: Tue Mar 18, 2003 5:51 pm
by BackupUser
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

Posted: Wed Mar 19, 2003 7:40 pm
by BackupUser
Restored from previous forum. Originally posted by Marcus.

PucKmAn + Pure 3.61 = :)

:cry:

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

Posted: Wed Mar 19, 2003 7:46 pm
by BackupUser
Restored from previous forum. Originally posted by fred.

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

Fred - AlphaSND