|
findCloser
Peter Lee wrote
>>I want to make a simulating bug which moves toward nearest food source
>>among many food sources.
>
and then Mikael Wirén wrote:
>maths are good for this kind of thing, though i´m no good at it =(
>
>but check out the:
>abs and cos functions.
>
>
I think pythagoras is enough to decide this.
on findCloser bug,f1,f2
set v1=the loc of sprite f1 - the loc of sprite bug
set v2=the loc of sprite f2 - the loc of sprite bug
if testLt(v1,v2) then
put "the food in sprite " & f1 & " is next"
else
put "the food in sprite " & f2 & " is next"
end if
end
on testLt p1,p2
set r1=pythar(p1)
set r2 =pythar(p2)
return r1<r2
end
on pythar p
set p1 = getat(p,1)
set p2 = getat(p,2)
set erg = p1*p1 +p2*p2
return erg
end
Best regards
Daniel Plaenitz
<http://www.lingo.de>
There is an example of this on my shock gallery, smarties.htm
|