share/hedgewars/Data/Scripts/Animate.lua
changeset 7448 d0521a3a4358
parent 7438 195f9cbd6df6
child 9245 1dfdf35dd35d
equal deleted inserted replaced
7443:a7f861f1c3b8 7448:d0521a3a4358
   179     end
   179     end
   180   end
   180   end
   181   return false
   181   return false
   182 end
   182 end
   183 
   183 
       
   184 function AnimSetGearPosition(gear, destX, destY, fall)
       
   185   SetGearPosition(gear, destX, destY)
       
   186   if fall ~= false then
       
   187     SetGearVelocity(gear, 0, 10)
       
   188   end
       
   189   return true
       
   190 end
       
   191 
   184 function AnimDisappear(gear, destX, destY)
   192 function AnimDisappear(gear, destX, destY)
   185 	AddVisualGear(GetX(gear)-5, GetY(gear)-5, vgtSmoke, 0, false)
   193 	AddVisualGear(GetX(gear)-5, GetY(gear)-5, vgtSmoke, 0, false)
   186 	AddVisualGear(GetX(gear)+5, GetY(gear)+5, vgtSmoke, 0, false)
   194 	AddVisualGear(GetX(gear)+5, GetY(gear)+5, vgtSmoke, 0, false)
   187 	AddVisualGear(GetX(gear)-5, GetY(gear)+5, vgtSmoke, 0, false)
   195 	AddVisualGear(GetX(gear)-5, GetY(gear)+5, vgtSmoke, 0, false)
   188 	AddVisualGear(GetX(gear)+5, GetY(gear)-5, vgtSmoke, 0, false)
   196 	AddVisualGear(GetX(gear)+5, GetY(gear)-5, vgtSmoke, 0, false)
   189   PlaySound(sndExplosion)
   197   PlaySound(sndExplosion)
   190 	SetGearPosition(gear, destX, destY)
   198 	AnimSetGearPosition(gear, destX, destY)
   191   return true
   199   return true
   192 end
   200 end
   193 
   201 
   194 function AnimOutOfNowhere(gear, destX, destY)
   202 function AnimOutOfNowhere(gear, destX, destY)
   195   SetGearPosition(gear, destX, destY)
   203   AnimSetGearPosition(gear, destX, destY)
   196   AddVisualGear(destX, destY, vgtBigExplosion, 0, false)
   204   AddVisualGear(destX, destY, vgtBigExplosion, 0, false)
   197   PlaySound(sndExplosion)
   205   PlaySound(sndExplosion)
   198   AnimGearWait(gear, 50)
   206   AnimGearWait(gear, 50)
   199   return true
   207   return true
   200 end
   208 end
   202 function AnimTeleportGear(gear, destX, destY)
   210 function AnimTeleportGear(gear, destX, destY)
   203 	AddVisualGear(GetX(gear)-5, GetY(gear)-5, vgtSmoke, 0, false)
   211 	AddVisualGear(GetX(gear)-5, GetY(gear)-5, vgtSmoke, 0, false)
   204 	AddVisualGear(GetX(gear)+5, GetY(gear)+5, vgtSmoke, 0, false)
   212 	AddVisualGear(GetX(gear)+5, GetY(gear)+5, vgtSmoke, 0, false)
   205 	AddVisualGear(GetX(gear)-5, GetY(gear)+5, vgtSmoke, 0, false)
   213 	AddVisualGear(GetX(gear)-5, GetY(gear)+5, vgtSmoke, 0, false)
   206 	AddVisualGear(GetX(gear)+5, GetY(gear)-5, vgtSmoke, 0, false)
   214 	AddVisualGear(GetX(gear)+5, GetY(gear)-5, vgtSmoke, 0, false)
   207 	SetGearPosition(gear, destX, destY)
   215 	AnimSetGearPosition(gear, destX, destY)
   208 	AddVisualGear(GetX(gear), GetY(gear), vgtBigExplosion, 0, false)
   216 	AddVisualGear(GetX(gear), GetY(gear), vgtBigExplosion, 0, false)
   209   PlaySound(sndExplosion)
   217   PlaySound(sndExplosion)
   210   FollowGear(gear)
   218   FollowGear(gear)
   211   AnimGearWait(gear, 50)
   219   AnimGearWait(gear, 50)
   212   return true
       
   213 end
       
   214 
       
   215 function AnimSetGearPosition(gear, x, y)
       
   216   SetGearPosition(gear, x, y)
       
   217   return true
   220   return true
   218 end
   221 end
   219 
   222 
   220 function AnimVisualGear(gear, x, y, vgType, state, critical, follow)
   223 function AnimVisualGear(gear, x, y, vgType, state, critical, follow)
   221   local vgear = AddVisualGear(x, y, vgType, state, critical)
   224   local vgear = AddVisualGear(x, y, vgType, state, critical)