Générateur de labyrinthe.....................][][][][][][

Mytic · Message par **Mytic** » dim. 30/sept./2007 21:41

Une autre de mes créations nocturnes.

Cette procédure génère des labyrinthes rapidement.

Procedure labi(maxlX.l,minlY.l,grosso.l,couleur.l)
#taille = 13
For y = 1 To minlY-1 Step #taille
For x = 1 To maxlX-1 Step #taille
ax = Random(1)
If ax <> 0
For i = 0 To grosso
LineXY(x,y+i,x+#taille,y+i,couleur)
Next i

EndIf
Next x
Next y
For x = 1 To maxlX-1 Step #taille
For y = 1 To minlY-1 Step #taille
ay = Random(1)
If ay <> 0
For i = 0 To grosso
LineXY(x+i,y,x+i,y+#taille,couleur)
Next i
EndIf
Next y
Next x
EndProcedure

InitSprite()
InitKeyboard()
OpenScreen(640,480,16,"test")
FlipBuffers()

Repeat
ClearScreen(0)
StartDrawing(ScreenOutput())
labi(640,480,0,255)
StopDrawing()
FlipBuffers()
Delay(200)
ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape) <> 0

Frenchy Pilou · Message par **Frenchy Pilou** » dim. 30/sept./2007 22:53

effectivement, on n'a pas le temps de trouver la sortie

Backup · Message par **Backup** » dim. 30/sept./2007 23:17

Frenchy Pilou a écrit :effectivement, on n'a pas le temps de trouver la sortie

sont system est simple et tres efficace

bien que dans sa forme actuel , il ne puisse garantir une entré et une sortie !

puisque le principe repose sur l'affichage de lignes horizontale, et verticales, aléatoire

(c'est bien vu du reste

)

il suffirait de faire dessiner un parcours apres creation du labyrinthe

une fois le labyrinthe déssiné:

tu prends un crayon gomme qui part d'un bord , puis qui écrit en couleur de fond (donc efface) , d'un bout a l'autre (un serpent aleatoire avec des virages a 90 degres

)
et hop l'air de rien ce crayon fera des trous dans certains mur, et passera dans certaines allées deja crées

pour au final etre sur qu'il y a au moins un chemin viable

Mytic · Message par **Mytic** » dim. 30/sept./2007 23:49

@Dobro
Ce serpent devra être aveugle pour dessiner un chemin dur, sinon il sera perceptible à l’œil.
Mais ton idée est vraiment bien pensée. Reste plus qu’à l’adapter.

Backup · Message par **Backup** » dim. 30/sept./2007 23:54

Mytic a écrit :@Dobro
Ce serpent devra être aveugle pour dessiner un chemin dur, sinon il sera perceptible à l’œil.
Mais ton idée est vraiment bien pensée. Reste plus qu’à l’adapter.

pas pour ce soir en tout cas , je vais pas tarder a allez me Zoner !!

Mytic · Message par **Mytic** » dim. 30/sept./2007 23:55

Dobro a écrit :
pas pour ce soir en tout cas , je vais pas tarder a allez me Zoner !!

Zoner ?!

Backup · Message par **Backup** » lun. 01/oct./2007 0:00

Mytic a écrit :
Dobro a écrit :
pas pour ce soir en tout cas , je vais pas tarder a allez me Zoner !!
Zoner ?!

expression qui signifie "allez Dormir" en "Parigot"

- coucher (se)
se pager, se paddocker, se pieuter, se zoner, se pagnoter

on dit aussi "mettre la viande dans le torchon"

Mytic · Message par **Mytic** » lun. 01/oct./2007 0:03

Ah… Merci pour l’info…

Moi aussi je devrai aller dormir, demain j’ai un test + une présentation à faire !!!
(Je viens de le savoir il y’a une heure, et j’ai rien préparer)

Backup · Message par **Backup** » lun. 01/oct./2007 0:09

Mytic a écrit :Ah… Merci pour l’info…
Moi aussi je devrai aller dormir, demain j’ai un test + une présentation à faire !!!
(Je viens de le savoir il y’a une heure, et j’ai rien préparer)

bon courage pour demain , Bonne nuit