#PERL OS Sample
#
#time 0= Until command to change
#time S= Seconds
#time m= minutes
#
sub EVENT_IMPUT {
#if (location,bundle cable color,line color) {
#redstone::on(location,bundle cable color,line color,time);
#redstone::off(location,bundle cable color,line color,time);
#redstone::pulse(location,bundle cable color,line color,time between pulses,how long);
# }
#}
if (bottom,blue,green) {
redstone::on(bottom,blue,red,0);
redstone::off(bottom,blue,orange,0);
redstone::pulse(bottom,blue,yellow,4s,20s);
}
elsif (bottom,blue,violet) {
redstone::on(bottom,blue,cyan,0);
}
}
sub EVENT_COMMAND {
if ($text=~/clock/i) #user set command
redstone::pulse(top,green,red,10s,0);
redstone::on(top,green,blue,0) ;
}
}
#END of FILE