----------------------------------- 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