Re: pacman woes

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

I think we can help you better if you send the project itself as
an attachment to mwforum@xxxxxxxxxxxxxxxxxxxxxxxxxxxx

I see your code:

to eating
when [touching? "pacman "t1] [eatingpoints t1, ht]
when [touching? "pacman "t2] [eatingpoints t2, ht]
when [touching? "pacman "t3] [eatingpoints t3, ht]
when [touching? "pacman "t4] [eatingpoints t4, ht]
when [touching? "pacman "t5] [eatingpoints t5, ht]
when [touching? "pacman "t6] [eatingpoints t6, ht]
when [touching? "pacman "t7] [eatingpoints t7, ht]
when [touching? "pacman "t8] [eatingpoints t8, ht]
when [touching? "pacman "t9] [eatingpoints t9, ht]
when [touching? "pacman "t10] [eatingpoints t10, ht]
when [touching? "pacman "t11] [eatingpoints t11, ht]
when [touching? "pacman "t12] [eatingpoints t12, ht]
when [touching? "pacman "t13] [eatingpoints t13, ht]
when [touching? "pacman "t14] [eatingpoints t14, ht]
when [touching? "pacman "t15] [eatingpoints t15, ht]
when [touching? "pacman "t16] [eatingpoints t16, ht]
when [touching? "pacman "t17] [eatingpoints t17, ht]
when [touching? "pacman "t18] [eatingpoints t18, ht]
when [touching? "pacman "t19] [eatingpoints t19, ht]
when [touching? "pacman "t20] [eatingpoints t20, ht]
when [touching? "pacman "t21] [eatingpoints t21, ht]
when [touching? "pacman "t22] [eatingpoints t22, ht]
when [touching? "pacman "t23] [eatingpoints t23, ht]
when [touching? "pacman "t24] [eatingpoints t24, ht]
when [touching? "pacman "t25] [eatingpoints t25, ht]
when [touching? "pacman "background] [losingpoints]
when [touching? "pacman "ghost] [loseghost]
when [touching? "pacman "ghost2] [loseghost]
end


The other day I created a procedure that can help you:

to if.touching.many.do :main :others :do
if empty? :others [stop]
let [touched first :others]
if touching? :main :touched [run :do]
if.touching.many.do :main butfirst :others :do
end

with it, you can reduce you "eating" procedure to this:



to eating

forever [

 if.touching.many.do "pacman [ghost ghost2] [loseghost]

 if.touching.many.do "pacman [background] [losingpoints]

 if.touching.many.do "pacman 
 [t1 t2 t3 t4 t5 t6 t7 t8 t9 t10 t11 t12 t13 t14 t15 
  t16 t17 t18 t19 t20 t21 t22 t23 t24 t25]
 [eatingpoints ask :touched [ht]]
 
]

end



notice the use of the variable :touched in the "eating" procedure.

I think that'll help with the crashes.

Daniel
OpenWord Learning