夫人萌萌哒:patches-own【myvalue】
to setup
RESET-TICKS
ask patches【
set myvalue 0
colorit
】
end
to go
ask one-of patches【
set myvalue myvalue + 1
】
ask patches【
judge-cascading
】
ask patches【
colorit
】
tick
end
to step
go
end
to colorit
if(myvalue = 0)【
set pcolor black
】
if(myvalue = 1)【
set pcolor blue
】
if(myvalue = 2)【
set pcolor green
】
if(myvalue = 3)【
set pcolor red
】
if(myvalue = 4)【
set pcolor yellow
】
end
to judge-cascading
if (myvalue > 4)【
set myvalue myvalue - 4
ask neighbors4[
set myvalue myvalue + 1
】
]
end