mIRC Home    About    Download    Register    News    Help

Print Thread
What's the meaning of this code? #266892 29/02/20 03:29 AM
Joined: Nov 2019
Posts: 32
A
An0o Offline OP
Ameglian cow
OP Offline
Ameglian cow
A
Joined: Nov 2019
Posts: 32
What's doing that?

Code
alias zool {
  %a = 2 | %b = 0
  %c = drawtext -nor @-
  %d = drawline -nr @-
  %j = 0 0 690 567
  %e = drawcopy -nm @- 16 16 658 535 @- %j
  window -pCBdokf +t @- %j
  drawrect -nrf @- 65535 0 %j
  titlebar @- http://www.hawkee.com - | a
}
alias -l a {
  inc %b .1 | var %z 660,%n 16,%q $sin(%b),%2 .04 * $cos($calc(.1*%b))
  if %b < 60 {
    set %i 255 * $cos(%b)
    if %b > 5 && %b < 10 { %c $rgb(%i,%i,%i) tahoma 225 20 160 StanZ | %a = .6 }
    elseif %b > 15 && %b < 20 { %c $rgb(0,0,%i) arial 150 65 195 present | %a = 1.8 }
    elseif %b > 24 && %b < 35 { %c $rgb(0,%i,0) arial 80 90 160 A NEW INTRO | %c $rgb(%i,0,%i) arial 80 200 310 CALLED | %a = 2.5 }
    elseif %b > 40 { %c $rgb(0,%i,%i) impact 350 20 90 ZOOL | %c $rgb(%i,%i,%i) impact 350 23 87 ZOOL | %a = $r(4,9) }
  }
  elseif %b = 60 { %a = 2 | .timera2 0 8 set %a $!r(1,3) }
  elseif (%b = 130) set %d drawline -nri @-
  else {
    while %n {
      set %f 255 - %n | set %g 700 - %n | set %h 562 - %n | dec %n 4
      %d $rgb(0,$calc(170000-10000*$cos($calc(.01*%n +%b)).deg),%f) 8 0 %n 700 %n
      if (%b > 65) %d $rgb(%f,$calc(100-100*$sin(%b)),%n) 8 %n 0 %n 600
      if (%b > 70) %d $rgb(99,%n,99) 8 %g 0 %g 600
      if (%b > 75) %d $rgb($calc(1700+10000*$sin($calc(.2*%n -%b)).deg),%f,%n) 8 0 %h 700 %h
    }
  }
  while %z { drawscroll -n @- $calc(17*$sin($calc(%2 *%z +%b))) 0 0 %z 694 5 | drawscroll -n @- 0 $calc(8*$cos($calc(%a *%2 *%z +%b))) %z 0 5 590 | dec %z 5 }
  drawrect -nr @- $iif(%b > 8,0,$calc(155+100*%q)) 16 %j
  if (%b > 7 && %b < 60) %e
  elseif (%b > 94 && $calc(%b % 7) > 6) %e
  drawdot @- | .timera1 1 0 a
}
on *:close:@-:.timera* off | unset %a %b %c %d %e %f %g %h %i %j

Re: What's the meaning of this code? [Re: An0o] #266894 29/02/20 04:12 AM
Joined: Jul 2006
Posts: 3,723
W
Wims Offline
Hoopy frood
Offline
Hoopy frood
W
Joined: Jul 2006
Posts: 3,723
That's called a demo https://en.wikipedia.org/wiki/Demoscene
Stanz was an old scripter, demo were popular some years ago


Looking for a good help channel about mIRC? Check #mircscripting @ irc.swiftirc.net
Re: What's the meaning of this code? [Re: Wims] #266897 29/02/20 12:39 PM
Joined: Nov 2019
Posts: 32
A
An0o Offline OP
Ameglian cow
OP Offline
Ameglian cow
A
Joined: Nov 2019
Posts: 32
Thx wims

Re: What's the meaning of this code? [Re: An0o] #267032 25/03/20 02:38 AM
Joined: Dec 2019
Posts: 32
Q
quartz Offline
Ameglian cow
Offline
Ameglian cow
Q
Joined: Dec 2019
Posts: 32
does anyone know of any more demo scene type scripts? [apart from hawkee]

Last edited by quartz; 25/03/20 03:46 AM.
Re: What's the meaning of this code? [Re: quartz] #267163 11/04/20 05:03 PM
Joined: Jul 2013
Posts: 27
K
kikuchi Offline
Ameglian cow
Offline
Ameglian cow
K
Joined: Jul 2013
Posts: 27
http://web.archive.org/web/20090110180811/http://picwin.scriptsdb.org/viewfiles.php?t=demos
https://mircscripts.fr/cgi-bin/info.pl?Script=2003
https://mircscripts.fr/cgi-bin/info.pl?Script=2095