Tom & Jerry

alias ratrun {
; Ver. 0.1 5/4/2003 By Budun
; showing ASCII animation of a cat chasing a mouse and mouses chasing a cat on titlebar
; type /ratrun to turn on/off
; to speed up or slow down just change the timer (300) to any number, you should leave 20 as is.
; This script was born out of boredom ;-)
; enjoy...

; Turning /ratrun on or off
if ($1 == $null) && ($timer(.ratrun)) { .timer.ratrun off | titlebar | return }

; setting up animation random spaces, ASCII sprites
var %c = $str($chr(160),150),%a $r(2,7),%a1 = $left(%c,%a),%a2 = $left(%c,$calc(7 - %a)),%d $r(1,3)
var %c1 ~(='.'),%c2 ('.'=)~,%m1 ~O'.',%m2 '.'O~,%x1 = %c1 $+ %a1 $+ ~O'.' $+ %a2,%x2 = %a2 $+ %c2 $+ %a1 $+ '.'Q~ $+ $left(%c,%d) $+ '.'o~ $+ $left(%c,$calc(4- %d)) $+ '.'O~
var %b $2,%x = $iif(!%b,%x1,%x2)

; Calculate the position to draw sprites on the scene
var %lx $len(%x),%y $calc(100 - %lx),%z = $iif($1 !isnum,- $+ %lx,$calc($1 $iif(!%b,+,-) 1))
var %p = $iif($calc(%y + %lx - 7) <= %z || 0 > %z,$ifmatch,%z)

; Calculate which direction the cat should turn
if (!%b) { var %x = $iif(%z > %p,$($+(%,c,$r(1,2)),2),%c1) $+ $mid(%x,8) }

; Calculate which sprites to put on the scene
if (%z >= 0) { var %o = $iif(%p > %y,$left(%x,- $+ $calc(%p - %y)),$iif(%p < 1,$right(%x,$calc(%lx + %p)),%x)) }
else { var %i = $right(%x,%z),%o = $iif($len(%i) > $len(%m2),%i,$($+(%,m,$r(1,2)),2)),%o = %o $+ $left(%c,$calc(%lx - $len(%o))) }

; Let the animals run free on your mIRC titlebar
titlebar $left(%c,$iif(%p < 1,0,%p)) $+ %o $+ $iif(%p < %y,$left(%c,$calc(%y - %p)))

; Calculate which direction should the next animation scroll, and reset the position.
; While stand still the cat and the mouse have 10 movements before changing direction
if (!%b) && ($calc(%z - %p) > 10) { var %b 1,%z %p }
elseif (%b) && (%z < 0) && ($calc($abs(%z) - %lx) > 10) { var %b 0,%z = $calc($len(%c1) - $len(%x1)) }

; Calculate the next timer
.timer.ratrun -mo 1 $r($iif(%z > %p || 0 >= %p,250,20),300) ratrun %z %b
}

; type //plasma
;By Budun
;
;
alias plasma {
if ($window(@plasma)) window -c @plasma | if ($window(@plasma.buf)) window -c @plasma.buf
if ($hget(plasma)) hfree plasma | hmake plasma 100 | window -hp @plasma.buf 0 0 600 600 | window -CdopB +d @plasma 900 0 300 300
drawrect -nrf @plasma.buf 0 1 0 0 700 700 | var %i 100, %1 $r(0,255), %2 $r(0,255), %w
while %i { %w = $calc(%i - (100 - %i)) | drawrect -drn @plasma.buf $rgb(%1,$int($calc($sin($calc(%i /7))*255)),%2) 3 $abs($calc(%i - 100)) $abs($calc(%i - 100)) %w %w %w %w | dec %i }
drawcopy -n @plasma.buf 0 0 100 100 @plasma.buf 110 0 100 100
drawrect -drnf @plasma.buf 0 1 130 20 60 60 60 60 | drawcopy -n @plasma.buf 0 0 100 100 @plasma.buf 222 0 100 100
drawcopy -n @plasma.buf 110 0 100 100 @plasma.buf 0 120 100 100 | drawcopy -n @plasma.buf 110 0 100 100 @plasma.buf 330 0 100 100
drawcopy -n @plasma.buf 0 0 100 100 @plasma.buf 330 120 100 100 | drawcopy -n @plasma.buf 0 0 220 100 @plasma.buf 110 120 220 100
drawcopy -n @plasma.buf 0 0 450 100 @plasma.buf 0 240 450 100 | drawcopy -n @plasma.buf 0 120 450 100 @plasma.buf 0 360 450 100
drawcopy -n @plasma.buf 0 0 450 100 @plasma.buf 0 480 450 100 | drawcopy -n @plasma.buf 0 0 100 600 @plasma.buf 440 0 100 600
hadd plasma z $iif(!$1,5,$1) | hadd plasma t 0 | hadd plasma j 0 | hadd plasma dir 1 | drawdot @plasma.buf
.timerplasma 0 0 plasma.loop
}

