Help with some hard stuff!

Blitz3D Forums/Blitz3D Beginners Area/Help with some hard stuff!

Christer (Posted 2008) [#1]

I need help with this: My player is on x = 0 and y = 0 if i push down the arrow up button my player shall walk against my mouse. How fast should be able to walk agaist it need to be configurable. Anyone help please?

Sledge (Posted 2008) [#2]

I don't really understand what you mean by 'walk against my mouse' but the answer is to express the distance as a (configurable) percentage of a notional norm. So if you wanted to configure something to move at half speed you would say configuredSpeed# = normalSpeed#*modifier# where 'modifier' would have been set to 0.5 by the user or program itself (whichever you have in mind).

big10p (Posted 2008) [#3]

Sorry, but that makes no sense to me whatsoever.

Sledge (Posted 2008) [#4]

Me or him?! :P

Stevie G (Posted 2008) [#5]

This is as clear as mud. Can you give more detail, in particular the 'my player shall walk against my mouse'. Do you mean you want the player to walk towards the mouse cursor once you press the UP ARROW key? Stevie

big10p (Posted 2008) [#6]

Him Sledge, you must have posted just before me. :P

Stevie G (Posted 2008) [#7]

LOL - I think we all posted at the same time!!

Christer (Posted 2008) [#8]

Look... I have a player or something lets say a picture. When i PRESS UP KEY the picture or player or whatever will be moving towards my mouse pointer on the screan. Anyone know how to do this?

Jsoren (Posted 2008) [#9]

Is this what your looking for? It wouldn't work with an image though because you would need to roate the image or use frames, unless you wanted to emulate 2d images with sprites, in which case its just pointentity(). Graphics 640,480 SetBuffer BackBuffer() ;W,A,S,D keys to move around ;the players ship always points at the mouse Type player Field x,y Field xv#=0,yv# Field a,s# Field strafe# End Type p.player=New player p\x=200 p\y=200 ;;MAIN LOOP;; While Not KeyDown(1) Cls GetInput() UpdatePlayer() Flip Wend End Function GetInput() For p.player=Each player If KeyDown(17)=True Then p\s=p\s+.2 If KeyDown(31)=True Then p\s=p\s-.2 If KeyDown(30)=True Then p\strafe=p\strafe+.2 If KeyDown(32)=True Then p\strafe=p\strafe-.2 If p\s>0 Then p\s=p\s-.1 If p\s<0 Then p\s=p\s+.1 If p\s>4 Then p\s=4 If p\s<-4 Then p\s=-4 If p\strafe>0 Then p\strafe=p\strafe-.1 If p\strafe<0 Then p\strafe=p\strafe+.1 If p\strafe>3 Then p\strafe=3 If p\strafe<-3 Then p\strafe=-3 Next End Function Function UpdatePlayer() For p.player=Each player p\a=angledif(p\x,p\y,MouseX(),MouseY()) p\xv=-(Sin(p\a)*p\s) p\yv=-(Cos(p\a)*p\s) p\xv=p\xv-(Sin(p\a+90)*p\strafe) p\yv=p\yv-(Cos(p\a+90)*p\strafe) p\x=p\x+p\xv p\y=p\y+p\yv drawship(p\x,p\y,p\a) Next End Function Function DrawShip(x,y,ang) Local x1=x-(Sin(ang)*8) Local y1=y-(Cos(ang)*8) Local x2=x-(Sin(ang+140)*6) Local y2=y-(Cos(ang+140)*6) Local x3=x-(Sin(ang-140)*6) Local y3=y-(Cos(ang-140)*6) Line x1,y1,x2,y2 Line x2,y2,x3,y3 Line x3,y3,x1,y1 End Function Function angledif#(x1,y1,x2,y2) ; x2 y2 naar Local angle = 0 Local lowest = 1024 For i=0 To 360 x3 = x1-Sin(angle) * 211 y3 = y1-Cos(angle) * 211 angle = angle + 1 NewA = Sqr((x3-x2)^2+(y3-y2)^2) If NewA < lowest Then lowest = NewA : uitgraad = i Next Return uitgraad End Function I pulled AngleDif#() out of the code archives a while ago, not sure who posted it though sry. (oh yeah, if some1 could tell me what uitgraad and naar mean so i can put the rest of it into english that would be nice)

Christer (Posted 2008) [#10]

Thank you very much!