[{"id":1,"text":"Автор: Aleks Otter<s>r<s>n<s>r<s>nРазводи хомяков и отдавай их в лабораторию.<s>r<s>nПолучи редких мутантов!","answers":[{"id":2,"text":"Начать","lua_do":"function lua_do()<s>n  g.fullscreen = 0<s>nend"},{"contentList":["http://188.120.236.127/aleks_otter/hamsters/details/button_star.png http://188.120.236.127/aleks_otter/hamsters/details/labBase.png http://188.120.236.127/aleks_otter/hamsters/details/labGenEnd.png http://188.120.236.127/aleks_otter/hamsters/details/labGenom.png http://188.120.236.127/aleks_otter/hamsters/details/labLight.png http://188.120.236.127/aleks_otter/hamsters/details/labZero.png http://188.120.236.127/aleks_otter/hamsters/details/back_female.png http://188.120.236.127/aleks_otter/hamsters/details/back_male.png http://188.120.236.127/aleks_otter/hamsters/details/back_none.png http://188.120.236.127/aleks_otter/hamsters/details/frame1.png http://188.120.236.127/aleks_otter/hamsters/details/frame2.png http://188.120.236.127/aleks_otter/hamsters/details/frame3.png http://188.120.236.127/aleks_otter/hamsters/details/frame4.png http://188.120.236.127/aleks_otter/hamsters/details/frame5.png http://188.120.236.127/aleks_otter/hamsters/details/heart.png http://188.120.236.127/aleks_otter/hamsters/details/outline.png http://188.120.236.127/aleks_otter/hamsters/details/plus.png http://188.120.236.127/aleks_otter/hamsters/details/question.png http://188.120.236.127/aleks_otter/hamsters/hamsters/cock_body.png http://188.120.236.127/aleks_otter/hamsters/hamsters/cock_head.png http://188.120.236.127/aleks_otter/hamsters/hamsters/cock_tail.png http://188.120.236.127/aleks_otter/hamsters/hamsters/elephant_body.png http://188.120.236.127/aleks_otter/hamsters/hamsters/elephant_head.png http://188.120.236.127/aleks_otter/hamsters/hamsters/elephant_tail.png http://188.120.236.127/aleks_otter/hamsters/hamsters/gray.png http://188.120.236.127/aleks_otter/hamsters/hamsters/gray_body.png http://188.120.236.127/aleks_otter/hamsters/hamsters/gray_head.png http://188.120.236.127/aleks_otter/hamsters/hamsters/gray_tail.png http://188.120.236.127/aleks_otter/hamsters/hamsters/red.png http://188.120.236.127/aleks_otter/hamsters/hamsters/red_body.png http://188.120.236.127/aleks_otter/hamsters/hamsters/red_head.png http://188.120.236.127/aleks_otter/hamsters/hamsters/red_tail.png http://188.120.236.127/aleks_otter/hamsters/hamsters/tiger_body.png http://188.120.236.127/aleks_otter/hamsters/hamsters/tiger_head.png http://188.120.236.127/aleks_otter/hamsters/hamsters/tiger_tail.png http://188.120.236.127/aleks_otter/hamsters/hamsters/white_body.png http://188.120.236.127/aleks_otter/hamsters/hamsters/white_head.png http://188.120.236.127/aleks_otter/hamsters/hamsters/white_tail.png"],"super_calculate":false,"id":1,"calculate":true,"text":"Новый ответ. введите текст"},{"id":1,"url":"https://vk.com/aleks_otter_quest","text":"Группа автора","answerIcon":["http://188.120.236.127/aleks_otter/general/vk_blue.png"]}]},{"id":2,"text":"Перетащи хомяка-мальчика на хомяка-девочку, чтобы получить потомство.<s>r<s>n<s>r<s>nОтправь лишних хомяков в лабораторию, чтобы получить хомяка-мутанта.<s>r<s>n<s>r<s>nНажми на хомяка, чтобы клонировать его или сменить пол.<s>r<s>n<s>r<s>nНажми на пустое хомякоместо, чтобы купить простого хомяка.","answers":[{"id":3,"text":"К хомякам","lua_do":"function lua_do()<s>n   g.fullscreen = 1<s>n   g.openedTypes = g.openedTypes or {<s>"gray<s>"}<s>n   types = {{<s>"gray<s>"}, {<s>"red<s>"}, {<s>"white<s>",<s>"cock<s>"},{<s>"elephant<s>"},{<s>"tiger<s>"}}<s>n   sex = {<s>"male<s>", <s>"female<s>", <s>"none<s>"}<s>n   frames = {<s>"frame1<s>", <s>"frame2<s>", <s>"frame3<s>", <s>"frame4<s>", <s>"frame5<s>"}<s>n   hamsters = {}<s>n   labPoints = 0<s>n<s>n   local hamster1 = {sex = 1, chapters = {{rare = 1, type = <s>"gray<s>"}, {rare = 1, type = <s>"gray<s>"}, {rare = 1, type = <s>"gray<s>"}}}<s>n   local hamster2 = {sex = 2, chapters = {{rare = 1, type = <s>"gray<s>"}, {rare = 1, type = <s>"gray<s>"}, {rare = 1, type = <s>"gray<s>"}}}<s>n   table.insert(hamsters, hamster1)<s>n   table.insert(hamsters, hamster2)<s>n   for i = 1, 6 do<s>n      table.insert(hamsters, {sex = 3})<s>n   end<s>n<s>n   baseUrl =<s>"http://188.120.236.127/aleks_otter/hamsters/<s>"<s>n   baseUrlEnd = <s>".png<s>"<s>nend"}]},{"id":3,"text":"Тут всё происходит","answers":[{"lua_if":"function lua_if()<s>nlocal tf = type(showHamsters)<s>nreturn (tf == 'nil') or (tf == 'string') <s>nend","super_calculate":false,"id":9,"calculate":true,"run":[9],"text":"Загрузка библиотеки функций"},{"super_calculate":true,"id":3,"calculate":false,"lua_do":"function lua_do()<s>n   canCenter = canvas.width/2<s>n   imgWidth05 = (canvas.height - 10)/9<s>n   imgWidth = imgWidth05 *2<s>n   currentHamsterId = 0   <s>n   babySize = canvas.width* 0.75<s>n   <s>n   createPictureTable()<s>n   drawButtons()<s>n   drawHamsters()<s>nend","text":"Рисуем хомяков"}]},{"id":4,"text":"Хотите купить нового хомяка?","answers":[{"id":3,"text":"Нет, спасибо","middle_answer":false},{"right_answer":false,"paid_answer":["Серый хомяк (девочка)",1],"id":3,"text":"Серый хомяк<s>n(девочка)","lua_do":"function lua_do()<s>naddHamster({sex = 2, chapters = {{rare = 1, type = <s>"gray<s>"}, {rare = 1, type = <s>"gray<s>"}, {rare = 1, type = <s>"gray<s>"}}}) <s>nend","answerImage":["http://188.120.236.127/aleks_otter/hamsters/hamsters/gray.png"]},{"paid_answer":["Серый хомяк (мальчик)",1],"left_answer":false,"id":3,"text":"Серый хомяк<s>n(мальчик)","lua_do":"function lua_do()<s>naddHamster({sex = 1, chapters = {{rare = 1, type = <s>"gray<s>"}, {rare = 1, type = <s>"gray<s>"}, {rare = 1, type = <s>"gray<s>"}}}) <s>nend","answerImage":["http://188.120.236.127/aleks_otter/hamsters/hamsters/gray.png"]}]},{"id":5,"text":"Функции хомяков","answers":[{"super_calculate":false,"id":5,"text":"Получить случайный тип указанной редкости","lua_do":"function lua_do()<s>nfunction getRandomType(rare) <s>n   return types[rare][math.random(#types[rare])]<s>nend<s>nend","calculate":true},{"super_calculate":false,"lua_do":"function lua_do()<s>nfunction getRandomRare()<s>n   local rare = math.random(15)<s>n   if rare <= 5 then return 1 <s>n   elseif rare <= 9 then return 2 <s>n   elseif rare <= 12 then return 3 <s>n   elseif rare <= 14 then return 4 <s>n   else return 5<s>n   end<s>nend<s>nend","text":"Получить случайную редкость","calculate":true,"id":5},{"super_calculate":false,"lua_do":"function lua_do()<s>nfunction getRandomRareLab()<s>n   local rare = math.random(10)<s>n   if rare <= 4 then return 2 <s>n   elseif rare <= 7 then return 3 <s>n   elseif rare <= 9 then return 4 <s>n   else return 5<s>n   end<s>nend<s>nend","calculate":true,"id":5,"text":"Получить случайную редкость с повышенным лабораторным шансом"},{"super_calculate":false,"lua_do":"function lua_do()<s>nfunction getChapter(hamster1, hamster2, index)<s>n   local chance = math.random(3)<s>n   if chance == 1 then return table.copy2(hamster1.chapters[index]) <s>n   elseif chance == 2 then return table.copy2(hamster2.chapters[index]) <s>n   else <s>n      local rrrare = getRandomRare()<s>n      return {rare = rrrare, type = getRandomType(rrrare)}<s>n   end<s>nend<s>nend","calculate":true,"id":5,"text":"Получить часть тела (унаследовав или случайную)"},{"super_calculate":false,"id":5,"calculate":true,"text":"Получить нового хомяка скрещиванием","lua_do":"function lua_do()<s>nfunction newHamster(hamster1, hamster2) <s>n   local body = getChapter(hamster1, hamster2, 1)<s>n   local tail = getChapter(hamster1, hamster2, 2)<s>n   local head = getChapter(hamster1, hamster2, 3)<s>n <s>n   return {sex = math.random(2), chapters = {body, tail, head}}<s>nend<s>nend"},{"super_calculate":false,"lua_do":"function lua_do()<s>nfunction newRandomHamster() <s>n   local rrrare = getRandomRareLab()<s>n   local body = {rare = rrrare, type = getRandomType(rrrare)}<s>n   rrrare = getRandomRareLab()<s>n   local tail = {rare = rrrare, type = getRandomType(rrrare)}<s>n   rrrare = getRandomRareLab()<s>n   local head = {rare = rrrare, type = getRandomType(rrrare)}<s>n   return {sex = math.random(2), chapters = {body, tail, head}}<s>nend<s>nend","text":"Получить нового хомяка из лаборатории","id":5,"calculate":true},{"super_calculate":false,"id":5,"text":"Добавить хомяка в таблицу","calculate":true,"lua_do":"function lua_do() function addHamster(hamster) <s>n   for i = 1, #hamsters do<s>n      if hamsters[i].sex == 3 then <s>n         hamsters[i] = table.copy2(hamster)<s>n         return<s>n      end<s>n   end<s>nend end"},{"super_calculate":false,"id":5,"calculate":true,"lua_do":"function lua_do() function sendToLab(hamster) <s>n   local hamCh = hamster.chapters<s>n   labPoints = labPoints <plus> hamCh[1].rare <plus> hamCh[2].rare <plus> hamCh[3].rare<s>nend end","text":"Отправить в лабораторию"},{"super_calculate":false,"id":5,"calculate":true,"lua_do":"function lua_do() function hamIsFull() <s>n   local result = true<s>n   for i = #hamsters, 1, -1 do<s>n      if hamsters[i].sex == 3 then <s>n         result = false<s>n         break<s>n      end<s>n   end<s>n   return result<s>nend end","text":"Проверка наличия свободных хомякомест"},{"super_calculate":false,"lua_do":"function lua_do() function alreadyOpened(typePar) <s>n   local opened = false<s>n   for i = 1, table.getn(g.openedTypes) do<s>n      if g.openedTypes[i] == typePar then <s>n         opened = true <s>n         break<s>n      end<s>n   end<s>n   return opened<s>nend end","calculate":true,"text":"Проверка, открыт ли вид хомяка","id":5}]},{"id":6,"text":"Функции отрисовки","answers":[{"super_calculate":false,"lua_do":"function lua_do() function getSexUrl(hamster)<s>n   return baseUrl .. <s>"details/back_<s>" .. sex[hamster.sex] .. baseUrlEnd<s>nend end","text":"Получить ссылку на картинку фона","id":6,"calculate":true},{"super_calculate":false,"id":6,"text":"Получить ссылку на картинку туловища","calculate":true,"lua_do":"function lua_do() function getBodyUrl(hamster)<s>n   return baseUrl .. <s>"hamsters/<s>" .. hamster.chapters[1].type .. <s>"_body<s>" .. baseUrlEnd<s>nend end"},{"super_calculate":false,"id":6,"text":"Получить ссылку на картинку хвоста","calculate":true,"lua_do":"function lua_do() function getTailUrl(hamster)<s>n   return baseUrl .. <s>"hamsters/<s>" .. hamster.chapters[2].type .. <s>"_tail<s>" .. baseUrlEnd<s>nend end"},{"super_calculate":false,"id":6,"text":"Получить ссылку на картинку головы","calculate":true,"lua_do":"function lua_do() function getHeadUrl(hamster)<s>n   return baseUrl .. <s>"hamsters/<s>" .. hamster.chapters[3].type .. <s>"_head<s>" .. baseUrlEnd<s>nend end"},{"super_calculate":false,"id":6,"text":"Получить ссылку на картинку рамки","calculate":true,"lua_do":"function lua_do() function getFrame(rare)<s>n   return baseUrl .. <s>"details/frame<s>" .. rare .. baseUrlEnd<s>nend end"},{"super_calculate":false,"id":6,"calculate":true,"lua_do":"function lua_do() function getButton(name)<s>n   return baseUrl .. <s>"details/button_<s>" .. name .. baseUrlEnd<s>nend end","text":"Получить ссылку на картинку кнопки"},{"super_calculate":false,"id":6,"calculate":true,"lua_do":"function lua_do() function addPicture(xPar, yPar, scalePar)<s>n   table.insert(pictures, {x = xPar, y = yPar, scale = scalePar})<s>nend end","text":"Добавить координаты картинки"},{"super_calculate":false,"lua_do":"function lua_do() function getPictureId(x, y)<s>n   local picCount = #pictures<s>n   if x > pictures[picCount].x <plus> imgWidth and y > pictures[picCount].y <plus> imgWidth then return 0 end<s>n   for i = picCount, 1, -1 do<s>n      if x > pictures[i].x  and y > pictures[i].y then return i end<s>n   end<s>n   return 0<s>nend end","calculate":true,"text":"Определить позицию пальца по координатам","id":6},{"super_calculate":false,"lua_do":"function lua_do() function drawButtons()<s>n   -- пробирка<s>n   local targetPoints = 100<s>n   local labGenom = display.newImage(baseUrl .. <s>"details/labGenom.png<s>")<s>n   labGenom.width = imgWidth05 * 3    labGenom.height = imgWidth05<s>n   labGenom.x = pictures[1].x <plus> imgWidth * 0.75    labGenom.y = pictures[1].y <plus> imgWidth05 / 2<s>n<s>n   local labGenEnd = display.newImage(baseUrl .. <s>"details/labGenEnd.png<s>")<s>n   labGenEnd.width = imgWidth / 12 * 5     labGenEnd.height = labGenom.height<s>n   -- расчёт, сколько генома должно быть в пробирке<s>n   local maxGenomLen = labGenom.width - (imgWidth/15) - labGenEnd.width<s>n   local genomLen = maxGenomLen/100 * labPoints<s>n   labGenEnd.x = pictures[1].x <plus> labGenEnd.width / 2 <plus> genomLen    labGenEnd.y = labGenom.y<s>n<s>n   if labPoints <= targetPoints then <s>n      local labZero = display.newImage(baseUrl .. <s>"details/labZero.png<s>")<s>n      labZero.width = maxGenomLen - genomLen     labZero.height = labGenom.height<s>n      labZero.x = labGenEnd.x <plus> labGenEnd.width/2 - imgWidth/15 <plus> labZero.width/2<s>n      labZero.y = labGenom.y<s>n   end<s>n<s>n   local lab = display.newImage(baseUrl .. <s>"details/labBase.png<s>")<s>n   lab.width = labGenom.width     lab.height = labGenom.height<s>n   lab.x = labGenom.x     lab.y = labGenom.y<s>n<s>n   if labPoints > targetPoints then <s>n      local labFinal = display.newImage(baseUrl .. <s>"details/labLight.png<s>")<s>n      labFinal.width = labGenom.width     labFinal.height = labGenom.height<s>n      labFinal.x = labGenom.x     labFinal.y = labGenom.y<s>n      labFinal:addEventListener( <s>"tap<s>", tapLab)<s>n   end<s>n<s>n   -- кнопка коллекции<s>n   local collection = display.newImage(getButton(<s>"star<s>"))<s>n   collection.width = imgWidth05    collection.height = imgWidth05<s>n   collection.x = pictures[2].x <plus> imgWidth05 / 2    collection.y = lab.y<s>n   collection:addEventListener( <s>"tap<s>", tapCollection)<s>nend end","text":"Отрисовка кнопок","id":6,"calculate":true},{"super_calculate":false,"lua_do":"function lua_do()<s>nfunction createPictureTable() <s>n   pictures = {}<s>n   addPicture(canCenter - 5 - imgWidth, 0, false) -- лаба<s>n   addPicture(canCenter <plus> 5 <plus> imgWidth05, 0, false) -- коллекция<s>n<s>n   local left = true<s>n   local y = imgWidth05 <plus> 10<s>n   for i = 1, #hamsters do<s>n      if left then<s>n         addPicture(canCenter - 5 - imgWidth, y, false) <s>n      else<s>n         addPicture(canCenter <plus> 5, y, true) <s>n         y = y <plus> imgWidth<s>n      end<s>n      left = not left<s>n   end<s>nend<s>nend","calculate":true,"text":"Создание таблицы картинок","id":6},{"super_calculate":false,"lua_do":"function lua_do()<s>nfunction drawHamsters() <s>n   backgrounds = display.newGroup()<s>n   for i = 3, 10 do<s>n      local background = display.newImage(getSexUrl(hamsters[i-2]))<s>n      background.width, background.height = imgWidth, imgWidth<s>n      background.x = pictures[i].x <plus> imgWidth05   background.y = pictures[i].y <plus> imgWidth05<s>n      if pictures[i].scale then background.xScale = -1 end<s>n   end<s>n<s>n   portraits = {}<s>n   for i = 1, #hamsters do<s>n      portraits[i] = display.newGroup()<s>n      portraits[i].hamsterId = i<s>n      portraits[i].x = pictures[i<plus>2].x <plus> imgWidth05  portraits[i].y = pictures[i<plus>2].y <plus> imgWidth05<s>n      if pictures[i<plus>2].scale then portraits[i].xScale = -1 end<s>n<s>n      if hamsters[i].sex < 3 then -- хомяки в наличии<s>n         local body = display.newImage(getBodyUrl(hamsters[i]))<s>n         local tail = display.newImage(getTailUrl(hamsters[i]))<s>n         local head = display.newImage(getHeadUrl(hamsters[i])) <s>n         body.width, body.height, tail.width, tail.height, head.width, head.height = imgWidth, imgWidth, imgWidth, imgWidth, imgWidth, imgWidth<s>n         portraits[i]:insert(body)     portraits[i]:insert(tail)     portraits[i]:insert(head)<s>n         portraits[i]:addEventListener( <s>"touch<s>", moveHamster)<s>n         portraits[i]:addEventListener( <s>"tap<s>", tapHamster)<s>n      else -- хомякоместо<s>n         local outline = display.newImage(baseUrl .. <s>"details/outline.png<s>")<s>n         local plus = display.newImage(baseUrl .. <s>"details/plus.png<s>")<s>n         outline.width, outline.height, plus.width, plus.height = imgWidth, imgWidth, imgWidth, imgWidth<s>n         portraits[i]:insert(outline)      portraits[i]:insert(plus)<s>n         portraits[i]:addEventListener( <s>"tap<s>", tapHamsterPlace)<s>n      end <s>n   end<s>n<s>n   hearts = display.newEmitter(loveData, system.TemporaryDirectory)<s>n   hearts.isVisible = false<s>nend<s>nend","text":"Отрисовка хомяков","id":6,"calculate":true},{"super_calculate":false,"id":6,"text":"Любовь-морковь","calculate":true,"lua_do":"function lua_do()<s>nloveData = {<s>nabsolutePosition = true,<s>nangle = 0, angleVariance = 0,<s>nblendFuncDestination = 771, blendFuncSource = 774,<s>nduration = -1,<s>nemitterType = 0,<s>nfinishColorAlpha = 1, finishColorBlue = 0.6, finishColorGreen = 0.5, finishColorRed = 1,<s>nfinishColorVarianceAlpha = 0, finishColorVarianceBlue = 0, finishColorVarianceGreen = 0, finishColorVarianceRed = 0,<s>nfinishParticleSize = 60, finishParticleSizeVariance = 20,<s>ngravityx = 0, gravityy = -150,<s>nmaxParticles = 20,<s>nmaxRadius = 0, maxRadiusVariance = 0, minRadius = 0, minRadiusVariance = 0,<s>nparticleLifespan = 1, particleLifespanVariance = 0.5,<s>nradialAccelVariance = 0, radialAcceleration = 200, rotatePerSecond = 0, rotatePerSecondVariance = 0,<s>nrotationEnd = 0, rotationEndVariance = 0, rotationStart = 0, rotationStartVariance = 0,<s>nsourcePositionVariancex = 100,<s>nsourcePositionVariancey = 100,<s>nspeed = 30, speedVariance = 10,<s>nstartColorAlpha = 1, startColorBlue = 0.2, startColorGreen = 0.2, startColorRed = 1,<s>nstartColorVarianceAlpha = 0, startColorVarianceBlue = 0, startColorVarianceGreen = 0, startColorVarianceRed = 0,<s>nstartParticleSize = 4, startParticleSizeVariance = 1,<s>ntangentialAccelVariance = 0, tangentialAcceleration = 0,<s>ntextureFileName = nameForImages(baseUrl .. <s>"details/heart.png<s>"),<s>ntextureImageData = <s>"<s>",<s>nyCoordFlipped = -1<s>n}<s>nend"},{"super_calculate":false,"id":6,"text":"Отрисовка одного хомяка","calculate":true,"lua_do":"function lua_do()<s>nfunction drawCollHamster(rarePar, typePar) <s>n   collectItem = display.newGroup()<s>n   local hamsterL = {sex = 3, chapters = {{rare = rarePar, type = typePar}, {rare = rarePar, type = typePar}, {rare = rarePar, type = typePar}}}<s>n   local background = display.newImage(getSexUrl(hamsterL)) <s>n   background.width, background.height = imgWidth, imgWidth<s>n   collectItem:insert(background) <s>n<s>n   if alreadyOpened(typePar) then<s>n      local body = display.newImage(getBodyUrl(hamsterL))<s>n      local tail = display.newImage(getTailUrl(hamsterL))<s>n      local head = display.newImage(getHeadUrl(hamsterL)) <s>n      body.width, body.height, tail.width, tail.height, head.width, head.height = imgWidth, imgWidth, imgWidth, imgWidth, imgWidth, imgWidth<s>n      collectItem:insert(body)     collectItem:insert(tail)     collectItem:insert(head)<s>n   else<s>n      local outline = display.newImage(baseUrl .. <s>"details/outline.png<s>")<s>n      local question = display.newImage(baseUrl .. <s>"details/question.png<s>")<s>n      outline.width, outline.height, question.width, question.height = imgWidth, imgWidth, imgWidth, imgWidth<s>n      collectItem:insert(outline)    collectItem:insert(question) <s>n   end<s>n   local frame = display.newImage(getFrame(rarePar)) <s>n   frame.width, frame.height = imgWidth, imgWidth<s>n   collectItem:insert(frame) <s>n<s>n   collectItem.y = collY<s>n   if isLeft then <s>n      collectItem.x = canCenter - imgWidth05 - 5<s>n   else<s>n      collectItem.x = canCenter <plus> imgWidth05 <plus> 5<s>n      collY = collY <plus> imgWidth<s>n   end<s>n   isLeft = not isLeft<s>nend<s>nend"}]},{"id":7,"text":"Это хороший хомяк. Что вы хотите с ним сделать?","answers":[{"id":3,"text":"Ничего!","middle_answer":false},{"right_answer":false,"paid_answer":["Сменить пол хомяка",1],"id":3,"text":"Сменить пол","lua_do":"function lua_do()<s>n   if hamsters[currentHamsterId].sex == 1 then<s>n      hamsters[currentHamsterId].sex = 2<s>n   else<s>n      hamsters[currentHamsterId].sex = 1<s>n   end<s>nend"},{"paid_answer":["Клонировать хомяка",1],"lua_do":"function lua_do()<s>naddHamster(table.copy2(hamsters[currentHamsterId])) <s>nend","id":3,"text":"Клонировать","lua_if":"function lua_if()<s>nreturn not hamIsFull() <s>nend","left_answer":false},{"super_calculate":false,"id":10,"text":"Рисуем выбранного хомяка","calculate":true,"lua_do":"function lua_do()<s>n   local hamPortrait = display.newGroup()<s>n   local background = display.newImage(getSexUrl(hamsters[currentHamsterId]))<s>n   local body = display.newImage(getBodyUrl(hamsters[currentHamsterId]))<s>n   local tail = display.newImage(getTailUrl(hamsters[currentHamsterId]))<s>n   local head = display.newImage(getHeadUrl(hamsters[currentHamsterId])) <s>n   background.width, background.height, body.width, body.height, tail.width, tail.height, head.width, head.height = babySize, babySize, babySize, babySize, babySize, babySize, babySize, babySize<s>n   hamPortrait:insert(background)   hamPortrait:insert(body)     hamPortrait:insert(tail)     hamPortrait:insert(head)<s>n   hamPortrait.x = canCenter  hamPortrait.y = babySize / 2<s>nend"}]},{"id":8,"text":"Действия пользователя","answers":[{"super_calculate":false,"id":6,"calculate":true,"lua_do":"function lua_do()<s>nfunction moveHamster(event)<s>n   pictureId = getPictureId(event.target.x, event.target.y)<s>n   if ( event.phase == <s>"began<s>" ) then<s>n        -- Запомнить Idтекущего хомяка<s>n      if event.target.hamsterId ~= pictureId-2 then return true end<s>n      currentHamsterId = event.target.hamsterId<s>n      display.getCurrentStage():setFocus(event.target)<s>n      event.target:toFront()<s>n      event.target.touchOffsetX = event.x - event.target.x<s>n      event.target.touchOffsetY = event.y - event.target.y<s>n   elseif ( event.phase == <s>"moved<s>" ) then<s>n        if currentHamsterId == 0 then return true end<s>n        event.target.x = event.x - event.target.touchOffsetX<s>n        event.target.y = event.y - event.target.touchOffsetY<s>n        -- сердечки - если наведение на хомяка противоположного пола<s>n        if (not hamIsFull()) and pictureId > 2 <s>n                and math.abs(event.target.x - pictures[pictureId].x - imgWidth05) < imgWidth05 <s>n                and math.abs(event.target.y - pictures[pictureId].y - imgWidth05) < imgWidth05 <s>n                and hamsters[pictureId-2].sex < 3<s>n                and hamsters[pictureId-2].sex ~= hamsters[currentHamsterId].sex  then<s>n           hearts.isVisible = true<s>n           hearts.x = event.x    hearts.y = event.y<s>n        else<s>n           hearts.isVisible = false<s>n        end<s>n   elseif ( event.phase == <s>"ended<s>" ) then<s>n        if currentHamsterId == 0 then return true end<s>n        display.getCurrentStage():setFocus(nil)<s>n        hearts.isVisible = false<s>n        if (not hamIsFull()) and pictureId > 2 and hamsters[pictureId-2].sex < 3 and hamsters[pictureId-2].sex ~= hamsters[currentHamsterId].sex then<s>n           -- спарить  <s>n           baby = newHamster(hamsters[currentHamsterId], hamsters[pictureId-2])<s>n           showPage {id = 10, transition = <s>"instant<s>"}<s>n        elseif pictureId == 1 then<s>n           -- отдать в лабораторию<s>n           sendToLab(hamsters[currentHamsterId])<s>n           hamsters[currentHamsterId] = {sex = 3}<s>n           showPage {id = 3, transition = <s>"instant<s>"}<s>n        else  <s>n           -- вернуть на место<s>n           transition.moveTo(event.target, {x = pictures[currentHamsterId<plus>2].x <plus> imgWidth05, y=pictures[currentHamsterId<plus>2].y <plus> imgWidth05, time=200 } )<s>n        end<s>n        currentHamsterId = 0<s>n   end<s>n   return true<s>nend<s>nend","text":"Тащим хомяка"},{"super_calculate":false,"lua_do":"function lua_do()<s>nfunction tapHamster(event)<s>n   if event.target.hamsterId ~= pictureId-2 then return true end<s>n   currentHamsterId = event.target.hamsterId<s>n   showPage {id = 7, transition = <s>"instant<s>"}<s>n   return true<s>nend<s>nend","calculate":true,"text":"Тап по хомяку","id":6},{"super_calculate":false,"lua_do":"function lua_do() function tapHamsterPlace(event)<s>n   showPage {id = 4, transition = <s>"instant<s>"}<s>n   return true<s>nend end","text":"Тап по хомякоместу","id":6,"calculate":true},{"super_calculate":false,"id":6,"text":"Тап по лаборатории","calculate":true,"lua_do":"function lua_do()<s>nfunction tapLab(event)<s>n   labPoints = 0<s>n   baby = newRandomHamster() <s>n   showPage {id = 10, transition = <s>"instant<s>"}<s>n   return true<s>nend<s>nend"},{"super_calculate":false,"id":6,"calculate":true,"lua_do":"function lua_do() function tapCollection(event)<s>n   showPage {id = 11, transition = <s>"instant<s>"}<s>n   return true<s>nend end","text":"Тап по коллекции"}]},{"id":9,"text":"Все функции","answers":[{"super_calculate":false,"id":3,"calculate":true,"run":[5],"text":"Загрузка функций хомяков"},{"super_calculate":false,"id":3,"calculate":true,"run":[6],"text":"Загрузка функций отрисовки"},{"super_calculate":false,"id":8,"calculate":true,"run":[8],"text":"Загрузка действий пользователя"}]},{"id":10,"text":"Вы получили нового хомяка!","answers":[{"right_answer":false,"middle_answer":false,"id":3,"text":"Отправить в лабораторию","lua_do":"function lua_do()<s>nsendToLab(baby) <s>nend","left_answer":false},{"middle_answer":false,"id":3,"text":"Забрать себе","lua_do":"function lua_do()<s>naddHamster(baby) <s>nend","left_answer":false},{"super_calculate":false,"lua_do":"function lua_do()<s>n   local babyPortrait = display.newGroup()<s>n   local background = display.newImage(getSexUrl(baby))<s>n   local body = display.newImage(getBodyUrl(baby))<s>n   local tail = display.newImage(getTailUrl(baby))<s>n   local head = display.newImage(getHeadUrl(baby)) <s>n   background.width, background.height, body.width, body.height, tail.width, tail.height, head.width, head.height = babySize, babySize, babySize, babySize, babySize, babySize, babySize, babySize<s>n   babyPortrait:insert(background)   babyPortrait:insert(body)     babyPortrait:insert(tail)     babyPortrait:insert(head)<s>n   babyPortrait.x = canCenter  babyPortrait.y = babySize / 2<s>nend","calculate":true,"text":"Рисуем бэбика","id":10},{"super_calculate":false,"lua_do":"function lua_do()<s>n   local charp = baby.chapters<s>n   if charp[1].type == charp[2].type and charp[1].type == charp[3].type and (not alreadyOpened(charp[1].type)) then<s>n      table.insert(g.openedTypes, charp[1].type)<s>n   end<s>nend","text":"Запоминаем бэбика","id":10,"calculate":true}]},{"id":11,"text":"Коллекция хомяков","answers":[{"id":3,"text":"Вернуться к хомякам"},{"lua_if":"function lua_if()<s>nlocal tf = type(showHamsters)<s>nreturn (tf == 'nil') or (tf == 'string') <s>nend","super_calculate":false,"id":9,"calculate":true,"run":[9],"text":"Загрузка библиотеки функций"},{"super_calculate":true,"lua_do":"function lua_do()<s>n   collY = imgWidth/2<s>n   isLeft = true<s>n<s>n   for i = 1, #types do<s>n      for j = 1, table.getn(types[i]) do<s>n         drawCollHamster(i, types[i][j])<s>n      end<s>n   end<s>nend","calculate":false,"text":"Рисуем хомяков","id":3}]},{"id":12,"text":"","answers":[]}]