(display "Hello World, I am a script")(newline)
;;(load-extension "/home/ingo/projects/feuerkraft/cvs/src/scripting/.libs/libguile-feuerkraft.so" 
;;                "SWIG_init")
(define my-vehicle1 (ai-vehicle-create 233 1759))
(define my-vehicle2 (ai-vehicle-create 233 1859))
(define my-vehicle3 (ai-vehicle-create 233 1959))
(define my-vehicle4 (ai-vehicle-create 233 2059))
(define my-vehicle5 (ai-vehicle-create 233 2159))
(define my-vehicle6 (ai-vehicle-create 233 2259))

(display "Vehicle id: ")(display my-vehicle1)(newline)

(for-each (lambda (pos)
            (ai-vehicle-drive-to my-vehicle1 (car pos) (cdr pos))
            (ai-vehicle-drive-to my-vehicle2 (car pos) (cdr pos))
            (ai-vehicle-drive-to my-vehicle3 (car pos) (cdr pos))
            (ai-vehicle-drive-to my-vehicle4 (car pos) (cdr pos))
            (ai-vehicle-drive-to my-vehicle5 (car pos) (cdr pos))
            (ai-vehicle-drive-to my-vehicle6 (car pos) (cdr pos))
            )
          '((233 . 1759)
            (237 . 1821)
            (239 . 1643)
            (144 . 1488)
            (101 . 1339)
            (51 . 1279)
            (58 . 897)
            (58 . 545)
            (57 . 195)
            (57 . 134)
            (133 . 51)
            (462 . 45)
            (591 . 62)
            (769 . 59)
            (986 . 57)
            (1237 . 61)
            (1229 . 235)
            (1251 . 400)
            (1458 . 442)
            (1463 . 616)
            (1609 . 759)
            (2047 . 1195)
            (2547 . 1706)
            (3089 . 1699)
            (3478 . 1701)
            (3837 . 2070)
            (4039 . 2272)
            (4159 . 2402)
            (4031 . 2534)
            (3550 . 3017)
            (3213 . 3343)
            (3172 . 3467)
            (2946 . 3465)
            (2551 . 3463)
            (2210 . 3456)
            (1789 . 3457)
            (1702 . 3542)
            (1705 . 3689)
            (1659 . 3748)
            (1432 . 3750)
            (1384 . 3708)
            (1366 . 3694)
            (1349 . 3695)))

;; EOF ;;