alias resize {
;New alias name..
set %sn 1
;New variable set for script
while (%sn <= $5) {
;While 1 is smaller then 5th word
.dialog -srb $1 $2 $3 $4 %sn
;Dialog set position, center dialog, interpret size
inc %sn
;create loop
}
}
dialog scrolleffect {
;dialog name
title "Scroll Effect"
;dialog title
size -1 -1 130 0
; DIALOG SIZE NOTE THE HEIGHT = 0
option dbu
;Options are set DBU
text ".::[ScRoLL EffECT]::." , 1000, 37 4 55 9, disabled
;TEXT ... whatever you im just making it look a little pretty is all
button "visit:> www.mirc.com", 2, 4 95 122 10
;BUTTON ... Can't forget http://www.mirc.com/
list 1, 4 12 122 86
;Create listbox which i will use in just a few moments..
}
on *:DIALOG:scrolleffect:init:*: {
;Create dialog INIT script...
%resize = on
;%resize variable set to on.. i just put this in because i have it in my ;script setup to disable or enable resize scrolleffect at will
if (%resize == on) { .timer 1 0 /resize scrolleffect -1 -1 130 110 }
;if resize is value on then it sets time to resize my dialogbox
;tus where the scroll effect comes from (init portion)
did -ra $dname 1 ********************************
;just insertting lines into my listbox very easy.. :o) i wont explain
;more about this since theres a few lines of insertted text..
did -a $dname 1 You are running windows:> $os $+ .
did -a $dname 1 -
did -a $dname 1 System uptime:> $uptime(system,1) $+ .
did -a $dname 1 -
did -a $dname 1 mIRC uptime:> $uptime(mirc,1) $+ .
did -a $dname 1 -
if ($server) {
did -a $dname 1 You're on server:> $server
did -a $dname 1 -
did -a $dname 1 Server session upt:> $uptime(server,1) $+ .
did -a $dname 1 -
}
if ($active) {
did -a $dname 1 Your on chan:> $active $+ .
}
}
On *:DIALOG:scrolleffect:sclick:2: {
;Create dialog sclick ID 2 event..
echo -a 14,1.::[4,1O15,1pening 4,1T15,1he 4,1M15,1irc 4,1W15,1ebsite14,1]::.
;echo to active window that your opening mirc in browser..
timer 1 2 /run http://www.mirc.com/
;timer created for no reason... to open mirc.com
}