alias -l plasma.loop {
var %t $hget(plasma,t) | hadd plasma j $calc($hget(plasma,j) + 4) | if ($hget(plasma,j) > 240) hadd plasma j 0
if (%t > 105) hadd plasma dir 0 | if (%t < -105) hadd plasma dir 1 | if ($hget(plasma,dir)) { inc %t 2 | hadd plasma t %t } | else { dec %t 2 | hadd plasma t %t }
var %i 0, %x | while %i < 301 { %x = $calc(($abs($sin($calc(%i /100)))* %t)-100) | drawcopy -n @plasma.buf $calc(%x +200) $calc(%i +$hget(plasma,j)) $calc(%x +300) $hget(plasma,z) @plasma 0 %i 300 $hget(plasma,z) | inc %i $hget(plasma,z) }
drawdot @plasma
}

on *:close:@plasma:{
plasma.die
}
menu @plasma {
quality
.excellent { hadd plasma z 1 }
.very good { hadd plasma z 2 }
.good { hadd plasma z 5 }
.so-so { hadd plasma z 7 }
.bad { hadd plasma z 10 }
.disgusting { hadd plasma z 20 }
quit { plasma.die }
}
alias -l plasma.die { window -c @plasma | window -c @plasma.buf | .timerplasma off | if ($hget(plasma)) hfree plasma }

;#################################################
;# #
;# Budun*Script -> One to rule them all #
;# Gravity is a part of the Budun Script #
;# Copyright (c) 1998-? by Budun #
;# #
;#################################################
alias Gravity {
window -c @3D | window -aCdk0p +tl @3D 0 0 400 400
drawrect -rf @3D 0 1 0 0 400 400 | titlebar @3D gravity by Budun
set %Xa 0 | set %Ya = 0 | buildCoord | initJumper | set %fps.count 0 | .timerfps 1 1 FPS
}
alias -l FPS { set %FPS %fps.count | set %fps.count 0 | if ($window(@3D)) { .timerfps 1 1 FPS } }
alias -l convCoords {
var %w = 400, %h = 400
if ($prop == x) return $round($calc(%w / 2 + $1),0)
if ($prop == y) return $round($calc(%h / 2 + $1),0)
}
alias -l buildCoord {
if ($window(@3D)) {
drawrect -rf @3D 0 1 0 0 400 400
drawtext -r @3D $rgb(255,255,255) Tahoma 11 3 3 %FPS $+ fps
} | Jumper
var %Coord.Length = 7, %Lines.Length = 11, %i = 0
set %Xa $calc(%Xa + ($mouse.y - 200)/4000) | set %Ya $calc(%Ya + ($mouse.x - 200)/1000)
var %Point.x = %jmp.x, %Point.y = %jmp.y, %Point.z = %jmp.z
var %cosXangle = $cos(%Xa), %cosYangle = $cos(%Ya), %sinXangle = $sin(%Xa), %sinYangle = $sin(%Ya)
var %tempz = $calc((%Point.z * %cosYangle)-(%point.x * %sinYangle)), %tmpx = $calc((%Point.z * %sinYangle)+(%point.x * %cosYangle))
var %tmpz = $calc((%Point.y * %sinXangle)+(%tempz * %cosXangle)), %tmpy = $calc((%Point.y * %cosXangle)-(%tempz * %sinXangle))
var %point.mx = %tmpx, %point.my = %tmpy, %point.mz = %tmpz | var %eye = 200, %point.mz = $calc(%point.mz + 125)
var %pers = $calc(%eye / %point.mz) | var %f.X = $calc(%point.mx * %pers), %f.Y = $calc(%point.my * %pers)
var %scale = $round($calc((%pers * 66) /28),0) | if ($window(@3D)) { drawdot -r @3D $rgb(255,0,0) %scale $convCoords(%f.X).x $convCoords(%f.Y).y }
var %jmp.hit = $iif(%jmp.y < -43,true,false) | while (%i <= %Coord.Length) {
var %Point.x = $readini(gravitycube.ini,c $+ %i,x), %Point.y = $readini(gravitycube.ini,c $+ %i,y), %Point.z = $readini(gravitycube.ini,c $+ %i,z)
var %cosXangle = $cos(%Xa), %cosYangle = $cos(%Ya), %sinXangle = $sin(%Xa), %sinYangle = $sin(%Ya)
var %tempz = $calc((%Point.z * %cosYangle)-(%point.x * %sinYangle)), %tmpx = $calc((%Point.z * %sinYangle)+(%point.x * %cosYangle))
var %tmpz = $calc((%Point.y * %sinXangle)+(%tempz * %cosXangle)), %tmpy = $calc((%Point.y * %cosXangle)-(%tempz * %sinXangle))
var %point.mx = %tmpx, %point.my = %tmpy, %point.mz = %tmpz | var %eye = 200, %point.mz = $calc(%point.mz + 125)
var %pers = $calc(%eye / %point.mz) | var %f.X = $calc(%point.mx * %pers), %f.Y = $calc(%point.my * %pers)
var %scale = $round($calc((%pers * 66) /28),0) | var %3D.P $+ %i $+ .x %f.X | var %3D.P $+ %i $+ .y %f.Y
if ($window(@3D)) { drawdot -r @3D $rgb(255,0,255) %scale $convCoords(%f.X).x $convCoords(%f.Y).y | .timerbuild -m 1 40 buildCoord
} | inc %i
} | var %i = 0
while (%i <= %Lines.Length) {
var %Line.From = $readini(gravitylines.ini,l $+ %i,from), %Line.To = $readini(gravitylines.ini,l $+ %i,to)
if (%jmp.hit == true) {
if (%i == 2) || (%i == 3) || (%i == 6) || (%i == 8) { var %color = $rgb(255,0,0), %size = 2 }
else { var %color = $rgb(255,255,255), %size = 1 } | } | else { var %color = $rgb(255,255,255), %size = 1 }
if ($window(@3D)) drawline -rh @3D %color %size $convCoords(%3D.P [ $+ [ %Line.From ] $+ ] .x).x $convCoords(%3D.P [ $+ [ %Line.From ] $+ ] .y).y $convCoords(%3D.P [ $+ [ %Line.To ] $+ ] .x).x $convCoords(%3D.P [ $+ [ %Line.To ] $+ ] .y).y
inc %i
} | inc %fps.count
}
alias -l initJumper { set %jmp.vx 2 | set %jmp.vz 1 | set %jmp.freq 0.1 | set %jmp.amp 75 | set %jmp.cc $calc($pi/2) | set %jmp.x 0 | set %jmp.y 0 | set %jmp.z 0 }
alias -l Jumper {
set %jmp.x $calc(%jmp.x + %jmp.vx) | set %jmp.cc $calc(%jmp.cc + %jmp.freq)
set %jmp.y $calc($abs($calc($sin(%jmp.cc) * %jmp.amp)) - 50) | set %jmp.z $calc(%jmp.z + %jmp.vz)
if (%jmp.x < -45) || (%jmp.x > 45) { set %jmp.vx $calc(%jmp.vx * -1) }
if (%jmp.z < -45) || (%jmp.z > 45) { set %jmp.vz $calc(%jmp.vz * -1) }
}

