|
DSPK V02.00 Furcadia
(0:0) When everything is starting up,
(5:300) set variable %bubbletimer to the value 2.
(5:300) set variable %bubblesound to the value 35.
(5:300) set variable %bubblestart.x to the value 14.
(5:300) set variable %bubblestart.y to the value 17.
(5:300) set variable %bubbleleftbump to the value 2.
(5:300) set variable %bubblerightbump to the value 2.
(5:301) copy the value of variable %bubblestart into variable %bubbleleft.
(5:354) move the position in variable %bubbleleft southwest (down and left) %bubbleleftbump step(s).
(5:355) move the position in variable %bubbleleft northwest (up and left) %bubbleleftbump step(s).
(0:9) When a furre arrives in the dream,
(5:15) move the triggering furre to (20,20), or to someplace nearby if it's occupied.
* // scan rect for any furre
* // initialize area check
(0:100) When %bubbletimer seconds have passed, offset by 0,
(5:300) set variable %dobubbles to the value 0.
(5:301) copy the value of variable %bubblestart into variable %bubblejet.
(5:301) copy the value of variable %bubblejet into variable %bubblerow.
* // row 1 col 1
(0:100) When %bubbletimer seconds have passed, offset by 0,
(1:1100) and there's a furre at (%bubblejet),
(5:300) set variable %dobubbles to the value 1.
(0:100) When %bubbletimer seconds have passed, offset by 0,
(5:352) move the position in variable %bubblejet northeast (up and right) 1 step(s).
* // row 1 col 2
(0:100) When %bubbletimer seconds have passed, offset by 0,
(1:1100) and there's a furre at (%bubblejet),
(5:300) set variable %dobubbles to the value 1.
(0:100) When %bubbletimer seconds have passed, offset by 0,
(5:352) move the position in variable %bubblejet northeast (up and right) 1 step(s).
* // row 1 col 3
(0:100) When %bubbletimer seconds have passed, offset by 0,
(1:1100) and there's a furre at (%bubblejet),
(5:300) set variable %dobubbles to the value 1.
(0:100) When %bubbletimer seconds have passed, offset by 0,
(5:352) move the position in variable %bubblejet northeast (up and right) 1 step(s).
* // row 1 col 4
(0:100) When %bubbletimer seconds have passed, offset by 0,
(1:1100) and there's a furre at (%bubblejet),
(5:300) set variable %dobubbles to the value 1.
* // bump row
(0:100) When %bubbletimer seconds have passed, offset by 0,
(5:353) move the position in variable %bubblerow southeast (down and right) 1 step(s).
(5:301) copy the value of variable %bubblerow into variable %bubblejet.
* // row 2 col 1
(0:100) When %bubbletimer seconds have passed, offset by 0,
(1:1100) and there's a furre at (%bubblejet),
(5:300) set variable %dobubbles to the value 1.
(0:100) When %bubbletimer seconds have passed, offset by 0,
(5:352) move the position in variable %bubblejet northeast (up and right) 1 step(s).
* // row 2 col 2
(0:100) When %bubbletimer seconds have passed, offset by 0,
(1:1100) and there's a furre at (%bubblejet),
(5:300) set variable %dobubbles to the value 1.
(0:100) When %bubbletimer seconds have passed, offset by 0,
(5:352) move the position in variable %bubblejet northeast (up and right) 1 step(s).
* // row 2 col 3
(0:100) When %bubbletimer seconds have passed, offset by 0,
(1:1100) and there's a furre at (%bubblejet),
(5:300) set variable %dobubbles to the value 1.
(0:100) When %bubbletimer seconds have passed, offset by 0,
(5:352) move the position in variable %bubblejet northeast (up and right) 1 step(s).
* // row 2 col 4
(0:100) When %bubbletimer seconds have passed, offset by 0,
(1:1100) and there's a furre at (%bubblejet),
(5:300) set variable %dobubbles to the value 1.
* // bump row
(0:100) When %bubbletimer seconds have passed, offset by 0,
(5:353) move the position in variable %bubblerow southeast (down and right) 1 step(s).
(5:301) copy the value of variable %bubblerow into variable %bubblejet.
* // row 3 col 1
(0:100) When %bubbletimer seconds have passed, offset by 0,
(1:1100) and there's a furre at (%bubblejet),
(5:300) set variable %dobubbles to the value 1.
(0:100) When %bubbletimer seconds have passed, offset by 0,
(5:352) move the position in variable %bubblejet northeast (up and right) 1 step(s).
* // row 3 col 2
(0:100) When %bubbletimer seconds have passed, offset by 0,
(1:1100) and there's a furre at (%bubblejet),
(5:300) set variable %dobubbles to the value 1.
(0:100) When %bubbletimer seconds have passed, offset by 0,
(5:352) move the position in variable %bubblejet northeast (up and right) 1 step(s).
* // row 3 col 3
(0:100) When %bubbletimer seconds have passed, offset by 0,
(1:1100) and there's a furre at (%bubblejet),
(5:300) set variable %dobubbles to the value 1.
(0:100) When %bubbletimer seconds have passed, offset by 0,
(5:352) move the position in variable %bubblejet northeast (up and right) 1 step(s).
* // row 3 col 4
(0:100) When %bubbletimer seconds have passed, offset by 0,
(1:1100) and there's a furre at (%bubblejet),
(5:300) set variable %dobubbles to the value 1.
* // bump row
(0:100) When %bubbletimer seconds have passed, offset by 0,
(5:353) move the position in variable %bubblerow southeast (down and right) 1 step(s).
(5:301) copy the value of variable %bubblerow into variable %bubblejet.
* // row 4 col 1
(0:100) When %bubbletimer seconds have passed, offset by 0,
(1:1100) and there's a furre at (%bubblejet),
(5:300) set variable %dobubbles to the value 1.
(0:100) When %bubbletimer seconds have passed, offset by 0,
(5:352) move the position in variable %bubblejet northeast (up and right) 1 step(s).
* // row 4 col 2
(0:100) When %bubbletimer seconds have passed, offset by 0,
(1:1100) and there's a furre at (%bubblejet),
(5:300) set variable %dobubbles to the value 1.
(0:100) When %bubbletimer seconds have passed, offset by 0,
(5:352) move the position in variable %bubblejet northeast (up and right) 1 step(s).
* // row 4 col 3
(0:100) When %bubbletimer seconds have passed, offset by 0,
(1:1100) and there's a furre at (%bubblejet),
(5:300) set variable %dobubbles to the value 1.
(0:100) When %bubbletimer seconds have passed, offset by 0,
(5:352) move the position in variable %bubblejet northeast (up and right) 1 step(s).
* // row 4 col 4
(0:100) When %bubbletimer seconds have passed, offset by 0,
(1:1100) and there's a furre at (%bubblejet),
(5:300) set variable %dobubbles to the value 1.
* // test sounder
(0:100) When %bubbletimer seconds have passed, offset by 0,
(1:200) and variable %dobubbles is equal to 1.
(5:353) move the position in variable %bubblejet southeast (down and right) %bubblerightbump step(s).
(5:352) move the position in variable %bubblejet northeast (up and right) %bubblerightbump step(s).
(3:3) within the diamond (%bubbleleft) - (%bubblejet),
(5:9) play sound %bubblesound to any furre present.
*Endtriggers* 8888 *Endtriggers*
|