Featured Flash FLA 11336 Flash Movies | 2 New Flash Movies Added What's New | Top 100 Featured FLA » Author: Surjit Dhami » Title: Book » Description: Book » More by Surjit Dhami Random FLAs | Add Flash Movie Featured Flash Site 5848 Flash Sites | 0 New Flash Links What's New | Top 100 Flash Site Featured Site » Posted in the Flash Kit Links section » Title: All-American Rejects » Description: Get to know this great band by exploring their "practice room". Random Links | Add your own Flash Related Links

1277 Tutorials 7 New Tutorials Added! What's New | Top100 » Create xml slideshow with free template » How to Insert a Multilingual Subtitle Into Your Flash Video Studio » How to Create Cool Halloween Slideshow » Debugging flash using the Firebug console » Create Flash Slideshow on Blogger » FLASH TRICKS IN WEB ADVERTISING: FLASH BANNERS » HTML Photo Gallery Tutorial » Create your first flash site – PART 1 » How to Make a Flash Photo Gallery » Unknown Tag: Title10 Random Tutorial | Add Site

Sr Instructional Designer D2L-Moodle,Clearance WSI Nationwide, Inc. US-NJ-Fort Monmouth Post A Job | Post A Resume

Tutorials Home What's New Top Rated Submit myTutes Random!

Tutorials » Actionscripting/Expert

Circle Collisions
Author: Flash Junkie | Website: http://www.flashkit.com |

The Actionscript
The actions in the second frame provide the driving force behind the circle collisions .FLA. I've placed comments along the way to help you understand what's happening.

Comment: ----------------------------------------------
Comment:             start move
Comment: ----------------------------------------------
Set Variable: "my_radius" = (GetProperty ("", _width) / 2)
Comment: 'n' is always 'name' of circle.
Set Variable: "my_x" = GetProperty("",_x)
Set Variable: "my_y" = GetProperty("",_y)
Set Variable: "my_n" = GetProperty("",_name)
If (ymov="")
 Comment: *********************************
 Comment: ----------------------------------------------
 Comment:    first run through code,
 Comment:    this will initialize circle
 Comment: ----------------------------------------------
 Comment: *********************************
 Comment: pick a distance:
 Set Variable: "ymov" = Random(/:speed)+1
 Set Variable: "xmov" = Random(/:speed)+1
 Comment:
 Comment: pick a direction:
 Set Variable: "ysign" = random(2)-1
 If (ysign=0)
 Set Variable: "ysign" = 1
 End If
 Set Variable: "xsign" = random(2)-1
 If (xsign=0)
 Set Variable: "xsign" = 1
 End If
 Comment: adjust x and y movement
 Set Variable: "xmov" = xmov*xsign
 Set Variable: "ymov" = ymov*ysign
 Comment: ----------------------------------------------
End If
Comment: *********************************
Comment: ----------------------------------------------
Comment:          check edges
Comment: ----------------------------------------------
If (my_x<=my_radius+/:speed)
 Set Variable: "xmov" = xmov*-1
 Set Variable: "my_x" = my_radius+/:speed
End If
If (my_y<=my_radius+/:speed)
 Set Variable: "ymov" = ymov*-1
 Set Variable: "my_y" = my_radius+/:speed
End If
If (my_x>=/:movie_width-my_radius-/:speed)
 Set Variable: "xmov" = xmov*-1
 Set Variable: "my_x" = /:movie_width-my_radius-/:speed
End If
If (my_y>=/:movie_height-my_radius-/:speed)
 Set Variable: "ymov" = ymov*-1
 Set Variable: "my_y" = /:movie_height-my_radius-/:speed
End If
Comment: ----------------------------------------------
Comment:         check for collision
Comment: ----------------------------------------------
Set Variable: "n" = 1
Comment: start checking for collisions
Loop While (n<=/:total_circles)
 Comment: don't check myself
 If (n ne my_n)
 Set Variable: "n_x" = GetProperty("../"&n,_x)
 Set Variable: "n_y" = GetProperty("../"&n,_y)
 Set Variable: "n_radius" = (GetProperty ("../"&n, _width) / 2)
 Set Variable: "delta_x" = (my_x+xmov)-(n_x)
 Set Variable: "delta_y" = (my_y+ymov)-(n_y)
 If ((delta_x * delta_x + delta_y * delta_y) <((my_radius + n_radius) * (my_radius + n_radius)))
 Comment: ----------------------------------------------
 Comment:      handle collisions
 Comment: ----------------------------------------------
 Comment: I collided with circle 'n'.
 Set Variable: "nx" = Eval("../"&n&":xmov")
 Set Variable: "ny" = Eval("../"&n&":ymov")
 Comment: swap travel values with it.
 Set Variable: "tempx" = xmov
 Set Variable: "xmov" = nx
 Set Variable: "../"&n&":xmov" = tempx
 Set Variable: "tempy" = ymov
 Set Variable: "ymov" = ny
 Set Variable: "../"&n&":ymov" = tempy
 Set Variable: "../"&n&":collision" = my_n
 Else
 End If
 End If
 Set Variable: "n" = n+1
End Loop
Comment: ----------------------------------------------
Comment:              move me
Comment: ----------------------------------------------
Set Property ("", X Position) = my_x + xmov
Set Property ("", Y Position) = my_y + ymov
Comment: ----------------------------------------------

» Forums
	More help? Search our boards for quick answers!

Please rate this tutorial, 10 is the top rating, you can also click the comments link to read/write a review.

10 9 8 7 6 5 4 3 2 1