;The script assumes the first picture slot in the door is empty and the actual picture be in the second slot.
;Also that the state of the door be set to zero.


ON ENTER {
op GLOBAL 0 op =
200 ME SETALARM
}
ON ALARM {
op GLOBAL 10 op +=
op 1 ME SETPICOPACITY
1 ME SETSPOTSTATELOCAL
{3 ME SETALARM}
{{{{op GLOBAL 10 op -= op 1 ME SETPICOPACITY} i 3* ALARMEXEC i++}{9 i >} WHILE
{0 ME SETSPOTSTATELOCAL} i 3* ALARMEXEC} 300 ALARMEXEC} op 100 < IFELSE
}