From b577bcde1a9776f95e5b99918cded6157cf92179 Mon Sep 17 00:00:00 2001
From: jj <john-git@ofjj.net>
Date: Thu, 22 Nov 2012 17:42:10 +0100
Subject: [PATCH] scripts/lever: show pending jobs

---
 scripts/lever.rb | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/scripts/lever.rb b/scripts/lever.rb
index 2c7735146..59196f7d2 100644
--- a/scripts/lever.rb
+++ b/scripts/lever.rb
@@ -10,6 +10,8 @@ def lever_pull_job(bld)
 	job.general_refs << ref
 	bld.jobs << job
 	df.job_link job
+
+	puts lever_descr(bld)
 end
 
 def lever_pull_cheat(bld)
@@ -31,6 +33,14 @@ def lever_descr(bld, idx=nil)
 	descr = ''
 	descr << "#{idx}: " if idx
 	descr << "lever ##{bld.id} @[#{bld.centerx}, #{bld.centery}, #{bld.z}] #{bld.state == 0 ? '\\' : '/'}"
+	bld.jobs.each { |j|
+		if j.job_type == :PullLever
+			flags = ''
+			flags << ', repeat' if j.flags.repeat
+			flags << ', suspended' if j.flags.suspend
+			descr << " (pull order#{flags})"
+		end
+	}
 
 	bld.linked_mechanisms.map { |i|
 		i.general_refs.grep(DFHack::GeneralRefBuildingHolderst)