Hi Loserman,
thank you for this wonderful recreation !!! I regret, the table shows an error. time and again one of the 5 kicker holes at the top does not kick the ball out. The eject-sound is played, but the ball stays in hole. Tilt does not get the ball out. I presume the issue somewhere here:
sub Kicker5_Hit()
Dim speedx,speedy,finalspeed
tKickerTCount=0
speedx=activeball.velx
speedy=activeball.vely
finalspeed=SQR(activeball.velx * activeball.velx + activeball.vely * activeball.vely)
if TableTilted=true then
tKickerTCount=0
Kicker5.Timerenabled=1
exit sub
end if
if finalspeed>10 then
Kicker5.Kick 0,0
activeball.velx=speedx
activeball.vely=speedy
else
' mHole5.MagnetOn=1
if KickLight5.state=1 then
Kicker5Hold=1
SpinForCard
Else
Kicker5Hold=0
SetMotor(50)
KickerHolder5.enabled=1
end if
end if
end sub
Sub KickerHolder5_timer
If MotorRunning<>1 then
KickerHolder5.enabled=0
Kicker5Hold=0
Kicker5.timerinterval=(500)
Kicker5.timerenabled=1
tKickerTCount=0
CenterLight5.state=0
TargetLight2.state=1
TriggerLight5.state=1
If BallsPerGame=3 then
CenterLight1.state=0
TargetLight1.state=1
TriggerLight1.state=1
end if
end if
end sub
Sub Kicker5_Timer()
CheckLightsSequence
tKickerTCount=tKickerTCount+1
select case tKickerTCount
case 1:
' mHole.MagnetOn=0
Pkickarm5.rotz=15
Playsound "saucer"
DOF 113, 2
Kicker5.kick 185,10
case 2:
Kicker5.timerenabled=0
Pkickarm5.rotz=0
end Select
end sub
can you please have a look on that?
my best regards, Christian.
Edited by Mustang1961, 14 December 2018 - 04:57 PM.
Top
are all trademarks of VPFORUMS.