[MWForum]help w/ MicroMundos por favor

[Daniel Ajoy]

No problemO :)

Something along these lines:

to move
t1, repeat 5 [ setshape 7 wait 2 ...
fin

to |earth orbit|
cancel [move]
t1, forever [fd 1 rt 1 bk 1]
t2, setshape 10 launch [earth 85]
end

to earth :radius
fd 2 * pi * radius / 360
rt 1
if and (heading > 180) (heading < 270) [setsize size + 1]
if and (heading > 270) (heading < 360) [setsize size - 1]
ifelse and (heading > 15) (heading < 165) [ht] [st]
earth :radius
end


Daniel
OpenWorld Learning
http://mia.openworldlearning.org


> Para mover
>  t1, repite 5[ffig 7 espera 2 ffig 8 espera 2 ffig 9 espera 2 ffig 10 es=
pera 2 ffig 11 espera 2]
> fin
> 
> Para |=D3rbita Tierra|
>  det=E9n [mover]
>  t1, porsiempre [ad 1 de 1 at 1]
>  t2, ffig 18 lanza [Tierra 85]   
> fin
> 
> Para Tierra :radio   ; Para ejemplificar una =D3rbita El=EDptica.
>  ad 2 * PI * :radio / 360  
>  de 1 
>  si y ( rumbo > 180 )( rumbo < 270 ) [ ftama=F1o tama=F1o + 1]
>  si y ( rumbo > 270 )( rumbo < 360 ) [ftama=F1o tama=F1o - 1 ]
>  siotro y ( rumbo > 15 )( rumbo < 165 )[ et ][ mt ]
>  Tierra :radio
> fin
>