{ "" CHATSTR = NBRLOOSEPROPS ARRAY lp =
{ [i LOOSEPROPPOS ROOMWIDTH RANDOM ROOMHEIGHT RANDOM ] lp i PUT
i++}{ i NBRLOOSEPROPS < } WHILE
1 sauce =
{ 0 i = 0 sauce =
{ xy = xy 0 GET x = xy 1 GET y = xy 2 GET mx = xy 3 GET my = 0 update =
{{mx x - 8 / x +=}{x mx - 8 / x -=} x mx < IFELSE 1 update =} x 8+ mx > x mx 8+ < AND NOT IF
{{my y - 8 / y +=}{y my - 8 / y -=} y my < IFELSE 1 update =} y 8+ my > y my 8+ < AND NOT IF
{x xy 0 PUT y xy 1 PUT x y i MOVELOOSEPROP 1 sauce =} update IF
i ++} lp FOREACH
}{ sauce } WHILE
} CHATSTR "scatter" == IF