Mouse Wheel Camera

hmm well I made a function that is broke somehow. Anyone got any Ideas?

code/
Function moveobject#(entity, speed)
yaw# = Entityyaw#(entity)
curpitch# = EntityPitch#(entity)
pitch# = 90 - Abs(curpitch#)
If Abs(yaw#) <= 90
beta_angle# = Abs(yaw#)
Endif
If Abs(yaw#) > 90
beta_angle# = 180 - Abs(yaw#)
Endif
If yaw# => 0 And yaw# <= 90
quadx = 1
quadz = 1
Endif
If yaw# => 90 And yaw# <= 180
quadx = -1
quadz = 1
Endif
If yaw# => 180 And yaw# <= 270
quadx = -1
quadz = -1
Endif
If yaw# => 270 And yaw# <= 360
quadx = 1
quadz = -1
Endif
If curpitch# => 0
quady = 1
Endif
If curpitch# < 0
quady = -1
Endif
x0 = entityx#(entity)
y0 = entityy#(entity)
z0 = entityz#(entity)
xz# = Sin#(pitch#) * speed
y1# = (cos#(pitch#) * speed) * quady
z1# = (sin#(beta_angle#) * xz#) * quadz
x1# = (cos#(beta_angle#) * xz#) * quadx

PositionEntity entity, x0-x1, y0-y1, z0-z1

End Function
code*/