; STARWARS scrolltext v1.5 ~~~~ Old skool is good for u so /starwars
; Right click to pause/resume - Double click to exit
; Fullscreen: [<-] Hum ok...
; [->] Why not ?
alias starwars {
splay $mircdirscript/ssounds/song.mid
if $version < 6.03 { echo -a dOWLOAD mIRC 6.03 oR dIE (: | halt } | %ª = $rgb(0) | var %¢ 0 0,%q drawrect -frn,%w $scriptdir,%x window,%i %ª 1 %¢ 320 220,%Ç 255 | %. = $rgb(%Ç) | %- = $rgb(110,110,110)
%× = $+(",%w,S.png,") | %• = $+(",%w,X.png,") | starwars.logo | starwars.text | %a = 1 | %b = 1 | %c = @starwars | %cé = @starwars2 | %g = @star | %gé = @star2 | %ég = @stak | %l = 1 | %î = 1 | %¹ = .timerstarwars | %³ = .timerstarwar.ship | %star.max = 1
%z = $chr(32) HENEVIEN VESITEZEL, THANKS TO STANZ (V1.5) * 2004 - GREETINGZ VISIONZ, SAX (CPC MAN, RAYCASTING SUR TON CPC AHAH [;) , BETEL, TOKEN, TUNEJUNKY AND EPSILON - | %j = $len(%z) | %o = %j | %É = $str(°,32) | %Ã = $rgb(%Ç,%Ç,%Ç) | %ó = $str(%z,2) | %» = drawdot %c | %æ = Henevien Vesitezel | %å = 0 318 186 %c %¢
%x -pdoBhn +d %g %¢ 320 220 | %x -pdoCk[1] +d %c %¢ 317 186 | %x -pdoBkChn +d %gé %¢ 636 600 | %x -pdoBhn +d %ég %¢ 320 220 | %q %g %i | %q %c %i | %q %ég %i | %q %gé %ª 1 %¢ 318 600 | %star.x = $window(-1).w | %star.y = $window(-1).h | %x -pdkBfChn +d %cé %¢ %star.x %star.y | var %b.l 3,%a.t 0,%c.l 0
while %b.l {
var %÷ $calc(150*(4-%b.l)),%f.d = 250 - %c.l
while %÷ { drawdot -nr %gé $rgb(%f.d,%f.d,%f.d) 1 $r(0,318) $r(%a.t,$calc(200+%a.t)) | dec %÷ }
drawcopy -n %gé %¢ 318 $calc(200+%a.t) %gé 318 0 | dec %b.l | inc %c.l 70 | inc %a.t 200
}
%¹ -h %¢ 1
}
alias -l starwars.text {
var %z hadd ƒ | hadd -m ƒ 1 WELCOME TO THE SCRIPT | %z 2 OF THE FUTURE $upper($me) | %z 3 -=HENEVIEN VESITEZEL=- | %z 4 . | %z 5 SCRIPTED BY NIGHTVALE | %z 6 . | %z 7 Credits.. | %z 8 THE MEGA MIGHTY KENJI | %z 9 AKA KNJ (; | %z 10 AND DA GR8 FEIGNASSE | %z 11 BIGBEZUS | %z 12 DEMO CULTURE
%z 13 SKY SCRIPTER (: | %z 14 COMPAQ | %z 15 FRO5TZ | %z 16 BLACKBOX | %z 17 NO_REGRET | %z 18 . | %z 19 . | %z 20 . | %z 21 . | %z 22 . | %z 23 . | %z 24 . | %z 25 . | %z 26 . | %z 27 . | %z 28 . | %z 29 . | %z 30 .
}
; 2 bitmaps bin2mrc (The fuckin good BeteLgeuZe - Sweden roxx TCB)
alias -l starwars.logo {
var %¹ write -c,%½ bwrite,%¼ -1 -1,%¡ bset -t,%Ü %¡ &S 1,%º %¡ &X 1,%³ | %¹ %× | %¹ %• | %Ü iVBORw0KGgoAAAANSUhEUgAAAG4AAAArAQMAAACjAC9nAAAAB3RJTUUH0gwTAwUdCEkkMQAAAAlwSFlzAAALEgAACxIB0t1+/AAAAARnQU1BAACxjwv8YQUAAAAGUExURQAAAP///6XZn90AAAGoSURBVHjaTZK/jtQwEMY/r1fZLSw2pYuTNqe7kmJoULoMAonXsI7T6Yot9gFWii2aK3iAfRuMtqDhISJR0FCE7orVmpkEBFZizS+ezL/PAIqs7yV25QxZNsp2h0xYqbXSbw+KGMSqFO8RBPdivVDcTSgPnCnj9mcdqBtadTbR07omovYfekGvaJG9WH/RxKCoxxpKMnqqX3oJpYkQvJzcrv+UAXKC947mcuErT81hSXO5cAtPAUsiE7W9Z6tYUYv+jCyZPTEW9FocFcU5F0uv4owS6kuy1AwzSqKUEjWtoAxq3I4F5fOwmaf1/+pO5+5U0JWMTXlG/+PSfy2xF0d99w9VeIfIsCZLKNpV/A2ZgaR56WDzpwnfalVta/MTmHt8AK7gW5OeKHAYbiChvDdJ+mVurrXCq9qkWpGuY9C/YeuWmENQ1RyCpcea+zwEr4qFRfPoGSaTUz1D1ewEVzJDVXtfhcOaxc1ZxXHJcMyViKeKjU5xb8pFJmvj0WUs+TCpB5uO63Sp+P18iUw6+vRxwW8=
%³ = $decode(&S,mb) | %½ %× %¼ &S | %Ü 4nSJzMn5ZKxUNd0aUza/iil93hZp6DdfDZUrvtVvAwAAAABJRU5ErkJggg== | %³ = $decode(&S,mb) | %½ %× %¼ &S | %º iVBORw0KGgoAAAANSUhEUgAAADkAAAAvBAMAAACruX8wAAAAB3RJTUUH0gwVBzggGKvXngAAAAlwSFlzAAAK8AAACvABQqw0mAAAAARnQU1BAACxjwv8YQUAAAAYUExURQAAAIuGhUVAP11ZW1pGQHFaU3RxciIfJXfD9a8AAAJJSURBVHjafdO9d5swEABwAX14NLYb1jiImBVzVBnrIuyObYrNDBZc14TnVv9+EV+Wm7xoEOj9dJI4HYT0zVyTt20+PA3GPlCKY+zuHUUY1PZe3qiLEG8c9bbC4o0CHtM0FUW7fymK/5W1us8wIiu3FMna9HQ1KttPEQVULHcTjivhXNVoBzNeYi3YglUUVgzDq5rdTsxFWroQUcYw11Z2VfyiQUEXLsS82ohth4v7trNU6Bl8eGonxD5LnuNObfihMqHeuM8hkH9FQsUfF7IoWBMbv7agTiAghSiQlxrYeYsAHBLfde+JQdUqGwHb8yWQ8AU9FAIgi9PDak7M7vCbLSkXkdckIBp5qICJNM3ZnDx1BxDqEr7LpolEuzvkqHQ7ZHIpVD/zAumhlA2LBSSP8DBkkvaTZlJeMq9Vz398uoDT67KY1M8CucGGM9G8DrcwVk0gmzRvu8rjJYDTq93nnFhB87gXvxv5QNHNIOp1DLVUaEhmDVmWbgwM5mOeu9I=
%³ = $decode(&X,mb) | %½ %• %¼ &X | %º S+IjDhPrimbdF8FYKJDV++exhHmNfqv2GGoiVnk4Tm0OGLZqOmPVIp7OU8W9Hs7qVJtpYbg70XFghQynalfjmFXJVK0mYY6uFDCd1iGBQW+UsTq9/iUB2e40tQUef13nFiqBV3XF3X53VWIRXRlWmYZdGU9qtx/7U0Pjm66I9UEPtR1da0xzXa2dplZ82oe6fiaafvpyvDkTedGVn1LQ0Sg0tTnAzcL9xY0Kp5vQoZgGtUAUN7rWlWeCvNMGpXH4gQInH+hy/b7+AxiAg5n7ENMqAAAAAElFTkSuQmCC | %³ = $decode(&X,mb) | %½ %• %¼ &X
;%³ = Star
;%³ = $decode(&X,mb) | %½ %• %¼ &X | %º S+IjDhPrasf++exhHmNfqv2GGoiVnk4Tm0OGLZqOmPVIp7OU8W9Hs7qVJtpYbg70XFghQynalfjmFXJVK0mYY6uFDCd1iGBQW+UsTq9/iUB2e40tQUef13nFiqBV3XF3X53VWIRXRlWmYZdGU9qtx/7U0Pjm66I9UEPtR1da0xzXa2dplZ82oe6fiaafvpyvDkTedGVn1LQ0Sg0tTnAzcL9xY0Kp5vQoZgGtUAUN7rWlWeCvNMGpXH4gQInH+hy/b7+AxiAg5n7ENMqAAAAAElFTkSuQmCC | %³ = $decode(&X,mb) | %½ %• %¼ &X
}
alias -l 1 {
var %øñ 318 200 %c 0 0,%Ä $calc(15*$sin(%?).deg),%ô $calc(55+15*$cos(%?).deg),%ö $calc(55+%Ä),%ù $calc(55-%Ä),%ÿ $calc(175+80*$cos($calc(0.02*%?))),%ë $calc(255-%ÿ),%« $r(210,255),%i 53,%h 102,%x $r(0,200) | inc %star.w1 | inc %star.w2 2 | inc %star.w3 3 | if (%star.w1 > 318) %star.w1 = 1 | if (%star.w2 > 318) %star.w2 = 1 | if (%star.w3 > 318) %star.w3 = 1 | drawcopy -n %gé %star.w3 0 %øñ | drawcopy -tn %gé %ª %star.w2 200 %øñ | drawcopy -tn %gé %ª %star.w1 400 %øñ | inc %? 16 | inc %' 8 | if (%' > 3000) %' = 0 | drawdot -nr %g %. 3 $r(0,1100) 206 | drawtext -nor %c $rgb(0,0,$calc(140+2*%Ä)) verdana 38 $calc(600-%') 34 %æ
drawline -nr %c $rgb(0,0,$calc(3*%ù)) 4 0 %ô 317 %ô | drawline -nr %c $rgb(0,0,$calc(3*%ô)) 4 0 %ö 317 %ö | drawline -nr %c $rgb(0,0,$calc(3*%ö)) 4 1 %ù 313 %ù | inc %z+ 4 | var %so $calc(104+100*$sin(%z+).deg) | drawpic -nct %c %ª %so 33 %× | drawreplace -nr %c %Ã $rgb(%ë,%ô,%ÿ) %so 33 110 44 | if %a > 10 { if $hget(ƒ,%b) != . { drawtext -onr %g %- verdana 20 2 182 $hget(ƒ,%b) | drawtext -onr %g %Ã verdana 20 2 179 $hget(ƒ,%b) } | if (%b > 29) %b = 0 | %a = 1 | inc %b } | if (%l = %j) %l = 1 | inc %l
while %i { var %v $r(90,120) | drawrect -nrf %c $rgb(%v,%v,0) 1 $calc(-4+6*%i) 2 5 11 | dec %i }
drawtext -nr %c $rgb(%«,%«,60) terminal 10 1 4 $mid(%ó,%l),%o) | drawscroll -n %g 0 -3 2 2 318 210 | inc %a | drawtext -nr %g %ª terminal 20 0 0 %É
while %h { drawcopy -nm %g 0 $calc(190-%h ^2/55) 318 1 %ég %h $calc(200-%h) $calc(320-2*%h) 1 | dec %h }
drawcopy -nt %ég %ª 0 0 320 200 %c 0 0 | if %x = 50 { %star.sp = 0 | %star.yd = 0 | var %y 0 | %³ -ho 80 0 starwars.ship } | if (%star.yd = 0) drawpic -cnmts %c %ª $calc(200-2.7*%y) $calc(98+%y) $calc(20+%star.sp) $calc(10+%star.sp) %• | if (%star.max = 1) %» | else { drawcopy %star.f %c 2 2 300 180 %cé 0 0 %star.x %star.y | drawdot %cé }
}
alias -l starwars.ship inc %y | %star.sp = 2 * %y | if (%y > 79) unset %star.yd %star.sp %y
on *:keydown:@star*:*:{ if $keyval = 37 { star.window | %star.f = -nm } | if $keyval = 39 { star.window | %star.f = -n } }
alias -l star.window %star.max = %star.max * -1 | if %star.max = 1 { window -hn %cé | window -wa %c } | if %star.max = -1 { window -hn %c | window -wa %cé }
menu @starwars* {
dclick starwars.end
rclick starwars.pau
mouse starwars.mov $calc($mouse.dx -$window(%c).x) $calc($mouse.dy -$window(%c).y)
}
on *:close:@sta*:starwars.end
alias -l starwars.end .timerstarwar* off | window -c %c | window -c %cé | window -c %g | window -c %gé | window -c %ég | hfree ƒ | .remove %× | .remove %• | splay stop | unset %a %b %c %j %l %z %g %o %× %? %É %ª %Ã %• %¹ %³ %» %' %. %star.* %cé %gé %ég %z+
alias -l starwars.mov if $window(%c) { window %c $calc($mouse.dx -$1) $calc($mouse.dy -$2) | if ($mouse.key & 1) .timerstarwars.move -ho 1 0 starwars.mov $1- }
alias -l starwars.pau if %î = 1 { %¹ -p | %³ -p | %î = -1 | %» } | else { %¹ -r | %³ -r | %î = 1 }
Ok yeah I've been toying with these codes from Stanz and I can't seem to find out how the "Star Wars" logo works, why does it need to be encoded in the first place and how do I go about doing my own logo like that?
