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

kythoon

Fri May 02, 2003 4:12 pm


Birds Eye View RPG HELP!!!

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

Hi Everyone,

I'm new here and was wondering if ne1 could help me. I have just recently started a RPG, but not just ne kind. This RPG I hope to will be from a bird's eye view. I have about 3 weeks to finish this for school. I'm in grade 9 so I don't know a whole lot about programming and Turing. This is what I have so far.

var finalClassPicX : int := 100
var finalClassPicY : int := 120
var chars : array char of boolean
var characterClass, finalClass : string
var finalClassPic, finalClassPicWidth, finalClassPicHeight : int

setscreen ("graphics:500;500,position:middle;centre,nobuttonbar,title:RPG")
put "What character? (warrior, archer or wizard) " ..
get characterClass

if characterClass = "archer" then
    finalClass := "archer.bmp"
elsif characterClass = "wizard" then
    finalClass := "wizard.bmp"
else
    finalClass := "warrior.bmp"
end if

finalClassPic := Pic.FileNew (finalClass)

finalClassPicWidth := Pic.Width (finalClassPic)
finalClassPicHeight := Pic.Height (finalClassPic)

View.Set ("offscreenonly")
loop
    cls
    Input.KeyDown (chars)
    locate (1, 1)
    if chars (KEY_UP_ARROW) then
        finalClassPicY := finalClassPicY + 2
        if finalClassPicY >= (maxx - finalClassPicHeight) then
            finalClassPicY := finalClassPicY - 2
        end if
    end if
    if chars (KEY_RIGHT_ARROW) then
        finalClassPicX := finalClassPicX + 2
        if finalClassPicX >= (maxy - finalClassPicWidth) then
            finalClassPicX := finalClassPicX - 2
        end if
    end if
    if chars (KEY_LEFT_ARROW) then
        finalClassPicX := finalClassPicX - 2
        if finalClassPicX