Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   www.boolean.name > Программирование игр для компьютеров > BlitzMax > 2D-программирование

Ответ
 
Опции темы
Старый 05.12.2013, 10:59   #1
YoLo
AnyKey`щик
 
Аватар для YoLo
 
Регистрация: 05.12.2013
Сообщений: 2
Написано 0 полезных сообщений
(для 0 пользователей)
Проблемка!

Ну вообщем дела обстоят так:
Я недавно начал учиться программировать и столкнулся с проблемкой.
Вроде все правильно картинка то поворачивается, но поворачивается неправильно, хотя угол указываю тот же. Вот листинг:
SuperStrict

Global playerImage:TImage=LoadAnimImage("D:/project/media/pics/exp1.png",64,64,0,15) 
MidHandleImage playerImage 
Global missleImage:TImage=LoadImage("D:/project/media/pics/missle.png")
MidHandleImage missleImage
Global LMissle:TList = New TList 

Type TMissle "Тип ракет"
Field x:Float
Field y:Float
Field angel:Float
Field speed:Float
Field image:TImage 

Method Update()

x=x+(speed*Cos(angel))
y=y+(speed*Sin(angel))

SetRotation angel  " угол поворота (тот же, что и у игрока)
DrawImage missleimage,x,y

End Method

Function createMissle:TMissle(xs:Float,ys:Float,angels:Float,speeds:Float,images:TImage)
 Local missle:TMissle = New TMissle
  missle.x = xs
  missle.y = ys
  missle.angel = angels
  missle.speed = speeds
  missle.image = images
  ListAddLast(LMissle,missle)
End Function 

End Type 

Type Tplayer "Тип игрока"

Field x:Float
Field y:Float
Field frame:Int
Field angel:Float
Field speed:Float
Field animnext:Float
Field image:TImage 

Method Update()
 
 Local xc:Float
 Local yc:Float
 xc =x "Проверочные координаты"
 yc = y

 x=x+(KeyDown(KEY_D)-KeyDown(KEY_A))*speed  "Проверка на движение" 
 y=y+(KeyDown(KEY_S)-KeyDown(KEY_W))*speed

 If KeyHit(KEY_SPACE) Then "Проверка на стрельбу"
  TMissle.createMissle(x,y,angel,10,missleImage) "Указан угол поворота игрока относительно мышки"
 End If 

 If animnext<MilliSecs() Then "Перелистовка кадров"
   animnext=MilliSecs()+50 
   frame:+1
 End If


  angel=angelFunc(x,y,MouseX(),MouseY()) "Обозначение AngelFunc ниже"
 If frame=8 Then frame=0 

 If x = xc And y = yc Then
  My_DrawAnimImage(x,y,angel,0,image)
 ElseIf x < xc Or x > xc Or y < yc Or y > yc Then "Прорисовка игрока"
  My_DrawAnimImage(x,y,angel,frame,image)
 End If 

End Method 

Function createPlayer:Tplayer(xs:Float,ys:Float,frames:Int,angels:Float,speeds:Float,animnexts:Float,images:TImage)
 Local pl:Tplayer = New Tplayer
  pl.x = xs
  pl.y = ys
  pl.frame = frames
  pl.angel = angels
  pl.speed = speeds
  pl.animnext = animnexts
  pl.image = images
  Return pl
End Function 

End Type 

Function My_DrawAnimImage(x:Float,y:Float,angel:Float,frame:Int,image:TImage)
  SetRotation angel
  DrawImage image,x,y,frame
End Function 

Function angelFunc:Float(x1:Float,y1:Float,x2:Float,y2:Float) "Вычисление угла"
 Return ATan2(y2-y1,x2-x1)
End Function 

Global player:Tplayer = Tplayer.createPlayer(100,100,0,0,3.5,0,playerImage)

Graphics 1024,780
Repeat
Cls

player.update()
For Local s:TMissle=EachIn LMissle
 s.update
Next 

Flip
Until KeyHit(KEY_ESCAPE)
End
Укажите пожалуйста на ошибку.
(Offline)
 
Ответить с цитированием
Старый 05.12.2013, 11:04   #2
pax
Unity/C# кодер
 
Аватар для pax
 
Регистрация: 03.10.2005
Адрес: Россия, Рязань
Сообщений: 7,508
Написано 2,963 полезных сообщений
(для 5,252 пользователей)
Ответ: Проблемка!

Код не читал, там у тебя радианы или градусы используются?
__________________
Blitz3d to Unity Wiki
(Offline)
 
Ответить с цитированием
Старый 05.12.2013, 11:15   #3
YoLo
AnyKey`щик
 
Аватар для YoLo
 
Регистрация: 05.12.2013
Сообщений: 2
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Проблемка!

Градусы
__________________
GL&HF
(Offline)
 
Ответить с цитированием
Старый 06.12.2013, 10:05   #4
Жека
Дэвелопер
 
Регистрация: 04.09.2005
Адрес: Красноярск
Сообщений: 1,376
Написано 491 полезных сообщений
(для 885 пользователей)
Ответ: Проблемка!

"D:/project/media/pics/exp1.png" - сразу FAIL, относительные пути нужно использовать, типа "media/pics/exp1.png"

Вставь вот это перед Flip

SetRotation 0
DrawText "" + player.angel, 10, 10
и увидишь какие значения принимает угол, наверное удивишься что не от 0 до 360.

Я могу найти ошибку если могу запустить прогу, для запуска нужен исходник и медия. Пока что можешь поразбираться с системой представления углов.
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +1, время: 15:26.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com