home *** CD-ROM | disk | FTP | other *** search
- # Droids COG Script
- #
- # 03_sander.cog
- #
- # Cog designed to generate sand for the counterweight
- #
- #
- # Desc:
- # 02/03/98 [DGS] Created
- # 02/12/98 [JP] Modified to be used for the Moisture Farm level.
- # ========================================================================================
-
- symbols
- message startup
- message pulse
- message user4
- message timer
-
- thing spout1
- thing spout2
- thing spout3
-
- thing spout4
- thing spout5
- thing spout6
- thing spout7
- thing spout8
- thing spout9
- thing spout10
- thing spout11
- thing spout12
-
-
- template large_part
- template fine_part
-
-
- int rock=0
- int l_color=0
- int move=10
- flex l_size=0
- flex l_speed=0.5 local
-
- sound watertop
- sound waterbottom
-
- sound hstart=wtr03wtrdrnst.wav local
- sound bubbly=wtr01acidlp.wav local
-
- end
-
- code
-
- user4: //Fill top
- setpulse(0.1);
- settimer(3);
- playsoundlocal(htstart, 1, 0, 0);
- bubblyi=playsoundlocal(bubbly, 1, 0, 0x1);
- return;
-
-
- pulse:
- creatething(large_part, spout1);
- creatething(fine_part, spout1);
- creatething(large_part, spout2);
- creatething(fine_part, spout2);
- creatething(large_part, spout3);
- creatething(fine_part, spout3);
- creatething(large_part, spout4);
- creatething(fine_part, spout4);
- creatething(large_part, spout5);
- creatething(fine_part, spout5);
- creatething(large_part, spout6);
- creatething(fine_part, spout6);
- creatething(large_part, spout7);
- creatething(fine_part, spout7);
- creatething(large_part, spout8);
- creatething(fine_part, spout8);
- creatething(large_part, spout9);
- creatething(fine_part, spout9);
- creatething(large_part, spout10);
- creatething(fine_part, spout10);
- creatething(large_part, spout11);
- creatething(fine_part, spout11);
- creatething(large_part, spout12);
- creatething(fine_part, spout12);
- return;
-
- timer:
- setpulse(0);
- print("nomoreair");
- destroything(spout1);
- destroything(spout2);
- destroything(spout3);
- destroything(spout4);
- destroything(spout5);
- destroything(spout6);
- destroything(spout7);
- destroything(spout8);
- destroything(spout9);
- destroything(spout10);
- destroything(spout11);
- destroything(spout12);
- stopsound(bubblyi, 0.2);
- return;
-
- end
-
-
-
-
-