Simulate horizontal fan action

try this tweak...

; >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

EntityPicked = LinePick (EntityX#(Player), EntityY#(Player), EntityZ#(Player), 0,-3-Rnd(1),0)
If EntityPicked = Fan Then
y_vel#=y_vel#+0.025
End If

; >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>