Advertisement
petschko

CC - Firework-Computer

Dec 28th, 2014
259
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 1.24 KB | None | 0 0
  1. output = "top" -- Redstone output
  2. input = "right" -- Redstone input
  3. monitorpos = "left" -- Monitor position
  4. cooldown = 30 -- Cooldown in sec
  5. intervall = 1 -- Intervall to check rs signal
  6.  
  7. -- Set output default to off and do other default sets
  8. status = 0
  9. local monitor = peripheral.wrap( monitorpos )
  10. rs.setOutput( output, false )
  11. print( "Bereit" )
  12. monitor.clear( )
  13. monitor.setCursorPos( 1, 1 )
  14. monitor.write( "Bereit!" )
  15.  
  16. while true
  17. do
  18.     if ( rs.getInput( input ) == true ) and ( status == 0 )
  19.     then
  20.         status = 1
  21.         write( "Feuert..." )
  22.         monitor.clear( )
  23.         monitor.setCursorPos( 1, 1 )
  24.         monitor.write( "Feuer!" )
  25.         rs.setOutput( output, true )
  26.         sleep( 1 )
  27.         rs.setOutput( output, false )
  28.         write( "Fertig.\n" )
  29.         print( cooldown.."sec Cooldown..." )
  30.         i = cooldown
  31.        
  32.         while i > 0
  33.         do
  34.             monitor.clear( )
  35.             monitor.setCursorPos( 2, 1 )
  36.             monitor.write( "Wait:" )
  37.             if i > 9
  38.             then
  39.                 monitor.setCursorPos( 3, 3 )
  40.             else
  41.                 monitor.setCursorPos( 4, 3 )
  42.             end
  43.            
  44.             monitor.write( i.."s" )
  45.             i = i - 1
  46.             sleep( 1 )
  47.         end
  48.        
  49.         --rs.setOutput( output, false )
  50.        
  51.         print( "Bereit" )
  52.         monitor.clear( )
  53.         monitor.setCursorPos( 1, 1 )
  54.         monitor.write( "Bereit!" )
  55.         status = 0
  56.     end
  57.     sleep( intervall )
  58. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement