Recipe: rate1star output anime Minecraft13pub.lua

created by zo3xiaJonWeinberg

Profile

• Name: rate1star output anime Minecraft13pub.lua
• ID: 105123
• Shared with: Public
• Parent: rate1star output anime Minecraft13.lua
• Children:
  • rate1star output Toho Minecraft14.lua
• Created on: August 22, 2021 at 09:08 AM UTC
• Updated on: August 22, 2021 at 09:08 AM UTC
• Description:

  Login to fold.it to download ; (Weile fangzai nide mingdan, ; xian denglu zai fold.it wangzhan, ; fold.it youxi bu goule.) ; You can 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 xiao 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, ; but it's unimplemented. ; But now you must cut the ; shoots yourself by pressing ; spacebar! ; Do not cancel the first ; wiggle by pressing space ; so it calibrates wiggle ; time. ; The game is now more like ; Mario Bros with 2 controls. ; Tested with font size 21. ; Works best with size 16. ; Comment your highschore. ; Use side HBond slider to strafe. ; Clash to turn. ; Hold spacebar to cut.

Code

--1st line blank
help()
print("calibrating wiggle time.")
print("do not halt (spacebar) yet.")
print("scroll down")

for i=1,1 do
start=os.clock()
selection.DeselectAll()
selection.Select(1) 
structure.WiggleAll(1) --Selected(10000000000)
unhalted=os.clock()-start
print(unhalted.."unhalted")
--while os.clock()<start+10 do end
end

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()
behavior.SetClashImportance(.5)
side=behavior.GetSidechainHBondImportance()
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)
        )
    )
    side=side+math.random(-10,10)/1000
    behavior.SetSidechainHBondImportance(math.max(0,math.min(3,side)
        )
    )
end
end
ninja=side/3*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
halted=888
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 cut then
        bambooString="bamboo|is|cut|||"
    else
        for i=1,1 do
    
            start=os.clock()
            selection.DeselectAll()
            selection.Select(1) 
            structure.WiggleAll(1) --Selected(10000000000)
            halted=os.clock()-start
            --while os.clock()<start+10 do end
        end
        if halted<unhalted*2 then
            string[#string-1]=replace_str(string[#string-1],ninja," /|_|o\\-<>") --kunai knife shovel
            shoots=shoots+1
            cut=true
        end
    end

    --note, you cannot exec. both lines like this (I think?):
    --if a then b 
    --    c 
    --end
end


timer=timer+1
shoots=shoots-.01 --2 --.03
asteroidY=asteroidY+speed --.41
angle=math.atan2(asteroidY-shipY,asteroidX-ninja) --angle=arctan(y/x) --inverse tangent
distance=math.sqrt(math.pow(asteroidY-shipY,2)+math.pow(asteroidX-ninja,2)) --a^2+b^2=c^2 --hypotenuse
asteroidY=shipY+math.sin((0.9*(clash-.5)+angle))*(distance)
asteroidX=ninja+math.cos((0.9*(clash-.5)+angle))*(distance) --angle walking

table.insert(string,angle.." is angle, "..distance.." is distance, ")
table.insert(string,tostring(shoots).." shoots (Spacebar to cut), ")--..tostring(halted).."halted")
bigstring=string[1].."\n"
for y=2,#string do
bigstring=bigstring..string[y].."\n"
end
print(bigstring)

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 walk),\n restart it.")
end