Пример ТА4 контроллер

$events(true)
STATUS = "GET_PAY"
SENSOR = "2255777"
MONITOR = "2256555"
PUSHER = "2256562"
all_money = 0.0
PAY_MONEY = 0.0
$clear_screen(MONITOR)
$send_cmnd(SENSOR, "text", "Положите деньги в ячейки и \nнажмите F1 для оплаты наличными")
$display(MONITOR, 1, "Status: "..STATUS)
$display(MONITOR, 2, "System START...")

if event and $get_input(SENSOR) == "on" then
  msg_text = ""
  $clear_screen(MONITOR)
  state = $send_cmnd(SENSOR, "state")
  name, action = $send_cmnd(SENSOR, "action")
  $print("action"..": "..name.." "..action)
 
  if action == "f1" then
    STATUS = "PAY"
  elseif action == "f2" then
    STATUS = "FILL"
  elseif action == "take" and STATUS == "PAY" then
    $send_cmnd(PUSHER, "off")
    PAY_MONEY = 0.0
    msg_text = "ERROR BANK"
    STATUS = "GET_PAY"
  end
  all_money = 0.0
  stacks = $send_cmnd(SENSOR, "stacks")
  for i,stack in stacks.next() do
    s_name = stack.get("name")
    s_count = stack.get("count") 
    $print("stack: "..s_name.."  "..s_count)
    if s_name == "currency:minegeld_cent_5" then
      all_money = all_money + (5*s_count)
    elseif s_name == "currency:minegeld_cent_10" then
      all_money = all_money + (10*s_count)
    elseif s_name == "currency:minegeld_cent_25" then
      all_money = all_money + (25*s_count)
    elseif s_name == "currency:minegeld" then
      all_money = all_money + (100*s_count)
    elseif s_name == "currency:minegeld" then
      all_money = all_money + (100*s_count)
    elseif s_name == "currency:minegeld_5" then
      all_money = all_money + (500*s_count)
    elseif s_name == "currency:minegeld_10" then
      all_money = all_money + (1000*s_count)
    elseif s_name == "currency:minegeld_50" then
      all_money = all_money + (5000*s_count)
    elseif s_name == "currency:minegeld_100" then
      all_money = all_money + (10000*s_count)
    else
      msg_text = "ERROR"
    end
  end
  if msg_text == "ERROR" then
    $send_cmnd(SENSOR, "text", "Уберите лишние предметы!")
    $display(MONITOR, 2, msg_text)
    msg_text=""
  elseif msg_text == "ERROR BANK" then
    $send_cmnd(SENSOR, "text", "Попытка ограбления, операция остановлена")
    $display(MONITOR, 2, msg_text)
    msg_text=""
  else
    $send_cmnd(SENSOR, "text", "Положите деньги в ячейки и \nнажмите F1 для оплаты наличными\nнажмите F2 для ЗАПРАВКИ\nВы положили: "..(all_money/100).." \nЗАПРАВКА НА СУММУ: "..(PAY_MONEY/100))
    $display(MONITOR, 2, "SUMM: "..all_money/100)
  end
  $print("")
end
 
if STATUS == "PAY" then
  PAY_MONEY = PAY_MONEY + all_money
  all_money = 0.0
  $display(MONITOR, 2, "SUMM: "..all_money/100)
  $send_cmnd(PUSHER, "on")
  $send_cmnd(SENSOR, "text", "ВНИМАНИЕ, ОСУЩЕСТВЛЯЕТСЯ\nТРАНЗАКЦИЯ!!!\nНе делайте никаких операций!!!")
  if $send_cmnd(SENSOR, "state") == "empty" then
    $send_cmnd(PUSHER, "off")
    STATUS = "GET_PAY"
    $send_cmnd(SENSOR, "text", "Положите деньги в ячейки и \nнажмите F1 для оплаты наличными\nнажмите F2 для ЗАПРАВКИ\n\nЗАПРАВКА НА СУММУ: "..(PAY_MONEY/100))
  end
end
 
if STATUS == "FILL" then
  $send_cmnd(SENSOR, "text", "ИДЕТ ЗАЛИВКА ТОПЛИВА!\nНе делайте никаких операций!!!")
  all_money = 0.0
  PAY_MONEY = 0.0
  STATUS = "GET_PAY"
end
 
$display(MONITOR, 1, "Status: "..STATUS)
$display(MONITOR, 5, "FILL PAYMENT "..PAY_MONEY/100)