#
# VAI Visual Engine Demo 1
#

#
sub function1 {
        #
        $yksi = 123;
        $abc = $_[1]+$_[0];
        $cba = 3+4+5+6+7+8+9+10;
        print("parameters: '' $_[0] $_[1] $_[2] $_[3] ''\n");
        print("$_[0]+$_[1] = $abc $abc $abc\n");
        print("abc = '$abc'\n");
        print("cba = $cba\n");
        print("$yksi $yksi $yksi $yksi\n");
        print("hello hello\n");
        print("hello hello\n");
        print("hello hello\n");
}

#
sub test {
        #
        function1(1,2,3,4,5,6);
}

#
sub OnInit {
        $movx = 12;
        $movy = 12;
}

#
sub KeyProbe {
        #
        if($key==1)
        {
                $movx = 12;
                $movy = 12;
        }
        #
        if($key==2)
        {
                $movx = 12;
                $movy = 0;
        }
        #
        if($key==3)
        {
                $movx = 0;
                $movy = 12;
        }
}

# This function is called by the DirectX engine.
sub OnPaint {
        #numeric("$x $y $xx $yy $xp $yp");

        #
        if($key==4)
        {
                $movx = -12;
                $movy = -12;
        }

        #
#        clrscr();
        scrmove("$movx $movy");

        #
        $l2 = 1;
        $rate = 30;
        $rate2 = 29;
        $rate3 = 50;
        $pl = 1;
        waver("$xp $pl $rate"); $xp = $xp/1.2;
        waver("$yp $pl $rate2"); $yp = $yp/1.5;
        waver("$size $pl $rate3"); $size = $size/2;

        #
        disc("$xp $yp $size $col");
        $col = $col + 10;

        #
        $frame = $frame+1;
        if($frame > 200)
        {
                $frame=0;
        }
}