on *:LOAD:   {
  sbsetup
}
on *:UNLOAD:   {
  echo Unloading SBEncoder
}
alias /sdecode { dialog -dm SBecode SBecode | chanall }
dialog SBecode {
  title "SBmith Decoder v1.1"
  size -1 -1 157 163
  option dbu
  box "Options", 1, 9 7 135 94
  button "Decode Varible", 2, 22 17 47 12
  list 3, 76 14 63 64, size
  button "Clear List", 4, 22 34 47 12
  button "Refresh List", 5, 22 50 47 12
  button "Add Channel", 6, 22 66 47 12
  box "Encoder/Decoder", 7, 10 108 135 50
  edit "", 8, 17 121 94 11
  button "Send", 9, 112 121 30 10
  edit "", 10, 17 139 94 11
  button "Decode", 11, 112 140 31 10
  check "Always On Top", 12, 22 80 50 10
  check "Auto-Decode", 13, 85 80 50 10
  button "OK", 14, 0 0 9 10, ok
}
on *:DIALOG:SBecode:*:*:{
  if ($devent == init) {
    if (%SBTop == 1) { did -c SBecode 12 | dialog -o SBecode SBecode }
    if (%SBTop == 0) { did -u SBecode 12 | dialog -n SBecode Sbecode }
    if (%SBAuto == 1) { did -c SBecode 13 }
    if (%SBAuto == 0) { did -u SBecode 13 }
  }
  if ($devent == sclick) {
    if ($did == 2) { set %SBVar $$?="Enter Any Varible: " }
    if ($did == 3) { set %SBChan $did(3).seltext }
    if ($did == 4) { did -r SBecode 3 }
    if ($did == 5) { did -r SBecode 3 | chanall }
    if ($did == 6) { did -a SBecode 3 $$?="Enter A Channel: " }
    if ($did == 9) { set %SBSend $did(8).text | if (%SBSend != $null) { /echo 4 To %SBChan $+ : $encode(%SBSend,%SBVar) 2=4 %SBSend | /msg %SBChan 4 $+ ( $+ %SBTrigger $+ ) $encode(%SBSend,%SBVar) | /did -r SBecode 8 } }
    if ($did == 11) { set %SBDec $did(10).text | did -r SBecode 8 | did -a SBecode 8 $decode(%SBDec,%SBVar) }
    if ($did == 12) { set %SBTop $did(12).state | if (%SBTop = 0) { dialog -n SBecode SBecode } | if (%SBTop = 1) { dialog -o SBecode SBecode } }
    if ($did == 13) { set %SBAuto $did(13).state }
  }
}
alias SBOptions { dialog -dmo SBOptions SBOptions }
dialog SBOptions {
  title "SBmith Decoder Options"
  size -1 -1 143 92
  option dbu
  text "Trigger", 2, 6 12 25 8
  edit "", 3, 13 22 50 10
  check "Auto-Decode", 4, 82 34 50 9
  check "Always On-Top", 5, 82 18 50 10
  link "E-Mail Scripter", 6, 20 76 38 8
  link "mIRC Contact", 7, 20 67 42 8
  box "Contact", 8, 11 59 63 30
  box "Options", 9, 2 2 139 54
  text "Varible", 10, 7 35 25 8
  edit "", 11, 14 43 50 10
  button "Close", 12, 102 77 37 12, ok
}
on *:DIALOG:SBOptions:*:*:{
  if $devent = init { 
    if (%SBTop == 1) { did -c SBOptions 5 | dialog -o SBOptions SBOptions }
    if (%SBTop == 0) { did -u SBOptions 5 | dialog -n SBOptions SBOptions }
    if (%SBAuto == 1) { did -c SBOptions 4 }
    if (%SBAuto == 0) { did -u SBOptions 4 }
    did -r SBOptions 3
    did -a SBOptions 3 %SBTrigger
    did -r SBOptions 11
    did -a SBOptions 11 %SBVar
  }
  if ($devent == sclick) {
    if ($did == 4) { set %SBAuto $did(4).state }
    if ($did == 5) { set %SBTop $did(5).state }
    if ($did == 6) { run mailto:teenmanlds@yahoo.com }
    if ($did == 7) { server irc.mircx.com | echo 4 My Nick: Lost_and_Confused }
  }
  if ($devent == edit) {
    if ($did == 3) { set %SBTrigger $did(3).text }
    if ($did == 11) { set %SBVar $did(11).text }
  }
}
alias sbsetup { 
  window -a @SBSetup 100 50 450 400
  aline @SBSetup 10** SB Encoder/Decoder Setup **
  aline @SBSetup 10=============================
  aline @SBSetup 13Commands:
  aline @SBSetup 13   /sdecode - Run the decoder dialog
  aline @SBSetup 13   /sboptions - Run the options dialog
  aline @SBSetup 13   /sbsetup - Run this setup again
  aline @SBSetup 10=============================
  aline @SBSetup 7  Main Setup:
  aline @SBSetup 7   Enter Trigger for Auto-Decoding Text
  set %SBTrigger $$?="Enter Trigger (BOOM  is suggested):"
  aline @SBSetup 7    Trigger: %SBTrigger
  aline @SBSetup 7   Enter Varible for Encoding text
  aline @SBSetup 7     Letter "m" is a popular varible.
  set %SBVar $$?="Enter Varible (m is suggested): "
  aline @SBSetup 7    Varible: %SBVar
  aline @SBSetup 10=============================
  aline @SBSetup 9   Scripted By: John Endicott
  aline @SBSetup 9   Scripted For: SBmith
  aline @SBSetup 4      Contact by joining irc.mircx.com server.
  aline @SBSetup 10=============================
  aline @SBSetup 10** End of SB Encoder/Decoder Setup **
}
alias chanall {
  did -r SBecode 3
  set %i 1
  :next
  set %schan $chan(%i)
  if %schan == $null goto done
  if %schan != $null did -a SBecode 3 %schan
  inc %i
  goto next
  :done
  unset %i
}
on *:TEXT:*:#:if ($1 = %SBTrigger) { if (%SBAuto = 1) { /echo $chan 4(AUTO) $decode($2-,%SBVar) 4(AUTO) } }