Zufall und Einfall. Aleatorische Realitäten und das Bild der Stadt

on mouseUp
set brush to 3
set autohilite of me to true
set lockRecent to true
choose brush tool
repeat until the mouse is down
put random (32) into VER
put random (45) into HOR
set pattern to random (7)
if VER=9 or VER=14 or VER=20 or VER=26¬
or HOR=10 or HOR=16 or HOR=20 or HOR=24 or HOR=30¬
or HOR=38
then
set pattern to 1
end if
click at (193+9*HOR),(22+9*VER)
end repeat
choose browse tool
set lockRecent to false
end mouseUp

on mouseUp
set brush to 3
set autohilite of me to true
set lockRecent to true
choose brush tool
repeat until the mouse is down
put random (32) into VER
put random (45) into HOR
set pattern to random (8)
if VER=8 or VER=10 or VER=13 or VER=15 or VER=19 ¬
or VER=21 or VER=25 or VER=27 or HOR=9 or HOR=11¬
or HOR=15 or HOR=17 or HOR=19 or HOR=21 or HOR=23 ¬
or HOR=25 or HOR=29 or HOR=31 or HOR=37 or HOR=39
then
set pattern to 6+random (2)
end if
if VER=9 or VER=14 or VER=20 or VER=26¬
or HOR=10 or HOR=16 or HOR=20 or HOR=24 or HOR=30¬
or HOR=38
then
set pattern to 1
end if
click at (193+9*HOR),(22+9*VER)
end repeat
choose browse tool
set lockRecent to false
end mouseUp

on mouseUp
set brush to 3
set autohilite of me to true
set lockRecent to true
choose brush tool
repeat until the mouse is down
put random (32) into VER
put random (45) into HOR
if HOR>37 or HOR<12 or VER>24 or VER<12
then
set pattern to 1+random (3)
else
set pattern to 4+random (3)
end if
if VER=13 or VER=15 or VER=17 or VER=19 or HOR=19 or HOR=21
then
set pattern to 6+random (2)
end if
if VER>7 and VER<21 and HOR>10 and HOR<27
then
set pattern to 8
end if
if VER=9 or VER=14 or VER=20 or VER=26¬
or HOR=10 or HOR=16 or HOR=20 or HOR=24 or HOR=30¬
or HOR=38
then
set pattern to 1
end if
click at (193+9*HOR),(22+9*VER)
end repeat
choose browse tool
set lockRecent to false
end mouseUp