mob/verb
    wait(n as num,var/obj/M as obj in view())
        set category = "code"
        var/a = input(usr,"what command number is this?(1-100)") as num
        if(a <= 100 && M.owner == usr.key)
            M.wait[a] = n
    line(n as text, var/obj/M as obj in view())
        set category = "code"
        var/a = input(usr,"what command number is this?(1-100)") as num
        if(a <= 100 && M.owner == usr.key)
            M.line[a] = n
    timer(n as num, var/obj/M as obj in view())
        set category = "code"
        if(M.owner == usr.key)
            M.timer = n
    compile(var/obj/M as obj in view())
        set category = "code"
        if(M.owner == usr.key)
            M.compile()
obj/verb
    Yes()
        set src in oview(5)
        src.yes = 1
    No()
        set src in oview(5)
        src.no = 1
    
    


        
        
obj/var
    list/wait[100]
    list/line[100]
    timer
    yes
    ifyes
    ifno
    no
obj

    proc
        compile()//woot
            world << " hehe"
            if(src)
                var/cur = 1
                var/i = cur
                world << "compile check"
                while(cur < 100)
                    sleep(src.wait[cur])
                    world << "while check"
                    i = cur
                    i -= 1
                    check
                    if(src.ifyes == 1)
                        if(src.yes == 0)
                            cur += 1
                            goto check
                    if(src.ifno == 1)
                        if(src.no == 0)
                            cur += 1
                            goto check
                    src.check(src.line[cur])
                    cur += 1
                if(cur == 101)
                    sleep(src.timer)
                    compile()

                
                    
        check(var/n)
            world << "check check"
            if(n == "/cur north")
                world << "checkidy"
                Move(src,NORTH)
            if(n == "/cur south")
                Move(src,SOUTH)
            if(n == "/cur west")
                Move(src,WEST)
            if(n == "/cur east")
                Move(src,EAST)
            if(n == "/cur killtop")
                for(var/mob/M in oview(0))
                    M.loc = locate(2,2,1)
            if(n == "/cur dense")
                src.density = 1
            if(n == "/cur undense")
                src.density = 0
            if(n == "/cur opacity")
                src.opacity = 1
            if(n == "/cur unopacity")
                src.opacity = 0
            if(findtext(n,"says"))
                view() << "[src] [n]"
            if(findtext(n,"randomly says"))
                var/a = rand(1,2)
                if(a == 1)
                    view() << "[src] [n]"
            if(n == "if yes")
                src.ifyes = 1
            if(n == "if no")
                src.ifno = 1
            if(n == "clearyes")
                src.ifyes = 0
                src.yes = 0
            if(n == "clearno")
                src.ifno = 0
                src.no = 0