This is an old post, using an old version of ZOSE. Although the script code will still be provided and some of it can still be used as an example, it is outdated and it is recommended you don't follow it for your script if you are using ZOSE 1.05 or a later versionUsing ZOSE, I did this:
http://www.youtube.com/watch?v=hUT-nidUYd4Took a while, but I guess it was worth it. The code:
//Initializer
writelocation 3003B
setinteraction72 1
jump3byte E2AEC
//The main part
writelocation E2AEC
checkmemory CCAB C0 //lever pulled value. bit 7 is set when its pulled completely
jump3byte E3B05
//Setting the tiles
writelocation E3B05
//Play the shaking sound
playsound B2
//Make the waterfall stop pouring lava
setcoords 18 98
settile CC
setcoords 18 A8
settile CD
setcoords 18 B8
settile CE
//Solidify the lava
setcoords 28 98
settile 1
setdelay1
setcoords 28 A8
settile 1
setdelay1
setcoords 28 B8
settile 1
setdelay1
setcoords 38 98
settile 1
setdelay1
setcoords 38 B8
settile 1
setdelay1
setcoords 38 A8
settile 1
setdelay1
setcoords 48 A8
settile 1
setdelay1
setcoords 48 98
settile 1
setdelay1
setcoords 48 B8
settile 1
setdelay1
setcoords 58 98
settile 1
setdelay1
setcoords 58 B8
settile 1
setdelay1
setcoords 58 A8
settile 1
setdelay1
playsound B2
setcoords 68 98
settile 1
setdelay1
setcoords 68 A8
settile 1
setdelay1
setcoords 78 A8
settile 1
setdelay1
setcoords 68 B8
settile 1
setdelay1
setcoords 78 98
settile 1
setdelay1
setcoords 78 B8
settile 1
setdelay1
setcoords 88 A8
settile 1
setdelay1
setcoords 88 98
settile 1
setdelay1
setcoords 88 B8
settile 1
setdelay1
setcoords 98 98
settile 1
setdelay1
setcoords 98 A8
settile 1
setdelay1
setcoords 98 B8
settile 1
setdelay1
playsound B2
setcoords 98 88
settile 1
setdelay1
setcoords 98 98
settile 1
setdelay1
setcoords 88 78
settile 1
setcoords 98 78
settile 1
setdelay1
setcoords 98 68
settile 1
setdelay1
setcoords 88 68
settile 1
setdelay1
setcoords 78 68
settile 1
setdelay1
setcoords 78 78
settile 1
setdelay1
setcoords 68 68
settile 1
setdelay1
setcoords 68 78
settile 1
setdelay1
setcoords 58 68
settile 1
setdelay1
setcoords 58 78
settile 1
setdelay1
setcoords 48 68
settile 1
setdelay1
jump3byte FFD0B
writelocation FFD0B
setcoords 48 78
settile 1
setdelay1
setcoords 48 58
settile 1
setcoords 58 58
settile 1
setdelay1
setcoords 48 48
settile 1
setcoords 58 48
settile 1
setdelay1
setcoords 58 38
settile 1
setdelay1
setcoords 68 38
settile 1
setdelay1
setcoords 68 48
settile 1
setcoords 78 38
settile 1
setdelay1
setcoords 78 48
settile 1
setdelay1
setcoords 88 38
settile 1
setdelay1
setcoords 88 48
settile 1
setcoords 98 38
settile 1
setdelay1
setcoords 98 48
settile 1
setcoords 88 28
settile 1
setdelay1
setcoords 98 28
settile 1
setdelay1
setcoords 88 18
settile 1
setcoords 98 18
settile 1
setdelay1
setcoords 88 18
settile 1
setdelay1
setcoords 78 18
settile 1
setdelay1
setcoords 68 18
settile 1
setdelay1
setcoords 58 18
settile 1
setdelay1
setcoords 48 18
settile 1
setdelay1
setcoords 38 18
settile 1
setcoords 38 28
settile 1
setdelay1
//Wait for the lever to revert to its natural state
checkmemory CCAB 0
playsound 6c
jump3byte 1BA4C
writelocation 1BA4C
//Desolidify the lava. First start with the pouring.
setcoords 18 98
settile C6
setcoords 18 A8
settile C7
setcoords 18 B8
settile C8
playsound b2
setcoords 28 98
settile 61
setdelay1
setcoords 28 A8
settile 61
setdelay1
setcoords 28 B8
settile 61
setdelay1
setcoords 38 98
settile 61
setdelay1
setcoords 38 B8
settile 61
setdelay1
setcoords 38 A8
settile 61
setdelay1
setcoords 48 A8
settile 61
setdelay1
setcoords 48 98
settile 61
setdelay1
setcoords 48 B8
settile 61
setdelay1
setcoords 58 98
settile 61
setdelay1
setcoords 58 B8
settile 61
setdelay1
setcoords 58 A8
settile 61
setdelay1
playsound B2
setcoords 68 98
settile 61
setdelay1
setcoords 68 A8
settile 61
setdelay1
setcoords 78 A8
settile 61
setdelay1
setcoords 68 B8
settile 61
setdelay1
setcoords 78 98
settile 61
setdelay1
setcoords 78 B8
settile 61
setdelay1
setcoords 88 A8
settile 61
setdelay1
setcoords 88 98
settile 61
setdelay1
setcoords 88 B8
settile 61
setdelay1
setcoords 98 98
settile 61
setdelay1
setcoords 98 A8
settile 61
setdelay1
setcoords 98 B8
settile 61
setdelay1
playsound B2
setcoords 98 88
settile 61
setdelay1
setcoords 98 98
settile 61
setdelay1
setcoords 88 78
settile 61
setcoords 98 78
settile 61
setdelay1
setcoords 98 68
settile 61
setdelay1
setcoords 88 68
settile 61
setdelay1
setcoords 78 68
settile 61
setdelay1
setcoords 78 78
settile 61
setdelay1
setcoords 68 68
settile 61
setdelay1
setcoords 68 78
settile 61
setdelay1
setcoords 58 68
settile 61
setdelay1
setcoords 58 78
settile 61
setdelay1
setcoords 48 68
settile 61
setdelay1
jump3byte FFDA6
writelocation FFDA6
setcoords 48 78
settile 61
setdelay1
setcoords 48 58
settile 61
setcoords 58 58
settile 61
setdelay1
setcoords 48 48
settile 61
setcoords 58 48
settile 61
setdelay1
setcoords 58 38
settile 61
setdelay1
setcoords 68 38
settile 61
setdelay1
setcoords 68 48
settile 61
setcoords 78 38
settile 61
setdelay1
setcoords 78 48
settile 61
setdelay1
setcoords 88 38
settile 61
setdelay1
setcoords 88 48
settile 61
setcoords 98 38
settile 61
setdelay1
setcoords 98 48
settile 61
setcoords 88 28
settile 61
setdelay1
setcoords 98 28
settile 61
setdelay1
setcoords 88 18
settile 61
setcoords 98 18
settile 61
setdelay1
setcoords 88 18
settile 61
setdelay1
setcoords 78 18
settile 61
setdelay1
setcoords 68 18
settile 61
setdelay1
setcoords 58 18
settile 61
setdelay1
setcoords 48 18
settile 61
setdelay1
setcoords 38 18
settile 61
setcoords 38 28
settile 61
setdelay1
jump3byte E2AEC //Allow looping
~Lin
