print "[white]这是一个147+版本可用的调色板，你可以用电弧（射击）和显示屏调RGBA4项属性并预览。打电弧拉满，打信息板清0。\n[#"

draw clear 0 0 0 0 0 0

sensor ac arc1 @controlled

jump 54 notEqual ac 2

sensor as arc1 @shooting

jump 54 equal as 0

sensor sx arc1 @shootX

sensor sy arc1 @shootY

sensor dx display1 @x

sensor dy display1 @y

op sub dxcl dx 1.5

op add dxcr dx 1.5

op add dyR dy 0.75

op add dycu dy 1.5

op sub dyB dy 0.75

op sub dycd dy 1.5

jump 36 greaterThan sy dycu

jump 36 lessThan sy dycd

jump 20 lessThanEq sx dxcr

set sx dxcr

jump 22 greaterThanEq sx dxcl

set sx dxcl

op sub x2 sx dxcl

op div x3 x2 3

op mul x4 x3 255

jump 31 lessThan sy dy

jump 29 lessThan sy dyR

op floor R x4 0

jump 54 always 0 0

op floor G x4 0

jump 54 always 0 0

jump 34 lessThan sy dyB

op floor B x4 0

jump 54 always 0 0

op floor A x4 0

jump 54 always 0 0

op floor sx sx 0

op floor sy sy 0

sensor ax arc1 @x

sensor ay arc1 @y

jump 46 notEqual sx ax

jump 46 notEqual sy ay

set R 255

set G 255

set B 255

set A 255

sensor mx message1 @x

sensor my message1 @y

jump 54 notEqual sx mx

jump 54 notEqual sy my

set R 0

set G 0

set B 0

set A 0

sensor as arc1 @shooting

draw color R 0 0 255 0 0

draw rect 0 60 75 20 0 0

draw color 255 0 0 255 0 0

draw rect 75 60 5 20 0 0

draw color 0 G 0 255 0 0

draw rect 0 40 75 20 0 0

draw color 0 255 0 255 0 0

draw rect 75 40 5 20 0 0

draw color 0 0 B 255 0 0

draw rect 0 20 75 20 0 0

draw color 0 0 255 255 0 0

draw rect 75 20 5 20 0 0

draw color R G B A 0 0

draw rect 0 0 80 20 0 0

drawflush display1

op idiv R1 R 16

jump 73 lessThan R1 10

op add R1 R1 39

op add R1 R1 48

printchar R1

op mod R2 R 16

jump 78 lessThan R2 10

op add R2 R2 39

op add R2 R2 48

printchar R2

op idiv G1 G 16

jump 83 lessThan G1 10

op add G1 G1 39

op add G1 G1 48

printchar G1

op mod G2 G 16

jump 88 lessThan G2 10

op add G2 G2 39

op add G2 G2 48

printchar G2

op idiv B1 B 16

jump 93 lessThan B1 10

op add B1 B1 39

op add B1 B1 48

printchar B1

op mod B2 B 16

jump 98 lessThan B2 10

op add B2 B2 39

op add B2 B2 48

printchar B2

op idiv A1 A 16

jump 103 lessThan A1 10

op add A1 A1 39

op add A1 A1 48

printchar A1

op mod A2 A 16

jump 108 lessThan A2 10

op add A2 A2 39

op add A2 A2 48

printchar A2

jump 114 equal p 1

set p 1

print "]这句是预览。\n[white]你当前调配的颜色代码是：#"

jump 70 always 0 0

printflush message1

set p 0