1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
# 대상별 값은 item에, 공통 반응은 rule에 한 번만 작성합니다.
state selected = 0
record Tile {
x = 0; y = 0
ox = 0; oy = 0
sx = 0; sy = 0
held = 0; id = 0
}
item green = Tile(x=80, y=120, sx=80, sy=120, id=1)
item blue = Tile(x=280, y=160, sx=280, sy=160, id=2)
item amber = Tile(x=450, y=220, sx=450, sy=220, id=3)
input left = ArrowLeft
input right = ArrowRight
input up = ArrowUp
input down = ArrowDown
input drag_green = pointer(green_box)
input drag_blue = pointer(blue_box)
input drag_amber = pointer(amber_box)
box board(20,90,600,240,"#233a31")
text help(25,40,selected,"선택한 도형: ")
box green_box(green.x,green.y,56,44,"#c9f08b")
box blue_box(blue.x,blue.y,56,44,"#74c4d4")
box amber_box(amber.x,amber.y,56,44,"#dfb184")
rule grab(t: Tile) {
selected = t.id
t.sx = t.x; t.sy = t.y
t.ox = event_x - t.x; t.oy = event_y - t.y
t.held = 1
}
rule move(t: Tile) {
t.x = clamp(event_x - t.ox, 20, 564)
t.y = clamp(event_y - t.oy, 90, 286)
}
rule drop(t: Tile) { t.held = 0 }
rule cancel(t: Tile) { t.x = t.sx; t.y = t.sy; t.held = 0 }
rule go_left(t: Tile) {
if selected == t.id && t.held == 0 { t.x = clamp(t.x - 10, 20, 564) }
}
rule go_right(t: Tile) {
if selected == t.id && t.held == 0 { t.x = clamp(t.x + 10, 20, 564) }
}
rule go_up(t: Tile) {
if selected == t.id && t.held == 0 { t.y = clamp(t.y - 10, 90, 286) }
}
rule go_down(t: Tile) {
if selected == t.id && t.held == 0 { t.y = clamp(t.y + 10, 90, 286) }
}
on drag_green.down use grab(green)
on drag_green.move use move(green)
on drag_green.up use drop(green)
on drag_green.cancel use cancel(green)
on left.down use go_left(green)
on right.down use go_right(green)
on up.down use go_up(green)
on down.down use go_down(green)
on drag_blue.down use grab(blue)
on drag_blue.move use move(blue)
on drag_blue.up use drop(blue)
on drag_blue.cancel use cancel(blue)
on left.down use go_left(blue)
on right.down use go_right(blue)
on up.down use go_up(blue)
on down.down use go_down(blue)
on drag_amber.down use grab(amber)
on drag_amber.move use move(amber)
on drag_amber.up use drop(amber)
on drag_amber.cancel use cancel(amber)
on left.down use go_left(amber)
on right.down use go_right(amber)
on up.down use go_up(amber)
on down.down use go_down(amber)
|
