rendered paste bodymenu menubar {
Config Panel
.My Nick Config
..Register/AutoIdent: /nickconfig
..AutoIdent On/Config: /set %regednick $$?="Your Nick:" | /set %regedpass $$?="Your Pass:" | //echo $input(You have Successfully configured auto-identify !,e,Thank You for using SeersIrc Network!!,title,text)
..AutoIdent Off: /set %regednick | /set %regedpass
.My Channels Config: /setautojoin $$?="Channels to join on connect! Example: #mIRC,#Xuck,#help"
.My Away Config
..AutoAway Settings: dialog $iif($dialog(away),-o,-m) away away
..Set away $+ $chr(58) $iif($group(#away) == off,on,off): {
if ($group(#away) == off) away $?="Enter away reason or leave black for default (if set)"
else back
}
.My Mp3 Config :/mp3
.My Friends Config:/uwho
.Sound Conifg
..on :/load -rs $mircdirsounds\sounds
..off :/unload -rs sounds
}
menu channel,nicklist,query,status,menubar {
Set away $+ $chr(58) $iif($group(#away) == off,on,off): {
if ($group(#away) == off) away $?="Enter away reason or leave black for default (if set)"
else back
}
Config Panel :/configpanel
------------------------------------------
alias aud dialog -md aud aud
dialog aud {
title "TonMp3 Player"
size -1 -1 157 155
option dbu
list 14, 6 7 145 67, size
box "Song List", 15, 3 0 151 78
button "Play", 13, 3 80 27 12, flat
button "Stop", 16, 34 80 27 12, flat
button "< Prev", 17, 65 80 27 12, flat
button "Next >", 18, 96 80 27 12, flat
button "Pause", 19, 127 80 27 12, flat
edit "To add music click on File at top left", 20, 2 96 112 10, read
scroll "", 22, 3 109 151 8, range 100 horizontal bottom
box "Volume Control", 23, 3 119 151 21
button "+", 24, 11 127 10 10
button "-", 25, 63 127 10 10
text "Volume Up", 26, 24 128 30 8
text "Volume Down", 27, 76 128 35 8
check "Mute", 28, 120 127 26 10
text "00:00", 29, 116 97 14 8
text "/", 30, 132 97 4 8
text "00:00", 31, 137 97 15 8
edit "", 21, 3 143 87 10
button "Search", 32, 93 143 27 10, ok flat
link "www.myspace.com/tonysbackyard", 33, 124 146 32 8
menu "File", 1
item "Add Folder", 2, 1
item "Add File", 3, 1
item "Remove File", 4, 1
item "Clear List", 5, 1
item "Save List", 6, 1
menu "mp3", 7
menu "Extra", 9, 7
item "TonMp3 is Running", 34, 9
item "Join Tonys Chat", 35, 9
item "ID3 Tags", 10, 7
menu "Options", 8
item "Repeat", 11, 8
item "Shuffle", 12, 8
}
on *:dialog:aud:init:0:{
if ($isfile(tsong.hsh)) {
if ($hget(tsong)) {
hload tsong tsong.hsh
}
else {
hmake tsong 100
hload tsong tsong.hsh
}
}
var %x = 1
while (%x <= $hget(tsong,0).item) {
did -a aud 14 $nopath($hget(tsong,%x))
inc %x
}
if ($didwm(aud,14,*$song $artist $length*)) {
did -d aud 14 $v1
}
elseif ($hget(tsong,spam)) {
if ($did(aud,14).lines == $hget(tsong,0).item) {
did -d aud 14 $did(aud,14).lines
}
}
}
on *:dialog:aud:menu:2:{
var %dir $sdir(C:\,Music Files)
did -r aud 14
var %x 1
while ($findfile(%dir,*.mp3,%x) != $null ) {
did -a aud 14 $nopath($findfile(%dir,*.mp3,%x))
hadd -m tsong %x $findfile(%dir,*.mp3,%x)
inc %x
}
var %x 1
while ($findfile(%dir,*.wav,%x) != $null ) {
did -a aud 14 $nopath($findfile(%dir,*.wav,%x))
hadd -m tsong %x $findfile(%dir,*.wav,%x)
inc %x
}
var %x 1
while ($findfile(%dir,*.midi,%x) != $null ) {
did -a aud 14 $nopath($findfile(%dir,*.midi,%x))
hadd -m tsong %x $findfile(%dir,*.midi,%x)
inc %x
}
}
on *:dialog:aud:menu:3:{
var %file $sfile(C:\,Music Files)
did -a aud 14 $nopath(%file)
hadd -m tsong $hget(tsong,0).item %file
}
on *:dialog:aud:menu:4:{
if ($did(aud,14).sel == $null) {
did -ra aud 20 Error: No Song Selected to Remove
.timermp3status 1 3 did -ra aud 20 No Song Is Playing
}
else {
hdel -w tsong $hfind(tsong,$+(*,$did(aud,14).seltext,*),w,1).data
did -d aud 14 $did(aud,14).sel
}
}
on *:dialog:aud:menu:5:{
did -r aud 14
hfree tsong
.remove tsong.hsh
}
on *:dialog:aud:menu:6:{
hsave -o tsong tsong.hsh
echo -s Play List Saved.
}
on *:dialog:aud:menu:10: dialog -m id3 id3
on *:dialog:aud:menu:11:{
if ($did(12).state == 1) {
did -u aud 12
$iif($did(11).state == 1,did -u $dname 11,did -c $dname 11)
}
else $iif($did(11).state == 1,did -u $dname 11,did -c $dname 11)
}
on *:dialog:aud:menu:12:{
if ($did(11).state == 1) {
did -u aud 11
$iif($did(12).state == 1,did -u $dname 12,did -c $dname 12)
}
else $iif($did(12).state == 1,did -u $dname 12,did -c $dname 12)
}
on *:dialog:aud:menu:34: $iif($did(34).state == 1,did -c $dname 34,did -c $dname 34)
on *:dialog:aud:menu:35: join #Baked
on *:dialog:aud:close:0:{
splay stop
.timerpos off
}
on *:dialog:aud:sclick:13: audplay
on *:dialog:aud:sclick:16: stop
on *:dialog:aud:sclick:17: prev
on *:dialog:aud:sclick:18: next
on *:dialog:aud:sclick:19:{
if ($insong == $true) && (!$insong.pause) {
splay pause
did -ra aud 19 Resume
}
elseif ($insong.pause) {
splay resume
did -ra aud 19 Pause
}
}
on *:dialog:aud:sclick:24: vol -v $calc($vol(master) + 2000)
on *:dialog:aud:sclick:25: vol -v $calc($vol(master) - 2000)
on *:dialog:aud:sclick:28: $iif($did(28).state == 1,vol -pu1,vol -pu2)
on *:dialog:aud:dclick:14: audplay
on *:dialog:aud:sclick:32:{
did -c aud 14 $didwm(aud,14,$+(*,$did(aud,21),*),1)
did -r aud 21
halt
}
on *:dialog:aud:sclick:33: run http://www.myspace.com/tonysbackyard
on *:dialog:aud:scroll:22:{
if ($devent == scroll) {
if ($did == 22) {
if ($insong == $true) {
var %t $round($calc($did(aud,22).sel / 22000 * $insong.length),0)
splay seek $calc((%t + $did(aud,22).sel) * 200)
}
}
}
}
on *:mp3end: next
on *:waveend: next
on *:midiend: next
alias audplay {
if ($did(aud,14).lines == 0) {
did -ra aud 20 No Playlist
halt
}
elseif ($did(aud,14).sel == $null) {
did -ra aud 20 No Song Selected
halt
}
else {
if ($sound($hget(tsong,$hfind(tsong,$+(*,$did(aud,14).seltext,*),1,w).data)).title != $null) {
did -ra aud 20 Playing: $sound($hget(tsong,$hfind(tsong,$+(*,$did(aud,14).seltext,*),1,w).data)).title
did -ra aud 31 $asctime($calc($sound($hget(tsong,$hfind(tsong,$+(*,$did(aud,14).seltext,*),1,w).data)).length / 1000 ),nn:ss)
.timerpos 0 1 pos.seek
splay $hget(tsong,$hfind(tsong,$+(*,$did(aud,14).seltext,*),1,w).data)
/msg #Baked 12 Now Playing 4 $did(aud,14).seltext 12[ $length ]
}
else {
did -ra aud 20 Playing: $did(aud,14).seltext
did -ra aud 31 $asctime($calc($sound($hget(tsong,$hfind(tsong,$+(*,$did(aud,14).seltext,*),1,w).data)).length / 1000 ),nn:ss)
.timerpos 0 1 pos.seek
splay $hget(tsong,$hfind(tsong,$+(*,$did(aud,14).seltext,*),1,w).data)
}
}
if ($did(aud,34).state == 1) {
if ($hget(tsong,spam)) {
if ($sound($hget(tsong,$hfind(tsong,$+(*,$did(aud,14).seltext,*),1,w).data)).title == $null) && ($did(aud,34).state == 1) msg $active Jamming to $did(aud,14).seltext
else $iif($did(aud,34).state == 1,$($+($hget(tsong,spam)),2),return)
}
}
}
alias stop {
splay stop
.timerpos off
did -ra aud 20 No Song Is Playing
did -ra aud 31 00:00
did -ra aud 29 00:00
}
alias prev {
splay stop
.timerpos off
if ($did(aud,12).state == 1) {
if ($hget(tsong,spam)) {
did -c aud 14 $r(1,$calc($hget(tsong,0).item - 1))
audplay
}
else {
did -c aud 14 $r(1,$hget(tsong,0).item)
audplay
}
}
elseif ($did(aud,11).state == 1) { audplay }
else {
did -c aud 14 $calc($did(aud,14).sel - 1)
audplay
}
}
alias next {
splay stop
.timerpos off
if ($did(aud,12).state == 1) {
if ($hget(tsong,spam)) {
did -c aud 14 $r(1,$calc($hget(tsong,0).item - 1))
audplay
}
else {
did -c aud 14 $r(1,$hget(tsong,0).item)
audplay
}
}
elseif ($did(aud,11).state == 1) { audplay }
elseif ($did(aud,14).sel == $did(aud,14).lines) && ($did(aud,11).state == 0) && ($did(aud,12).state == 0) {
did -c aud 14 1
audplay
}
else {
did -c aud 14 $calc($did(aud,14).sel + 1)
audplay
}
}
alias -l pos.seek {
if ($dialog(aud) != $null) && ($inmp3 == $true) {
did -c aud 22 $round($calc($calc($insong.pos / $insong.length) * 100),0)
;the below line was basically written by the good ImthePariah
did -ra aud 29 $+($gettok($duration($calc($insong.pos / 1000),3),2-,58),/,$gettok($duration($calc($insong.length / 1000),3),2-,58))
}
elseif ($dialog(aud) == $null) {
.timerpos off
}
}
alias length {
return $asctime($calc($sound($hget(tsong,$hfind(tsong,$+(*,$did(aud,14).seltext,*),1,w).data)).length / 1000 ),nn:ss)
}
alias artist {
return $sound($hget(tsong,$hfind(tsong,$+(*,$did(aud,14).seltext,*),1,w).data)).artist
}
alias song {
return $sound($hget(tsong,$hfind(tsong,$+(*,$did(aud,14).seltext,*),1,w).data)).title
}
alias bit {
return $sound($hget(tsong,$hfind(tsong,$+(*,$did(aud,14).seltext,*),1,w).data)).bitrate
}
alias jam {
if ($hget(tsong,spam)) {
if ($sound($hget(tsong,$hfind(tsong,$+(*,$did(aud,14).seltext,*),1,w).data)).title == $null) msg $active Jamming to $did(aud,14).seltext
else $($+($hget(tsong,spam)),2)
}
else echo -a No Spam Message set.
}
dialog spam {
title "Spam Message"
size -1 -1 147 82
option dbu
radio "Message all channels", 1, 2 3 63 10,
radio "Describe all channels", 2, 75 3 64 10, group
radio "Message active channels", 3, 2 16 72 10, group
radio "Describe active channels", 4, 75 16 71 10, group
text "Select one of the above boxes and fill in the message that you would like to use for your spam message. You can use the following identifiers to return song info. $length = Song length $artist = Artist $song = Title $bit = Bitrate", 5, 1 27 145 28
edit "", 6, 25 57 115 10, autohs
text "Message:", 7, 1 58 24 8
button "Set", 8, 7 70 25 10, ok flat
button "Cancel", 9, 34 70 25 10, cancel flat
}
on *:dialog:spam:init:0:{
if ($gettok($hget(tsong,spam),1,32) == msg) did -c spam 3
if ($gettok($hget(tsong,spam),1,32) == describe) did -c spam 4
if ($gettok($hget(tsong,spam),1,32) == amsg) did -c spam 1
if ($gettok($hget(tsong,spam),1,32) == ame) did -c spam 2
if ($gettok($hget(tsong,spam),1,32) == msg) || ($gettok($hget(tsong,spam),1,32) == describe) {
$iif($hget(tsong,spam),did -a spam 6 $gettok($hget(tsong,spam),3-,32),return)
}
else {
$iif($hget(tsong,spam),did -a spam 6 $gettok($hget(tsong,spam),2-,32),return)
}
}
on *:dialog:spam:sclick:1: did -u spam 2,3,4
on *:dialog:spam:sclick:2: did -u spam 1,3,4
on *:dialog:spam:sclick:3: did -u spam 1,2,4
on *:dialog:spam:sclick:4: did -u spam 1,2,3
on *:dialog:spam:sclick:8:{
if ($did(spam,1).state == 0) && ($did(spam,2).state == 0) && ($did(spam,3).state == 0) && ($did(spam,4).state == 0) {
did -ra spam 6 You need to check a message type.
halt
}
else {
if ($did(spam,1).state == 1) hadd -m tsong Spam msg #seersmp3 $did(spam,6)
elseif ($did(spam,2).state == 1) hadd -m tsong Spam msg #seersmp3 $did(spam,6)
elseif ($did(spam,3).state == 1) hadd -m tsong Spam msg #seersmp3 $did(spam,6)
elseif ($did(spam,4).state == 1) hadd -m tsong Spam msg #seersmp3 $did(spam,6)
}
}
dialog id3 {
title "Id3 Changer"
size -1 -1 88 90
option dbu
list 1, 1 0 86 52, size
text "Title:", 2, 2 54 13 8
text "Artist:", 3, 2 65 14 8
edit "", 4, 16 53 66 10, autohs
edit "", 5, 16 64 66 10, autohs
button "Save", 6, 3 76 22 12, flat
button "Close", 7, 33 76 22 12, flat ok
button "Cancel", 8, 63 76 22 12, flat cancel
}
on *:dialog:id3:init:0:{
var %x = 1
while (%x <= $hget(tsong,0).item) {
did -a id3 1 $nopath($hget(tsong,%x))
inc %x
}
if ($didwm(aud,14,*$song $artist $length*)) {
did -d id3 1 $v1
}
elseif ($hget(tsong,spam)) {
if ($did(id3,1).lines == $hget(tsong,0).item) {
did -d id3 1 $did(id3,1).lines
}
}
}
on *:dialog:id3:dclick:1:{
set %song $hget(tsong,$hfind(tsong,$+(*,$did(id3,1).seltext,*),1,w).data)
did -r id3 5,4
if ($sound(%song).artist) did -a id3 5 $ifmatch
if ($sound(%song).title) did -a id3 4 $ifmatch
}
on *:dialog:id3:sclick:6:{
$EDIT($shortfn(%song),1,4)
$EDIT($shortfn(%song),2,5)
}
alias -l EDIT {
bread $1 $B_CALC($1,128) 3 &tag
if ($bvar(&tag,1-3).text != TAG) {
bwrite $1 $B_CALC($1,128) 3 TAG
bset &fill 125 0
bwrite $1 $B_CALC($1,125) 124 &fill
bunset &fill
}
if ($did(id3,4)) || ($did(id3,5)) {
bset &val $N_BYTE($2) $did(id3,$3)
bwrite $1 $S_BYTE($1,$2) $N_BYTE($2) &val
$iif($2 < 6,.bwrite $1 $S_BYTE($1,$2) $N_BYTE($2) $did(id3,$3))
}
else {
bset &val 30 $asc($chr(32))
bwrite $1 $S_BYTE($1,$2) $N_BYTE($2) &val
}
bunset &val
}
alias -l B_CALC return $calc($file($1).size - $2)
alias -l N_BYTE return $gettok(30 30 30 4 30 1,$1,32)
alias -l S_BYTE return $calc($file($1).size - $gettok(125 95 65 35 31 1,$2,32))
menu menubar,channel,nicklist {
Mp3 Controls
.Mp3 Player or F2:/aud
.Play or F3:/audplay
.Stop or F4:/stop
.Previous or F5:/prev
.Next or F6:/next
.Volume Up or F7:/vol -v $calc($vol(master) + 2000)
.Volume Down or F8:/vol -v $calc($vol(master) - 2000)
.Join Mp3 Channel or F9:/join #Baked
}
-----------------------------------
; #################################################################
; ## Away system script ##
; ## Designed and written by Tony ##
; ## Email: tholtnpt15@hotmail.com ##
; ## Written and tested in mIRC 6.17 ##
; ## Also tested in mIRC 6.16 ##
; ## May not work correctly in earlier versions ##
; ## ----------------------------------------------------------- ##
; ## Usage: ##
; ## /Away.Config - Opens the options dialog ##
; ## /Away [Reason] - Set yourself away ##
; ## /Away [Preset] - Set yourself away using a preset trigger ##
; ## /Back - Return from away ##
; ## Options are also avaliable via menus ##
; #################################################################
; ##############################################
; # Start Idle Away Timer #
; ##############################################
on *:start: if ($readini(Settings.ini,Away.Config,AutoAway) == on) .timerAway.IdleCheck -o 0 30 Away.IdleCheck
; ##############################################
; # Load Default Options #
; ##############################################
on *:load: {
if (!$readini(AwaySettings.ini,Config,NickEditType)) writeini AwaySettings.ini Config NickEditType Suffix
if (!$readini(AwaySettings.ini,Config,NickPrefix)) writeini AwaySettings.ini Config NickPrefix Away|
if (!$readini(AwaySettings.ini,Config,NickSuffix)) writeini AwaySettings.ini Config NickSuffix |Away
if (!$readini(AwaySettings.ini,Config,NickSetTo)) writeini AwaySettings.ini Config NickSuffix Away
if (!$readini(AwaySettings.ini,Config,AutoAway)) writeini AwaySettings.ini Config AutoAway off
if (!$readini(AwaySettings.ini,Config,AutoAwayTime)) writeini AwaySettings.ini Config AutoAwayTime 900
if (!$readini(AwaySettings.ini,Config,IdleSettings)) writeini AwaySettings.ini Config IdleSettings Suffix~|Idle~Auto away after %time minutes idle
if (!$readini(AwaySettings.ini,Config,LeavingTime)) writeini AwaySettings.ini Config LeavingTime off
if (!$readini(AwaySettings.ini,Config,LeavingTimeFormat)) writeini AwaySettings.ini Config LeavingTimeFormat HH:nn:ss
if (!$readini(AwaySettings.ini,Config,TimeAway)) writeini AwaySettings.ini Config TimeAway off
if (!$readini(AwaySettings.ini,Config,TimeAwayFormat)) writeini AwaySettings.ini Config TimeAwayFormat Short
if (!$readini(AwaySettings.ini,Config,ARChannelMessage)) writeini AwaySettings.ini Config ARChannelMessage off
if (!$readini(AwaySettings.ini,Config,ARPrivateMessage)) writeini AwaySettings.ini Config ARPrivateMessage off
if (!$readini(AwaySettings.ini,Config,MsgChans)) writeini AwaySettings.ini Config MsgChans on
if (!$readini(AwaySettings.ini,Config,MsgQueries)) writeini AwaySettings.ini Config MsgQueries off
if (!$readini(AwaySettings.ini,Config,RespondHilights)) writeini AwaySettings.ini Config RespondHilights on
if (!$readini(AwaySettings.ini,Config,RespondPM)) writeini AwaySettings.ini Config RespondPM on
if (!$readini(AwaySettings.ini,Config,RespondNotice)) writeini AwaySettings.ini Config RespondNotice on
echo -a 4>>> Successfully loaded $remove($script,$scriptdir) - Away System script by Xuck
}
; ##############################################
; # Check for away on connect #
; ##############################################
on *:connect: {
if ($group(#away) == on) {
if ($($+(%,Away.Newnick.,$network),2) != $me) nick $ifmatch
ame is currently away $iif(%Away.Reason,- %Away.Reason) $iif(%Away.leavetime,- Left at %Away.Leavtime) $iif($Away.Gonefor,- Gone for $Away.Gonefor)
!away Away: $iif(%Away.Reason,- %Away.Reason) $iif(%Away.leavetime,- Left at %Away.Leavtime) $iif($Away.Gonefor,- Gone for $Away.Gonefor)
}
}
; ##############################################
; # Remove Away if unloaded #
; ##############################################
on *:unload: {
disable #away
unset %away.*
hfree away.*.responses
timerAway.Idlecheck off
}
; ##############################################
; # Cancel Away on exit #
; ##############################################
on *:exit: {
disable #away
unset %away.*
timerAway.Idlecheck off
}
; ##############################################
; # Popup Menus #
; ##############################################
menu status,channel,menubar,@Away.Logs {
-
Away Settings
.Open away options: dialog $iif($dialog(away),-o,-m) away away
.$iif($active == @Away.Logs,Close window):window -c $active
. -
. Set away $+ $chr(58) $iif($group(#away) == off,on,off): {
if ($group(#away) == off) away $?="Enter away reason or leave black for default (if set)"
else back
}
.-
.$iif($group(#away) == on && %Away.Preset == 1,$style(3),$iif($group(#away) == on || !$readini(AwaySettings.ini,Presets,1),$style(2))) Preset 1 - $iif($readini(AwaySettings.ini,Presets,1),$gettok($v1,1,126),Not set):away $gettok($readini(AwaySettings.ini,Presets,1),1,126)
.$iif($group(#away) == on && %Away.Preset == 2,$style(3),$iif($group(#away) == on || !$readini(AwaySettings.ini,Presets,2),$style(2))) Preset 2 - $iif($readini(AwaySettings.ini,Presets,2),$gettok($v1,1,126),Not set):away $gettok($readini(AwaySettings.ini,Presets,2),1,126)
.$iif($group(#away) == on && %Away.Preset == 3,$style(3),$iif($group(#away) == on || !$readini(AwaySettings.ini,Presets,3),$style(2))) Preset 3 - $iif($readini(AwaySettings.ini,Presets,3),$gettok($v1,1,126),Not set):away $gettok($readini(AwaySettings.ini,Presets,3),1,126)
.$iif($group(#away) == on && %Away.Preset == 4,$style(3),$iif($group(#away) == on || !$readini(AwaySettings.ini,Presets,4),$style(2))) Preset 4 - $iif($readini(AwaySettings.ini,Presets,4),$gettok($v1,1,126),Not set):away $gettok($readini(AwaySettings.ini,Presets,4),1,126)
.$iif($group(#away) == on && %Away.Preset == 5,$style(3),$iif($group(#away) == on || !$readini(AwaySettings.ini,Presets,5),$style(2))) Preset 5 - $iif($readini(AwaySettings.ini,Presets,5),$gettok($v1,1,126),Not set):away $gettok($readini(AwaySettings.ini,Presets,5),1,126)
.$iif($group(#away) == on && %Away.Preset == 6,$style(3),$iif($group(#away) == on || !$readini(AwaySettings.ini,Presets,6),$style(2))) Preset 6 - $iif($readini(AwaySettings.ini,Presets,6),$gettok($v1,1,126),Not set):away $gettok($readini(AwaySettings.ini,Presets,6),1,126)
.$iif($group(#away) == on && %Away.Preset == 7,$style(3),$iif($group(#away) == on || !$readini(AwaySettings.ini,Presets,7),$style(2))) Preset 7 - $iif($readini(AwaySettings.ini,Presets,7),$gettok($v1,1,126),Not set):away $gettok($readini(AwaySettings.ini,Presets,7),1,126)
}
; ##############################################
; # Main Dialog #
; ##############################################
dialog away {
title Away System Settings
size -1 -1 150 177
option dbu
tab "Basic Settings" 100,0 0 150 156
tab "Exceptions and Messaging" 200,0 0 150 156
Box "Default Away Settings", 2, 4 15 142 45, tab 100
text "Nick:", 1, 8 28 12 10, tab 100
combo 3, 22 26 50 10, drop tab 100
edit "", 5, 75 26 50 10, tab 100
button "?", 6, 130 26 10 10, tab 100
text "Default Away Message:", 24, 8 39 100 10, tab 100
edit "", 25, 8 47 117 10, autohs tab 100
button "?", 26, 130 47 10 10, tab 100
box "Global Options" 4, 4 62 142 92, tab 100
check "A&uto Away After", 7, 12 71 50 10, tab 100
edit "", 8, 63 71 10 10, tab 100
text "minutes.", 9, 75 72.5 40 10, tab 100
button "?", 10, 130 71 10 10, tab 100
button "options", 27, 98 71 30 10, tab 100
check "Show &Leaving Time?" 11, 12 85 60 10, tab 100
edit "" 12, 75 85 50 10, tab 100
button "?", 13, 130 85 10 10, tab 100
check "Show &Time Away?" 14, 12 100 55 10, tab 100
combo 15, 75 100 50 10, drop tab 100
button "?", 16, 130 100 10 10, tab 100
box "Auto Return" 17, 7 115 136 35, tab 100
text "Cancel away on:" 18, 12 125 80 10, tab 100
check "&Channel Message" 19, 60 124 50 10, tab 100
check "&Private Message" 20, 60 134 50 10, tab 100
button "?", 21, 130 134 10 10, tab 100
;Exception + messaging options: - display only does nothing yet
box "Messaging", 30, 4 15 142 90, tab 200
text "Send messages to:", 31, 8 26 50 10, tab 200
check "All open channels" 32, 60 25 50 10, tab 200
check "All open queries" 33, 60 35 50 10, tab 200
button "?", 34, 130 26 10 10, tab 200
box "Response Messages", 35, 8 48 134 38, tab 200
text "Respond to:", 36, 12 56 50 10, tab 200
check "Channel highlight", 37, 60 55 50 10, tab 200
check "Private message", 38, 60 65 50 10, tab 200
check "Private notice", 39, 60 75 50 10, tab 200
button "?", 40, 130 55 10 10, tab 200
button "Get mIRC hilights", 42, 18 90 50 10, tab 200
button "Modify Hilights", 43, 70 90 50 10, tab 200
button "?", 44, 130 90 10 10, tab 200
box "Exceptions", 45, 4 109 142 24, tab 200
button "Modify Away System Exceptions" 46, 8 118 100 10, tab 200
button "?", 48, 130 118 10 10, tab 200
button "Edit &Presets" 22, 12 159 60 15
button "&Ok" 23, 80 159 60 15, ok
}
; ##############################################
; # Custom presets dialog #
; ##############################################
dialog Custom.Aways {
title Custom Away Messages
size -1 -1 236 110
option dbu
box "Custom Away Triggers" 1, 4 4 227 85
text "Trigger", 2, 16 12 30 10
text "Nick Settings", 3, 50 12 50 10
text "Away Message", 4, 130 12 50 10
list 5, 10 20 30 50
list 6, 40 20 50 50
list 7, 90 20 134 50, autohs
button "Add", 8, 10 70 50 15
button "Edit", 10, 65 70 50 15
button "Delete", 9, 120 70 50 15
button "Clear", 12, 175 70 50 15
button "OK", 11, 90 90 50 15, OK
}
; ##############################################
; # Idle Away Settings + Help dialogs #
; ##############################################
dialog Idle.Away.Settings {
title Idle Away Settings
size -1 -1 120 85
option dbu
box "Idle away settings", 1, 4 4 112 55
text "Nick Settings:", 2, 8 12 50 10
combo 3, 8 20 50 10, drop
edit "", 4, 62 20 50 10
text "Idle away message:", 5, 8 35 50 10
edit "", 6, 8 43 104 10, autohs
button "&Help" 7, 5 65 50 15
button "&Ok", 8, 65 65 50 15, OK
}
Dialog Idle.Away.Help {
title Away System Help
size -1 -1 150 90
option dbu
box "Idle away help", 1, 4 4 142 60
text "Idle away nick and automatic message settings work in the same way as the default away settings in the main dialog, except that they define the settings used when you are automatically set away from Idle" 2, 8 15 133 25
text "you can use %time to refer to the time you must idle before being set as away", 3, 8 45 133 20
button "&Ok", 4, 50 70 50 15, OK
}
; ##############################################
; # Preset Settings + Help dialogs #
; ##############################################
dialog Preset.Settings {
title Preset Settings
size -1 -1 120 100
option dbu
box "Preset settings", 1, 4 4 112 70
text "Trigger:", 2, 8 14 50 10
edit "", 3, 30 13 50 10
text "Nick Settings:", 4, 8 27 50 10
combo 5, 8 35 50 10, drop
edit "", 6, 62 35 50 10
text "Away message:", 7, 8 50 50 10
edit "", 8, 8 58 104 10, autohs
button "&Help" 9, 5 80 50 15
button "&Ok", 10, 65 80 50 15, OK
}
Dialog Preset.Help {
title Away System Help
size -1 -1 150 90
option dbu
box "Presets help", 1, 4 4 142 60
text "Preset nick and Away message settings work in the same way as the default away settings in the main dialog, except that they define the settings used for the preset you are creating" 2, 8 15 133 27
text "To use a preset once you have created it simply type /Away TRIGGER", 3, 8 45 133 20
button "&Ok", 4, 50 70 50 15, OK
}
; ##############################################
; # Exceptions dialogs #
; ##############################################
dialog Away.Exceptions {
title Away System Exceptions
size -1 -1 120 100
option dbu
box "Exceptions" 1, 4 4 112 75
text "Networks" 2, 8 12 50 10, center
list 3, 8 19 50 58
button "Add" 6, 61 20 50 10
button "Delete" 7, 61 34 50 10
button "Edit" 8, 61 49 50 10
button "Clear" 9, 61 63 50 10
button "OK" 10, 35 82 50 15, oks
}
dialog Away.AddException {
title Add Exception
size -1 -1 156 190
option dbu
box "Add Exception" 1, 4 4 148 165
text "Network Name:" 2, 8 16 40 10
edit "" 3, 50 15 60 10
text "If you are unsure of a network name you can type: //echo -a $network in mIRC to view it." 20, 8 30 130 15
box "Exception scope" 4, 8 50 140 55
Text "This exception affects:" 5, 12 60 55 10
radio "Entire network" 6, 69 59 65 10
radio "certain channels only" 7, 69 69 65 10
Text "Enter Channels to be excepted, seperated by spaces." 8, 12 80 130 10
edit "" 9, 12 90 130 10
box "Exception Options" 10, 8 110 140 55
text "On this network:" 11, 12 120 45 10
check "Do not change nick" 12, 55 120 55 10
check "Do not send away messages" 13, 55 130 80 10
check "Do not send hilight responses" 14, 55 140 80 10
check "Do not send PM responses" 15, 55 150 80 10
button "OK" 16, 53 172 50 15, Ok
}
; ##############################################
; # Help Dialogs #
; ##############################################
dialog Away.Help.6 {
title Away System Help
size -1 -1 150 120
option dbu
box "Nick Settings Help", 1, 5 5 140 90
text "Nick PREFIX: Adds the specified text to the FRONT of your nick when going away", 2, 8 15 133 20
text "Nick SUFFIX: Adds the specified text to the END of your nick when going away", 3, 8 35 133 20
text "Set to: Sets your nick to the specified nick when you set away", 4, 9 55 133 20
text "Dont Change: Means that youre nick will not change when going away or coming back", 5, 8 75 133 20
button "OK", 7, 50 100 50 15, OK
}
dialog Away.Help.10 {
title Away System Help
size -1 -1 150 90
option dbu
box "Auto Away Help", 1, 5 5 140 60
text "Enabling Auto-Away will automatically set you as away if you are idle for the specified time", 2, 8 15 134 20
text "Time must be between 1 and 60 minutes", 3, 8 35 134 20
text "Options for settings Idle nick and message can be found by clicking the options button", 4, 8 45 134 20
button "OK", 5, 50 70 50 15, ok
}
dialog Away.Help.13 {
title Away System Help
size -1 -1 150 80
option dbu
box "Show Leaving Time Help", 1, 5 5 140 50
text "Enabling 'Show Leaving Time' will display the time you went away in all your away messages in the specified Time Format", 2, 8 15 134 20
button "Click Here for a list of codes used in time format", 3, 8 40 134 10
button "OK", 4, 50 60 50 15, ok
}
dialog Away.Help.16 {
title Away System Help
size -1 -1 150 90
option dbu
box "Show Time Away Help", 1, 5 5 140 60
text "Enabling 'Show Time Away' will display how long you have been away in all your away messages in the specified Time Format", 2, 8 15 134 20
text "Example of Short format: 5h 6m 10s" 3, 8 40 134 10
text "Example of Medium format: 5hrs 6mins 10secs" 4, 8 48 134 10
text "Example of long format: 5 hours 6 minutes 10 seconds" 5, 8 56 134 10
button "OK", 6, 50 70 50 15, ok
}
dialog Away.Help.21 {
title Away System Help
size -1 -1 150 65
option dbu
box "Automatic Return Help", 1, 5 5 140 35
text "Enabling 'Automatic Return' will automatically bring you back from away if you send any Channel And/Or Private message", 2, 8 15 134 20
button "OK", 5, 50 45 50 15, ok
}
dialog Away.Help.26 {
title Away System Help
size -1 -1 150 55
option dbu
box "Default Message Help", 1, 5 5 140 27
text "If you do not enter a reason when going away this default will be used", 2, 8 15 134 20
button "OK", 3, 50 35 50 15, ok
}
dialog Away.Help.34 {
title Away System Help
size -1 -1 150 60
option dbu
box "Message sending help", 1, 5 5 140 32
text "These options refer to weather your away message will be sent to channels and/or Pm's (Queries) when leaving and returning.", 2, 8 15 134 20
button "OK", 3, 50 40 50 15, ok
}
dialog Away.Help.40 {
title Away System Help
size -1 -1 150 80
option dbu
box "Auto Response Help", 1, 5 5 140 50
text "These options refer to what actions will trigger an auto message alerting the person that you are away.", 2, 8 15 134 20
text "Channel highlight is triggered whenever someone says a word that is in your hilights list", 3, 8 35 134 20
button "OK", 4, 50 60 50 15, ok
}
dialog Away.Help.44 {
title Away System Help
size -1 -1 150 120
option dbu
box "Hilight help", 1, 5 5 140 92
text "'Hilight' occurs whenever somebody says a word that is in your hilights list.", 2, 8 15 134 20
text "Your away hilights determine what words, when said, will cause the script to notify the person that you are away, and log the message", 3, 8 31 134 20
text "If you have hilights set in mIRC you can click 'Get mIRC Hilights' to have the away system use these same hilights", 4, 8 54 134 20
text "You may also add or modify seperate ones using the 'Modify Hilights' button. Note that Identifiers such as $me (which refers to your current nick) are also allowed" 5, 8 75 134 20
button "OK", 6, 50 100 50 15, ok
}
dialog Away.Help.48 {
title Away System Help
size -1 -1 150 65
option dbu
box "Exceptions help", 1, 5 5 140 35
text "Exceptions allow you to specify networks/channels in which away messages are not sent, or networks in which your nick is not changed", 2, 8 15 134 25
button "OK", 3, 50 45 50 15, ok
}
dialog Away.Help.Time {
title Away System Help
size -1 -1 150 155
option dbu
box "Time Format Help", 1, 5 5 140 120
text "The following is a list of Codes that can be used in Time Formats", 2, 8 15 134 20
box "Time Format Codes", 3, 8 30 134 88
list 4, 20 40 20 75
list 5, 40 40 90 75
button "OK", 6, 50 130 50 15, ok
}
; ##############################################
; # Dialog Initiation events #
; ##############################################
; ----- Populate Time help
on *:dialog:Away.Help.Time:init:*: {
did -a $dname 4 HH
did -a $dname 5 Hours - 2 Digit 24 hour time - $time(HH)
did -a $dname 4 H
did -a $dname 5 Hours - 1 Digit 24 hour time - $time(H)
did -a $dname 4 hh
did -a $dname 5 Hours - 2 Digit 12 hour time - $time(hh)
did -a $dname 4 h
did -a $dname 5 Hours - 1 Digit 12 hour time - $time(h)
did -a $dname 4 nn
did -a $dname 5 Minutes - 2 Digit - $time(nn)
did -a $dname 4 n
did -a $dname 5 Minutes - 1 Digit - $time(n)
did -a $dname 4 ss
did -a $dname 5 Seconds - 2 Digit - $time(ss)
did -a $dname 4 s
did -a $dname 5 Seconds - 1 Digit - $time(s)
did -a $dname 4 tt
did -a $dname 5 am/pm - Lower case - $time(tt)
did -a $dname 4 TT
did -a $dname 5 AM/PM - Upper Case - $time(TT)
}
; ----- Populate main dialog settings
on *:dialog:away:init:*: {
;Tab 100 Controls
did -a $+ $iif($readini(AwaySettings.ini,Config,NickEditType) == Prefix,c) $dname 3 Prefix
did -a $+ $iif($readini(AwaySettings.ini,Config,NickEditType) == Suffix,c) $dname 3 Suffix
did -a $+ $iif($readini(AwaySettings.ini,Config,NickEditType) == Set to,c) $dname 3 Set to
did -a $+ $iif($readini(AwaySettings.ini,Config,NickEditType) == Don't Change,c) $dname 3 Don't Change
if ($readini(AwaySettings.ini,Config,NickEditType) == Don't Change) did -m $dname 5
if ($readini(AwaySettings.ini,Config,NickPrefix)) && ($did(away,3).seltext == Prefix) did -ra $dname 5 $readini(AwaySettings.ini,Config,NickPrefix)
if ($readini(AwaySettings.ini,Config,NickSuffix)) && ($did(away,3).seltext == Suffix) did -ra $dname 5 $readini(AwaySettings.ini,Config,NickSuffix)
if ($readini(AwaySettings.ini,Config,NickSetTo)) && ($did(away,3).seltext == Set To) did -ra $dname 5 $readini(AwaySettings.ini,Config,NickSetTo)
if ($readini(AwaySettings.ini,Config,AutoAway) == on) did -c $dname 7 | else did -m $dname 8
if ($readini(AwaySettings.ini,Config,AutoAwayTime)) did -a $dname 8 $calc($ifmatch / 60) | else did -a $dname 8 900
if ($readini(AwaySettings.ini,Config,LeavingTime) == on) did -c $dname 11 | else did -m $dname 12
if ($readini(AwaySettings.ini,Config,LeavingTimeFormat)) did -a $dname 12 $ifmatch | else did -a $dname 12 HH:nn:ss
if ($readini(AwaySettings.ini,Config,TimeAway) == on) did -c $dname 14 | else did -b $dname 15
if ($readini(AwaySettings.ini,Config,TimeAwayFormat) == Short) did -ac $dname 15 Short | else did -a $dname 15 Short
if ($readini(AwaySettings.ini,Config,TimeAwayFormat) == Medium) did -ac $dname 15 Medium | else did -a $dname 15 Medium
if ($readini(AwaySettings.ini,Config,TimeAwayFormat) == Long) did -ac $dname 15 Long | else did -a $dname 15 Long
if ($readini(AwaySettings.ini,Config,ARChannelMessage) == on) did -c $dname 19
if ($readini(AwaySettings.ini,Config,ARPrivateMessage) == on) did -c $dname 20
if ($readini(AwaySettings.ini,Config,DefaultMessage)) did -a $dname 25 $ifmatch
;Tab 200 controls
if ($readini(AwaySettings.ini,Config,MsgChans) == on) did -c $dname 32
if ($readini(AwaySettings.ini,Config,MsgQueries) == on) did -c $dname 33
if ($readini(AwaySettings.ini,Config,RespondHilights) == on) did -c $dname 37
if ($readini(AwaySettings.ini,Config,RespondPM) == on) did -c $dname 38
if ($readini(AwaySettings.ini,Config,RespondNotice) == on) did -c $dname 39
}
; ----- Populate Custom presets list
on *:dialog:Custom.Aways:init:*: {
var %x = 1
while (%x <= 7) {
if ($readini(AwaySettings.ini,Presets,%x)) {
did -a $dname 5 $gettok($v1,1,126)
did -a $dname 6 $gettok($v1,2,126)
did -a $dname 7 $gettok($v1,3-,126)
}
else halt
inc %x
}
}
; ----- Populate Idle Away Settings
on *:dialog:Idle.Away.Settings:init:*: {
tokenize 126 $readini(AwaySettings.ini,n,Config,IdleSettings)
did -a $+ $iif($1 == Prefix,c) $dname 3 Prefix
did -a $+ $iif($1 == Suffix,c) $dname 3 Suffix
did -a $+ $iif($1 == Set to,c) $dname 3 Set to
did -a $+ $iif($1 == Don't Change,c) $dname 3 Don't Change
if ($1 == Don't Change) did -m $dname 5
else did -ra $dname 4 $2
if ($3) did -a $dname 6 $3-
}
; ----- Populate Preset settings
on *:dialog:Away.Preset:init:*: {
if (%Away.EditPreset) {
var %pre = %Away.EditPreset, %trigger = $did(Custom.Aways,5).seltext
var %edittype = $gettok($did(Custom.Aways,6).seltext,1,58), %nickedit = $gettok($did(Custom.Aways,6).seltext,2,58)
var %reason = $did(Custom.Aways,7).seltext
did -a $dname 3 %trigger
did -a $+ $iif(%edittype == Prefix,c) $dname 5 Prefix
did -a $+ $iif(%edittype == Suffix,c) $dname 5 Suffix
did -a $+ $iif(%edittype == Set to,c) $dname 5 Set to
did -a $+ $iif(%edittype == Don't Change,c) $dname 5 Don't Change
if (%edittype == Don't Change) did -m $dname 6
else did -ra $dname 6 %nickedit
if (%reason) did -a $dname 8 %reason
}
else {
did -a $dname 5 Prefix
did -a $dname 5 Suffix
did -a $dname 5 Set to
did -a $dname 5 Don't Change
}
}
; Exception initiation events
on *:dialog:Away.Exceptions:init:*: {
var %x = 1,%total = $ini(AwaySettings.ini,Exceptions,0)
while (%x <= %total) {
did -a $dname 3 $ini(AwaySettings.ini,Exceptions,%x)
inc %x
}
}
on *:dialog:Away.AddException:init:*: {
if (%Away.Exception) {
var %info = $readini(AwaySettings.ini,Exceptions,%away.Exception)
var %scope = $gettok(%info,1,126), %options = $gettok(%info,2,126), %chans = $gettok(%info,3-,126)
did -a $dname 3 %Away.Exception
if (%scope == 1) {
did -c $dname 6
did -b $dname 9
}
else {
did -c $dname 7
did -b $dname 12,15
did -e $dname 9
did -a $dname 9 %chans
}
if ($left(%options,1) == 1) && (%scope == 1) did -c $dname 12
if ($mid(%options,2,1) == 1) did -c $dname 13
if ($mid(%options,3,1) == 1) did -c $dname 14
if ($right(%options,1) == 1) && (%scope == 1) did -c $dname 15
}
else {
did -c $dname 6
did -b $dname 9
}
}
; ##############################################
; # Dialog Sclick Events #
; ##############################################
; ----- Open Time Help dialog
on *:dialog:Away.Help.13:sclick:3: {
dialog $iif($dialog(Away.Help.Time),-o,-m) Away.Help.Time Away.Help.Time
dialog -x $dname
}
; ----- Select same line in each column in time help dialog
on *:dialog:Away.Help.Time:sclick:*: {
if ($did == 4) did -c $dname 5 $did(4).sel
elseif ($did == 5) did -c $dname 4 $did(5).sel
}
; ----- Processing clicks for main dialog
on *:dialog:away:sclick:*: {
; Tab 100
if ($did == 3) {
writeini AwaySettings.ini Config NickEditType $did(3).seltext
if ($did(3).seltext == Prefix) did -nra $dname 5 $readini(AwaySettings.ini,Config,NickPrefix)
elseif ($did(3).seltext == suffix) did -nra $dname 5 $readini(AwaySettings.ini,Config,NickSuffix)
elseif ($did(3).seltext == Set to) did -nra $dname 5 $readini(AwaySettings.ini,Config,NickSetTo)
else did -rm $dname 5
}
if ($did == 7) && ($did(7).state == 0) did -m $dname 8
elseif ($did == 7) && ($did(7).state == 1) did -n $dname 8
elseif ($did == 11) && ($did(11).state == 0) did -m $dname 12
elseif ($did == 11) && ($did(11).state == 1) did -n $dname 12
elseif ($did == 14) && ($did(14).state == 0) did -b $dname 15
elseif ($did == 14) && ($did(14).state == 1) did -e $dname 15
elseif ($istok(6|10|13|16|21|26|34|40|44|48,$did,124)) dialog $iif($dialog($+(Away.Help.,$did)),-o,-m) $+(Away.Help.,$did) $+(Away.Help.,$did)
elseif ($did == 22) dialog $iif($dialog(Custom.Aways),-o,-m) Custom.Aways Custom.Aways
elseif ($did == 27) dialog $iif($dialog(Idle.Away.Settings),-o,-m) Idle.Away.Settings Idle.Away.Settings
; Tab 200
elseif ($did == 42) {
if ($input(Retrieved the following hilights from your current mIRC settings: $crlf $crlf $+ $Get.Highlights $Crlf $crlf $+ Would you like to use these as your away system highlights? You can use the 'Modify Hilights' button to modify or add to these.,yi,Highlights)) {
writeini AwaySettings.ini Config Hilights $Get.Highlights
}
}
elseif ($did == 43) {
var %hilights = $input(Enter Hilight words or identifiers seperated by commans ONLY. $crlf $+ Eg: $+($me,$chr(44),ALTNICK,$chr(44),$ $+ me),oe,Modify Hilights,$readini(AwaySettings.ini,n,Config,Hilights)))
if (%hilights) writeini AwaySettings.ini Config Hilights $remove(%hilights,$chr(32))
else remini Settings.ini Away.Config Hilights
}
elseif ($did == 46) {
dialog $iif($dialog(Away.Exceptions),-v,-m) Away.Exceptions Away.Exceptions
}
}
; ----- Process button clicks and keep selection of all columns the same in presets dialog
on *:dialog:Custom.Aways:sclick:*: {
if ($did == 5) did -c $dname 6,7 $did(5).sel
elseif ($did == 6) did -c $dname 5,7 $did(6).sel
elseif ($did == 7) did -c $dname 5,6 $did(7).sel
elseif ($did == 8) dialog $iif($dialog(Away.Preset),-v,-m) Away.Preset Preset.Settings
elseif ($did == 9) {
if (!$did(5).sel) var %x = $input(Error: You must select an entry to delete,wo,Invalid Selection)
elseif ($?!="Are you sure you want to delete this entry - $did(5).seltext ") {
did -d $dname 5 $did(5).sel
did -d $dname 6 $did(6).sel
did -d $dname 7 $did(7).sel
}
}
elseif ($did == 10) {
if (!$did(5).sel) { var %x = $input(Error: You must select an entry to edit,wo,Invalid Selection) | halt }
set %Away.EditPreset $did(5).sel
dialog $iif($dialog(Away.Preset),-v,-m) Away.Preset Preset.Settings
}
elseif ($did == 12) {
if ($input(Are you sure you want to clear all your presets?,qy,Validation Prompt)) {
var %x = 7
while (%x > 0) {
did -c $dname 5 %x
if ($did(5).seltext) did -d $dname 5,6,7 $did(5).sel
dec %x
}
}
}
}
; ----- Process Idle Away clicks/settings
on *:dialog:Idle.Away.Settings:sclick:*: {
var %time = $calc($readini(AwaySettings.ini,Config,AutoAwayTime) / 60)
if ($did == 3) {
if ($did(3).seltext == Don't Change) did -rm $dname 4
else did -n $dname 4
}
elseif ($did == 7) dialog $iif($dialog(Idle.Away.help),-v,-m) Idle.Away.help Idle.Away.Help
}
; ----- Process Preset dialog clicks/settings
on *:dialog:Away.Preset:sclick:*: {
if ($did == 5) {
if ($did(5).seltext == Don't Change) did -rm $dname 6
else did -n $dname 6
}
elseif ($did == 9) dialog $iif($dialog(Preset.Help),-v,-m) Preset.Help Preset.Help
}
; ----- Exception Clicks
on *:dialog:Away.Exceptions:sclick:*: {
if ($did == 6) dialog $iif($dialog(Away.AddException),-v,-m) Away.AddException Away.AddException
elseif ($did == 7) {
if (!$did(3).sel) var %x = $input(You must select an entry to delete,wo,Invalid Selection)
elseif ($?!="Are you sure you want to delete this entry - $did(3).seltext ") {
remini AwaySettings.ini Exceptions $did(3).seltext
did -d $dname 3 $did(3).sel
}
}
elseif ($did == 8) {
if (!$did(3).sel) var %x = $input(You must select an entry to edit,wo,Invalid Selection)
else {
set %Away.Exception $did(3).seltext
set %Away.ExceptionNum $did(3).sel
dialog $iif($dialog(Away.AddException),-v,-m) Away.AddException Away.AddException
}
}
elseif ($did == 9) {
if ($input(Are you sure you want to clear all your network exceptions?,qy,Validation Prompt)) {
var %x = $did(3).lines
remini AwaySettings.ini Exceptions
while (%x > 0) {
did -c $dname 3 %x
if ($did(3).seltext) did -d $dname 3 $did(3).sel
dec %x
}
}
}
}
on *:dialog:Away.AddException:Sclick:*: {
if ($did == 6) {
did -e $dname 12,15
did -b $dname 9
did -r $dname 9
}
elseif ($did == 7) {
did -b $dname 12,15
did -e $dname 9
if ($did(12).state == 1) did -u $dname 12
if ($did(15).state == 1) did -u $dname 15
}
}
; ##############################################
; # Dialog Close Events #
; ##############################################
; ----- Main dialog - save data
on *:dialog:Away:close:*: {
; tab 100 settings
if ($did(5)) {
if ($did(3).seltext == Prefix) writeini AwaySettings.ini Config NickPrefix $did(5)
elseif ($did(3).seltext == Suffix) writeini AwaySettings.ini Config NickSuffix $did(5)
elseif ($did(3).seltext == Set to) writeini AwaySettings.ini Config NickSetTo $did(5)
}
else {
writeini AwaySettings.ini Config NickPrefix Away|
writeini AwaySettings.ini Config NickSuffix |Away
}
writeini AwaySettings.ini Config AutoAway $iif($did(7).state == 0,off,on)
writeini AwaySettings.ini Config AutoAwayTime $iif($did(8),$calc($did(8) * 60),900)
writeini AwaySettings.ini Config LeavingTime $iif($did(11).state == 0,off,on)
writeini AwaySettings.ini Config LeavingTimeFormat $iif($did(12),$did(12),HH:nn:ss)
writeini AwaySettings.ini Config TimeAway $iif($did(14).state == 0,off,on)
writeini AwaySettings.ini Config TimeAwayFormat $iif($did(15),$did(15),Shorts)
writeini AwaySettings.ini Config ARChannelMessage $iif($did(19).state == 0,off,on)
writeini AwaySettings.ini Config ARPrivateMessage $iif($did(20).state == 0,off,on)
if ($did(25)) writeini AwaySettings.ini Config DefaultMessage $did(25)
else remini Settings.ini Away.Config DefaultMessage
if ($readini(AwaySettings.ini,Config,AutoAway) == on) .timerAway.IdleCheck -o 0 30 Away.IdleCheck
elseif ($timer(Away.IdleCheck)) .timerAway.IdleCheck off
;Tab 200 settings
writeini AwaySettings.ini Config MsgChans $iif($did(32).state == 0,off,on)
writeini AwaySettings.ini Config MsgQueries $iif($did(33).state == 0,off,on)
writeini AwaySettings.ini Config RespondHilights $iif($did(37).state == 0,off,on)
writeini AwaySettings.ini Config RespondPM $iif($did(38).state == 0,off,on)
writeini AwaySettings.ini Config RespondNotice $iif($did(39).state == 0,off,on)
}
; ----- Save presets
on *:dialog:Custom.Aways:close:*: {
var %x = 1, %lines = $did(5).lines
while (%x <= %lines) {
did -c $dname 5,6,7 %x
writeini AwaySettings.ini presets %x $+($did(5).seltext,~,$did(6).seltext,~,$did(7).seltext)
inc %x
}
dec %x
while (%x < 7) {
inc %x
if ($readini(AwaySettings.ini,presets,%x)) remini AwaySettings.ini Presets %x
}
}
; ----- Save Idle away settings
on *:dialog:Idle.Away.Settings:close:*: {
writeini AwaySettings.ini Config IdleSettings $+($did(3).seltext,~,$iif($did(4),$ifmatch,IDLE),~,$iif($did(6),$ifmatch,Auto away after % $+ time minutes idle))
}
; ----- Save Preset settings
on *:dialog:Away.Preset:close:*: {
var %pre = %away.EditPreset
if (!$did(3)) var %x = $input(Error: No trigger was specified,ow,Input Error)
elseif (!$did(6)) && ($did(5).seltext != Don't Change) var %x = $input(Error: You did not specify $iif($did(5).seltext,a nick $iif($did(5).seltext == set to,to change to,$ifmatch),any nick settings),ow,Input Error)
elseif ($remove($did(6),$chr(91),$chr(93),$chr(92),$chr(45),$chr(95),$chr(123),$chr(124),$chr(125)) !isalnum) && ($did(6)) { var %x = $input(Error: Invalid Characters detected in specified nick,wo,Input Error) | halt }
elseif (!$did(5).seltext) var %x = $input(Error: You have not specified how to change your nick - Select an option from the nick settings drop down,ow,Error)
elseif ($numtok($did(3),32) > 1) || ($numtok($did(6),32) > 1) var %x = $input(Error: Trigger and nick Settings can each only be one word long,wo,Input Error)
else {
did $iif(%pre,-o,-a) Custom.Aways 5 $iif(%pre,%pre) $did(3)
did $iif(%pre,-o,-a) Custom.Aways 6 $iif(%pre,%pre) $did(5).seltext $+ $iif($did(5).seltext != Don't Change,: $did(6))
did $iif(%pre,-o,-a) Custom.Aways 7 $iif(%pre,%pre) $did(8)
unset %away.EditPreset
}
}
; ---- Save Exception settings
on *:dialog:Away.AddException:close:*: {
if (!$did(3)) var %x = $input(No Network name was entered,wo,Input Error)
elseif ($numtok($did(3),32) > 1) var %x = $input(Network name may not contain spaces,wo,Input Error)
else {
var %scope = $iif($did(6).state == 1,1,2)
var %x = 1, %numchans = $numtok($did(9),32)
while (%x <= %numchans) {
var %token = $gettok($did(9),%x,32)
if (#?* iswm %token) var %chans = %chans %token
elseif (%token != $chr(35)) var %chans = %chans $+($chr(35),%token)
inc %x
}
var %x = 12
while (%x <= 15) {
var %options = %options $+ $did(%x).state
inc %x
}
did $iif(%Away.ExceptionNum,-o,-a) Away.Exceptions 3 $iif(%Away.ExceptionNum,$ifmatch) $did(3)
writeini AwaySettings.ini Exceptions $did(3) $+(%scope,~,%options,~,%chans)
unset %Away.Exception*
}
}
; ##############################################
; # /Away And /back aliases #
; ##############################################
alias away {
; ----- Unset Idle timer, Get highlights, enable #away group for logging etc
if ($timer(Away.IdleCheck)) .timerAway.IdleCheck off
set %Away.Hilights $readini(awaySettings.ini,n,Config,Hilights)
.enable #away
; ---- Retrieve away settings from config/User entry
var %time = $calc($readini(AwaySettings.ini,Config,AutoAwayTime) / 60)
if ($1) set %away.Reason $1-
elseif ($readini(AwaySettings.ini,Config,DefaultMessage)) set %away.Reason $v1
set %Away.LeftAt $ctime
if ($readini(AwaySettings.ini,Config,LeavingTime) == on) {
var %LeavingTimeFormat = $readini(AwaySettings.ini,Config,LeavingTimeFormat)
set %away.LeaveTime $time(%LeavingTimeFormat)
}
; ---- Check for idleaway
If ($1- = Auto.Idle.Away) {
var %IdleInfo = $readini(AwaySettings.ini,Config,IdleSettings)
var %edittype = $gettok(%IdleInfo,1,126)
if (%edittype == Set to) var %nickset = $gettok(%IdleInfo,2,126)
else var %nickadd = $gettok(%IdleInfo,2,126)
set %Away.Reason $($gettok(%IdleInfo,3-,126),2)
}
else {
var %edittype = $readini(AwaySettings.ini,Config,NickEditType)
if (%edittype == Set To) var %nickset = $readini(AwaySettings.ini,Config,NickSetTo)
else var %nickadd = $readini(AwaySettings.ini,Config,Nick $+ %edittype)
}
; ----- Check for presets
var %x 1
while (%x <= 7) {
if ($readini(AwaySettings.ini,Presets,%x)) {
var %preset = $v1
if ($1- == $gettok(%preset,1,126)) {
var %edittype = $gettok($gettok(%preset,2,126),1,58)
var %nickadd = $remove($gettok($gettok(%preset,2,126),2,58),$chr(32))
set %Away.Reason $gettok(%preset,3-,126)
set %Away.Preset %x
var %x = 7
}
}
inc %x
}
; ----- Cycle Connections to change nick/send msg
var %x = 1, %connections = $scon(0)
while (%x <= %connections) {
scon %x
if ($status == connected) {
unset %Except.*
if ($readini(AwaySettings.ini,Exceptions,$network)) {
var %Except.info = $v1
var %Except.Scope = $gettok(%Except.info,1,126)
var %Except.Options = $gettok(%Except.info,2,126)
if (%Except.Scope == 2) && ($mid(%Except.Options,2,1) == 1) var %Except.NoMsgChans = $gettok(%Except.Info,3-,126)
if (%Except.Scope == 1) && ($left(%Except.Options,1) == 1) var %Except.NoNickChange = 1
if (%Except.Scope == 1) && ($mid(%Except.Options,2,1) == 1) var %Except.NoAwayMsg = 1
}
set $+(%,Away.Oldnick.,$network) $me
if ($readini(AwaySettings.ini,Config,NickEditType) != Don't Change) && (!%Except.NoNickChange) {
if (%edittype == Set To) && (%NickSet != $me) var %newnick = %NickSet
if (%edittype == Prefix) && ($+(%nickadd,*) !iswm $me) var %newnick = $+(%nickadd,$me)
if (%edittype == Suffix) && ($+(*,%nickadd) !iswm $me) var %newnick = $+($me,%nickadd)
set $+(%,Away.Newnick.,$network) $iif(%newnick,$ifmatch,$me)
if (%newnick) nick %newnick
}
if ($chan(0)) && ($readini(AwaySettings.ini,Config,MsgChans) == on) && (!%Except.NoAwayMsg) {
var %Chan = 1, %TotalChans = $chan(0)
while (%chan <= %TotalChans) {
if (!$istok(%Except.NoMsgChans,$chan(%chan),32)) describe $chan(%chan) 4 is now away $iif(%Away.Reason,- %Away.Reason) $iif(%Away.leavetime,- Left at %Away.Leavetime)
inc %chan
}
}
if ($readini(AwaySettings.ini,Config,MsgQueries) == on) && (!%Except.NoAwayMsg) {
qme 4 is now away $iif(%Away.Reason,- %Away.Reason) $iif(%Away.leavetime,- Left at %Away.Leavetime)
}
!away Away: $iif(%Away.Reason,- %Away.Reason) $iif(%Away.leavetime,- Left at %Away.Leavetime)
}
inc %x
}
}
alias back {
var %x = 1, %connections = $scon(0)
while (%x <= %connections) {
scon %x
if ($status == connected) {
unset %Except.*
if ($readini(AwaySettings.ini,Exceptions,$network)) {
var %Except.info = $v1
var %Except.Scope = $gettok(%Except.info,1,126)
var %Except.Options = $gettok(%Except.info,2,126)
if (%Except.Scope == 2) && ($mid(%Except.Options,2,1) == 1) var %Except.NoMsgChans = $gettok(%Except.Info,3-,126)
if (%Except.Scope == 1) && ($left(%Except.Options,1) == 1) var %Except.NoNickChange = 1
if (%Except.Scope == 1) && ($mid(%Except.Options,2,1) == 1) var %Except.NoAwayMsg = 1
}
if (!%Except.NoNickChange) && ($($+(%,Away.Oldnick.,$network),2)) nick $ifmatch
; ----- Cycle Connections to change nick/send msg
if ($chan(0)) && ($readini(AwaySettings.ini,Config,MsgChans) == on) && (!%Except.NoAwayMsg) {
var %Chan = 1, %TotalChans = $chan(0)
while (%chan <= %TotalChans) {
if (!$istok(%Except.NoMsgChans,$chan(%chan),32)) describe $chan(%chan) 4 is back $iif(%away.Reason,- from %Away.Reason) $iif(%Away.Leavetime,- Left at %Away.Leavetime) $iif($Away.GoneFor,- Gone for $Away.GoneFor)
inc %chan
}
}
if ($readini(AwaySettings.ini,Config,MsgQueries) == on) && (!%Except.NoAwayMsg) {
qme 4 is now away $iif(%Away.Reason,- %Away.Reason) $iif(%Away.leavetime,- Left at %Away.Leavetime)
}
!away
}
inc %x
}
.disable #away
unset %away.*
if ($hget(Away.PM.Responses)) || ($hget(Away.Highlight.Responses)) hfree -w Away.*.Responses
if ($readini(AwaySettings.ini,Config,AutoAway) == on) .timerAway.IdleCheck -o 0 30 Away.IdleCheck
}
; ##############################################
; # Other Aliases #
; ##############################################
alias -l Away.Gonefor {
if ($readini(AwaySettings.ini,Config,TimeAway) == on) {
var %TimeAwayFormat = $readini(AwaySettings.ini,Config,TimeAwayFormat)
if (%Away.LeftAt) {
var %duration = $duration($calc($ctime - %Away.LeftAt),%TimeAwayFormat)
if (%TimeAwayFormat == Short) return $Short.Duration(%duration)
elseif (%TimeAwayFormat == medium) return %duration
elseif (%TimeAwayFormat == long) return $Long.Duration(%duration)
}
}
else return $false
}
alias -l Short.Duration return $replacex($1-,secs,s,sec,s,mins,m,min,m,hrs,h,hr,h,days,d,day,d,wks,w,wk,w)
alias -l Long.Duration return $replacex($1-,sec,second,secs,seconds,min,minute,mins,minutes,hr,hour,hrs,hours,wk,week,wks,weeks)
alias -l Get.Highlights {
var %x = 1, %Groups = $ini(mirc.ini,highlight,0)
while (%x <= %groups) {
var %Away.Highlights = $addtok(%Away.highlights,$highlight(%x),44)
inc %x
}
return %Away.Highlights
}
alias -l Check.For.highlights {
if (!%Away.Highlights) set %Away.Highlights $readini(AwaySettings.ini,n,Config,Hilights)
var %x = 1, %highlights = $numtok(%Away.highlights,44)
while (%x <= %highlights) {
var %chighlight = $($gettok(%Away.Highlights,%x,44),2)
if ($istok($1-,%chighlight,32)) return %chighlight
inc %x
}
return $false
}
alias -l Away.Logwin {
if (!$window(@Away.Logs)) window -eknz @Away.Logs
echo -ti2 @Away.Logs $1-
}
alias -l Highlight.Response {
if (!$hget(Away.highlight.Responses,$+($1,.,$2))) {
scid $1 .notice $2 I am currently away $iif(%Away.Reason,- %Away.Reason) $iif(%Away.LeaveTime,- Left at %Away.LeaveTime) $iif($away.gonefor,- Gone for $away.gonefor) - One time response to highlight
hadd -m Away.Highlight.Responses $+($1,.,$2) 1
}
}
alias -l Private.Message.Response {
if (!$hget(Away.PM.Responses,$+($1,.,$2))) {
scid $1 .notice $2 I am currently away $iif(%Away.Reason,- %Away.Reason) $iif(%Away.LeaveTime,- Left at %Away.LeaveTime) $iif($away.gonefor,- Gone for $away.gonefor) - One time response to Private Message
hadd -m Away.PM.Responses $+($1,.,$2) 1
}
}
alias -l Away.IdleCheck {
var %x = 1, %networks = $scon(0)
var %AutoAwayTime = $readini(AwaySettings.ini,Config,AutoAwayTime)
while (%x <= %networks) {
scon %x {
if ($status == Connected) && ($idle < %AutoAwayTime) var %Idle = off
}
inc %x
}
if (%idle != off) away Auto.Idle.Away
}
alias Away.Config dialog $iif($dialog(Away),-v,-m) Away Away
; ##############################################
; # Logging and hilight resposes #
; ##############################################
#away off
;Hilight responses
on *:text:*:#: {
if (!$Check.For.highlights($1-)) && (!$istok($1-,$me,32)) && (!$istok($1-,$($+(%,Away.Oldnick.,$network),2),32)) return
else {
Away.Logwin 4[10CHANNEL MESSAGE4] $+(4[10,$iif($scon(0) > 1,$+($network,12/10)),$chan,12/10,$nick,4]) $1-
if ($readini(AwaySettings.ini,Exceptions,$network)) {
var -s %Except.info = $v1
var -s %Except.Scope = $gettok(%Except.info,1,126), %Except.Options = $gettok(%Except.info,2,126)
if (%Except.Scope == 2) && ($mid(%Except.Options,3,1) == 1) var %Except.NoHilight = $gettok(%Except.Info,3-,126)
elseif (%Except.Scope == 1) && ($mid(%Except.Options,3,1) == 1) return
}
if (!$istok(%Except.NoHilight,$chan,32)) && ($readini(AwaySettings.ini,Config,RespondHilights) == on) Highlight.Response $cid $nick
}
}
on *:action:*:#: {
if (!$check.for.highlights($1-)) && (!$istok($1-,$me,32)) && (!$istok($1-,$($+(%,Away.Oldnick.,$network),2),32)) return
else {
Away.Logwin 4[10CHANNEL 10ACTION4] $+(4[10,$iif($scon(0) > 1,$+($network,12/10)),$chan,12/10,$nick,4]) * $nick $1-
if ($readini(AwaySettings.ini,Exceptions,$network)) {
var %Except.info = $v1
var %Except.Scope = $gettok(%Except.info,1,126), %Except.Options = $gettok(%Except.info,2,126)
if (%Except.Scope == 2) && ($mid(%Except.Options,3,1) == 1) var %Except.NoHilight = $gettok(%Except.Info,3-,126)
elseif (%Except.Scope == 1) && ($mid(%Except.Options,3,1) == 1) return
}
if (!$istok(%Except.NoHilight,$chan,32)) && ($readini(AwaySettings.ini,Config,RespondHilights) == on) Highlight.Response $cid $nick
}
}
; Private notice response
on *:notice:*:?: {
if (*serv !iswm $nick) {
Away.Logwin 4[10PRIVATE NOTICE4] $+(4[10,$iif($scon(0) > 1,$+($network,12/10)),Private,12/10,$nick,4]) $1-
if ($readini(AwaySettings.ini,Exceptions,$network)) {
var %Except.info = $v1
var %Except.Scope = $gettok(%Except.info,1,126), %Except.Options = $gettok(%Except.info,2,126)
if (%Except.Scope == 1) && ($right(%Except.Options,1) == 1) return
}
if ($readini(AwaySettings.ini,Config,RespondNotice) == on) Private.Message.Response $cid $nick
}
}
;PM responses
on *:text:*:?: {
if ($readini(AwaySettings.ini,Config,RespondPM) == on) && (*serv !iswm $nick) {
if ($readini(AwaySettings.ini,Exceptions,$network)) {
var %Except.info = $v1
var %Except.Scope = $gettok(%Except.info,1,126), %Except.Options = $gettok(%Except.info,2,126)
if (%Except.Scope == 2) && ($mid(%Except.Options,3,1) == 1) var %Except.NoHilight = $gettok(%Except.Info,3-,126)
elseif (%Except.Scope == 1) && ($right(%Except.Options,1) == 1) return
}
Private.Message.Response $cid $nick
}
}
;Return from away on input if set
on *:input:#: {
if ($left($1,1) != $readini(mirc.ini,text,commandchar)) {
if ($readini(AwaySettings.ini,Config,ARChannelMessage) == on) back
}
}
on *:input:?: {
if ($left($1,1) != $readini(mirc.ini,text,commandchar)) {
if ($readini(AwaySettings.ini,Config,ARPrivateMessage) == on) back
}
}
#away end
--------------------------
menu channel,nicklist,query,status,menubar {
My Friends
.Add/remove
..add $$1 Friend:/notify $$1 $$?="This space is for you to add a personal note to yourself of who the user is add their runescape nick,email,name or just a short note & click ok examples:-Staff-HelpOp-:"
..remove $$1 Friend:/notify -r $$1
..add Friend by nick://notify $$?="Friends nick:" $$?="This space is for you to add a personal note to yourself of who the user is add their runescape nick,email,name or just a short note & click ok examples:-Staff-HelpOp-:"
..Remove Friend by nick://notify -r $$?="Friends to remove:"
.Friends Notify
..Yes,notify me in channel:/set %notifyme on
..No:/set %notifyme off
.Friends Config:/uwho
}
on ^*:notify:{
if (%notifyme == on) && ($me == $me) {
echo -a 9*** 4[9Notify4] 6:4:9 $nick 0(0 $notify($nick).note 0) 9is 9Online | haltdef }
}
elseif if (%notifyme == off} {
halt
}
-------------------------
Dialog nickoptions {
Title "Xuck Nick Config"
Size -1 -1 270 130
Button "Register New Account", 1, 10 10 250 25, Register New Account
Button "Auto Idenitfy ON", 2, 10 35 250 25, Auto Identify
Button "Auto Identify OFF", 3, 10 60 250 25, Auto Identify
Button "Cancel", 10, 100 90 80 25, cancel
}
; dialog events.
On *:DIALOG:nickoptions:*:*:{
; $devent returns the event which is happening, in this case it checks if its init
; init is the initial, which executes on startup, $did returns the dialog id
; since the dialog it self, doesnt have an ID, and only a name, $did returns 0.
; sclick is single click, on id 1 (the OK button)
if ($devent == sclick) && ($did == 1) {
RegisterNewAccount | /halt
}
elseif ($devent == sclick) && ($did == 2) {
AutoIdentON | /halt
}
elseif ($devent == sclick) && ($did == 3) {
AutoIdentOFF | /halt
}
}
--------------------------------
Size -1 -1 270 260
Button "Nick Config Panel", 1, 10 10 250 25, Nick Config Panel
Button "Auto Join Channels Config", 2, 10 35 250 25, Auto Join Channels Config
Button "Away System Config", 3, 10 60 250 25, Away System Config
Button "Xuck Mp3 Player Config", 4, 10 85 250 25, Xuck Mp3 Player Config
Button "My Friends Config", 5, 10 110 250 25, My Friends Config
Button "Sounds Config", 6, 10 135 250 25, Sounds Config
Button "BlackList Config", 7, 10 160 250 25, BlackList Config
Button "ByteCam Config", 8, 10 185 250 25, Bytecam Config
Button "Web Browser", 9, 10 210 250 25, Web Browser
Button "Cancel", 10, 100 235 80 25, cancel
}
; dialog events.
On *:DIALOG:ConfigPanel:*:*:{
; $devent returns the event which is happening, in this case it checks if its init
; init is the initial, which executes on startup, $did returns the dialog id
; since the dialog it self, doesnt have an ID, and only a name, $did returns 0.
; sclick is single click, on id 1 (the OK button)
if ($devent == sclick) && ($did == 1) {
dialog -m nickoptions nickoptions | /halt
}
elseif ($devent == sclick) && ($did == 2) {
ajoinchanset | /halt
}
elseif ($devent == sclick) && ($did == 3) {
dialog $iif($dialog(away),-o,-m) away away | /halt
}
elseif ($devent == sclick) && ($did == 4) {
mp3 | /halt
}
elseif ($devent == sclick) && ($did == 5) {
uwho | /halt
}
elseif ($devent == sclick) && ($did == 6) {
dialog -m soundconfig soundconfig | /halt
}
elseif ($devent == sclick) && ($did == 7) {
dialog -m blacklist blacklist | /halt
}
elseif ($devent == sclick) && ($did == 8) {
bc.open 1 | /halt
}
elseif ($devent == sclick) && ($did == 9) {
dialog -m seersweb seersweb | /halt
}
-------------------------------
;##############################################
; Script: ByteCam.mrc
; Module: ByteCam.dll
; Purpose: WebCam + Voice Module for mIRC
; Author: Tony Holt
; Support: www.ByteCam.net
;##############################################
#ByteCam on
menu status,channel,menubar {
-
$bc.modname $bc.vstr
.Open $bc.modname $bc.vstr (In mIRC):cam
.$iif($exists($shortfn($scriptdirByteCam\Snapshots)) == $false, $style(2)) Open Snapshot Folder:bc.opensnaps
.$iif($exists($shortfn($scriptdirByteCam\Videos)) == $false, $style(2)) Open Video Folder:bc.openvids
.-
.$iif($exists($bcdll) == $false, $style(2)) Shutdown $bc.modname $bc.vstr:bc.close
.-
.Uninstall $bc.modname $bc.vstr:bc.uninstall
-
}
menu query,chat {
-
$bc.modname $bc.vstr
.Open $bc.modname $bc.vstr (In mIRC):cam
.$iif($exists($shortfn($scriptdirByteCam\Snapshots)) == $false, $style(2)) Open Snapshot Folder:bc.opensnaps
.$iif($exists($shortfn($scriptdirByteCam\Videos)) == $false, $style(2)) Open Video Folder:bc.openvids
.-
.$iif($bc.isopen != $true, $style(2)) Call $1:bc.call $1
.-
.Advertise $bc.modname $bc.vstr:bc.ad
.$bc.modname IRC Network:bc.irc
.-
.$iif($exists($bcdll) == $false, $style(2)) Shutdown $bc.modname $bc.vstr:bc.close
.-
.Uninstall $bc.modname $bc.vstr:bc.uninstall
-
}
menu nicklist {
-
$bc.modname $bc.vstr
.Open $bc.modname $bc.vstr (In mIRC):cam
.$iif($exists($shortfn($scriptdirByteCam\Snapshots)) == $false, $style(2)) Open Snapshot Folder:bc.opensnaps
.$iif($exists($shortfn($scriptdirByteCam\Videos)) == $false, $style(2)) Open Video Folder:bc.openvids
.-
.$iif(!$bc.isopen, $style(2)) Call $$snick(#,1):bc.call $$snick(#,1)
.-
.$bc.modname IRC Network:bc.irc
.-
.$iif($exists($bcdll) == $false, $style(2)) Shutdown $bc.modname $bc.vstr:bc.close
.-
.Uninstall $bc.modname $bc.vstr:bc.uninstall
-
}
alias bc.open { dll $bcdll ByteCamOpen $$1 }
alias bc.close { dll -u $bcdll }
alias bc.opensnaps { .run $+(",$scriptdirByteCam\Snapshots,") }
alias bc.openvids { .run $+(",$scriptdirByteCam\Videos,") }
alias bc.isopen { return $dll($bcdll, IsByteCamOpen, $null) }
alias bc.modname { return $dll($bcdll, ModuleName, $null) }
alias bc.camname { return $dll($bcdll, CamName, $null) }
alias bc.voxname { return $dll($bcdll, VoxName, $null) }
alias bc.cam { if ($bc.camname != $null) return $+($chr(91),$bc.camname,$chr(93)) | return $null }
alias bc.vox { if ($bc.voxname != $null) return $+($chr(91),$bc.voxname,$chr(93)) | return $null }
alias bc.vstr { return $dll($bcdll, VersionString, $null) }
alias bc.vnum { return $dll($bcdll, VersionNumber, $null) }
alias bc.devices {
if (!$bc.isopen) return $null
if (($bc.cam != $null) && ($bc.vox != $null)) return $bc.cam + $bc.vox
if ($bc.cam != $null) return $bc.cam
if ($bc.vox != $null) return $bc.vox
return $null
}
alias bc.ad { say $bc.modname $bc.vstr $bc.devices - www.ByteCam.net }
alias bc.call { dll $bcdll CallOut $cid $$1 }
ctcp *:BYTECAM: {
if (($2 == CALL) && ($3 isnum) && ($4 isnum) && ($5 isnum)) {
dll $bcdll CallIn $cid $nick $3-
}
haltdef
}
on *:CTCPREPLY:BYTECAM *:{
if (($2 == CALL) && ($3 isnum) && ($4 isnum) && ($5 isnum)) {
dll $bcdll CallAnswered $cid $nick $3-
}
haltdef
}
#ByteCam end
on *:load:{
if ($bc.compatible) { .enable #ByteCam }
else { .disable #ByteCam }
}
on *:unload:{
if ($sock(gdiplus.head) != $null) { sockclose gdiplus.head }
if ($sock(gdiplus.data) != $null) { sockclose gdiplus.data }
}
alias bc.dir { return $scriptdir }
alias bcdll { return $shortfn($+($bc.dir,ByteCam.dll)) }
alias bc.compatible {
if (!$exists($bcdll)) return $false
if ($version < 6.14) {
echo $color(Info2) -s -
echo $color(Info2) -s mIRC $version is too old to run ByteCam.
echo $color(Info2) -s ByteCam will be disabled until you update your copy of mIRC.
echo $color(Info2) -s -
.timer 1 1 .unload -rs $shortfn($script)
return $false
}
if (($os != XP) && ($os != 2003)) {
if (!$exists($shortfn($+($bc.dir,gdiplus.dll)))) {
.timer 1 1 bc.gdiplus
return $false
}
if ($md5($shortfn($+($bc.dir,gdiplus.dll)), 2) != 3317698f2090dd811f0aa93190e13c82) {
.timer 1 1 bc.gdiplus
return $false
}
}
return $true
}
alias bc.copy {
var %err = 0
if (!$exists($shortfn($+($bc.dir,ByteCam\.tmp\ByteCam.dll)))) return
if ($dll(ByteCam.dll) != $null) { dll -u $dll(ByteCam.dll) | .timer 1 2 bc.copy | return }
reseterror
%err = 12
.copy -o $+(",$scriptdirByteCam\.tmp\ByteCam.dll,") $+(",$scriptdirByteCam.dll,")
%err = 10
.remove $+(",$scriptdirByteCam\.tmp\ByteCam.dll,")
%err = 0
bc.open 1
return
:error
if (%err == 12) {
.disable #ByteCam
echo $color(Info) -s -
echo $color(Info) -s Error copying ByteCam.dll
echo $color(Info) -s ByteCam will be disabled.
echo $color(Info) -s -
}
if (%err == 10) { bc.open 1 }
reseterror
}
alias bc.uninstall {
if ($dll($bcdll) != $null) {
dll -u $bcdll
.timer 1 2 bc.uninstall
return
}
.timer 1 1 unload -rs $+(",$script,")
}
dialog -l bc.gdiplus.table {
title "gdiplus.dll update"
size -1 -1 320 240
option type pixels
edit "", 101, 0 0 320 210, multi, read, return, vsbar, autovs
text "", 102, 5 220 220 18,
button "Ok", 201, 265 212 50 25, default, ok, hide
}
on *:dialog:bc.gdiplus.dlg:init:0: {
}
alias -l bc.gdiplus.report {
if ($dialog(bc.gdiplus.dlg)) { did -a bc.gdiplus.dlg 101 $+($$1-, $crlf) }
else { echo $color(Info2) -s $$1- }
}
alias -l bc.gdiplus {
if (($os == XP) || ($os == 2003)) return
if (!$dialog(bc.gdiplus.dlg)) dialog -m bc.gdiplus.dlg bc.gdiplus.table
if ($sock(gdiplus.head) != $null) {
sockclose gdiplus.head
.timer 1 1 bc.gdiplus
return
}
if ($sock(gdiplus.data) != $null) {
sockclose gdiplus.data
.timer 1 1 bc.gdiplus
return
}
unset %gdiplus.*
if ($dialog(bc.gdiplus.dlg)) {
did -r bc.gdiplus.dlg 101
did -h bc.gdiplus.dlg 201
}
bc.gdiplus.report ByteCam uses the GDI+ library which was introduced with Windows XP.
bc.gdiplus.report -
bc.gdiplus.report To run ByteCam on Windows $os $+ , you need to have gdiplus.dll copied to $+($bc.dir,gdiplus.dll)
bc.gdiplus.report -
bc.gdiplus.report ByteCam will now attempt to download gdiplus.dll for you.
bc.gdiplus.report -
sockopen gdiplus.head www.google.com 80
}
alias -l bc.gdiplus.fail {
if (($os == XP) || ($os == 2003)) return
if ($exists($shortfn($+($bc.dir,gdiplus.dll)))) .remove $+(",$bc.dir,gdiplus.dll,")
bc.gdiplus.report GDI+ Download failed. ByteCam will be unloaded.
unset %gdiplus.*
.timer 1 1 .unload -rs $shortfn($script)
}
on *:sockread:*:{
if ($sockname == gdiplus.head) {
sockread %gdiplus.head
if ($sockerr > 0 || $sockbr == 0) { sockclose $sockname | bc.gdiplus.fail | return }
if (%gdiplus.head == $null) {
sockrename $sockname gdiplus.data
return
}
tokenize 32 %gdiplus.head
if ($1 == HTTP/1.1) {
if ($2 != 200) { bc.gdiplus.report $3- | sockclose $sockname | bc.gdiplus.fail | return }
write -c $+(",$bc.dir,gdiplus.dll,")
bc.gdiplus.report When the gdiplus.dll download is complete, ByteCam will be ready to run.
bc.gdiplus.report -
bc.gdiplus.report Downloading gdiplus.dll, please wait...
}
if (($1 == Content-Length:) && ($2 isnum)) {
set %gdiplus.length $2
set %gdiplus.recv 0
}
}
if ($sockname == gdiplus.data) {
sockread &data
if ($sockerr > 0 || $sockbr == 0) { sockclose $sockname | bc.gdiplus.fail | return }
inc %gdiplus.recv $sockbr
bwrite $+(",$bc.dir,gdiplus.dll,") -1 -1 &data
if (%gdiplus.length > 0) {
var %rem = $calc(%gdiplus.length - %gdiplus.recv)
if ($dialog(bc.gdiplus.dlg)) {
did -o bc.gdiplus.dlg 102 1 $+($round($calc(100 - ((%rem / %gdiplus.length) * 100)), 0), %) Complete - $&
$round($calc(%gdiplus.recv / 1024^2), 2) MB of $round($calc(%gdiplus.length / 1024^2), 2) MB
}
}
}
}
on *:sockclose:*:{
if ($sockname == gdiplus.data) {
unset %gdiplus.*
if ($dialog(bc.gdiplus.dlg)) { did -vf bc.gdiplus.dlg 201 }
if ($bc.compatible) {
.enable #ByteCam
bc.gdiplus.report -
bc.gdiplus.report GDI+ download complete!
bc.gdiplus.report $$bc.modname $bc.vstr is now enabled.
}
else { .disable #ByteCam }
}
}
---------------------
on 1:load: {
if $version < 5.3 { echo 4 -a *** Your mIRC version is not compatible with this addon. Please download mIRC5.3 or higher. | unload -rs lagmeter.mrc | halt }
setvar lag 0.200 | setvar bground $rgb(100,100,100) | setvar text $rgb(180,180,180) | setvar meter $rgb(128,0,0)
setvar meterxpos 0 | setvar meterypos 0
setvar checkevery 3
setvar maxmeter 10
setvar addavg 0
setvar worst 0.001
setvar best 100.000
setvar totaltimeschecked 0
lagmeter
echo 2 -s *** Lagmeter1.0 loaded
halt
}
alias lagstat {
return $readini lag.ini lag $1
}
alias setvar {
writeini lag.ini lag $1 $2-
}
alias checklag {
if $lagstat(meterstatus) == closed { halt }
if $lagstat(meterstatus) == open {
raw -q whatsmylag | setvar sentat $calc($ticks / 1000)
}
if $lagstat(date) < $remove($adate,$chr(47)) || $right($lagstat(date),2) < $right($adate,2) {
setvar date $remove($adate,$chr(47))
setvar addavg 0
setvar worst $lagstat(lag)
setvar best $lagstat(lag)
setvar totaltimeschecked 0
}
}
raw 421:*: {
if ($2 == whatsmylag) {
if $lagstat(meterstatus) == open {
setvar lag $calc($ticks / 1000 - $lagstat(sentat))
setvar totaltimeschecked $calc($lagstat(totaltimeschecked) + 1)
updatelagmeter | .timer7 1 $lagstat(checkevery) checklag
}
halt
}
}
alias lagmeter {
window -p +b @Lagmeter 110 110 200 40 @Lagmeter | window -p +b @Lagmeter 585 0 200 40 @Lagmeter
if $server == $null {
drawtext @lagmeter 0 "times new roman" 15 0 0 You must be connected to a server...
drawtext @lagmeter 0 "times new roman" 15 65 18 for the Lagmeter to work
halt
}
setvar meterstatus open | setvar expandstats Open | setvar colorpicker Open
if $lagstat(recordworst) == $null { setvar recordworst $lagstat(lag) }
if $lagstat(recordbest) == $null { setvar recordbest $lagstat(lag) }
if $lagstat(date) == $null { setvar date $remove($adate,$chr(47)) }
checklag
}
alias updatelagmeter {
if $lagstat(meterstatus) == open {
if $exists(lag.ini) == $false { lagmeter }
if $lagstat(maxmeter) == $null { setvar maxmeter 10 }
drawrect -rf @lagmeter $lagstat(bground) 1 0 0 200 40
if $calc($lagstat(lag) / ($lagstat(maxmeter) / 200)) > 200 { drawrect -rf @lagmeter $lagstat(meter) 1 0 1 200 22 } | else { drawrect -rf @lagmeter $lagstat(meter) 1 0 1 $calc($lagstat(lag) / ($lagstat(maxmeter) / 200)) 22 }
drawtext -ro @lagmeter $lagstat(text) "ms sans serif" 25 75 0 $lagstat(lag)
setvar addavg $calc($round($lagstat(addavg),3) + $lagstat(lag))
setvar average $calc($lagstat(addavg) / $lagstat(totaltimeschecked))
if $lagstat(lag) <= 0 { echo 2 -a ** $ustime lag is $lagstat(lag) ! | halt }
if $lagstat(lag) < $lagstat(best) { setvar best $lagstat(lag) }
if $lagstat(best) < $gettok($lagstat(recordbest),1,32) { setvar recordbest $lagstat(best) $chr(40) $+ $remove($adate,$right($adate,3)) - $ustime $+ $chr(41) }
if $lagstat(lag) > $lagstat(worst) { setvar worst $lagstat(lag) }
if $lagstat(worst) > $gettok($lagstat(recordworst),1,32) { setvar recordworst $lagstat(worst) $chr(40) $+ $remove($adate,$right($adate,3)) - $ustime $+ $chr(41) }
drawtext -r @lagmeter $lagstat(text) "times new roman" 14 1 24 Worst: $round($lagstat(worst),3)
drawtext -r @lagmeter $lagstat(text) "times new roman" 14 76 24 Best: $round($lagstat(best),3)
drawtext -r @lagmeter $lagstat(text) "times new roman" 14 137 24 AVG: $round($lagstat(average),3)
if $lagstat(expandstats) == Close {
drawrect -fr @lagmeter $lagstat(bground) 1 0 40 200 80
drawline -r @lagmeter $lagstat(meter) 1 0 38 200 38
drawtext -r @lagmeter $lagstat(text) "times new roman" 14 1 38 Times Checked: $lagstat(totaltimeschecked)
drawtext -r @lagmeter $lagstat(text) "times new roman" 14 1 50 Checking Every: $lagstat(checkevery) secs
drawtext -r @lagmeter $lagstat(text) "times new roman" 14 1 63 Checking For: $duration($calc(($lagstat(totaltimeschecked) * $lagstat(checkevery)) + $lagstat(lag)))
drawtext -r @lagmeter $lagstat(text) "times new roman" 14 1 76 Record Best: $lagstat(recordbest)
drawtext -r @lagmeter $lagstat(text) "times new roman" 14 1 89 Record Worst: $lagstat(recordworst)
}
}
else { return }
}
alias slidemeterdown {
%lag.slide = 41
:down
inc %lag.slide 2
window -p +b @Lagmeter $lagstat(meterxpos) $lagstat(meterypos) 200 %lag.slide
if %lag.slide == 105 { setvar expandstats Close | unset %lag.slide | halt }
goto down
}
alias slidemeterright {
%lag.slide = 200
:right
inc %lag.slide 2
window -p +b @Lagmeter $lagstat(meterxpos) $lagstat(meterypos) %lag.slide 105
if %lag.slide == 240 {
drawrect -fr @lagmeter 1 1 200 0 45 110
drawpic -c @lagmeter 200 0 $mircdirsystem\palette.jpg
drawrect -rf @Lagmeter $lagstat(bground) 1 226 8 10 20
drawrect -rf @Lagmeter $lagstat(text) 1 226 42 10 20
drawrect -rf @Lagmeter $lagstat(meter) 1 226 75 10 20
unset %lag.slide
setvar colorpicker Close | setvar expandstats Close
halt
}
goto right
}
alias slidemeterleft {
%lag.slide = 240
:left
dec %lag.slide 2
window -p +b @Lagmeter $lagstat(meterxpos) $lagstat(meterypos) %lag.slide 105
if %lag.slide == 200 { unset %lag.slide | setvar colorpicker Open | halt }
goto left
}
alias slidemeterup {
setvar expandstats Open | setvar colorpicker Open
updatelagmeter
%lag.slide = 104
:up
dec %lag.slide 2
if %lag.slide == 40 { unset %lag.slide | halt }
window -p +b @Lagmeter $lagstat(meterxpos) $lagstat(meterypos) 200 %lag.slide
goto up
}
alias lagmeterhelp {
window -p +bft @Lagmeter_Help 250 0 475 425 @laghelp
drawrect -rf @lagmeter_help 13169919 1 0 0 480 430
drawpic -c @lagmeter_help 102 50 $mircdirsystem\helppic.jpg
drawtext -o @lagmeter_help 1 "times new roman" 16 150 10 Lag Time
drawline -i @lagmeter_help 1 1 173 25 192 55
drawtext -o @lagmeter_help 1 "times new roman" 16 8 47 Lag Meter
drawline -i @lagmeter_help 1 1 70 58 106 63
drawtext -o @lagmeter_help 1 "times new roman" 16 273 10 Color Picker
drawline -i @lagmeter_help 1 1 309 24 316 71
drawtext -o @lagmeter_help 1 "times new roman" 16 360 40 Background
drawtext -o @lagmeter_help 1 "times new roman" 16 375 55 Color
drawline -i @lagmeter_help 1 1 369 59 332 67
drawtext -o @lagmeter_help 1 "times new roman" 16 365 85 Text Color
drawline -i @lagmeter_help 1 1 363 93 333 102
drawtext -o @lagmeter_help 1 "times new roman" 16 366 118 Lag Meter
drawtext -o @lagmeter_help 1 "times new roman" 16 376 131 Color
drawline -i @lagmeter_help 1 1 372 134 333 137
drawtext -o @lagmeter_help 1 "times new roman" 16 10 107 Expanded
drawtext -o @lagmeter_help 1 "times new roman" 16 17 120 Stats
drawline -i @lagmeter_help 1 1 95 90 87 90
drawline -i @lagmeter_help 1 1 87 90 87 152
drawline -i @lagmeter_help 1 1 87 152 95 152
drawline -i @lagmeter_help 1 1 87 121 70 121
drawtext -o @lagmeter_help 1 "times new roman" 16 5 180 $chr(149) Lag Time: Your current lag time in seconds.
drawtext -o @lagmeter_help 1 "times new roman" 16 5 195 $chr(149) Lag Meter: Meter grows or shortens depending on your lag time.
drawtext -o @lagmeter_help 1 "times new roman" 16 5 210 $chr(149) Worst: Best: AVG: daily lag stats (resets each day)
drawtext -o @lagmeter_help 1 "times new roman" 16 5 225 $chr(149) Expanded Stats:
drawtext -o @lagmeter_help 1 "times new roman" 16 15 240 -Times Checked: How many times your lag time has been checked.
drawtext -o @lagmeter_help 1 "times new roman" 16 15 255 -Checking Every: How often your lag is checked.
drawtext -o @lagmeter_help 1 "times new roman" 16 15 270 -Checking For: How long your Lagmeter has been running since last reset.
drawtext -o @lagmeter_help 1 "times new roman" 16 25 285 note: the 3 above stats only reset after each day.
drawtext -o @lagmeter_help 1 "times new roman" 16 15 300 -Record Best: Your best lag time ever (never resets)
drawtext -o @lagmeter_help 1 "times new roman" 16 15 315 -Record Worst: Your worst lag time ever (never resets)
drawtext -o @lagmeter_help 1 "times new roman" 16 5 330 $chr(149) Color Picker: Changes the background,text, or meter color.
drawtext -o @lagmeter_help 1 "times new roman" 16 15 345 note: you must click in the Background Color, Text Color, or Lag Meter box
drawtext -o @lagmeter_help 1 "times new roman" 16 45 360 first then click on the color palette to change each one.
drawtext -o @lagmeter_help 1 "times new roman" 16 45 375 When Color Picker is opened it automatically opens the Expanded Stats.
}
menu @laghelp {
close:window -c $active
}
alias ustime {
if ($gettok($time,1,58) >= 13) { return $calc($gettok($time,1,58) - 12) $+ : $+ $gettok($time,2,58) $+ p }
else if ($gettok($time,1,58) == 12) { return $gettok($time,1-2,58) $+ p }
else if ($gettok($time,1,58) == 0) { return $calc($gettok($time,1,58) + 12) $+ : $+ $gettok($time,2,58) $+ a }
else { return $gettok($time,1-2,58) $+ a }
}
menu @Lagmeter {
dclick {
if $lagstat(expandstats) == Open { slidemeterdown }
if $lagstat(expandstats) == Close { slidemeterup }
}
sclick {
if $inrect($mouse.x,$mouse.y,227,8,10,15) == $true {
set %lag.backon clicked | unset %lag.texton %lag.meteron
drawrect @Lagmeter 16 1 227 9 8 18
drawrect -r @Lagmeter $lagstat(text) 1 227 43 8 18
drawrect -r @Lagmeter $lagstat(meter) 1 227 76 8 18
}
if $inrect($mouse.x,$mouse.y,227,42,10,15) == $true {
set %lag.texton clicked | unset %lag.backon %lag.meteron
drawrect @Lagmeter 16 1 227 43 8 18
drawrect -r @Lagmeter $lagstat(bground) 1 227 9 8 18
drawrect -r @Lagmeter $lagstat(meter) 1 227 76 8 18
}
if $inrect($mouse.x,$mouse.y,227,75,10,15) == $true {
set %lag.meteron clicked | unset %lag.backon %lag.texton
drawrect @Lagmeter 16 1 227 76 8 18
drawrect -r @Lagmeter $lagstat(bground) 1 227 9 8 18
drawrect -r @Lagmeter $lagstat(text) 1 227 43 8 18
}
if $inrect($mouse.x,$mouse.y,200,0,25,105) == $true {
if %lag.backon == clicked {
setvar bground $getdot($active,$mouse.x,$mouse.y)
drawrect -rf @lagmeter $lagstat(bground) 1 226 8 10 20
drawrect @Lagmeter 16 1 227 9 8 18
}
if %lag.texton == clicked {
setvar text $getdot($active,$mouse.x,$mouse.y)
drawrect -rf @lagmeter $lagstat(text) 1 226 42 10 20
drawrect @Lagmeter 16 1 227 43 8 18
}
if %lag.meteron == clicked {
setvar meter $getdot($active,$mouse.x,$mouse.y)
drawrect -rf @lagmeter $lagstat(meter) 1 226 75 10 20
drawrect @Lagmeter 16 1 227 76 8 18
}
}
set %lag.mousex $mouse.x | set %lag.mousey $mouse.y
}
mouse {
if $mouse.key & 1 {
set -u1 %lag.winposx $window($active).x | set -u1 %lag.winposy $window($active).y
window $active $calc(%lag.winposx + $mouse.x - %lag.mousex) $calc(%lag.winposy + $mouse.y - %lag.mousey) $window($active).w $window($active).h
setvar meterxpos $calc(%lag.winposx + $mouse.x - %lag.mousex) | setvar meterypos $calc(%lag.winposy + $mouse.y - %lag.mousey)
}
else { unset %lag.mousex %lag.mousey }
}
&Options
.Checking Lag Every $lagstat(checkevery) secs:setvar checkevery $$?="Choose how many seconds between lag checking"
.Max. Length of Meter Bar[ $+ $lagstat(maxmeter) $+ ]:setvar maxmeter $$?="maximum MeterLength before it fills window"
.-
.Save Current Settings: {
write -c favlagsettings.txt
writeini lag.ini favorite background $lagstat(bground)
writeini lag.ini favorite text $lagstat(text)
writeini lag.ini favorite meter $lagstat(meter)
writeini lag.ini favorite checkevery $lagstat(checkevery)
writeini lag.ini favorite maxmeter $lagstat(maxmeter)
}
.Load Favorite Settings: {
setvar bground $readini lag.ini background
setvar text $readini lag.ini text
setvar meter $readini lag.ini meter
setvar checkevery $readini lag.ini checkevery
setvar maxmeter $readini lag.ini maxmeter
}
.-
.Reset Stats: {
setvar addavg 0
setvar worst $lagstat(lag)
setvar best $lagstat(lag)
setvar totaltimeschecked 0
}
$lagstat(expandstats) &Expanded Stats:if $lagstat(expandstats) == Open { slidemeterdown } | if $lagstat(expandstats) == Close { slidemeterup }
$lagstat(colorpicker) ColorPicker: {
if $lagstat(colorpicker) == Open {
setvar colorpicker Close
if $lagstat(expandstats) == Open { setvar expandstats Close }
slidemeterright
}
if $lagstat(colorpicker) == Close {
setvar colorpicker Open
slidemeterleft
}
if $lagstat(colorpicker) == $null { setvar colorpicker Open }
}
-
&Help:lagmeterhelp
E&xit $chr(160) $chr(58) $+ $chr(40) : {
setvar meterstatus closed
window -c @Lagmeter
}
}
on 1:close:@: { if $target == @Lagmeter { setvar meterstatus closed | .timer7 off | checklag } }
----------------------
alias slides {
if ($hget(slides)) hfree slides
$iif($window(@Slides),window -c @Slides)
$iif($dialog(slides),dialog -v slides,dialog -dmrv slides slides)
}
alias -l slidestart {
var %file = $+(",$iif($isfile($1-),$1-,$$sfile($mircdir $+ *.jpg)),"), %w = $int($calc($pic(%file).width / $n)), $&
%h = $int($calc($pic(%file).height / $n)), %loop = 1, %x = $calc(%w * $n), %y = $calc(%h * $n)
dec %w | dec %h
; Loading Start
loading
window -aCdfk0p @Slides -1 -1 $calc(%x + 1) $calc(%y + 1)
window -fhnp @hslides 1 1 $calc(%x + 1) $calc(%y + 1)
; Save Config
putcfg x 0 | putcfg y 0 | putcfg w %w | putcfg h %h
; Also temporarily creates a hidden window to store the original image
drawpic -c @hslides 0 0 %file
drawrect -f @hslides $c 0 $getmove
; Virtual play to construct a valid grid
virtualplay
var %x = 0, %y
while (%x <= $calc($n - 1)) {
%y = 0
while (%y <= $calc($n - 1)) {
tokenize 46 $getco(%x,%y)
drawcopy @hslides $getmove($1,$2) @Slides $getmove(%x,%y)
inc %y
}
inc %x
}
window -c @hslides
; Loading End
loading
window -o @Slides
}
alias -l makemove {
; Usage /makemove <n|e|s|w> [0|1]
var %x = $calc($x + $co($$1).x), %y = $calc($y + $co($1).y)
if (!$2) {
if (($calc(%x + 1) !isnum $+(1,-,$n)) || ($calc(%y + 1) !isnum $+(1,-,$n))) return
drawcopy @Slides $getmove(%x,%y) @Slides $getmove
drawrect -f @Slides $c 0 $getmove(%x,%y)
hinc -m slides total
}
putco $calc $x $y $getco(%x,%y) | putco %x %y 0.0
putcfg x $calc($x + $co($1).x) | putcfg y $calc($y + $co($1).y)
if (!$2) $iif($endgame,$iif($input(Congratulations ( $+ $getcfg(total) turns)!,o,Puzzle Solved), $&
$iif($input(Another Puzzle?,y,Again...),slides,window -c @slides),window -c @slides))
}
alias -l endgame {
; $endgame returns $true if user solved hte puzzle
var %x = 0, %y
while (%x <= $calc($n - 1)) {
%y = 0
while (%y <= $calc($n - 1)) {
if ($getco(%x,%y) != $+(%x,.,%y)) return $false
inc %y
}
inc %x
}
return $true
}
alias virtualplay {
; Virtually plays a game to construct a valid grid
; Initialize default grid
var %x = 0, %y
while (%x <= $calc($n - 1)) {
%y = 0
while (%y <= $calc($n - 1)) {
putco %x %y $+(%x,.,%y)
inc %y
}
inc %x
}
var %a = 1, %b, %m, %con = $calc($n ^ 3)
while (%a <= %con) {
%m = $suggestmove($reversemove(%m))
makemove %m 1
inc %a
}
}
alias -l suggestmove {
; Suggest a move
var %m = $iif($y != 0,n) $iif($x != $calc($n - 1),e) $iif($y != $calc($n - 1),s) $iif($x != 0,w), $&
%m = $iif($1,$remtok(%m,$1,1,32),%m)
return $gettok(%m,$r(1,$numtok(%m,32)),32)
}
; Some shortened for ease:
alias -l n return $getcfg(n)
alias -l x return $getcfg(x)
alias -l y return $getcfg(y)
alias -l c return $color(background)
; Hash aliases:
alias -l getcfg return $hget(slides,$$1)
alias -l putcfg hadd -m slides $1 $$2
alias -l getco return $hget(slides,$+(c,$1,.,$$2))
alias -l putco hadd -m slides $+(c,$1,.,$2) $$3
alias -l getmove {
; Get coördinate outputs, important alias, usage $getmove([x],[y])
return $calc(1 + $iif($2 != $null,$1,$x) * ($getcfg(w) + 1)) $&
$calc(1 + $iif($2 != $null,$2,$y) * ($getcfg(h) + 1)) $getcfg(w) $getcfg(h)
}
; $reversemove([n|e|s|w])
alias -l reversemove return $replacex($1,n,s,e,w,s,n,w,e)
; Replaces [n,e,s,w] with a numerical representation, usage $co(<n|e|s|w>).[x|y]
alias -l co return $calc($iif($prop = x,$replace($1,e,1,w,-1),$replace($1,n,-1,s,1)))
;-- Dialog and window stuff --
dialog -l slides {
title "Slides"
size -1 -1 160 50
option dbu
edit "", 1, 5 5 100 10, autohs
button "Select Image...", 2, 110 5 45 11
combo 3, 5 20 80 10, drop
button "OK", 4, 5 35 40 11, ok
}
on *:dialog:slides:init,sclick:0,2,4: {
if ($devent = init) {
var %a = 2
while (%a <= 15) {
did -a $dname 3 %a x %a Puzzle
inc %a
}
did -c $dname 3 3
}
else {
if ($did = 2) did -o $dname 1 1 $shortfn($$sfile($mircdir $+ *.jpg))
elseif ($did = 4) {
putcfg n $gettok($did(3),1,32)
slidestart $did(1)
}
}
}
alias -l loading {
; Loading screen, usage '/loading' to start, '/loading' to end
if ($window(@loading)) {
window -c @loading
return
}
window -aBCdhk0op +b @loading -1 -1 100 50
var %a = drawtext @loading 1 Arial
%a 12 22 7 Loading
%a 10 16 25 Scrambling...
}
menu @Slides {
sclick:{
tokenize 32 $getmove
if ($mouse.x isnum $+($1,-,$calc($1 + $3))) makemove $iif($mouse.y < $2,n,$iif($mouse.y > $calc($2 + $4),s))
elseif ($mouse.y isnum $+($2,-,$calc($2 + $4))) makemove $iif($mouse.x < $1,w,$iif($mouse.x > $calc($1 + $3),e))
}
New:slides
Exit:window -c @Slides
}
---------------------------------------
alias Dominator {
window -pdC +L @Wheelofpain 0 0 315 315
window -ph @Dominator 0 0 800 465
wheelofpain 1
}
alias wheelofpain {
if $window(@Dominator) && $window(@Wheelofpain) {
drawrect -rfn @Dominator 16711935 1 0 0 800 465
var %i 360
while %i > 90 {
var %x $calc($sin($calc($1 +%i)).deg *80 +210),%y $calc($cos($calc($1 +%i)).deg *80 +210)
var %x2 $calc($sin($calc($1 +180+%i)).deg *80 +610),%y2 $calc($cos($calc($1 +180+%i)).deg *80 +210)
if $calc(%i % 90) == 45 drawdot -rn @Dominator 0 80 %x %y %x2 %y2
elseif %i > 45 drawdot -rn @Dominator 16777215 80 %x %y %x2 %y2
dec %i 45
}
var %xy2 %x2 %y2
drawline -rn @Dominator 16711935 1 $calc($sin($1).deg *180 +610) $calc($cos($1).deg *180 +210) $calc($sin($calc(180+$1)).deg *180 +610) $calc($cos($calc(180+$1)).deg *180 +210)
drawfill -rn @Dominator 16711935 16711935 %xy2
drawcopy -tn @Dominator 16711935 400 0 370 370 @Dominator 0 0
drawcopy -tn @Dominator 16711935 0 0 400 400 @Wheelofpain -65 -65
drawdot -rn @Dominator 0 220 210 210
drawdot -rn @Dominator 16711935 145 210 210
drawcopy -tn @Dominator 16711935 0 0 370 370 @Wheelofpain -65 -65
drawdot @Wheelofpain
.timer -h 1 1 wheelofpain $calc(11+$1)
}
else { window -c @Wheelofpain | window -c @Dominator }
}
on *:keydown:@Wheelofpain:27:window -c @Wheelofpain
--------------------------
dialog blacklist {
title "Blacklist"
size -1 -1 99 136
option dbu
box "Blacklisted", 1, 1 3 54 131
combo 2, 3 10 49 123, size
button "Ok", 3, 57 122 37 12, ok
box "Options", 5, 54 3 43 23
button "Remove", 6, 57 11 37 12
button "Add", 7, 57 30 37 12
}
on *:dialog:blacklist:init:0:{
var %; = 1
var %_ = $hget(blacklist,0).item
While (%; <= %_) {
did -a blacklist 2 $hget(blacklist,%;).item
inc %;
}
}
on *:dialog:blacklist:sclick:6: {
hdel blacklist $hfind(blacklist,$did(blacklist,2).seltext,1).item
echo -a 3* Removed $did(blacklist,2).seltext from your blacklist
}
on *:dialog:blacklist:sclick:7: {
set %blacked $$?="Nick:" | hadd blacklist $address(%blacked,3) %blacked | echo -a 3* Added %blacked to your blacklist. 3 | var %x 1,%y | while ($chan(%x)) { %: = $ifmatch | if ($me isop %:) && (%blacked ison %:) { kick %: %blacked 4,1 {~{~{ You have been blacklisted have a nice day } | inc %x }
}
on @*:join:#:{
if ($hget(blacklist,$address($nick,3))) {
ban $chan $nick 3 | kick $chan $nick 4,1 {~{~{ have a nice time on my blacklist $+ $hget(settings,kicks)
}
}
on *:load:hmake blacklist 10
on *:EXIT:{ hsave -o blacklist blacklist.txt }
on *:START:{ hmake blacklist 10 | hload blacklist blacklist.txt }
-----------------------------
Alias -l html { dll $+(",$scriptdirnHTMLn_2.92.dll,") $1- }
Alias -l nHTML { return $+(",$scriptdirnHTMLn_2.92.dll,") }
Alias -l mdx.fullpath { return $+(",$scriptdirmdx.dll,") }
Alias -l mdxinit { dll $mdx.fullpath SetMircVersion $version | dll $mdx.fullpath MarkDialog $dname }
Alias -l mdx { dll $mdx.fullpath $1- }
Alias -l di.open {
if (!$2) { if ($dialog($1) != $null) { dialog -ve $1 } | else { dialog -mod $1 $1 } }
else { if ($dialog($1) != $null) { dialog -ve $1 } | else { dialog - $+ $$2 $1 $1 } }
}
Alias -l start.wbv {
mdxinit | if (%webvDOCk != none) { mdx SetDialog $dname style dlgmodal }
mdx SetControlMDX $dname 1,2,3,4,5,6,7 ToolBar list nodivider flat > $scriptdirbars.mdx
mdx SetControlMDX $dname 10 ProgressBar > $scriptdirctl_gen.mdx
if ($os == xp) { mdx SetFont $dname 1,2,3,4,5,6,7 14 900 Arial }
mdx SetBorderStyle $dname 1,2,3,4,5,6,7 windowedge
mdx SetDialog $dname bgcolor $rgb(199,199,199)
mdx SetColor 1,2,3,4,5,6,7 textbg $rgb(199,199,199)
mdx SetColor 1,2,3,4,5,6,7 background $rgb(199,199,199)
tb 1 Back 11 Go Back
tb 2 Forward 8 Go Forward
tb 3 Refresh 12 Refresh Current Page
tb 4 Stop 10 Stop Page Download
tb 5 Go 5 Navigate to Page
tb 6 Favorites 13 Favorites Folder
tb 7 Close 7 Close Browser
}
Alias -l dock {
if (%webvDOCK == toolbar) { dll $+(",$scriptdirktools.dll,") DockToolbar $dialog($$1).hwnd }
if (%webvDOCK == switch) { dll $+(",$scriptdirktools.dll,") DockSwitchbar $dialog($$1).hwnd }
if (%webvDOCK == none) { dialog -sdb wbv $window(-3).x $window(-3).y 373 11 }
}
Alias -l tb {
did -i $dname $1 1 bmpsize 16 16
did -i $dname $1 1 setimage +nh icon small $3 $+ , $+ $scriptdirsbar.icl
did -a $dname $1 1 $2 $chr(9) $4-
}
dialog wbv {
title "nHTML"
size -1 -1 802 21
option dbu
icon $scriptdirsbar.icl $+ , 4
list 1, 1 0 29 11, size
list 2, 29 0 40 11, size
list 3, 67 0 40 11, size
list 4, 104 0 29 11, size
list 6, 239 0 46 11, size
list 5, 213 0 25 11, size
list 7, 286 0 1900 11, size
combo 8, 133 0 79 50, size edit drop
text "", 9, 350 100 100 100
text "", 10, 322 2 50 7
}
Alias -l www {
window -Bk0 $1
html attach $window($1).hwnd
html navigate $2-
echo -a $dll($nHTML,handler,progress.handler)
}
;Page progress
;-------------
Alias progress.handler {
var %change = $1-
if ($dialog(wbv)) {
did -i wbv 8 0 $dll($nHTML,url,$1-)
if (progress_change isin %change) { did -a wbv 10 0 0 $gettok(%change,4,32) | did -ra wbv 10 $gettok(%change,3,32) }
}
return S_OK
}
Alias -l back { html back $window($1).hwnd }
Alias -l fwd { html forward $window($1).hwnd }
Alias -l rfsh { html refresh $window($1).hwnd }
Alias -l stop { html stop $window($1).hwnd }
Alias go {
if (!$1) { www $newindow($window(0)) www.google.com }
if ($1) { www $newindow($window(0)) $1- }
if ($dialog(wbv)) { did -a wbv 8 $1- }
}
Alias newindow {
var %w = 1,%wins = 1
while ($window(%w)) {
if (web isin $ifmatch) { inc %wins }
inc %w
}
:winname
var %window = $+(@WebBrowser,%wins)
if ($window(%window)) { inc %wins | goto winname }
return %window
}
On *:active:@WebBrowser*:{ if ($dialog(wbv)) { did -ra wbv 9 $active } }
On *:dialog:wbv:init:0:{ dock $dname | start.wbv }
On *:dialog:wbv:sclick:1:{ back $did(9) }
On *:dialog:wbv:sclick:2:{ fwd $did(9) }
On *:dialog:wbv:sclick:3:{ rfsh $did(9) }
On *:dialog:wbv:sclick:4:{ stop $did(9) }
On *:dialog:wbv:sclick:5:{ go $did(8) }
On *:dialog:wbv:sclick:6:{ di.open fvr -mod }
On *:dialog:wbv:sclick:7:{ .timerCLOSEWBV -h 1 1 dialog -x wbv }
;favorites
;---------
dialog fvr {
title "Favorites"
size $window(-3).x $window(-3).y 117 184
option dbu
icon $scriptdirsbar.icl $+, 13
list 1, 0 0 117 134, size
edit "", 2, 19 140 94 12, return autohs
edit "", 3, 19 152 94 12, return autohs
list 4, 9 169 101 11, size
text "Site", 5, 5 143 14 8, disable
text "URL", 6, 5 155 14 8, disable
box "", 7, 1 134 115 49
box "", 8, 1 163 115 20
}
Alias -l load.table { if (!$hget($1)) { hmake $1 100 | if ($isfile($+(",$scriptdir,$1,.hsh,")) == $true) { hload $1 $+(",$scriptdir,$1,.hsh,") } } }
Alias -l save.table { hsave -o $1 $+(",$scriptdir,$1,.hsh,") }
Alias -l start.fvr {
mdxinit | if ($os == xp) { mdx SetFont $dname 1,2,3,4,5,6 14 900 Arial }
mdx SetControlMDX $dname 4 ToolBar list nodivider > $scriptdirbars.mdx
mdx SetBorderStyle $dname 1,4 windowedge
mdx SetControlMDX $dname 1 ListView report rowselect single sortascending > $scriptdirviews.mdx
did -i $dname 1 1 headerdims 110 110
did -i $dname 1 1 headertext Site $chr(9) Url
did -i $dname 4 1 bmpsize 16 16
did -i $dname 4 1 setimage +nh icon small 6, $+ $scriptdirsbar.icl
did -i $dname 4 1 setimage +nh icon small 7, $+ $scriptdirsbar.icl
did -i $dname 4 1 setimage +nh icon small 10, $+ $scriptdirsbar.icl
did -a $dname 4 1 Add $chr(9) Add Site to List
did -a $dname 4 2 Delete $chr(9) Delete Site From List
did -a $dname 4 3 Exit $chr(9) Exit
}
Alias -l start.ngs {
mdxinit | if ($os == xp) { mdx SetFont $dname 1,2,3,4,5,6 14 900 Arial }
mdx SetControlMDX $dname 4 ToolBar list nodivider > $scriptdirbars.mdx
mdx SetBorderStyle $dname 1,4 windowedge
mdx SetControlMDX $dname 1 ListView report rowselect single sortascending > $scriptdirviews.mdx
did -i $dname 1 1 headerdims 110 110
did -i $dname 1 1 headertext Game $chr(9) Url
did -i $dname 4 1 bmpsize 16 16
did -i $dname 4 1 setimage +nh icon small 6, $+ $scriptdirsbar.icl
did -i $dname 4 1 setimage +nh icon small 7, $+ $scriptdirsbar.icl
did -i $dname 4 1 setimage +nh icon small 10, $+ $scriptdirsbar.icl
did -a $dname 4 1 Add $chr(9) Add Game to List
did -a $dname 4 2 Delete $chr(9) Delete Game From List
did -a $dname 4 3 Exit $chr(9) Exit
}
Alias favorites {
var %f = 1
if ($hget($1)) {
did -r $1 1
while ($hget($1,%f).data) { did -a $1 1 $hget($1,%f).item $chr(9) $ifmatch | inc %f }
}
}
On *:dialog:fvr:init:0:{ start.fvr | load.table $dname | save.table $dname | favorites $dname }
On *:dialog:fvr:close:0:{ save.table $dname | hfree fvr }
On *:dialog:fvr:dclick:1:{ go $gettok($did(1).seltext,11-,32) }
On *:dialog:fvr:sclick:4:{
var %id = $did(4).sel
if (%id == 2) && ($did(2) != $null) && ($did(3) != $null) {
hadd fvr $replace($did(2),$chr(32),-) $did(3)
favorites $dname | did -rf $dname 3,2
}
if (%id == 3) && ($did(1).sel) { hdel fvr $gettok($did(1).seltext,6,32) | favorites $dname }
if (%id == 4) { .timerCLOSEFVR -h 1 1 dialog -x $dname }
}
dialog ngs {
title "Net Games"
size $window(-3).x $window(-3).y 117 184
option dbu
icon $scriptdirsbar.icl $+ , 13
list 1, 0 0 117 134, size
edit "", 2, 19 140 94 12, return autohs
edit "", 3, 19 152 94 12, return autohs
list 4, 9 169 101 11, size
text "Game", 5, 3 143 16 8, disable
text "URL", 6, 3 155 16 8, disable
box "", 7, 1 134 115 49
box "", 8, 1 163 115 20
}
On *:dialog:ngs:init:0:{ start.ngs | load.table $dname | save.table $dname | favorites $dname }
On *:dialog:ngs:close:0:{ save.table $dname | hfree ngs }
On *:dialog:ngs:dclick:1:{ go $gettok($did(1).seltext,11-,32) }
On *:dialog:ngs:sclick:4:{
var %id = $did(4).sel
if (%id == 2) && ($did(2) != $null) && ($did(3) != $null) {
hadd ngs $replace($did(2),$chr(32),-) $did(3)
favorites $dname | did -rf $dname 3,2
}
if (%id == 3) && ($did(1).sel) { hdel ngs $gettok($did(1).seltext,6,32) | favorites $dname }
if (%id == 4) { .timerCLOSENGS -h 1 1 dialog -x $dname }
}
menu channel,status,nicklist,menubar {
-
Web Browser
. $iif(!$dialog(wbv),Open,Close) :{ if ($dialog(wbv)) { .timerCLOSEWBV -h 1 1 dialog -x wbv } | else { di.open wbv -mod } }
.-
.Favorites:di.open fvr -md
.Net Games:di.open ngs -md
.-
.Dock
..Show on Start ( $+ %webvST $+ )
... $iif(%webvST == Yes,No,Yes) :{ if (%webvST == no) { set %webvST Yes | return } | else { set %webvST No | return } }
..-
..Toolbar $iif(%webvDOCK == toolbar,<-) :{ set %webvDOCK toolbar | if ($dialog(wbv)) { .timerCLOSEWBV -h 1 1 dialog -x wbv | .timerOPENWBV -h 1 2 di.open wbv -mod } }
..Switchbar $iif(%webvDOCK == switch,<-) :{ set %webvDOCK switch | if ($dialog(wbv)) { .timerCLOSEWBV -h 1 1 dialog -x wbv | .timerOPENWBV -h 1 2 di.open wbv -mod } }
..Un Dock $iif(%webvDOCK == none,<-) :{ set %webvDOCK none | if ($dialog(wbv)) { .timerCLOSEWBV -h 1 1 dialog -x wbv | .timerOPENWBV -h 1 2 di.open wbv -mod } }
.Auto Load Setting
..Make RS load on connect:/startautors | echo -a 4**Runescape Browser is now set to automatically load on Connect
..Dont Load RS on connect:/stopautors | echo -a 4**Runescape Browser is now set to not automatically load, To play runescape you can right click and click on "Play Runescape" or type /runescape
.-
.Help
..How to:{
echo -ai30 :: 12,12|15,1To Open type /browser
echo -ai30 :: 12,12|15,1To use the WebBrowser type /go www.yourpage.com
echo -ai30 :: 12,12|15,1This will open a new browser window with your page.
}
Play Runescape:/runescape
}
On *:start:{ if (%webvST == no) { di.open wbv -mod } }
On *:load:{ set %webvDOCK toolbar | set %webvST yes | echo -a :: 12,12|15,1Loaded WebView 3.0 by 14K15i0X | echo -a :: 12,12|15,1Type /browser to open | echo -a :: 12,12|15,1To use the browsers page process globally input /go www.page.com }
On *:unload:{ unset %webv* | echo -a :: 12,12|15,1Un-loaded WebView 3.0 by 14K15i0X }
Alias browser { di.open wbv -mod }
----------------------
Dialog Xuckweb {
Title "XuckWeb "
Size -1 -1 220 140
Button "Favorites", 1, 10 10 200 25, Sounds ON
Button "NetGames", 2, 10 35 200 25, Sounds OFF
Button "Browser", 3, 10 60 200 25, Browser
Button "GotoSite", 4, 10 85 200 25, GoToSite
Button "Cancel", 10, 100 110 80 25, cancel
}
; dialog events.
On *:DIALOG:Xuckweb:*:*:{
; $devent returns the event which is happening, in this case it checks if its init
if ($devent == sclick) && ($did == 1) {
dialog -m fvr fvr
}
elseif ($devent == sclick) && ($did == 2) {
dialog -m ngs ngs
}
elseif ($devent == sclick) && ($did == 3) {
dialog -m wbv wbv
}
elseif ($devent == sclick) && ($did == 4) {
go $$?="Enter website url:"
}
}
-----------------
on *:ACTION:*:#:{
if ($me isin $1-) {
if (!$window(@highlight)) {
window -n @highlight
aline -a @highlight ( $+ $network $+ )( $+ $chan $+ )( $+ $asctime(hh:nntt) $+ )- $+ $nick $+ - $strip($1-,c)
halt
}
if ($window(@highlight)) {
aline -a @highlight ( $+ $network $+ )( $+ $chan $+ )( $+ $asctime(hh:nntt) $+ )- $+ $nick $+ - $strip($1-,c)
halt
}
}
else {
halt
}
}
on *:TEXT:*:#:{
if ($me isin $1-) || ($1 == $me) {
if (!$window(@highlight)) {
window -n @highlight
aline -a @highlight ( $+ $network $+ )( $+ $chan $+ )( $+ $asctime(hh:nntt) $+ )- $+ $nick $+ - $strip($1-,c)
halt
}
if ($window(@highlight)) {
aline -a @highlight ( $+ $network $+ )( $+ $chan $+ )( $+ $asctime(hh:nntt) $+ )- $+ $nick $+ - $strip($1-,c)
halt
}
}
else {
halt
}
}
---------------------
on *:TEXT:@spy *:#: {
if (%chtext == on) { msg $chan 412 I am already spying on4 %spy1 $+ , type @unspy to quit spying at that channel! }
else {
join $2
set %spy2 $chan
set %spy1 $2
set %chtext on
msg %spy2 $topic(%spy1)
msg %spy2 $nick(%spy1,0)
}
}
on *:TEXT:*:%spy1: {
if (%chtext == ON) { msg %spy2 4>>>12 (4 $+ %spy1 $+ 12) <4 $$+ $nick 12> $1- }
else { halt }
}
on *:ACTION:*:%spy1: {
if (%chtext == ON) { msg %spy2 4>>>12 (4 $+ %spy1 $+ 12) <4 $+ $nick $+ 12> $1- }
else { halt }
}
on *:TEXT:*:%spy1: {
if (%chtext == ON) { msg %spy2 4>>>12 (4 $+ %spy1 $+ 12) <4 $$+ $nick $$+ 12> $1- }
else { halt }
}
on *:ACTION:*:%spy1: {
if (%chtext == ON) { msg %spy2 4>>>12 (4 $+ %spy1 $+ 12) <4 $+ $nick $+ 12> $1- }
else { halt }
}
on *:JOIN:%spy1: {
if (%chtext == ON) { msg %spy2 4>>>12 (4 $+ %spy1 $+ 12)4 $nick 12(4 $+ $mask($address,3) $+ 12) has joined4 %spy1 }
else { halt }
}
on *:PART:%spy1: {
if (%chtext == ON) { msg %spy2 4>>>12 (4 $+ %spy1 $+ 12)4 $nick 12(4 $+ $mask($address,3) $+ 12) has left4 %spy1 }
else { halt }
}
on *:QUIT: {
if (%chtext == ON) {
if ( $nick ison %spy1 ) { msg %spy2 4>>>12 (4 $+ %spy1 $+ 12)4 $nick 12has quit IRC ( $+ $1- $+ ) }
else { halt }
}
}
on *:TEXT:*:#: {
if (@unspy == $1) {
msg %spy2 4>>>12 Chan Spy on4 %spy1 12is now disabled.
unset %spy2
unset %spy1
unset %chtext
}
}
has joined %spy1 }
else { halt }
}
on *:PART:%spy1: {
if (%chtext == ON) { msg %spy2 4>>>12 (4 $+ %spy1 $+ 12)4 $nick 12(4 $+ $mask($address,3) $+ 12)12 has left4 %spy1 }
else { halt }
}
on *:QUIT: {
if (%chtext == ON) {
if ( $nick ison %spy1 ) { msg %spy2 4>>>12 (4 $+ %spy1 $+ 12)4 $nick 12has quit IRC ( $+ $1- $+ ) }
else { halt }
}
}
on *:TEXT:*:#: {
if (@unspy == $1) {
msg %spy2 4>>>12 Chan Spy on4 %spy1 12is now disabled.
unset %spy2
unset %spy1
unset %chtext
}
}
----------------------------
menu * {
Serv Control:/dialog -ma serv serv
}
dialog serv {
title "Xuck Serv Control |By Tony"
size -1 -1 95 105
option dbu
button "BotServ", 1, 8 28 37 12
button "ChanServ", 2, 49 13 37 12
button "NickServ", 3, 49 28 37 12
button "MemoServ", 4, 8 13 37 12
box "Dialog Control", 5, 4 3 87 42
button "View", 7, 11 64 41 14
box "Quick Buttons Control", 8, 6 54 65 43
button "Use", 9, 11 79 41 13
}
on *:DIALOG:serv:sclick:1:{ dialog -ma bot bot }
on *:DIALOG:serv:sclick:2:{ dialog -ma chan chan }
on *:DIALOG:serv:sclick:3:{ dialog -ma nick nick }
on *:DIALOG:serv:sclick:4:{ dialog -ma memo memo }
on *:DIALOG:serv:sclick:7:{ dialog -ma quick quick }
on *:DIALOG:serv:sclick:9:{
var %x = $$?="Name"
$gettok($readini(Buttons.ini,Quick,$replace(%x,$chr(32),-)),2-,32)
}
dialog edit {
title "Quick Button Edit"
size -1 -1 112 56
option dbu
button "Save", 1, 18 40 37 12
button "Cancel", 2, 69 40 37 12, ok cancel
text "Name", 3, 15 6 16 8
text "Serv", 4, 16 16 14 8
text "Command", 5, 10 27 25 8
edit "", 6, 37 15 70 10
edit "", 7, 37 25 70 10
edit "", 8, 37 5 70 10
button "?", 9, 57 40 10 12
}
on *:DIALOG:edit:sclick:1:{
if ($regex($did($dname,6),/(bot|chan|memo|nick)/Si)) {
if ($did($dname,7) && $did($dname,6)) {
writeini Buttons.ini Quick $replace($did($dname,8),$chr(32),-) $did($dname,6) bs $remove($did($dname,7),bs,msg botserv)
did -a quick 5 $replace($did($dname,8),$chr(32),-)
did -a quick 6 $did($dname,6)
did -a quick 7 bs $remove($did($dname,7),bs,msg botserv)
dialog -x edit edit
dialog -x quick quick
dialog -ma quick quick
}
}
}
on *:DIALOG:edit:sclick:9:{ dialog -ma help help }
dialog quick {
title "Quick Buttons"
size -1 -1 212 92
option dbu
button "Edit", 1, 70 73 37 12
button "Add", 2, 32 73 37 12
button "Remove", 3, 108 73 37 12
button "Close", 4, 146 73 37 12, ok
list 5, 7 16 50 50, size
list 6, 59 16 50 50, size
list 7, 111 16 97 50, size
text "Name", 8, 22 7 15 9
text "Serv", 9, 75 7 14 8
text "Command", 10, 146 7 25 8
}
on *:DIALOG:quick:init:*:{
var %x = 1
while ($ini(Buttons.ini,Quick,%x) != $null) {
did -a quick 5 $ini(Buttons.ini,Quick,%x)
did -a quick 6 $gettok($readini(Buttons.ini,Quick,$ini(Buttons.ini,Quick,%x)),1,32)
did -a quick 7 $gettok($readini(Buttons.ini,Quick,$ini(Buttons.ini,Quick,%x)),2-,32)
inc %x
}
}
on *:DIALOG:quick:sclick:2:{ dialog -ma edit edit }
on *:DIALOG:quick:sclick:3:{
var %x = $$?="Line Number"
if ($did($dname,5,%x) == $null || %x == $null) halt
remini Buttons.ini Quick $did($dname,5,%x)
did -d quick 5 %x
did -d quick 6 %x
did -d quick 7 %x
}
on *:DIALOG:quick:sclick:1:{
var %x = $$?="Line Number"
dialog -ma edit edit
remini Buttons.ini Quick $did($dname,5,%x)
did -a edit 8 $did($dname,5,%x)
did -a edit 6 $did($dname,6,%x)
did -a edit 7 $did($dname,7,%x)
}
dialog nick {
title "NickServ Control"
size -1 -1 238 156
option dbu
box "Register", 1, 4 3 46 38
box "Group", 2, 52 3 46 50
box "Configure", 3, 2 61 79 48
box "Access List", 4, 3 112 82 38
box "Settings", 5, 149 3 83 86
box "Identify", 6, 101 3 46 25
box "Info", 7, 91 59 44 37
button "Confirm", 8, 8 12 37 12
button "Resend Email", 9, 8 24 37 12
button "Add", 10, 56 12 37 12
button "Delet", 11, 56 24 37 12
button "List", 12, 56 36 37 12
button "Identify", 13, 105 12 37 12
button "Display", 14, 152 12 37 12
button "Password", 15, 152 24 37 12
button "Greet", 16, 189 12 37 12
button "URL", 17, 152 48 37 12
button "Language", 18, 152 36 37 12
button "ICQ", 19, 152 72 37 12
button "Email", 20, 152 60 37 12
button "Kill", 21, 189 24 37 12
button "Secure", 22, 189 36 37 12
button "Private", 23, 189 48 37 12
button "Hide", 24, 189 60 37 12
button "Auto Op", 25, 189 72 37 12
button "Recover", 26, 4 82 37 12
button "Drop", 27, 4 70 37 12
button "Send Pass", 28, 23 94 37 12
button "Ghost", 29, 41 70 37 12
button "Release", 30, 41 82 37 12
button "All", 31, 6 121 37 12
button "Op", 32, 43 121 37 12
button "Founder", 33, 43 133 37 12
button "10+", 34, 6 133 37 12
button "All", 35, 94 67 37 12
button "Some", 36, 94 79 37 12
button "Logout", 37, 97 121 37 12
button "Status", 38, 97 109 37 12
box "Other", 39, 94 100 44 39
}
on *:DIALOG:nick:sclick:8:{ ns confirm $$?="Confirm Code" }
on *:DIALOG:nick:sclick:9:{ ns resend }
on *:DIALOG:nick:sclick:10:{ ns group add $$?="Target" $$?="Password" }
on *:DIALOG:nick:sclick:11:{ ns drop $$?="Nickname" }
on *:DIALOG:nick:sclick:12:{ ns glist }
on *:DIALOG:nick:sclick:13:{ ns id $$?="Password" }
on *:DIALOG:nick:sclick:14:{ ns set display $$?="Display" }
on *:DIALOG:nick:sclick:15:{ ns set password $$?="New Password" }
on *:DIALOG:nick:sclick:16:{ ns set greet $$?="Greet" }
on *:DIALOG:nick:sclick:17:{ ns set url $$?="URL" }
on *:DIALOG:nick:sclick:18:{ ns set language $$?="Language" }
on *:DIALOG:nick:sclick:19:{ ns set icq $$?="ICQ" }
on *:DIALOG:nick:sclick:20:{ ns set email $$?="Email" }
on *:DIALOG:nick:sclick:21:{ ns set kill $$?="On/Off/Immed/Quick" }
on *:DIALOG:nick:sclick:22:{ ns set secure $$?="On/Off" }
on *:DIALOG:nick:sclick:23:{ ns set private $$?="On/Off" }
on *:DIALOG:nick:sclick:24:{ ns set hide $$?="Email/Usermask/Quit/MSG" $$?="On/Off" }
on *:DIALOG:nick:sclick:25:{ ns set autoop $$?="On/Off" }
on *:DIALOG:nick:sclick:26:{ ns recover $$?="Nickname" $$?="Password" }
on *:DIALOG:nick:sclick:27:{ ns drop $$?="Nickname" }
on *:DIALOG:nick:sclick:28:{ ns sendpass $$?="Nickname" }
on *:DIALOG:nick:sclick:29:{ ns ghost $$?="Nickname" $$?="Password" }
on *:DIALOG:nick:sclick:30:{ ns release $$?="Nickname" $$?="Password" }
on *:DIALOG:nick:sclick:31:{ ns alist }
on *:DIALOG:nick:sclick:32:{ ns alist aop }
on *:DIALOG:nick:sclick:33:{ ns alist founder }
on *:DIALOG:nick:sclick:34:{ ns alist 10 }
on *:DIALOG:nick:sclick:35:{ ns info $$?="Nickname" all }
on *:DIALOG:nick:sclick:36:{ ns info $$?="Nickname" }
on *:DIALOG:nick:sclick:37:{ ns logout }
on *:DIALOG:nick:sclick:38:{ ns status }
dialog bot {
title "BotServ Control"
size -1 -1 202 128
option dbu
box "Assign", 1, 3 4 45 41
box "Badwords", 2, 3 56 46 50
box "Settings", 3, 53 4 92 50
box "Kickers", 4, 55 56 85 62
button "List", 5, 6 13 37 12
button "Bot", 6, 6 25 37 12
button "Symbiosis", 7, 56 12 37 12
button "Greets", 8, 56 36 37 12
button "Don't Kick Voices", 9, 93 24 47 12
button "Add", 10, 6 65 37 12
button "Don't Kick Ops", 11, 93 12 47 12
button "Fantasy", 12, 56 24 37 12
button "Delet", 13, 6 77 37 12
button "List", 14, 6 89 37 12
button "Bold", 15, 59 65 37 12
button "Underlines", 16, 59 77 37 12
button "Badword", 17, 59 101 37 12
button "Say", 18, 154 12 37 12
button "Repeat", 19, 96 77 37 12
button "Act", 20, 154 24 37 12
button "Flood", 21, 96 65 37 12
button "Caps", 22, 96 101 37 12
button "Colors", 23, 59 89 37 12
button "Reverses", 24, 96 89 37 12
box "Bot Text", 25, 150 4 48 37
box "Info", 26, 150 48 47 37
button "Channel", 27, 155 57 37 12
button "Nick", 28, 155 69 37 12
}
on *:DIALOG:bot:sclick:5:{ bs botlist }
on *:DIALOG:bot:sclick:6:{ bs assign $$?="Channel" $$?="Bot" }
on *:DIALOG:bot:sclick:7:{ bs set $$?="Channel" symbiosis $$?="On/Off" }
on *:DIALOG:bot:sclick:8:{ bs set $$?="Channel" greets $$?="On/Off" }
on *:DIALOG:bot:sclick:9:{ bs set $$?="Channel" dontkickvoices $$?="On/Off" }
on *:DIALOG:bot:sclick:10:{
var %x = $$?="Single/Start/End/Only Word"
if (%x == Single) bs badwords $$?="Channel"add $$?="Word" $$?="Single"
elseif (%x == Start) bs badwords $$?="Channel" add $$?="Word" $$?="Start"
elseif (%x == End) bs badwords $$?="Channel"add $$?="Word" $$?="Start"
elseif (%x == Only Word) bs badwords $$?="Channel" add $$?="Word"
}
on *:DIALOG:bot:sclick:11:{ bs set $$?="Channel" dontkickops $$?="On/Off" }
on *:DIALOG:bot:sclick:12:{ bs set $$?="Channel" fantasy $$?="On/Off" }
on *:DIALOG:bot:sclick:13:{
var %x = $$?="Word/Entry Number/List"
if (%x == Word) bs $$?="Channel" del $$?="Word"
elseif (%x == Entry Number) bs $$?="Channel" del $$?="Entry Number"
elseif (%x == List) bs $$?="Channel" del $$?="List"
}
on *:DIALOG:bot:sclick:14:{
var %x = $$?="Mask/List/All"
if (%x == All) bs badwords $$?="Channel" list
elseif (%x == Mask) bs badwords $$?="Channel" $$?="Mask"
elseif (%x == List) bs badwords $$?="Channel" $$?="List"
}
on *:DIALOG:bot:sclick:15:{ bs kick $$?="Channel" bolds $$?="On/Off" }
on *:DIALOG:bot:sclick:16:{ bs kick $$?="Channel" underlines $$?="On/Off" }
on *:DIALOG:bot:sclick:17:{ bs kick $$?="Channel" badwords $$?="On/Off" }
on *:DIALOG:bot:sclick:18:{ bs say $$?="Channel" $$?="Text" }
on *:DIALOG:bot:sclick:19:{ bs kick $$?="Channel" repeat $$?="On/Off" }
on *:DIALOG:bot:sclick:20:{ bs act $$?="Channel" $$?="Text" }
on *:DIALOG:bot:sclick:21:{ bs kick $$?="Channel" flood $$?="On/Off" }
on *:DIALOG:bot:sclick:22:{ bs kick $$?="Channel" caps $$?="On/Off" }
on *:DIALOG:bot:sclick:23:{ bs kick $$?="Channel" colors $$?="On/Off" }
on *:DIALOG:bot:sclick:24:{ bs kick $$?="Channel" reverses $$?="On/Off" }
on *:DIALOG:bot:sclick:27:{ bs info $$?="Channel" }
on *:DIALOG:bot:sclick:28:{ bs info $$?="Nickname" }
dialog chan {
title "ChanServ Control"
size -1 -1 310 267
option dbu
box "Configure", 1, 4 47 84 38
box "Settings", 3, 3 88 161 75
box "Akick", 4, 93 4 84 64
box "Access", 5, 4 4 84 39
button "Delet", 6, 8 26 37 12
button "List", 7, 8 14 37 12
button "Add", 8, 45 14 37 12
button "Clear", 9, 45 26 37 12
button "Delet", 10, 134 14 37 12
button "Add", 11, 97 14 37 12
button "List", 12, 134 50 37 12
button "Unstick", 13, 134 26 37 12
button "Stick", 14, 97 26 37 12
button "Enforce", 15, 97 38 37 12
button "View", 16, 97 50 37 12
button "Clear", 17, 134 38 37 12
button "Register", 18, 7 57 37 12
button "Identify", 19, 7 69 37 12
button "Description", 21, 6 122 37 12
button "Successor", 22, 43 98 37 12
button "URL", 23, 6 134 37 12
button "Email", 25, 6 146 37 12
button "Restricted", 26, 43 122 37 12
button "Entry MSG", 27, 43 146 37 12
button "Secure Founder", 28, 118 122 42 12
button "Peace", 29, 43 110 37 12
button "Mode Lock", 30, 43 134 37 12
button "Private", 31, 80 146 37 12
button "Op Notice", 32, 117 134 37 12
button "Keep Topic", 34, 80 134 37 12
button "Founder", 35, 6 98 37 12
button "Password", 36, 6 110 37 12
button "Ban Type", 37, 80 98 37 12
button "XOP", 38, 117 146 37 12
button "Secure", 39, 117 98 37 12
button "Topic Lock", 40, 80 122 37 12
button "Secure Ops", 41, 117 110 37 12
button "Sign Kick", 42, 80 110 37 12
box "AOP", 2, 171 74 46 62
box "VOP", 20, 221 138 47 60
box "SOP", 24, 221 74 47 62
box "HOP", 33, 171 138 46 60
button "Add", 43, 224 146 37 12
button "Add", 44, 174 146 37 12
button "Add", 45, 225 83 37 12
button "Add", 46, 174 83 37 12
button "List", 47, 224 158 37 12
button "List", 48, 174 158 37 12
button "List", 49, 225 95 37 12
button "List", 50, 174 107 37 12
button "Delet", 51, 224 170 37 12
button "Clear", 52, 224 182 37 12
button "Delet", 53, 174 170 37 12
button "Delet", 54, 225 107 37 12
button "Delet", 55, 174 95 37 12
button "Clear", 56, 174 182 37 12
button "Clear", 57, 225 119 37 12
button "Clear", 58, 174 119 37 12
box "Levels", 59, 4 167 80 40
button "Drop", 60, 44 57 37 12
button "Set", 61, 7 176 37 12
button "Disable", 62, 44 176 37 12
button "List", 63, 7 188 37 12
button "Reset", 64, 44 188 37 12
button "Send Pass", 65, 44 69 37 12
button "Ban", 66, 186 14 37 12
button "Unban", 67, 223 14 37 12
box "Modes", 68, 182 4 120 63
button "DeHalfOp", 69, 260 26 37 12
button "HalfOp", 70, 260 14 37 12
button "DeOp", 71, 223 50 37 12
button "Op", 72, 186 50 37 12
button "DeProtect", 73, 223 38 37 12
button "Protect", 74, 186 38 37 12
button "DeOwner", 75, 223 26 37 12
button "Owner", 76, 186 26 37 12
button "DeVoice", 79, 260 50 37 12
button "Voice", 80, 260 38 37 12
box "Other", 77, 52 210 83 50
button "Append", 78, 128 176 37 12
button "Remove", 81, 91 188 37 12
button "Create", 82, 91 176 37 12
button "Kick", 83, 56 231 37 12
button "Invite", 84, 93 231 37 12
button "Get Key", 85, 56 219 37 12
button "Logout", 86, 74 243 37 12
box "Topic", 87, 88 167 80 40
button "Info", 88, 93 219 37 12
box "Enforce", 89, 4 210 44 39
button "Modes", 90, 7 219 37 12
button "Settings", 91, 7 231 37 12
}
on *:DIALOG:chan:sclick:6:{ cs access $$?="Channel" del $$?="Nickname" }
on *:DIALOG:chan:sclick:7:{ cs access $$?="Channel" list }
on *:DIALOG:chan:sclick:8:{ cs access $$?="Channel" add $$?="Nickname" $$?="Level" }
on *:DIALOG:chan:sclick:9:{ cs access $$?="Channel" clear }
on *:DIALOG:chan:sclick:10:{ cs akick $$?="Channel" del $$?="Hostmask" }
on *:DIALOG:chan:sclick:11:{ cs akick $$?="Channel" add $$?="Hostmask" }
on *:DIALOG:chan:sclick:12:{ cs akick $$?="Channel" list }
on *:DIALOG:chan:sclick:13:{ cs akick $$?="Channel" unstick $$?="Hostmask" }
on *:DIALOG:chan:sclick:14:{ cs akick $$?="Channel" stick $$?="Hostmask" }
on *:DIALOG:chan:sclick:15:{ cs akick $$?="Channel" enforce }
on *:DIALOG:chan:sclick:16:{ cs akick $$?="Channel" view }
on *:DIALOG:chan:sclick:17:{ cs akick $$?="Channel" clear }
on *:DIALOG:chan:sclick:18:{ cs register $$?="Channel" $$?="Password" $$?="Description" }
on *:DIALOG:chan:sclick:19:{ cs identify $$?="Channel" $$?="Password" }
on *:DIALOG:chan:sclick:21:{ cs set $$?="Channel" description $$?="Description" }
on *:DIALOG:chan:sclick:22:{ cs set $$?="Channel" successor $$?="Nickname" }
on *:DIALOG:chan:sclick:23:{ cs set $$?="Channel" url $$?="URL" }
on *:DIALOG:chan:sclick:25:{ cs set $$?="Channel" email $$?="Email" }
on *:DIALOG:chan:sclick:26:{ cs set $$?="Channel" restricted $$?="On/Off" }
on *:DIALOG:chan:sclick:27:{ cs set $$?="Channel" entrymsg $$?="Message" }
on *:DIALOG:chan:sclick:28:{ cs set $$?="Channel" securefounder $$?="On/Off" }
on *:DIALOG:chan:sclick:29:{ cs set $$?="Channel" peace $$?="On/Off" }
on *:DIALOG:chan:sclick:30:{ cs set $$?="Channel" mlock $$?="On/Off" }
on *:DIALOG:chan:sclick:31:{ cs set $$?="Channel" private $$/="On/Off" }
on *:DIALOG:chan:sclick:32:{ cs set $$?="Channel" opnotice $$?="On/Off" }
on *:DIALOG:chan:sclick:34:{ cs set $$?="Channel" keeptopic $$?="On/Off" }
on *:DIALOG:chan:sclick:35:{ cs set $$?="Channel" founder $$?="Nickname" }
on *:DIALOG:chan:sclick:36:{ cs set $$?="Channel" password $$?="Password" }
on *:DIALOG:chan:sclick:37:{ cs set $$?="Channel" bantype $$?="0/1/2/3" }
on *:DIALOG:chan:sclick:38:{ cs set $$?="Channel" xop $$?="On/Off" }
on *:DIALOG:chan:sclick:39:{ cs set $$?="Channel" secure $$?="On/Off" }
on *:DIALOG:chan:sclick:40:{ cs set $$?="Channel" topiclock $$?="On/Off" }
on *:DIALOG:chan:sclick:41:{ cs set $$?="Channel" secureops $$?="On/Off" }
on *:DIALOG:chan:sclick:42:{ cs set $$?="Channel" signkick $$?="On/Off" }
on *:DIALOG:chan:sclick:43:{ cs }
on *:DIALOG:chan:sclick:44:{ cs }
on *:DIALOG:chan:sclick:45:{ cs }
on *:DIALOG:chan:sclick:46:{ cs }
on *:DIALOG:chan:sclick:47:{ cs }
on *:DIALOG:chan:sclick:48:{ cs }
on *:DIALOG:chan:sclick:49:{ cs }
on *:DIALOG:chan:sclick:50:{ cs }
on *:DIALOG:chan:sclick:51:{ cs }
on *:DIALOG:chan:sclick:52:{ cs }
on *:DIALOG:chan:sclick:53:{ cs }
on *:DIALOG:chan:sclick:54:{ cs }
on *:DIALOG:chan:sclick:55:{ cs }
on *:DIALOG:chan:sclick:56:{ cs }
on *:DIALOG:chan:sclick:57:{ cs }
on *:DIALOG:chan:sclick:58:{ cs }
on *:DIALOG:chan:sclick:60:{ cs }
on *:DIALOG:chan:sclick:61:{ cs }
on *:DIALOG:chan:sclick:62:{ cs }
on *:DIALOG:chan:sclick:63:{ cs }
on *:DIALOG:chan:sclick:64:{ cs }
on *:DIALOG:chan:sclick:65:{ cs }
on *:DIALOG:chan:sclick:66:{ cs }
on *:DIALOG:chan:sclick:67:{ cs }
on *:DIALOG:chan:sclick:69:{ cs }
on *:DIALOG:chan:sclick:70:{ cs }
on *:DIALOG:chan:sclick:71:{ cs }
on *:DIALOG:chan:sclick:72:{ cs }
on *:DIALOG:chan:sclick:73:{ cs }
on *:DIALOG:chan:sclick:74:{ cs }
on *:DIALOG:chan:sclick:75:{ cs }
on *:DIALOG:chan:sclick:76:{ cs }
on *:DIALOG:chan:sclick:77:{ cs }
on *:DIALOG:chan:sclick:78:{ cs }
on *:DIALOG:chan:sclick:79:{ cs }
on *:DIALOG:chan:sclick:80:{ cs }
on *:DIALOG:chan:sclick:81:{ cs }
on *:DIALOG:chan:sclick:82:{ cs }
on *:DIALOG:chan:sclick:83:{ cs }
on *:DIALOG:chan:sclick:84:{ cs }
on *:DIALOG:chan:sclick:85:{ cs }
on *:DIALOG:chan:sclick:86:{ cs }
on *:DIALOG:chan:sclick:88:{ cs }
on *:DIALOG:chan:sclick:90:{ cs }
on *:DIALOG:chan:sclick:91:{ cs }
dialog help {
title "Identifiers"
size -1 -1 134 60
option dbu
text "$chan - Channel", 3, 7 14 41 8
text "$$?=WORD - Input request saying the WORD", 4, 7 24 115 8
text "$active - Active window", 5, 7 35 58 8
text "$me - Nickname of youself", 6, 7 45 68 8
box "Identifiers", 2, 4 6 124 50
}
dialog memo {
title "MemoServ Control"
size -1 -1 144 114
option dbu
box "Message", 2, 4 4 83 64
box "Notify", 3, 91 39 47 63
button "Info", 1, 45 37 37 12
button "Send", 4, 8 13 37 12
button "List", 5, 8 37 37 12
button "Cancel", 6, 8 25 37 12
button "Read", 7, 45 13 37 12
button "Delet", 8, 45 25 37 12
button "Check", 9, 26 49 37 12
box "Limit", 10, 91 4 47 28
button "Edit", 11, 95 13 37 12
button "On", 12, 94 47 37 12
button "Off", 13, 94 59 37 12
button "New", 14, 94 83 37 12
button "Logon", 15, 94 71 37 12
}
on *:DIALOG:memo:sclick:1:{ ms info }
on *:DIALOG:memo:sclick:4:{ ms send $$?="Nickname" $$?="Message" }
on *:DIALOG:memo:sclick:5:{ ms list }
on *:DIALOG:memo:sclick:6:{ ms cancel }
on *:DIALOG:memo:sclick:7:{ ms read $$?="Number" }
on *:DIALOG:memo:sclick:8:{ ms delet $$?="Number" }
on *:DIALOG:memo:sclick:9:{ ms check }
on *:DIALOG:memo:sclick:11:{ ms set limit $$?="Limit" }
on *:DIALOG:memo:sclick:12:{ ms set notify on }
on *:DIALOG:memo:sclick:13:{ ms set notify off }
on *:DIALOG:memo:sclick:14:{ ms set notify new }
on *:DIALOG:memo:sclick:15:{ ms set notify logon }
-------------------
alias c1 { return $+($chr(3),6,$1-) }
alias c2 { return $+($chr(3),04,$1-) }
alias c3 { return $+($chr(3),12,$1-) }
alias -l repmist {
if ($regex($1-,/bbc( )?(1|one)/Si)) return bbc1
elseif ($regex($1-,/bbc( )?(2|two)/Si)) return bbc2
elseif ($regex($1-,/bbc( )?(3|three)/Si)) return bbc3
elseif ($regex($1-,/bbc( )?(4|four)/Si)) return bbc4
elseif ($regex($1-,/chan(nel)?( )?(4|four)/Si)) return channel 4
elseif ($regex($1-,/chan(nel)?( )?(5|five)/Si)) return five
else return $1-
}
on $*:text:/^[!@](tv|whatson)/Si:#:{
if (!$2) {
notice $nick Syntax: $1 CHANNEL [TIME]. Time is optional. If left blank will display what is playing at the moment. For a list of channels, type !tv chans
halt
}
var %sckid = $+($rand(0,9),$rand(0,9),$rand(0,9),$rand(0,9),$rand(0,9))
set %way. [ $+ [ %sckid ] ] $iif($left($1,1) == !,notice $nick,msg $chan)
if ($2 == chans) {
%way. [ $+ [ %sckid ] ] $c1(For a list of accepted channels, see) $c3($chr(31) $+ http://www.guardian.co.uk/TV/ $+ $chr(31))
halt
}
set %tvwntdtime. [ $+ [ %sckid ] ] $regsubex($1-,/ ([0-9]+)(?: )?(p(?:m)?|a(?:m)?)/Si,$chr(32) $+ \1 $+ :00 $+ \2)
set %tvwntdtime. [ $+ [ %sckid ] ] $iif($regex(%tvwntdtime. [ $+ [ %sckid ] ],/([0-9]+)([:\.])([0-9]+)(a(?:m)?|p(?:m)?)?/),$regml(1) $+ $regml(2) $+ $regml(3) $+ $regml(4) $+ $regml(5),$asctime(h:nntt))
set %tvchan. [ $+ [ %sckid ] ] $repmist($remove($2-,%tvwntdtime. [ $+ [ %sckid ] ]))
set %tvwntdtime. [ $+ [ %sckid ] ] $replace(%tvwntdtime. [ $+ [ %sckid ] ],.,:)
sockopen tvlist. [ $+ [ %sckid ] ] www.guardian.co.uk 80
}
on *:SOCKOPEN:tvlist.*: {
sockwrite -nt $sockname GET /TV/bbc1_carlton.html HTTP/1.1
sockwrite -nt $sockname Host: www.guardian.co.uk
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:tvlist.*: {
if ($sockerr) {
%way. [ $+ [ $right($sockname,5) ] ] Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
halt
}
else {
var %sockreader
sockread %sockreader
if ($regex(%sockreader,/<A HREF="(.*?)">((?:.*?) $+ %tvchan. [ $+ [ $right($sockname,5) ] ] $+ (?:.*?))</A><BR>$/Si)) {
set %tvchanpage. [ $+ [ $right($sockname,5) ] ] $regml(1)
set %tvchanname. [ $+ [ $right($sockname,5) ] ] $regml(2)
%way. [ $+ [ $right($sockname,5) ] ])
sockopen tvchan. [ $+ [ $right($sockname,5) ] ] www.guardian.co.uk 80
sockclose $sockname
}
if (*<!-- END SIDEBAR -->* iswm %sockreader) {
%way. [ $+ [ $right($sockname,5) ] ] $c3(No such channel as:) $c2(%tvchan. [ $+ [ $right($sockname,5) ] ]) $+ $c3(. Type $chr(3) $+ !tv chans $+ $chr(3) $to see a list of accepted channels.)
%way. [ $+ [ $right($sockname,5) ] ])
}
}
}
on *:SOCKOPEN:tvchan.*: {
sockwrite -nt $sockname GET $+(/TV/,%tvchanpage. [ $+ [ $right($sockname,5) ] ]) HTTP/1.1
sockwrite -nt $sockname Host: www.guardian.co.uk
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:tvchan.*: {
if ($sockerr) {
%way. [ $+ [ $right($sockname,5) ] ] Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
halt
}
else {
var %sockreader0
sockread %sockreader0
if (*<FONT FACE="Geneva,Arial,sans-serif" SIZE="2">* iswm %sockreader1 && *<!-- start of TV* style -->* iswm %sockreader9 && $regex(%sockreader5,/<B>(.*?)<\/B>/)) {
set %tvlasttime. [ $+ [ $right($sockname,5) ] ] %tvtime. [ $+ [ $right($sockname,5) ] ]
set %tvtime. [ $+ [ $right($sockname,5) ] ] $replace($regml(1),.,:)
if ($calc($ctime($date %tvwntdtime. [ $+ [ $right($sockname,5) ] ]) - $ctime($date %tvlasttime. [ $+ [ $right($sockname,5) ] ])) >= 0) && ($calc($ctime($date %tvtime. [ $+ [ $right($sockname,5) ] ]) - $ctime($date %tvwntdtime. [ $+ [ $right($sockname,5) ] ])) > 0) {
%way. [ $+ [ $right($sockname,5) ] ] $c3(At) $c2(%tvwntdtime. [ $+ [ $right($sockname,5) ] ]) $+ $c3(, on channel:) $c2(%tvchanname. [ $+ [ $right($sockname,5) ] ])
%way. [ $+ [ $right($sockname,5) ] ] $c3(Title:) $c2(%tvtitle. [ $+ [ $right($sockname,5) ] ]) $c3($chr(40) $+ %tvlasttime. [ $+ [ $right($sockname,5) ] ] - %tvtime. [ $+ [ $right($sockname,5) ] ] $+ $chr(41))
%way. [ $+ [ $right($sockname,5) ] ] $c3(Description:) $c2($iif(!%tvdesc. [ $+ [ $right($sockname,5) ] ],~ None ~,$replace(%tvdesc. [ $+ [ $right($sockname,5) ] ],$chr(32) $+ <I>,$chr(2),</I>,$chr(2))))
unset %*. [ $+ [ $right($sockname,5) ] ]
unset %sockreader*
sockclose $sockname
halt
}
noop $regex(%sockreader0,/<B>(.*?)<\/B>(.*?)$/)
set %tvtitle. [ $+ [ $right($sockname,5) ] ] $regml(1)
set %tvdesc. [ $+ [ $right($sockname,5) ] ] $regml(2)
}
if (*</HTML> iswm %sockreader0) {
%way. [ $+ [ $right($sockname,5) ] ] $c3(There are no shows on) $c2(%tvchanname. [ $+ [ $right($sockname,5) ] ]) $c3(at) $c2(%tvwntdtime. [ $+ [ $right($sockname,5) ] ]) $+ $c1(.)
}
if (%sockreader0) {
var %x = 9
while (%x > -1) {
if ($len(%sockreader [ $+ [ %x ] ]) <= 850) set %sockreader [ $+ [ $calc(%x + 1) ] ] %sockreader [ $+ [ %x ] ]
dec %x
}
}
}
}
----------------------
i ownz j00 kay