ОБЩ_ПЛАН_x = 230 
 ОБЩ_ПЛАН_y = 50 
 ОБЩ_ПЛАН_color = 0x80FF0000 
 ... 
 :host_plan_add 
 if not exist_dec_host_plan then exist_dec_host_plan = 1 
     _& decoradd dec_host_plan (ОБЩ_ПЛАН_x,ОБЩ_ПЛАН_y, 20) IMAGE image_plan 
     _& decoradd dec_host_pos (ОБЩ_ПЛАН_x,ОБЩ_ПЛАН_y, 10) RECT 1,1,ОБЩ_ПЛАН_color 
 end 
 

 
 :host_plan_parse 
     ; добавляем к разделителям знак подчеркивания 
     tokens_delim=tokens_delim+"_" 
     tokens current_loc 
  
     if token2 = "комната1" then x = 180 & y = 160 & w=45 & h = 55 
     if token2 = "комната2" then x = 140 & y = 180 & w=38 & h = 35 
     ... 
  
     ; Перерисовываем указатель с новыми параметрами: 
     if exist_dec_host_plan then 
         _  decordel dec_host_pos 
         _& decoradd dec_host_pos (ОБЩ_ПЛАН_x+x,ОБЩ_ПЛАН_y+y, 10) RECT w,h, ОБЩ_ПЛАН_color 
 end 
 

:старт 
   btn лок1(1), Вещь 
   btn лок1(-1), Предмет 
 end 
  
 :лок1 
   вещь = вещь + лок1_1 
   предмет = предмет - лок1_1 
   ... 
 end

   вещь = вещь + 1  
   предмет = предмет - 1 

   вещь = вещь + (-1)  
   предмет = предмет - (-1) 

 
 :основная_локация 
 btn событие, кнопка 
 end 
  
 :событие 
 btn пер(1, 2, 3, 4, 5), вариант1 
 btn пер(6, 7, 8, 9, 10), вариант2 
 btn пер(11, 12, 13, 14, 15), вариант2 
 end 
  
 :пер 
 переменная1=пер_1 
 переменная2=пер_2 
 переменная3=пер_3 
 переменная4=пер_4 
 переменная5=пер_5 
 goto основная_локация 
 end 
 

:старт  
    btn локация("кошка", "мяукает", "Мяу!"), Погладить кошку.  
    btn локация("собака", "лает", "Гав!"), Погладить собаку.  
    btn локация("рыбка", "разговаривает", "Бульк!"), Погладить рыбку.  
  end  
    
  :локация  
    животное = локация_1  
    действие = локация_2  
    звук = локация_3  
    
    pln  - А как эта #%животное$ #%действие$?  
    pln  - Эта #%животное$ говорит "#%звук$"  
  end

:интро  
    pln  Нужно получить 4 литра.  
  :результат  
    pln  В 5-литровой банке #банка5$ литров.   
    pln  В 3-литровой банке #банка3$ литра.   
    
    if банка5 = 4 then pln  Победа! & end  
    
    btn перелить_3_5, Перелить из 3-литровой банки в 5-литровую.  
    btn перелить_5_3, Перелить из 5-литровой банки в 3-литровую.  
    btn наполнить("банка5", 5), Наполнить 5-литровую.  
    btn наполнить("банка3", 3), Наполнить 3-литровую.  
    btn опорожнить("банка5"), Опорожнить 5-литровую.  
    btn опорожнить("банка3"), Опорожнить 3-литровую.  
  end  
    
  :опорожнить  
    #%опорожнить_1$ = 0  
  goto результат  
    
  :наполнить  
    #%наполнить_1$ = наполнить_2  
  goto результат  
    
  :перелить_3_5  
    delta = 5 - банка5  
    if delta > банка3 then delta = банка3  
    банка5 = банка5 + delta  
    банка3 = банка3 - delta  
  goto результат  
    
  :перелить_5_3  
    delta = 3 - банка3  
    if delta > банка5 then delta = банка5  
    банка3 = банка3 + delta  
    банка5 = банка5 - delta  
  goto результат