Collisions

Please Register to submit score.

Average Score	4.7
Scores Submitted	3
Date Added	Mar 27, 2008
Last Updated	Mar 27, 2008
Tags	collision etc physics

Introduction

It may not be the prettiest thing, and it isn't that very accurate, but I did my best. My intentions were to have it so you could pick up a ball and throw it at the other balls, but the way this was scripted kept me from doing that.

This script was pretty fustrating to be honest with you. You won't believe how long it took me to realize that hash tables won't work with numbers as names. :(

Maybe next time, I'll be able to do better.

Grab the Code

;Collision 1.0
;Made by BlueThen on March 27, 2008.
;To install, paste this snippet in your remotes (Alt + R), then
;type /collision or right click in a channel or status and click Collision to start.
menu Channel,Status { 
  Collision: collision 
}
alias collision {
  window -poCzdk0 +tnbL @Collision -1 -1 400 400
  window -poChzdk0 +tnbL @Col.Buf -1 -1 800 800
  set %col.clo n
  Col.Spawn
}
alias -l col.spawn {
  set %col.total 5
  %col.x = 1
  while (%col.x < %col.total) {
    if ($hget(%col.x $+ x ) == $null) {
      hmake %col.x $+ x 100
    }
    hadd %col.x $+ x pos.x $rand(100,700)
    hadd %col.x $+ x pos.y $rand(100,700)
    hadd %col.x $+ x x.vel $rand(10,20)
    hadd %col.x $+ x y.vel $rand(10,20)
    hadd %col.x $+ x x.dir $rand(1,2)
    hadd %col.x $+ x y.dir $rand(1,2)
    inc %col.x 1
  }
  col.frame
}
alias -l col.frame {
  if (%col.clo != y) {
    col.draw
    %col.x = 1
    while (%col.x < %col.total) {
      if (($getdot(@col.buf,$calc($hget(%col.x $+ x ,pos.x)+21),$hget(%col.x $+ x ,pos.y)) == $rgb(200,200,200)) || ($hget(%col.x $+ x ,pos.x) > 750) && ($hget(%col.x $+ x ,x.dir) == 2)) {
        hadd %col.x $+ x x.dir 1
      }
      if (($getdot(@col.buf,$calc($hget(%col.x $+ x ,pos.x)-21),$hget(%col.x $+ x ,pos.y)) == $rgb(200,200,200)) || ($hget(%col.x $+ x ,pos.x) < 50) && ($hget(%col.x $+ x ,x.dir) == 1)) {
        hadd %col.x $+ x x.dir 2
      }
      if (($getdot(@col.buf,$hget(%col.x $+ x ,pos.x),$calc($hget(%col.x $+ x ,pos.y)+21)) == $rgb(200,200,200)) || ($hget(%col.x $+ x ,pos.y) < 50) && ($hget(%col.x $+ x ,y.dir) == 1)) {
        hadd %col.x $+ x y.dir 2
      }
      if (($getdot(@col.buf,$hget(%col.x $+ x ,pos.x),$calc($hget(%col.x $+ x ,pos.y)-21)) == $rgb(200,200,200)) || ($hget(%col.x $+ x ,pos.y) > 750)  && ($hget(%col.x $+ x ,y.dir) == 2)) {
        hadd %col.x $+ x y.dir 1
      }
      if ($hget(%col.x $+ x ,x.dir) == 2) {
        %col.t = $calc($hget(%col.x $+ x ,pos.x) + $hget(%col.x $+ x ,x.vel))
        hadd %col.x $+ x pos.x %col.t
      }
      else {
        %col.t = $calc($hget(%col.x $+ x ,pos.x) - $hget(%col.x $+ x ,x.vel))
        hadd %col.x $+ x pos.x %col.t
      }
      if ($hget(%col.x $+ x ,y.dir) == 2) {
        %col.t = $calc($hget(%col.x $+ x ,pos.y) + $hget(%col.x $+ x ,y.vel))
        hadd %col.x $+ x pos.y %col.t
      }
      elseif ($hget(%col.x $+ x ,y.dir) == 1) {
        hadd %col.x $+ x pos.y $calc($hget(%col.x $+ x ,pos.y) - $hget(%col.x $+ x ,y.vel))
      } 
      inc %col.x 1
    }
    .timer -ho 1 0 col.frame
  }
}
alias -l col.draw {
  if (%col.clo != y) {
    clear @col.buf
    %col.y = 1
    drawtext @col.buf 2 Tahoma 40 53 47 Made By BlueThen
    drawtext @col.buf 12 Tahoma 40 50 50 Made By BlueThen
    drawtext @col.buf 2 Tahoma 40 53 147 BlueThen.com 
    drawtext @col.buf 12 Tahoma 40 50 150 BlueThen.com 
    while (%col.y < %col.total) {
      drawdot -r @col.buf $rgb(200,200,200) 20 $hget(%col.y $+ x ,pos.x) $hget(%col.y $+ x ,pos.y)
      inc %col.y 1
    }
    drawcopy -m @col.buf 0 0 800 800 @collision 0 0 400 400
  }
}
on *:close:@Collision: {
  set %col.clo y
  window -c @col.buf
}

Comments

(5) RSS

Go to Bottom

humming_hi

Comments: 11

Posted on Mar 27, 2008 10:24 pm

That's awesome, keep up the good work. You should add more dots, and make like a screen saver or something with it.

Comments: 575

Posted on Mar 27, 2008 10:33 pm

Yea nice work.Are they supposed to ''collide'' and then change direction? Cuase if so they don't an it gives you a slight headache=

BlueThen

Comments: 156

Posted on Mar 27, 2008 10:40 pm

Well, they do most the time. The thing is, is that my script only checks the bottom and the sides, which means they can still pass through eachother at the corners. :/

Yeah, not very realistic. But I'll try better next time.

Comments: 575

Posted on Mar 27, 2008 11:29 pm

Eh ok cool i see neat anyways i like it."Rate it or Hate it?"...6/10.`-.-�

BlueThen

Comments: 156

Posted on Mar 27, 2008 11:32 pm

Thanks, man.

Please Register or Login to start posting comments.

Collisions

Introduction

Grab the Code

Comments

BlueThen

My Snippet Tags

Contact

Friends (4)


Last seen: May 15, 2008 Profile \| Website Friends (4) Snippets (30) Images (32) Comments Received (363) Comments Submitted (156) Forum Posts (70)