text_display.spwn

type @textdisplay 
spacing = 0.6 * 30
y_spacing = 20
impl @textdisplay {
    new: (offset: [@number], letters: @number) {
        extract obj_props
        order = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        writer = ?b
        writer_group = ?g
        let list = []
        //        I   N   C   O
        wincon = [?b, ?b, ?b, ?b]
        let checkers = []
        //WINCO
        for i in ..letters {
           
            group = ?g
            block = ?b

            default_pos = ?g
            group.alpha(0)
            default_pos.alpha(0)
            follow_group = (500g..510g)[i]

            // space
            // $.add(obj {
            //     OBJ_ID: 1816,
            //     X: offset[0] + i * spacing,
            //     Y: offset[1],
            //     GROUPS: follow_group,
            //     BLOCK_A: wincon[6],
            //     SCALING: 0.7,
            // })


            check_block = ?b
            checkers.push(check_block)
            
            $.add(obj {
                OBJ_ID: 1816,
                X: offset[0] + i * spacing - 12,
                Y: offset[1],
                //GROUPS: follow_group,
                BLOCK_A: check_block,
                DYNAMIC_BLOCK: true,
                SCALING: 0.2,
            })

            for ch in ..order.length {
                $.add(obj {
                    OBJ_ID: 914,
                    X: offset[0] + i * spacing + (ch + 1) * spacing * letters,
                    Y: offset[1],
                    TEXT: $.b64encode(order[ch]),
                    GROUPS: follow_group,
                    SCALING: 0.7,
                })

                cblock = switch order[ch] {
                    case "I": wincon[0], 
                    case "N": wincon[1], 
                    case "C": wincon[2], 
                    case "O": wincon[3], 
                    else: null
                }
                //$.print(order[ch], cblock)
                if cblock != null {
                    
                    
                    $.add(obj {
                        OBJ_ID: 1816,
                        X: offset[0] + i * spacing + (ch + 1) * spacing * letters,
                        Y: offset[1],
                        GROUPS: follow_group,
                        BLOCK_A: cblock,
                        SCALING: 0.3,
                    })
                }
            }
            $.add(obj {
                OBJ_ID: 1816,
                X:  offset[0],
                Y:  offset[1] + i * y_spacing * 3 + 30 + y_spacing * 3,
                BLOCK_A: block,
                SCALING: 0.6,
                GROUPS: follow_group,
            })

            lock = !{
                group.follow(writer_group)
                follow_group.follow(writer_group)
                -> follow_group.pulse(0,0,0, hold = 0.05, fade_out = 0.15)
            }

            collision(block, writer).on_triggered(lock)

            $.add(obj {
                OBJ_ID: 1765,
                X:  offset[0] + i * spacing,
                Y:  offset[1],
                GROUPS: group,
            })
            $.add(obj {
                OBJ_ID: 1765,
                X:  offset[0] + i * spacing,
                Y:  offset[1],
                GROUPS: default_pos,
            })

            -> follow_group.follow(group)

            list.push({
                group,
                default_pos,
                lock,
                follow_group,
            })
            
        }

        //writer
        $.add(obj {
            OBJ_ID: 1816,
            X:  offset[0] + 30,
            Y:  offset[1] + 30,
            BLOCK_A: writer,
            GROUPS: writer_group,
            DYNAMIC_BLOCK: true,
        })

        writer_default = ?g
        $.add(obj {
            OBJ_ID: 1765,
            X:  offset[0] + 30,
            Y:  offset[1] + 30,
            GROUPS: writer_default,
        })
        let coin = []
        let coin_coin = []
        for i in 0..9 {
            if i < 4 {
                c1 = counter(wincon[[2, 3, 0, 1][i]].create_tracker_item(checkers[i]))
                coin.push(c1)
            } else {
                if i > 4 {
                    coin_coin.push(counter(wincon[[2, 3, 0, 1][i - 5]].create_tracker_item(checkers[i])))
                }
            }
        }

        return @textdisplay::{list, writer: writer_group, writer_default, letters, coin, coin_coin}
    },
    write: (self, letter: @counter, speed = 3) {
        // temp = counter()
        // read_counter = () {
        //     read = !{
        //         mini_read = (num){
        //             letter.item.if_is(LARGER_THAN, num - 1, !{
        //                 letter.add(-num)
        //                 temp.add(num)
        //                 self.writer.move(-(spacing / 3) * self.letters * num, 0)
        //                 call_with_delay(@epsilon::{}, read)
        //             })
        //         }

        //         for i in 0..speed {
        //             mini_read(3^i)
        //         }
        //         letter.item.if_is(EQUAL_TO, 0, !{
        //             wait()
        //             if speed > 1  { supress_signal(0.1) }
        //             -> return
        //         })
        //     }
        //     read!
        // }
        
        self.writer.move(0, y_spacing, 0)
        -> if letter < 27 {
            -> self.writer.move(-5, 0, 0.2, easing = EXPONENTIAL_OUT)
            wait(0.05)
            // read_counter()
            // temp.add_to([letter], speed=speed)
            self.writer.move(-(spacing / 3) * self.letters * letter.to_const(..27), 0)
            wait(0.2)
            for l in self.list {
                l.lock.start_group.stop()
            }
            wait(0.05)
            self.writer.move_to(self.writer_default, x_only = true)
        }
        
    },

    reset: (self) {

        for letter in self.list {
            -> letter.follow_group.pulse(0,0,0, fade_in = 0.3, hold = 0.5)
        }
        wait(0.3)

        self.writer.move_to(self.writer_default)
        for letter in self.list {
            letter.group.move_to(letter.default_pos)
        }
    }
}