PureBasic

D'ici là, Dobro, ça profite à d'autres tous ces codes instructifs qu'on devrait retrouver dans l'Aide plus souvent. Un exemple patent vaut mille discours.

Il y a tant à comprendre, tant à retenir. Même le basique Basic pouvait être complexe écrit par un doué, d'autant plus si le code n'était pas ...

J'ai ajouté à la Macro Display()
StartDrawing(ScreenOutput())
DrawText(0,0, Str(Page0) + ", " + Str(Page1) + ", " + Str(Page2) + ", " + Str(Page2))
DrawText(0,25, Str(posX) + ", " + Str(posY))
StopDrawing()


Phaelax aussi m'était bien occulte au départ quand j'étais sous DB Pro, la conversion ...

En effet, Djes, l'expression est juste : « fort de son expérience. » Ce qu'on a compris est une marche ajoutée à l'escalier.

Les non-matheux (dont je suis) qui rencontrent des sinus et des cosinus dans une formule sont bien perplexes. Le recours à l'Aide va-t-il aider ? J'ai trouvé la solution en ...

Merci, TazNormand

J'avais vérifié dans l'Aide, ainsi que sur Google, me payant du code C++ et pourquoi pas du VB. Je savais ce qu'était le XOR, mais ignorais à quoi il servait en ce cas particulier. Y a-t-il une formule équivalente, faisant moins Assembleur ?

Il en va de même avec :

Macro ...

Dans sa macro :

Macro MoveDown()
If LevelY < (LevelH - DispH)
If LevelY + VitY > (LevelH - DispH) ; "Sort" du niveau?
VitY = (LevelH - DispH) - LevelY
EndIf
PosY - VitY
If PosY < 0
ShiftY - PageH
PosY + PageH
Page0 ! 2
Page1 ! 2
Page2 ! 2
Page3 ! 2
EndIf
LevelY = 0 - (ShiftY + PosY ...

Caporal, j'ai réglé ce faux problème d'écriture de texte dans un sprite, ne réalisant pas que mon passage de ScreenOutput() à SpriteOutput() devait affecter les calculs de placement du texte DANS le sprite et non SUR l'écran.

Effectivement, ma trop rapide adaptation du code initial pour un code no ...

J'ai fait une copie no-media du programme.

Enumeration
#Void
#Mur
#Sol
#Player
#MsgBox
#HUDbox
EndEnumeration
Read.i Bloc : Read.i MapW : Read.i MapH : Dim Allmap(MapH, MapW)
InitSprite() : InitMouse() : InitKeyboard() : UsePNGImageDecoder()
scrW = 1024 : scrH = 768 : OpenScreen( scrW, scrH ...

Cpl.Bator : « Le problème , c'est quoi exactement ?
le fond de ton sprite est noir ? »

Considère ce programme minimal :

InitSprite() : InitKeyboard()
OpenScreen(1024, 768, 32, "")
CreateSprite(0, 400, 100)
StartDrawing(SpriteOutput(0))
Box(0,0, 400,100, RGB(80,80,50))
For i = 0 To 7 : LineXY(0 ...

Oui, Caporal, j'ai jeté un oeil vite devenu perplexe - il a failli prendre la clé des champs ! Ou bien j'ai mal lu, ou bien je n'étais pas inspiré de saisir la subtilité nécessaire, toujours est-il que je suis revenu bredouille, et quasiment borgne, d'Helpland.

Après deux jours de tâtonnement, bien ...

C'est une adaptation PureBasic d'un code DBPro de Phaelax(2005)

XIncludeFile "d:\PureBasic\Include\keys.pbi"
Enumeration
#Void
#Mur
#ScrollUp ; *** > sprites utilisés pour étudier le scrolling
#ScrollDown
#ScrollBoth
#StopDown
#StopUp
#StopRight
#StopLeft ; < ***
#Sol = 50 ; espace ...

Bonjour à tous.

Ce sprite :

CreateSprite(#MsgBox, scrW - HUDbox, scrH - MsgBox)
StartDrawing(SpriteOutput(#MsgBox))
Box(0,scrH - MsgBox, scrW - HUDbox, scrH, RGB(80,80,50))
For i = 0 To 7 : LineXY(0,0+i,768, 0+i, RGB(50,50,255)) : Next i
StopDrawing()

... est ajouté en bas de la surface ...