StarField 2

By BlueThen on Apr 28, 2008

StarField 2.

If you remember and liked my first StarField script
(http://www.hawkee.com/snippet/4146/), you'll probably like this one. Just like my previous Star script.

This one has a 3D effect. This time you're zooming in on the screen.

I'm sure you have a screensaver like this.

Image

;StarField 2.0
;Made by BlueThen on April 28, 2008.
;To install, paste this snippet into your remotes (alt + r),
;Then type /stars2 or right click the channel or status and "click StarField 2."
;BlueThen.com
alias stars2 { window -paoCzdk0 +tnbL @stars2 -1 -1 400 400 | window -poCzdhk0 +tnbL @sta2.buf -1 -1 800 800 | stars.init }
alias -l stars.init {
  set %stars.c n | set %stars.t 75 | %stars.x = %stars.t | set %stars.px 440 | set %stars.py 400.7 | set %stars.a 1 
  while (%stars.x > 0) {
    hadd -m %stars.x $+ i s $r(70,75) | hadd -m %stars.x $+ i px 400 | hadd -m %stars.x $+ i py 400
    hadd -m %stars.x $+ i d $r(1,400) | hadd %stars.x $+ i a $r(1,360) | dec %stars.x
  }
  stars.frame
}
menu channel,status {
  StarField 2: { stars2 }
}
on *:close:@stars2: { window -c @sta2.buf | set %stars.c y | unset %stars.t %stars.x %stars.px %stars.py %stars.a }
alias -l stars.frame {
  if (%stars.c != y) {
    inc %stars.a 3 | set %stars.px $calc(400 + (40 * $cos(%stars.a).deg)) | set %stars.py $calc(400 + (40 * $sin(%stars.a).deg))  
    %stars.x = %stars.t | clear @sta2.buf | drawfill @sta2.buf 1 1 1 1 1 
    while (%stars.x > 0) {
      %stars.c = $calc($hget(%stars.x $+ i ,d) *0.56)
      drawdot -r @sta2.buf $rgb(%stars.c,%stars.c,%stars.c) $calc($hget(%stars.x $+ i ,d) * 0.03) $calc(%stars.px + ($hget(%stars.x $+ i ,d) * $cos($hget(%stars.x $+ i ,a)).deg)) $calc(%stars.py + ($hget(%stars.x $+ i ,d) * $sin($hget(%stars.x $+ i ,a)).deg))
      hadd -m %stars.x $+ i d $calc(($hget(%stars.x $+ i ,d) *0.055) * $hget(%stars.x $+ i ,s) )
      if ($hget(%stars.x $+ i ,d) > 500) { hadd -m %stars.x $+ i d 1 | hadd -m %stars.x $+ i s $r(20,25) | hadd -m %stars.x $+ i a $r(1,360) }
      dec %stars.x
    }
    drawcopy -m @sta2.buf 0 0 800 800 @stars2 0 0 400 400 | .timer -mo 1 0 stars.frame
  }
  else unset %stars.c
}

Comments

Sign in to comment.
Viper01   -  Apr 30, 2008

mmorpg... i dont think anyone has succeeded in a text-based one yet, that\'d be original .-.

and im thinking of making it similar to the WAR-GEN game, dcc accessable and have events in the \'main\' channel.

if you\'ve never played All-Out-War, you wouldn\'t know what i\'m talking about.

 Respond  
^Neptune   -  Apr 29, 2008

Sure, but you cann ADD new stuff to say, an MP3 Player to make it original. For instance, an id3 tag editor.

 Respond  
BlueThen   -  Apr 29, 2008

But think about it, I\'ve made a lot of dialogs and stuff like that, but things like mp3 players, away systems, and others are too easy and common.

I want to make unique scripts. Originality is my goal. People get tired of the same old stuff.

 Respond  
^Neptune   -  Apr 29, 2008

If you\'re running out of ideas, why not make something people will find useful? An Away System, a quote dialog, an MP3 Player, a dialog autojoin system (aint seen one of them yet)? I\'m sure with your awesome scripting abilities you could make awesome shtuff B)

 Respond  
BlueThen   -  Apr 29, 2008

Well, picwins can\'t work serversided, unless all the clients were to have the same scripts.

 Respond  
Viper01   -  Apr 29, 2008

Why not help me turn my death note stuff into a game? :p
I could use some help on that, and my other 2 games I\'m working on; Zelda: Time\'s Despair and .hack//INFECTION(I know the 2nd one is made already for ps2, but I want to remake it as a text-mmorpg :P)
pm me if you want to help :)

 Respond  
BlueThen   -  Apr 28, 2008

I know, it may not be impressive, and starts off pretty badly.

I\'m running out of concepts. It\'s now taking me days to think of a cool animation/game I can make using text and logic.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.