set blast_charge_items {
GuidoMenuItem BlastChargeAll {
-label "All holes"
-icon "icons/16/blast_charge_all_holes.png"
-command server "BLAST CHARGE ALL HOLES"
}
GuidoMenuItem BlastChargeBox {
-label "Inside box"
-icon "icons/16/blast_charge_inside_box.png"
-command server "BLAST CHARGE INSIDE BOX"
}
GuidoMenuItem BlastChargeAll {
-label "Inside temporary segment"
-icon "icons/16/blast_charge_inside_temp_segment.png"
-command server "BLAST CHARGE INSIDE TEMP SEGMENT"
}
GuidoMenuItem BlastChargeSegment {
-label "Inside boundary"
-icon "icons/16/blast_charge_inside_segment.png"
-command server "BLAST CHARGE INSIDE SEGMENT"
}
GuidoMenuItem BlastChargeSingle {
-label "Single hole"
-icon "icons/16/blast_charge_single_hole.png"
-command server "BLAST CHARGE SINGLE HOLE"
}
}
GuidoMenu blast_charge {
-label "Charge"
-delayed_script $blast_charge_items
}
