All pastes #439419 Raw Edit

Something

public text v1 · immutable
·published 2007-04-14 07:44 UTC
rendered paste body
/*
BASICALLY TO USE, HIT [F8] AND FOLLOW INSTRUCTIONS. ;]
*/


alias F8 { dialog -m CustomOutline CustomOutline }
dialog CustomOutline {
  title "Outline Dialog v1.0 By UnbOrN"
  size -1 -1 136 68
  option dbu
  edit "", 1, 2 7 49 10, autohs
  box "Custom Outline", 2, 1 0 134 20
  edit "", 3, 84 7 49 10, autohs
  text "Text Here...", 4, 51 8 33 8, center
  text "Welcome to UnbOrN's Text Outliner. Basically to use, enter Text and Color Codes into the TextBoxes, and hit Save. Whenever you Speak, It will Add the Prefixes and Suffixes. To Exit, still using Outlines, Hit 'Exit'. To stop using Outlines, hit 'EndOutlines'.", 5, 1 35 134 32, center
  button "Save", 6, 3 20 37 12
  button "End Outlines", 7, 49 20 37 12
  button "Exit", 8, 96 20 37 12, ok cancel
}



on *:DIALOG:CustomOutline:sclick:6:{ 
  set %prefix $did(1).text
  set %suffix $did(3).text
  did -ra CustomOutline 5 Suffix And Prefix Saved Successfully.
  .enable #custominput
}

on *:DIALOG:CustomOutline:sclick:7:{
  .disable #custominput
  did -ra CustomOutline 5 Suffix and Prefix Deleted.
}
#custominput off
on *:INPUT:*:{ 
  if ($left($1,1) != / && $left($1,1) != @ && $left($1,1) != !) { 
    msg $active $+(%prefix,,$chr(32),$1-,$chr(32),%suffix)
    halt 
  } 
}
#custominput end