CrazyGoldfish3 wrote:

Bump. Could use some Cloud stuff, people.

When we get orders, we need to complete them!

Sigton wrote:

Sorry Crazy, cloud ain't my thing

Sigton

when I receive[start v]
load(☁ cloud)to[list v] ::custom
broadcast[close old v]
set[result v]to[0]
repeat until<<(result)>(length of[list v])>or<(item(result)of[list v])=(username)>
change[result v]by(1)
end
if<(result)>(length of[list v])>then
add(username)to[list v]
add[0]to[list v]
save[list v]to[☁ cloud v] ::custom
end
change[result v]by(effect)
forever
load(☁ cloud)to[list v] ::custom
replace item((result)+((1)-(effect)))of[list v]with((item((result)+((1)-(effect)))of[list v])+(1))
save[list v]to[☁ cloud v] ::custom
end
when I receive[close old v]
forever
set[counter v]to[1]
delete(all v)of[savetest v]
repeat(length of[list v])
add(item(counter)of[list])to[savetest v]
change[counter v]by(1)
end
wait(5)secs
set[counter v]to[1]
repeat(length of[list v])
if<(item(counter)of[list v])=(item(counter)of[savetest v])>then
delete(counter)of[list v]
delete(counter)of[list v]
change[effect v]by(-2)
change[counter v]by(-2)
end
change[counter v]by(1)
end

space_elephant wrote:

I think this will work

when I receive[start v]
load(☁ cloud)to[list v] ::custom
broadcast[close old v]
set[result v]to[0]
repeat until<<(result)>(length of[list v])>or<(item(result)of[list v])=(username)>
change[result v]by(1)
end
if<(result)>(length of[list v])>then
add(username)to[list v]
add[0]to[list v]
save[list v]to[☁ cloud v] ::custom
end
change[result v]by(effect)
forever
load(☁ cloud)to[list v] ::custom
replace item((result)+((1)-(effect)))of[list v]with((item((result)+((1)-(effect)))of[list v])+(1))
save[list v]to[☁ cloud v] ::custom
end
when I receive[close old v]
forever
set[counter v]to[1]
delete(all v)of[savetest v]
repeat(length of[list v])
add(item(counter)of[list])to[savetest v]
change[counter v]by(1)
end
wait(5)secs
set[counter v]to[1]
repeat(length of[list v])
if<(item(counter)of[list v])=(item(counter)of[savetest v])>then
delete(counter)of[list v]
delete(counter)of[list v]
change[effect v]by(-2)
change[counter v]by(-2)
end
change[counter v]by(1)
end

CrazyGoldfish3 wrote:

space_elephant wrote:

I think this will work

when I receive[start v]
load(☁ cloud)to[list v] ::custom
broadcast[close old v]
set[result v]to[0]
repeat until<<(result)>(length of[list v])>or<(item(result)of[list v])=(username)>
change[result v]by(1)
end
if<(result)>(length of[list v])>then
add(username)to[list v]
add[0]to[list v]
save[list v]to[☁ cloud v] ::custom
end
change[result v]by(effect)
forever
load(☁ cloud)to[list v] ::custom
replace item((result)+((1)-(effect)))of[list v]with((item((result)+((1)-(effect)))of[list v])+(1))
save[list v]to[☁ cloud v] ::custom
end
when I receive[close old v]
forever
set[counter v]to[1]
delete(all v)of[savetest v]
repeat(length of[list v])
add(item(counter)of[list])to[savetest v]
change[counter v]by(1)
end
wait(5)secs
set[counter v]to[1]
repeat(length of[list v])
if<(item(counter)of[list v])=(item(counter)of[savetest v])>then
delete(counter)of[list v]
delete(counter)of[list v]
change[effect v]by(-2)
change[counter v]by(-2)
end
change[counter v]by(1)
end

Nice! Have you tested it in a project?

space_elephant wrote:

no I never put it in a project

CrazyGoldfish3 wrote:

space_elephant wrote:

no I never put it in a project

Alright, well we need to, because with the json file edited, it won't Add to Backpack off the Forums.

monkeytrooper wrote:

Could I have a custom block that shows the names of everyone who is currently on the project.
Also on the banner instead of monkeys market mayhem put “monkey's shop of creative writing”

IMPULSS wrote:

Username: @IMPULSS
Previous Custom Block experience: That cloud engine, remember… :P
Time on Scratch: 1 year, 8 months
Other: I was a member of your old custom block shop, remember…