Recipe: 1star output animated game donghua22pub

created by zo3xiaJonWeinberg

Profile

• Name: 1star output animated game donghua22pub
• ID: 104546
• Shared with: Public
• Parent: 1star output animated game donghua22
• Children:
  • 1star output animated game test
• Created on: March 01, 2021 at 10:11 AM UTC
• Updated on: March 01, 2021 at 10:11 AM UTC
• Description:

  Login to fold.it to download ; (Weile fangzai nide mingdan, ; xian denglu zai fold.it wangzhan, ; fold.it youxi bu goule.) ; please rate 1 star as it shows up first, ; as of 2021 feb. ; click show output, ; and in the Behavior/Comportar tab, ; use the clash slider for parkour. ; This is an action realtime minigame. ; (zheshi donghuapian youxi) ; Everwing/Galaga/Touhou/ ; Subway Surfers ; Should I include Foldit ; action sound effects? ; Could be used to test neural network ; update 17 big backend change ; just for depth. ; Game probably easier ; when Foldit lags, so try loading ; expert or beginner puzzles. ; I mean, you could climb the bamboo ; if you practiced.

Code

--1st line blank, "Blank never loses"
function replace_char(pos, str, r)
    return str:sub(1, pos-1) .. r .. str:sub(pos+1)
end
function replace_str(str, pos,r)
    return str:sub(1, pos-1) .. r .. str:sub(pos+#r+1)
end
info=dialog.CreateDialog("show output & use clash then close this")
gameWidth=40
bambooString="bamboo|||"
while true do
dialog.Show(info)
asteroidX=7
asteroidY=1
shoots=5
timer=5
while shoots>0 do
shipY=19
string={}
asteroidYround=math.floor(asteroidY)
for y=1,shipY do
    table.insert(string,"")
    if asteroidYround-#bambooString<y and y<=asteroidYround then
        for x=1,asteroidX do
            string[y]=string[y].." "
        end
        --aaList:sub ( ii, ii )
        seg=y-(asteroidYround-#bambooString)
        --pos=#bambooString-seg+1
        --print("pos"..pos)
        --test=bambooString:sub(20,20)
        --print(test.."tested")
        if seg>#"bamboo" then string[y]=string[y].." |" else 
            coinflip=seg%2 --math.random(0,1)
            if coinflip==0 then
                string[y]=string[y].."/" 
            else string[y]=string[y].." " end
        end
        string[y]=string[y]..bambooString:sub(seg,seg) --"asteroid"
        if seg<=#"bamboo" and coinflip==1 then string[y]=string[y].."\\" end
        if seg>=#bambooString and not cut then string[y]=string[y].."/|" end --shoot 
        
    end
    --for testI=1,0 do end
    for x=#string[y]+1,gameWidth do
        string[y]=string[y].." "
    end
end
clash=behavior.GetClashImportance()
if timer%5==0 then
if behavior.GetWigglePower()=='a' then --a is auto
    clash=clash+math.random(-10,10)/1000
    behavior.SetClashImportance(math.max(0,math.min(1,clash)
        )
    )
end
end
ninja=clash*gameWidth+1 --font size

string[#string-2]=replace_str(string[#string-2],ninja,"ninja") --"ship" --"Touhou"
if timer%8>3 then
string[#string-1]=replace_str(string[#string-1],ninja," /|_|\\")
string[#string-0]=replace_str(string[#string-0],ninja,"  /  | ")
else
string[#string-1]=replace_str(string[#string-1],ninja," /|_|\\")
string[#string-0]=replace_str(string[#string-0],ninja,"  |  \\")
end

speed=0.4
bambooString="bamboo|||"
if asteroidYround==shipY-1 and ninja-2<=asteroidX and asteroidX<=ninja+#"ninja" then 
    speed=0 --speed/40
    bambooString="bamboo|bent|||"
    --string[#string-1]=replace_str(string[#string-1],ninja," /|_|o\\-<>")
    --print(not cut)
    if not cut then
        string[#string-1]=replace_str(string[#string-1],ninja," /|_|o\\-<>") --kunai knife shovel
        shoots=shoots+1
        cut=true
    end

    --note, you cannot exec. both lines like this (I think?):
    --if a then b 
    --    c 
    --end
end
table.insert(string,shoots.." shoots")
bigstring=string[1].."\n"
for y=2,#string do
bigstring=bigstring..string[y].."\n"
end
print(bigstring)

timer=timer+1
shoots=shoots-.01 --2 --.03
asteroidY=asteroidY+speed --.41
if asteroidY-#bambooString>shipY then 
    asteroidX=math.random(gameWidth) asteroidY=1 
    cut=false
end
startTime=os.clock()
while os.clock()<startTime+1/60 do end
end --starved
info=dialog.CreateDialog("starved. use output,clash,close this")
info.l=dialog.AddLabel("or Close recipe, Adjust WigglePower (for auto forage),\n restart it.")
end