-----------------------------------

TokenHerbz

Sun Aug 13, 2017 6:47 am


dodge type game? fix the AI movement should be fun!!!

-----------------------------------

arrow keys to move, shift to run.   was just fartin around waiting for my PHP help :( lol turings so old.
--------------
[code]
View.Set ("graphics:800;500;nobuttonbar;position:center;center;title:demo")

class User 
    export initialize, update_movement, draw, set_speed, 
        get_speed_default, default_speed, collision_hit,
        get_x, get_y, get_size
     
    var user_speed, user_speed_default : int := 3
    var user_size : int
    var user_color : int
    var user_x, user_y: int

    proc initialize ( size_, color_, x_, y_ : int)
        user_size := size_
        user_color := color_
        user_x := x_
        user_y := y_
    end initialize

    proc boundry_check
        if user_x = maxy then
            user_y := maxy - user_size
        end if
    end boundry_check
    
    proc update_movement (direction_: int)
    %% respectivly : UP/ DOWN/ LEFT/ RIGHT
        case direction_ of
            label 1 : user_y += user_speed
            label 2 : user_y -= user_speed
            label 3 : user_x -= user_speed
            label 4 : user_x += user_speed
        end case
        boundry_check
    end update_movement
    
    proc set_speed (speed_ : int)
        user_speed := speed_
    end set_speed
    
    proc default_speed
        user_speed := user_speed_default
    end default_speed

    proc draw
        Draw.FillBox(user_x, user_y, user_x + user_size, user_y + user_size, user_color)
    end draw

    function get_x : int
        result user_x
    end get_x
    
    function get_y : int
        result user_y
    end get_y
    
    function get_size : int
        result user_size
    end get_size
    
    function get_speed_default : int
        result user_speed_default
    end get_speed_default

    function collision_hit (enemy_x, enemy_y, enemy_s : int) : boolean
        if user_x + user_size >= enemy_x and
           user_x = enemy_y and
           user_y