test.input

来自「在LINUX下运行的仿真机器人服务器源代码」· INPUT 代码 · 共 198 行 · 第 1/5 页

(rule (off all) (on (foo bar)) (off MyRule12345))
(define (definer "1h" (rec (pt 3.0 34.0) (pt 6.0 36.0))))
(advice (400 (bpos (rec (pt -12.8863 -2.26255) (pt -12.8863 -2.26255))) (dont our {0} (dribble (rec (pt 52.5 34) (pt -52.5 -34))))) (500 (bpos (rec (pt 0.385536 19.1027) (pt -44.9088 -17.8862))) (dont our {0} (pass (rec (pt 11.9895 24.3413) (pt -37.8204 -8.27384))))))
(define (definerule MyRule12345 model ((true) "dostuff")))
(define (definerule MyRule2 direc ((true) "doStuff" "andOtherStuff")))
(define (definerule MyRule3 model ((true) "dostuff"))(definerule MyRule3 model ((true) "doStuff" "andOtherStuff")))
(define (definerule MyRule4 direc MyRule2))
(define (definerule MyRule4 direc (MyRule2 MyRule3)))
(define (definerule MyRule4 direc ((true) MyRule2)))
(define (definerule MyRule4 direc ((true) (MyRule2 MyRule3))))
(define (definerule MyRule4 direc all))
(define (definerule MyRule4 direc ((true) all)))
(delete all)
(delete MyRule12345)
(delete (foo bar))
(advice ( 2000 (bowner opp {X}) (do our {5} (mark {X}))))
(advice ( 50 (bowner opp {X}) (do our {5} (mark {X}))))
(say (freeform "abshjaksdfhkl"))
(freeform "HJKLHKJLjklaafasd")
(freeform "HJKLHKJL*+jklaafasd/?<?>")
(freeform "()HJKLHKJL*+jklaafasd/?<?>((((")
(say (freeform "12345678901234567890223456789032345678904234567890523456789062345678907234567890823456789092345678900234567890123456789022345678"))
(meta (ver 1.5) (ver 2.5))
(meta (ver 2.5) (ver 10e12))
(advice ( clear ))
(info ( 100 (false) (dont our {1} (home (null)) ) ) )
(info ( 100 (false) (dont our {1} (home ((pt ball) + (pt 10 15) * (pt 2 1) - (pt our 5) / (pt 2 1)) ) ) ) )
(info ( 100 (true) (do our {7} (pos (quad (pt 1 2) (pt 31.1 32.2) (pt 41.1 42.2) (pt 51.1 52.2) ) ) )) )
(advice ( 2342 (time < 100) "dostuff"))
(advice ( 2342 (time <= 100) "dostuff"))
(advice ( 2342 (time == 100) "dostuff"))
(advice ( 2342 (time != 100) "dostuff"))
(advice ( 2342 (time >= 100) "dostuff"))
(advice ( 2342 (time > 100) "dostuff"))
(advice ( 2342 (100 < time) "dostuff"))
(advice ( 2342 (100 <= time) "dostuff"))
(advice ( 2342 (100 == time) "dostuff"))
(advice ( 2342 (100 != time) "dostuff"))
(advice ( 2342 (100 >= time) "dostuff"))
(advice ( 2342 (100 > time) "dostuff"))