set blast_uncharge_items {
GuidoMenuItem BlastUnChargeAll {
-label "All holes"
-icon "icons/16/blast_uncharge_all_holes.png"
-command server "BLAST UNCHARGE ALL HOLES"
}
GuidoMenuItem BlastUnChargeBox {
-label "Inside box"
-icon "icons/16/blast_uncharge_inside_box.png"
-command server "BLAST UNCHARGE INSIDE BOX"
}
GuidoMenuItem BlastUnChargeAll {
-label "Inside temporary segment"
-icon "icons/16/blast_uncharge_inside_temp_segment.png"
-command server "BLAST UNCHARGE INSIDE TEMP SEGMENT"
}
GuidoMenuItem BlastUnChargeSegment {
-label "Inside boundary"
-icon "icons/16/blast_uncharge_inside_segment.png"
-command server "BLAST UNCHARGE INSIDE SEGMENT"
}
GuidoMenuItem BlastUnChargeSingle {
-label "Single hole"
-icon "icons/16/blast_uncharge_single_hole.png"
-command server "BLAST UNCHARGE SINGLE HOLE"
}
}
GuidoMenu blast_uncharge {
-label "Uncharge"
-delayed_script $blast_uncharge_items
}
