students trying to share

["Daniel Ajoy" <da.ajoy@xxxxxxxxx>]

hi forum,

Just today I learned that two students tried to share
this code to make to pokemons fight:

to playgame
freezebg
forever 
[make "key readchar
if :key = "A [pok1, seth -90 fd 10]
if :key = "S [pok1, seth 180 fd 10]
if :key = "D [pok1, seth 90 fd 10]
if :key = "W [pok1, seth 0 fd 10]
if :key = "1 [
 launch [
  attack1, setpos pok1's "pos 
  seth pok1's "heading 
  st setsh 30 clickon wait 10 ht
 ]
]

if :key = "J [pok2, seth -90 fd 10]
if :key = "K [pok2, seth 180 fd 10]
if :key = "L [pok2, seth 90 fd 10]
if :key = "I [pok2, seth 0 fd 10]
if :key = "3 [
 launch [
  attack2, setpos pok2's "pos 
  seth pok2's "heading 
  st setsh 32 clickon wait 10 ht
 ]
]

if touching? "attack1 "attack2 [attack1, rt 180 attack2, rt 180]

if touching? "attack2 "pok1 [announce [pok1 you lose]]
if touching? "attack1 "pok2 [announce [pok2 you lose]]
end



The problem is that it doesn't work because the code is
incomplete. Extra code resides in turtles, that is
activated using clickon.


For the sharing processes to have worked, ALL the code
should have been in a single place, the procedures page.

But MW discourages that.

Daniel