Прописываем координаты, делаем пару бутылок, идём спать.
set #n 100 set #m 200 // regi set $a You can't make it. Maybe you lack resources, or aren't skilled enough. set $b You put the set $c You fail to complete set $d Your skill in :bottle drag 885, 114 937, 306 #n // *1--->*2 wait 1s repeat #n double_left 874, 242 // mortar *8 wait 600 left 489, 456 // make last gosub proverka set timer while_not (lastmsg $b) or (lastmsg $c) or (lastmsg $d) or (timer > 14000) wait 100 end_while say .exp end_repeat gosub drag goto bottle :proverka if (lastmsg $a) gosub regi end_if if wght > 350 gosub drag end_if return :regi drag 922, 81 944, 233 #m // *3--->*4 wait 1000 repeat 3 double_left 852, 264 // havka *7 wait 500 end_repeat say .exp return :drag drag 857, 288 821, 134 90 // *5--->*6 wait 1000 say .exp return