スプライト

スプライトとPoint型オブジェクトのサンプルです。

main
  Display.Mode(3)
  Screen1.View=TRUE
  Screen2.View=FALSE
  Display.Font(0,0,0,0)
  Display.Font(1,3,15,0)
  Screen1.Fill(0,0,28,18,0)
  Sprite.View=TRUE
  p=Point.New(0,0)
  sp=Sprite.Add(1,1,1)
  dx=1
  dy=1
  while TRUE
    if p.X==216
      dx=-1
    if p.X==0
      dx=1
    if p.Y==136
      dy=-1
    if p.Y==0
      dy=1
    p.Move(dx,dy)
    Sprite.Set(sp,p)
    Sprite.Update
    System.Wait(2)
    if Key.Hit@KEY_START
      break


画面の中をハートマークが1つ跳ね回ります。