dimarts, de gener 18, 2011

Snake en MSWlogo

Copia i enganxa aquest codi dins d'edita:

para op
haz "tecla car lc
si :tecla = "w [ac 0 ponr 0]
si :tecla = "s [ac 0 ponr 180]
si :tecla = "a [ac 0 ponr 270]
si :tecla = "d [ac 0 ponr 90]

si :tecla = "o [ac 1 ponr 0]
si :tecla = "l [ac 1 ponr 180]
si :tecla = "k [ac 1 ponr 270]
si :tecla = "ñ [ac 1 ponr 90]
fin

para recinte
bp
pong [0 10]
poncl 4
gd 90 av 200 gi 90 av 300 gi 90 av 400 gi 90 av 300 gi 90 av 300
gi 90 sl av 10 bl
fin

para snake
recinte
pong [0 1]
poncl [0 0 0]
ponfoco [Pantalla de MSWLogo]
ponteclado [op]
ac 1 sl av 200 gd 180 bl
haz "s 1
haz.mientras [ac 0 av 1 si pixel=[255 0 0][haz "s :s+1 es "|1 HAS TOCAT LA PARET!|] si pixel=[0 0 0] [haz "s :s+1 es "|1 T'HAS MENJAT LA CUA!|]
    ac 1 av 1 espera 2 si pixel =[255 0 0] [haz "s :s+1 es "|2 HAS TOCAT LA PARET!|] si pixel=[0 0 0] [haz "s :s+1 es "|2 T'HAS MENJAT LA CUA!|]
  ][:s=1]
fin