miceiken

alias sms {
  var %s = $scon(Lead.no).id, %t = $1, %b = $2-
  scon %s .msg SMS sms %t %b
  echo -s [SMS] - SMS sendt til %t med beskjed: %b
  write SMSlog.txt $time - Til: %t :: Beskjed: %b
}
alias multisms {
  var %s = $scon(Lead.no).id, %t = $1, %b = $2-, %i = 1, %x = 1
  while (%i <= $numtok(%t,44)) {
    scon %s .timer 1 %x .msg SMS sms $gettok(%t,%i,44) %b
    .timer 1 %x echo -s [SMS] - SMS sendt til $gettok(%t,%i,44) med beskjed: %b
    write SMSlog.txt $time - Til: $gettok(%t,%i,44) :: Beskjed: %b
    inc %i
    inc %x 22
  }
  echo -s [SMS] - $numtok(%t,44) SMSer sendt.
}
alias rsms {
  var %t = $input(Nummer (MultiSMS Separert med komma),eo), %b = $input(Beskjed,eo)
  if ($chr(44) isin %t) {
    multisms %t %b
  }
  else {
    sms %t %b
  }
}
menu * {
  SMS: rsms
}