;
; /WORLD MAPS/
; /by bar Budun/
; Usage: /getmap TR
; Usage: /getmap IL

alias GetMap {
if ($len($1) !== 2) || ($1 !isalpha) return
set %getmap $1
sockopen getmap worldtimeserver.com 80
echo $color(info) -e * /getmap: trying to resolve map
}

ON 1:SOCKOPEN:getmap: {
if (!$window(@getmap)) window -pdoC +L @getmap -1 -1 200 200
drawfill @getmap 1 1 1 1
drawtext @getmap 0 georgia 20 40 50 Please wait..
if (%bin) unset %bin
if ($isfile($+(%getmap,.jpg)) == $true) .remove $+(%getmap,.jpg)
sockwrite -n getmap GET $+(/images/maps/,%getmap,.jpg) HTTP/1.0
sockwrite -n getmap Host: worldtimeserver.com
sockwrite getmap $crlf
}

ON 1:SOCKREAD:getmap: {
if (!%bin) {
sockread %temp
if ($len(%temp) < 4) set %bin .
if (!%bin) return
}
sockread &getmap
bwrite $+(%getmap,.jpg) -1 -1 &getmap
}

ON 1:SOCKCLOSE:getmap:{
if ($file($+(%getmap,.jpg)).size < 8000) {
echo $color(info) -e * /getmap: No country resolved
.remove $+(%getmap,.jpg)
return
}
drawpic -s @getmap 0 0 190 190 $+(%getmap,.jpg)
}

; Take to PR Value from PageRank.Gen.TR
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x } }
on *:sockopenr:{
sockwrite -n $sockname GET /pagerank-sorgula/ $+ %site HTTP/1.1
sockwrite -n $sockname Host: pagerank.gen.tr $+ $crlf $+ $crlf
}
on *:sockreadr:{
var %prdeger
sockread %prdeger
if (<br><h2> isin %prdeger) echo -a *** Your Web Site PageRank value 410 Up: $+ 4 $remove(%prdeger,<br><h2>,</h2>,/,10,$chr(9)) | .unset %site
}
alias pr {
if $1 == $null {
.echo -a Hata! 4Please state a web site.. Exp: /pr R10.net
}
if $1 == Google {
.echo -a *** Your Web Site PageRank value 410 Up:4 10
}
else {
.set %site $1
.sockclose pr
.sockopen pr pagerank.gen.tr 80
}
}
on *:load:{
.echo -a 2Google Welcome to PageRank`s result..
.echo -a 2Usage:
.echo -a 7/pr www.website.com
.echo -a 7If you want realy result please add www.
.echo -a 2By Budun©
.echo -a 2www.r10.net