Golf Swing-o-Meter

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|610\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Golf Swing-o-Meter
Sun, 26 Oct 2008, 05:55
LostUser	Can anyone point me to some examples of where a Golf styled swing-o-meter is used Blitz Basic? I know there is Blitz Golf, but I'm wondering if there is a more basic version hanging around somewhere. A progress bar golf swing-o-meter is fine too.
Sun, 26 Oct 2008, 06:30
Jayenkai	Graphics 800,600,32,2 SetBuffer BackBuffer() SwingStatus=0 ; Keep track of which part of the swing we're doing SwingCurrent=0 ; Where the line is.. it goes left and right! SwingPower=0 ; The force of your hit SwingSway=0 ; How much you suck!!! Repeat Cls Color 255,255,255 Text 400,200,SwingCurrent+":"+SwingPower+":"+SwingSway ; Draw Box Color 255,255,255 Rect 330,400,120,32,0 ; Draw Line where we are Color 255,255,0 Line 440-SwingCurrent,400,440-SwingCurrent,430 ; Draw red to aim for power Color 255,0,0 Line 340,400,340,430 ; Draw green to aim for swing Color 0,255,0 Line 440,400,440,430 mh=MouseHit(1) ; Mousehit! If SwingStatus=0 And mh Then SwingStatus=1:mh=0 ; If you hit the mouse, START.. If SwingStatus=1 ; Go Up... SwingCurrent=SwingCurrent+1 If SwingCurrent=110 Then SwingStatus=2:SwingPower=90 ; If we hit the top, start going back, but don't give full power.. 'cos you missed it! If mh ; If you hit the mouse SwingStatus=2 ; Go the other way.. SwingPower=SwingCurrent ; Grab the Power If SwingCurrent=100 Then SwingPower=150 ; if spot on, super power! If SwingCurrent=99 Or SwingCurrent=101 Then SwingPower=125 ; If slightly off, nearly super power! mh=0 EndIf EndIf If SwingStatus=2 SwingCurrent=SwingCurrent-1 ; Go Down If SwingCurrent=-10 Then SwingStatus=3:swingSway=-20 ; If we hit the bottom, you suck! If mh SwingStatus=3 ; Done SwingSway=SwingCurrent ; Grab the Sway If SwingCurrent>10 Then swingSway=20 ; And if too far, you suck! mh=0 EndIf EndIf If SwingStatus=3 Or SwingStatus=4 Color 255,255,255 Text 400,300,"You hit the ball!!" Text 400,330,"Power : "+SwingPower Text 400,360,"Sway : "+SwingSway If mh And SwingStatus=4 Then SwingStatus=0:SwingCurrent=0:SwingPower=0:SwingSway=0:mh=0 If mh And SwingStatus=3 Then SwingStatus=4:mh=0 ; Add an extra mouseclick to be sure we reset EndIf Flip Until KeyDown(1) --v To make things nice and EA-Games circular, you're going to have to play about with sin, cos and lots of circular maths. -=-=- ''Load, Next List!''
Sun, 26 Oct 2008, 06:45
LostUser	That'll do! Thanks Jay. What do the red line and green line mean?
Sun, 26 Oct 2008, 06:49
Jayenkai	Red = Perfect Power Green = Perfect Swing
Sun, 26 Oct 2008, 08:13
Phoenix	Graphics(320, 240, 0, 2) ; Change these values to fine-tune the meter meterX = 50 meterY = 50 meterSize = 100 meterCutOffAngle = 50 ; Draw a simple circle and omit a part of it ; You can remove this code paragraph and insert your own image instead ; which looks nicer than just a simple circle. meter = CreateImage(meterSize+1, meterSize+1) SetBuffer(ImageBuffer(meter)) For i = meterCutOffAngle To 360-meterCutOffAngle Line meterSize/2+Sin(i)meterSize/2, meterSize/2+Cos(i)meterSize/2, meterSize/2+Sin(i-1)meterSize/2, meterSize/2+Cos(i-1)meterSize/2 Next SetBuffer(BackBuffer()) needleMax = 200 needleVal = 0 ; A value between 0 and needleMax representing the needle's position in the meter needleDirection = 1 ; 1 = Clockwise, -1 = Counter clockwise While(Not KeyHit(1)) ; Bounce the needle back and forth needleVal = needleVal + needleDirection If(needleVal > needleMax Or needleVal < 0) Then needleDirection = -needleDirection ; Show how much power the needle is pointing at Color 255, 255, 255 Text 0, 0, "Power: " + needleVal ; Calculate the angle of the needle based on the various parameters angle = needleVal(360-meterCutOffAngle2)/needleMax + (90+meterCutOffAngle) ; Draw a line between the origin of the meter and the edge of it Color 255, 0, 0 Line meterX + meterSize/2, meterY + meterSize/2, meterX+(meterSize/2)+Cos(angle)meterSize/2, meterY+(meterSize/2)+Sin(angle)meterSize/2 ; Draw the meter edge DrawImage meter, meterX, meterY Flip Cls Wend --v I really like wasting time making these silly examples If you want a circular meter, then that's the way to go.
Sun, 26 Oct 2008, 23:44
LostUser	The reason why I'm after a swing-o-meter is because I'm trying to make a text based simulation version of Scarface: The World is Yours for the PS2. In that game the swing-o-meter is used to calculate the deal you are making; whether it be "fast talking with cops", or with "suppliers". I'm working on porting the golf swing-o-meter examples into a version where it calculates the deal in the same way, although it'd help if I knew how the original Scarface game did it, as in that game there is obviousily no "Perfect power" and "Perfect Swing", just a simple hold click as long as you can and let go before it goes back to zero. Anyway, I'll keep experimenting -- but if someone could hack up a basic fill-the-bar o-meter with a mouse click that'll help! Thanks a lot.