cederavic a écrit :Faire Fichier => Nouveau (ou File => New) et commencer un Pong
Il suffit d'utiliser 2 moniteurs synchronisésVous 'avez pas des idées
Non , aucune idée .auriez vous des idées pour ca ?
Sinon y peut chercher les codes de flype sur le scrolling... (dispos sur le musée normalement)Chris a écrit :Sinon, essaye de demander à Polux. Il me semble qu'il y avait un tuto la dessus sur son ancien forum.
Il l'a peut-être gardé.
Code : Tout sélectionner
; German forum: http://robsite.de/php/pureboard/viewtopic.php?t=1212&highlight=
; Author: Danilo
; Date: 02. June 2003
; Example, how the background of a player will be moved, and the player still hold its position
; in the middle of the screen
#SPRITE_W = 50
#SPRITE_H = 50
#SCREEN_W = 800
#SCREEN_H = 600
If InitSprite() = 0 Or InitKeyboard() = 0
MessageRequester("ERROR","Cant init DirectX",0):End
EndIf
If OpenScreen(#SCREEN_W,#SCREEN_H,32,"TEST") = 0 ; test 32bit
If OpenScreen(#SCREEN_W,#SCREEN_H,24,"TEST") = 0 ; if 32bit failed, test 24bit
If OpenScreen(#SCREEN_W,#SCREEN_H,16,"TEST") = 0 ; if 32/24 failed, try 16bit screen
MessageRequester("ERROR","Cant open 16/24/32bit Screen",0):End
EndIf
EndIf
EndIf
; limit Speed
SetFrameRate(50)
CreateSprite(1,#SPRITE_W,#SPRITE_H)
StartDrawing(SpriteOutput(1))
Box(0,0,#SPRITE_W,#SPRITE_H,RGB($00,$00,$FF))
StopDrawing()
CreateSprite(2,#SPRITE_W,#SPRITE_H)
StartDrawing(SpriteOutput(2))
Box(0,0,#SPRITE_W,#SPRITE_H,RGB($FF,$FF,$FF))
StopDrawing()
CreateSprite(3,50,50)
StartDrawing(SpriteOutput(3))
Locate(0,18)
DrawingMode(1)
FrontColor($10,$10,$10)
DrawText("Player1")
StopDrawing()
Repeat
FlipBuffers()
ExamineKeyboard()
If IsScreenActive()
;ClearScreen($66,$66,$66)
; KEYBOARD CHECK
;
If KeyboardPushed(#PB_Key_Up)
backY + 2
EndIf
If KeyboardPushed(#PB_Key_Down)
backY - 2
EndIf
If KeyboardPushed(#PB_Key_Right)
backX - 2
EndIf
If KeyboardPushed(#PB_Key_Left)
backX + 2
EndIf
If backY <= ((-(#SPRITE_H*2))-1) : backY + #SPRITE_H*2: EndIf
If backY => 1 : backY - (#SPRITE_H*2) : EndIf
If backX <= ((-(#SPRITE_W*2))-1) : backX + #SPRITE_W*2 : EndIf
If backX => 1 : backX - (#SPRITE_W*2) : EndIf
For a = 0 To (#SCREEN_W/#SPRITE_W)/2
For b = 0 To (#SCREEN_H/#SPRITE_H)/2
DisplaySprite(1, backX+a*#SPRITE_W*2,backY+b*#SPRITE_H*2)
DisplaySprite(2,#SPRITE_W+backX+a*#SPRITE_W*2,backY+b*#SPRITE_H*2)
DisplaySprite(2, backX+a*#SPRITE_W*2,#SPRITE_H+backY+b*#SPRITE_H*2)
DisplaySprite(1,#SPRITE_W+backX+a*#SPRITE_W*2,#SPRITE_H+backY+b*#SPRITE_H*2)
Next b
Next a
; Player
DisplayTransparentSprite(3,#SCREEN_W/2-25,#SCREEN_H/2-25)
Sleep_(1)
Else
Sleep_(200)
EndIf
Until KeyboardPushed(#PB_Key_Escape)
End
