aIRC — File Browser
aIRCv0.8.69 / aIRCv0.8.69 / script / _upgrading.mrc
_upgrading.mrc — 17.21 KB — Download this file
_upgrading.doit {
var %lastver = $_getsetup(script,_scriptversion),%win,%file,%i,%line,%tmp,%type
if (%lastver == $null) { %lastver = $_rini(script,_scriptversion) }
if (%lastver == $null) {
var %win = @__upgrading,%file = $_protactinifile,
_openwins %win
info.a Updating protection actions...
filter -fw " $+ %file $+ " %win c*.*.ignore *
%i = $line(%win,0)
while (%i) {
%line = $line(%win,%i)
%tmp = $gettok(%line,1,32)
%type = $gettok(%tmp,1,46)
if ($gettok(%line,2,32) == 0) && ((c?ctcp iswm %type) || ((cb.*.ignore iswm %tmp) && ($istok(text notice,$right(%type,-2),32)))) { write -s $+ %tmp " $+ %file $+ " %tmp 1 $gettok(%line,3-,32) }
dec %i
}
close -@ %win
}
if (%lastver == $null) || (%lastver <= 00079628) {
info.a Updating channel IAL and banlist options...
_wini chan _updateial 1
_wini chan _updateial.ask 0
_wini chan _updateial.asknum 150
_wini chan _updateial.nonono 0
_wini chan _updateial.nonononum 200
_wini chan _updatebanlist 2
}
if (%lastver == $null) || (%lastver <= 00079641) {
info.a Updating profile...
_prot.updateprots
}
if (%lastver == $null) || (%lastver <= 00080561) {
info.a Updating network stuff...
_update.networkstuff
info.a Updating channel setup...
_update.channelsetup
info.a Updating XDCC setup...
var %f = $shortfn($_chfile($_usrdir(xdcc.ini)))
_dummy $_initopic2initopic(%f,$_scriptini,xdcc)
_remove %f
info.a Updating Sound setup...
var %f = $shortfn($_chfile($_usrdir(sound.ini)))
_dummy $_initopic2initopic(%f,$_scriptini,mp3)
_remove %f
info.a Updating script.ini ...
_ini2hashfile $_scriptini setup $_usrdir(script.dat)
_loadhashmainsetup
}
if ($file($_usrdir(script.dat)).size > 0) && ((%lastver == $null) || ($hget(_aircsetup,0).item < 15)) {
info.a I am terribly sorry, but aIRC beta 0.8.10.b11 destroyed your settings... SORRY!
info.a If you have an old profile, you can recover your settings. If you don't, well, you'll have to set up your options again =( .
info.a Send your mailbombs to $_tabomail
info.a Fixing setup (loading a default profile)...
var %mainini = $_mainini,%from = $mircdir $+ etc\profile,%to = $mircdir $+ $_usrdir,%tmp
%tmp = $_xcopy(%from,%to,*,--)
}
if (%lastver == $null) || (%lastver < 00081035) {
info.a Updating Text Themes option...
_setsetup script _texthemes 1
}
if (%lastver == $null) || (%lastver < 00081161) {
info.a Updating: Setting nick completion options... [/ncsetup]
_ncsetup.check
_setsetup nickomp friendly 0
}
if (%lastver == $null) || (%lastver < 00082513) {
info.a Upgrading: Fkeys binds
.defkeys
}
if (%lastver == $null) || (%lastver < 00082547) {
info.a Upgrading: Nick completion Styles
_setsetup nickomp style <NICK><CHAR>
}
if (%lastver == $null) || (%lastver < 00082616) { info.a Type /defkeys to reset the fkeys }
if (%lastver == $null) || (%lastver < 00082685) {
if ($_defmsg(kick+k) == $null) {
info.a Upgrading: Setting kick message for '+k' users
_winitxt _msgedit.kick+k.text ...and thank you for playing.
}
}
if (%lastver == $null) || (%lastver < 00082711) {
info.a Upgrading: Adding Terra-es network support
writeini " $+ $_snetworkini $+ " Terra-ES services Terra-ES
writeini " $+ $_snetworkini $+ " Terra-ES bots BOT-0P
info.a Upgrading: Setting themes options...
_setsetup script _unloadthemesbedoreloading 1
}
if (%lastver == $null) || (%lastver < 00082745) {
info.a Upgrading: Adding Fserve multiple triggers support
if ($gettok($_getsetup(fserve,trigger),1,32) != $null) {
var %trigger = $ifmatch,%desc,%homedir = $_getsetup(fserve,homedir),%welcome = $_getsetup(fserve,welcome)
_setsetup fserve trigger_ $+ %trigger _* %homedir * %welcome
_setsetup fserve triggers %trigger
}
_setsetup fserve trigger
_setsetup fserve homedir
_setsetup fserve welcome
}
if (%lastver == $null) || (%lastver < 00082971) {
info.a Upgrading: Adding new Fserve options...
_setsetup fserve advertonlist 1
info.a Upgrading: Adding aIRCamp options...
_setsetup mp3 aircamp.preadid3 0
_setsetup mp3 aircamp.pshuffle 0
_setsetup mp3 aircamp.prandom 0
}
if (%lastver == $null) || (%lastver < 00083517) {
info.a Upgrading: Adding QuakeNet network support
writeini " $+ $_snetworkini $+ " QuakeNet services QuakeNet
writeini " $+ $_snetworkini $+ " QuakeNet bots Q
info.a Upgrading: Setting awaynick options
_settsetup away changenick.o 0
_settsetup away changenick.t <ME>away
}
if (%lastver == $null) || (%lastver < 00083541) {
info.a Upgrading: Setting progress bar on startup option
.pbaronstart on
}
if (%lastver == $null) || (%lastver < 00083553) {
info.a Upgrading: Setting MP3 messages
_setsetup mp3 format.remote.o [<ARTIST>] <TITLE> - ( <$_:duration(<DURATION>)>/<KBPS>kbps/<HZ>Hz/<STEREO>/<$_size(<FILESIZE>)> ) - - Type "<TRIGGER>" to get it
_setsetup mp3 format.remote.n [<ARTIST>] <TITLE> - ( <$_:duration(<DURATION>)>/<KBPS>kbps/<HZ>Hz/<STEREO>/<$_size(<FILESIZE>)> ) -
_setsetup mp3 format.local Playing: [<ARTIST>] <TITLE> - ( <$_:duration(<DURATION>)>/<KBPS>kbps/<HZ>Hz/<STEREO>/<$_size(<FILESIZE>)> ) -
}
if (%lastver == $null) || (%lastver < 00083813) {
info.a Upgrading: Setting Nicklist Colour options
_setsetup script _nicklistcol.cols 12 13 10 06 10 02 02 04 04 12 12 05 10 03 03 03
_setsetup script _nicklistcol.state 0
_setsetup script _nicklistcol.userflags 0
_setsetup script _nicklistcol.ignores 0
_setsetup script _nicklistcol
_setsetup script _nicklistcol.y
_setsetup script _nicklistcol.o
_setsetup script _nicklistcol.v
_setsetup script _nicklistcol.n
}
if (%lastver == $null) || (%lastver < 00083846) {
info.a Upgrading: Setting new Sound Options
_setsetup mp3 advertimerstatus 0
_setsetup mp3 advertimertime 8
_setsetup mp3 advertonjoin 0
_setsetup mp3 advertall 1
_setsetup mp3 advertchannels
_setsetup mp3 admsg Offering <MP3FILESNUM> MP3s - Type @<ME> to get my list - min speed: <$^n(<$_size($calc(<SEND_MINSPEED> * 1024))>)>/s, dls[<SENDS_CURR>/<SENDS_MAX>] queue[<QUEUE_CURR>/<QUEUE_MAX>]
_setsetup mp3 @secondsprot
_setsetup mp3 @secondsprot.state 1
_setsetup mp3 @secondsprot.secs 8
_setsetup mp3 @floodprot.state 1
_setsetup mp3 @floodprot.reqs 4
_setsetup mp3 @floodprot.secs 10
_setsetup mp3 @floodprot.ignt 20
_setsetup mp3 @echo 1
_setsetup mp3 @echowin 0
_window.menu.add @SoundServer @SoundServer
}
if (%lastver == $null) || (%lastver < 00083940) {
_settsetup dcc maxcps.state 0
_settsetup dcc maxcps.value 8192
_settsetup dcc pdcc.state 1
_settsetup dcc fsend 1
_settsetup dcc packetsize 8192
.dcc maxcps off
.pdcc on
.fsend on
.dcc packetsize 8192
}
if (%lastver == $null) || (%lastver < 00083986) {
info.a Upgrading: Sound Addon...
_setsetup mp3 sendslotsctcp 0
_setsetup mp3 format.remote.o [<ARTIST>] <TITLE> - ( <$_:duration(<DURATION>)>/<KBPS>kbps/<KHZ>kHz/<STEREO>/<$_size(<FILESIZE>)> ) - - Type "<TRIGGER>" to get it ( aIRC )
_setsetup mp3 format.remote.n [<ARTIST>] <TITLE> - ( <$_:duration(<DURATION>)>/<KBPS>kbps/<KHZ>kHz/<STEREO>/<$_size(<FILESIZE>)> ) - ( aIRC )
_setsetup mp3 format.local Playing: [<ARTIST>] <TITLE> - ( <$_:duration(<DURATION>)>/<KBPS>kbps/<KHZ>kHz/<STEREO>/<$_size(<FILESIZE>)> ) -
_setsetup mp3 admsg Offering <MP3FILESNUM> MP3s - Type @<ME> to get my list - [min speed: <$_size($calc(<SEND_MINSPEED> * 1024))>/s ] slots[ <SENDS_CURR> / <SENDS_MAX> ] ques[ <QUEUE_CURR> / <QUEUE_MAX> ] [next send: <NEXTSEND> ] [cps in use: <CURRENT_CPS> ] record[ <$_size(<RECORDCPS>)>/s by <RECORDBY> ] served[ <SERVEDFILES> files/<$_size(<SERVEDBYTES>)> ] ( aIRC )
_setsetup mp3 format.find.first Found <$_nsingoplur(<MATCH_FOUND>,match,matches)> for ' <MATCH_STRING> ' - Copy and paste a line in <CHAN> to request a file - slots[ <SENDS_CURR> / <SENDS_MAX> ] ques[ <QUEUE_CURR> / <QUEUE_MAX> ]
_setsetup mp3 format.find.filel <TRIGGER>
_setsetup mp3 format.find.lastn End of list - <$_nsingoplur(<MATCH_FOUND>,match,matches)> found - Use @<ME> to get my list: '<MP3INDEXFILE>' [<$_size(<MP3INDEXSIZE>)>]
_setsetup mp3 format.find.lastm There are <MATCH_MORE> more files matching ' <MATCH_STRING> ' - Use @<ME> to get my list: '<MP3INDEXFILE>' [<$_size(<MP3INDEXSIZE>)>]
info.a Upgrading: Fserve Addon...
_winitxt _fservemsg Fserve- triggers[ <TRIGGER> ] snagged[ <SNAGGEDFILES> files/<$_size(<SNAGGEDBYTES>)> ] users[ <USERS_CURR>/<USERS_MAX> ] slots[ <SENDS_CURR>/<SENDS_MAX> ] ques[ <QUEUE_CURR>/<QUEUE_MAX> ] [next send: <NEXTSEND>] [cps in use: <CURRENT_CPS>] logins[ <LOGINS> ] record[ <RECORDCPS>cps by <RECORDBY> ] <FSERVE_DESC> ( aIRC )
info.a Upgrading: XDCC Addon...
_setsetup xdcc timedtype 0
_winitxt _xdcctext_notice [ xdcc ] Offering <TOTALPACKS> <$_singoplur(<TOTALPACKS>,pack,packs)> [<$_size(<TOTALSIZE>)>] - "/ctcp <ME> xdcc list" - slots[ <SENDS_CURR>/<SENDS_MAX> ] ques[ <QUEUE_CURR>/<QUEUE_MAX> ] [next send: <NEXTSEND>] [cps in use: <CURRENT_CPS>] record[ <RECORDCPS>cps by <RECORDBY> ] ( aIRC )
}
if (%lastver == $null) || (%lastver < 00083991) {
info.a Upgrading: Sound Addon mute option...
_setsetup mp3 aircamp.pmute 0
}
if (%lastver == $null) || (%lastver < 00084008) {
info.a Upgrading: Sound Addon options. You should go to mIRC options (ALT+O), and disable the options in Sounds/Requests. mIRC sound request system is broken. Use the options dialog in the sound addon instead...
_setsetup mp3 sendfileson!nickfile $_minio(1,20)
_setsetup mp3 resumeongetfail 1
_setsetup mp3 remotesreqs.status $_minio(3,19)
_setsetup mp3 remotesreqs.ignoreifplaying $_minio(3,20)
_setsetup mp3 remotesreqs.warnifnofile $_minio(3,21)
info.a Upgrading: Sound Addon- aIRCpster options...
_setsetup mp3 aIRCpster.filter.filematch.state 0
_setsetup mp3 aIRCpster.filter.filematch.value
_setsetup mp3 aIRCpster.filter.reqnicks.state 0
_setsetup mp3 aIRCpster.filter.reqnicks.value
_setsetup mp3 aIRCpster.filter.chanoffers 1
_setsetup mp3 aIRCpster.filter.listimports 1
_setsetup mp3 aIRCpster.filter.@findreplies 1
_setsetup mp3 aIRCpster.no@findquery
info.a Upgrading: Setting dedicated Transfer window options [/dtwindow]
_setsetup dtwindow sortby 1
_setsetup dtwindow sortpabajo 0
_setsetup dtwindow hidewins 0
_setsetup dtwindow desktop 0
}
if (%lastver == $null) || (%lastver < 00084015) {
info.a Upgrading: CTCP Cloak options...
_setsetup script _ctcpcloak 0
}
if (%lastver == $null) || (%lastver < 00084022) {
info.a Upgrading: Autojoin settings...
var %file = " $+ $_snetworkini $+ ",%i = $ini(%file,0),%to,%tm
while (%i) {
var %to = $ini(%file,%i),%tm = $_readini(%file,%to,autojoin)
if (%tm != $null) && (%tm != ,) { writeini %file %to autojoin $replace(%tm,$chr(44),$chr(32)) }
dec %i
}
}
if (%lastver == $null) || (%lastver < 00084039) {
info.a Upgrading: DCC log file...
_dcclog.updateoldlogfile
}
if (%lastver == $null) || (%lastver < 00084045) {
info.a Upgrading: Setting 'Open log on channel join' option...
_settsetup script _logjoin 1
}
if (%lastver == $null) || (%lastver < 00084045) {
info.a Upgrading: Renaming some partyline commands...
if ($istok($_getsetup(script,_partyline.commands),nick,32)) { _setsetup script _partyline.commands $reptok($ifmatch,nick,handle,32) }
if ($istok($_getsetup(script,_partyline.commands),chnick,32)) { _setsetup script _partyline.commands $reptok($ifmatch,chnick,chhandle,32) }
}
if (%lastver == $null) || (%lastver < 00086085) {
info.a Upgrading your seen.log file...
var %win = @__win,%file1 = " $+ $_chfile($_usrdir(seen.log)) $+ ",%file2 = " $+ $_chfile($_usrdir(seen.log)) $+ .bak"
.remove %file2
.rename %file1 %file2
.timer_DELLOG -m 1 1 .remove %file2
_openwins %win
filter -fweut 3 32 %file2 %win
_progress.init Updating your seen.log file
_progress 0 Please wait...
if ($hget(_aircseen)) { hfree _aircseen }
hmake _aircseen 1000
var %i = 1,%n = $line(%win,0),%line
if (%n) {
_progress 0 Initiating...
while (%i <= %n) {
if (33 // %i) { _progress2 %i %n %i $+ / $+ %n }
tokenize 32 $line(%win,%i)
if ($0 == 4) { %line = $1-2 $+ $chr(9) $+ $4 - $3 -1 }
else { %line = $1-2 $+ $chr(9) $+ $null - $3 -1 }
hadd _aircseen %line
inc %i
}
}
hsave -bo _aircseen %file1
_progress 100 Done!
.timer_DELLOG off
close -@ %win
}
if (%lastver == $null) || (%lastver < 00086115) {
info.a Upgrading default messages...
if (i am your god isin $_rinitxt(_msgedit.quit.text)) { _winitxt _msgedit.quit.text aIRC is inevitable (<VERINF>) }
if (i am your god isin $_rinitxt(_msgedit.part.text)) { _winitxt _msgedit.part.text aIRC is inevitable (<VERINF>) }
}
if (%lastver == $null) || (%lastver < 00086128) {
info.a Updating away settings...
_settsetup away reminder.status 0
_settsetup away reminder.time 60
_winitxt _msgedit.away.chanreminder.text is still away: (<AWAYREASON>) [L:<AWAYLOG>|P:<PAGER>] (<$_durationosecs(<AWAYGONE>)>)
_winitxt _msgedit.away.whois.text (<AWAYREASON>) [L:<AWAYLOG>|P:<PAGER>] (<$_durationosecs(<AWAYGONE>)>)
}
if (%lastver == $null) || (%lastver < 00086132) {
info.a Updating away settings...
_settsetup away antiidle.status $iif($_getsetup(away,antiidle),1,0)
_settsetup away antiidle.time 1
_settsetup away refreshr.status 1
_settsetup away refreshr.time 2
}
if (%lastver == $null) || (%lastver < 00086147) {
info.a If you use the sound addon, please set your Winamp's plugins directory in "/soundsetup plugins"
}
if (%lastver == $null) || (%lastver < 00086179) {
info.a Upgrading addons...
var %tmp = $addtok($addtok($addtok($addtok($_getsetup(script,_addons),nickomp,32),portscan,32),seen,32),dtwindow,32)
_setsetup script _addons $sorttok(%tmp,32)
_setsetup dcclogwindow enabledcclogging 1
}
if (%lastver == $null) || (%lastver < 00086190) {
info.a Upgrading: Adding lag checking options...
_setsetup lagcheck state 1
_setsetup lagcheck interval 10
_setsetup lagcheck method 0
}
if (%lastver == $null) || (%lastver < 00086235) {
info.a Upgrading away settings...
_setsetup away blockqueries $_getsetup(away,closequeries)
_setsetup away noticequeries 0
_winitxt _msgedit.away.noticeuser.r 0
_winitxt _msgedit.away.noticeuser.text i am away: (<AWAYREASON>) [L:<AWAYLOG>|P:<PAGER>] <$_paren(<$_durationosecs(<AWAYGONE>)>)>
_winitxt _msgedit.away.chanreminder.text is still away: (<AWAYREASON>) [L:<AWAYLOG>|P:<PAGER>] <$_paren(<$_durationosecs(<AWAYGONE>)>)>
_winitxt _msgedit.away.whois.text (<AWAYREASON>) [L:<AWAYLOG>|P:<PAGER>] <$_paren(<$_durationosecs(<AWAYGONE>)>)>
}
if (%lastver == $null) || (%lastver < 00086238) {
info.a Upgrading: Default sound indexing options...
var %file = $_sound.tinifile
remini $"(%file) indexlist_textformat
flushini $"(%file)
write $"(%file) [indexlist_textformat]
write $"(%file) <$_fillright(70, ,<FILE>)> <$_filleft(9, ,<$round($calc(<FILESIZE> / 1048576),2)> MB)>
info.a Upgrading: File Server Protection Options...
_setsetup fserve @floodprot.state 1
_setsetup fserve @secondsprot.state 1
}
if (%lastver == $null) || (%lastver < 00086244) {
info.a Upgrading clones settings...
_setsetup script _clones.warnchan
_setsetup script _clones.warnstatus
_setsetup script _clonesinjoinline 1
}
if (%lastver == $null) || (%lastver < 00086261) {
info.a Upgrading ban settings...
_setsetup script _deopdevoiceonban 1
}
if (%lastver == $null) || (%lastver < 00086278) {
info.a Upgrading Query Block settings...
_setsetup queryblocker blockall 0
_setsetup queryblocker blockmsg 0
_setsetup queryblocker exempt_n 1
_setsetup queryblocker exempt_m 1
_setsetup queryblocker exempt_o 1
_setsetup queryblocker exempt_f 1
_setsetup queryblocker exempt_@ 0
_setsetup queryblocker exempt_+ 0
_setsetup queryblocker exempt_notify 1
_setsetup queryblocker sendnotice_s 0
_setsetup queryblocker sendnotice_t I'm not accepting msgs.
}
if (%lastver == $null) || (%lastver < 00086296) {
info.a Updating windows settings...
var %file = " $+ $_chfile($_usrdir(windows.ini)) $+ ",%h = _aircsetup,%tmp,%name
while ($hmatch(%h,script_@*,1)) {
var %tmp = $ifmatch,%name = $gettok(%tmp,2,95)
tokenize 64 $hget(%h,%tmp)
if ($1- != $null) {
writeini %file %name posize $1
writeini %file %name font $2
writeini %file %name bold $3
writeini %file %name rempos $4
writeini %file %name remfont $5
}
hdel %h %tmp
}
}
if (%lastver == $null) || (%lastver < 00086969) {
lang
}
}