Add latest official release v2.39-110803 as base version

fix

@@ -0,0 +1,31 @@
+on *:load:{
+  unset %f
+  var %m = $chr(59) you can put your own q here, this file will not be overwritten when updating nbs-irc.
+  if (!$exists(scripts\a-own.nbs)) .write scripts\a-own.nbs $replace(%m,q,aliases)
+  .load -a scripts\a-own.nbs
+  n.checkscript alias1.nbs -a
+  n.checkscript alias2.nbs -a
+  n.checkscript alias3.nbs -a
+  if (!$exists(scripts\r-own.nbs)) .write scripts\r-own.nbs $replace(%m,q,scripts)
+  .load -rs1 scripts\r-own.nbs
+  n.checkscript main.nbs -rs
+  if (!$tname) .theme cold
+  if (!%f) .echo -qg $input(Repair appears to be successfull $+ $chr(44) restart may be required,o)
+  .unload -rs fix
+}
+alias -l n.checkscript {
+  if ($2 == -a) && (!$alias($1)) || ($2 == -rs) && (!$script($1)) {
+    if ($exists(scripts\ $+ $1)) {
+      .load [ $2 ] scripts\ $+ $1
+    }
+    else {
+      if ($dialog(strt)) dialog -x strt
+      set %f 1
+      var %a = -age 4,4 $str(W,54)
+      echo %a
+      echo -ag * Error: file $mircdirscripts\ $+ $1 is missing, Replace the file and restart nbs or reinstall an update/full version.
+      echo -ag * Note: installing updates will keep all settings, full reinstall will only keep nbs settings.
+      echo %a
+    }
+  }
+}

mirc.ini

@@ -0,0 +1,174 @@
+[chanfolder]
+n0=#nbs-irc
+
+[text]
+ignore=*.com
+commandchar=/
+linesep=-
+timestamp=(HH:nn:ss)
+accept=*.*
+aptitle=
+quit=$quitmsg
+defport=6667
+theme=mIRC Classic
+logstamp=(HH:nn:ss)
+network=QuakeNet
+
+[warn]
+fserve=on
+dcc=off
+[dirs]
+logdir=logs\
+waves=sounds\
+midis=sounds\
+mp3s=sounds\
+wmas=sounds\
+oggs=sounds\
+[options]
+n0=0,1,0,0,1,0,300,0,0,0,1,0,0,0,0,0,0,0,0,0,4096,0,1,0,0,0,1,1,0,50,1,1,0,1,0
+n1=3,100,0,0,0,0,0,0,2,0,1,1,1,1,0,0,1,1,0,0,0,0,1,0,5,0,0,0,0,0,1,1,0,0,0,2
+n2=0,0,0,2,1,1,1,1,0,60,120,0,0,1,0,0,0,0,1,120,20,10,0,0,0,0,1,1,0,1,0,1,0,0,1,0
+n3=3000,0,0,0,1,0,1,1,0,1,0,1,0,0,0,1,1,1,0,1,0,0,1,0,0,1,0,0,0,0,0,3,180,0,0,0,0
+n4=1,0,1,1,0,3,9999,0,0,1,1,1,1024,0,1,99,60,0,0,0,2,1,1,0,0,5000,1,1,131,0,0,0,1,1,0,0,1
+n5=1,1,1,0,1,1,1,1,1,1,0,0,0,1,1,1,1,1,300,100,10,0,0,29,0,1,1,8192,1,0,0,99,0,1,0,0
+n6=0,1,0,0,0,0,0,0,0,0,0,0,0,17,0,0,0,1,1,1,0,0,100,1,1,0,1,0,1,0,5,1,1,1,0,0
+n7=1,0,0,0,0,0,0,1,1,1,1,1,0,1,0,0,1,70,0,30,1,1,1,1,1,1,0,0,0,0,1,1,1,1,1,0,1
+n8=1,2,1,168,1,1,1,2,0,0,0,0,0,0,0,0,1,0,0,0,0,0,168,1,0,1,1,1,1,0,0,1,1,0,3
+[pfiles]
+n0=popups.ini
+n1=popups.ini
+n2=popups.ini
+n3=popups.ini
+n4=popups.ini
+[windows]
+main=144,864,58,701,2,1,0
+scripts=25,473,45,441,0,0,0
+wstatus=-1,818,-1,579,1,1,0
+wstatus-QuakeNet=-1,818,-1,579,1,1,0
+status=0,818,0,579,2,1,0
+status-QuakeNet=0,818,0,579,2,1,0
+[agent]
+enable=0
+char=merlin.acs
+options=1,1,1,100,0
+speech=150,60,100,1,180,10,50,1,1,1,0,50,1
+channel=1,1,1,1,1,1,1,1,1
+private=1,1,1,1
+other=1,1,1,1,1,1,1,0
+pos=20,20
+lang=0x041d
+[files]
+servers=servers.ini
+finger=finger.txt
+urls=urls.ini
+addrbk=addrbk.ini
+trayicon=scripts\dll\i.dll
+[dde]
+ServerStatus=on
+ServiceName=mIRC-
+CheckName=off
+
+[background]
+[fonts]
+fstatus=tahoma,411,0
+fchannel=tahoma,411,0
+fquery=tahoma,411,0
+flist=tahoma,411,0
+ffinger=tahoma,411,0
+fwwwlist=tahoma,411,0
+fnotify=tahoma,411,0
+flinks=tahoma,411,0
+fscripts=Courier New,414,0
+[ident]
+active=no
+system=UNIX
+port=113
+[socks]
+enabled=no
+port=1080
+method=4
+dccs=no
+useip=yes
+[language]
+sjis=0
+multibyte=0
+mbed=1
+utf=1
+linking=1
+[clicks]
+status=/lusers
+query=/whois $$1
+channel=/channel
+nicklist=/query $$1
+notify=/whois $$1
+message=/whois $$1
+[marker]
+show=off
+size=3
+colour=4
+method=1
+[fileserver]
+[dccserver]
+n0=0,59,0,0,0,0
+[mirc]
+host=QuakeNet: Random serverSERVER:irc.quakenet.org:6667GROUP:QuakeNet
+[styles]
+thin=0
+font=0
+hide=0
+color=2960685
+size=1
+buttons=0
+[highlight]
+[findtext]
+[tipopts]
+options=0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,30,10,1
+[ports]
+dcc=1
+other=0
+random=off
+bind=off
+[ssl]
+show=1
+[waves]
+query=No Sound
+notice=No Sound
+invite=No Sound
+disconnect=No Sound
+send=scripts\beep.wav
+highlight=No Sound
+flash=No Sound
+dccfail=No Sound
+chat=No Sound
+connect=No Sound
+[dragdrop]
+n0=*.wav:/sound $1 $2-
+n1=*.*:/dcc send $1 $2-
+s0=*.*:/dcc send $1 $2-
+[extensions]
+n0=defaultEXTDIR:download\
+n1=*.wav,*.mid,*.mp3,*.wma,*.oggEXTDIR:download\EXTOPT:1
+[colors]
+n0=mIRC Classic,1,0,15,15,14,14,15,14,14,14,14,0,15,14,14,0,14,14,0,14,0,1,0,1,0,15,6,1,1,15
+[palettes]
+n0=16777215,0,8323072,37632,255,127,10223772,32764,65535,64512,9671424,16747530,16515072,16711935,8355711,13158600
+[cnicks]
+n0[email protected],14,,,0,0,0,2,0
+n1[email protected],14,,,0,0,0,2,0
+n2=$me,11,,,1,1,0,2,0
+n3=,0,@,,0,0,0,2,0
+n4=,15,+,,0,0,0,2,0
+n5=,14,,,0,1,0,2,0
+[afiles]
+n0=scripts\a-own.nbs
+n1=scripts\alias1.nbs
+n2=scripts\alias3.nbs
+n3=scripts\alias2.nbs
+[rfiles]
+n0=variables.ini
+n1=variables.ini
+n2=scripts\r-own.nbs
+n3=scripts\main.nbs
+n4=scripts\tema\cold.tem
+[update]
+check=0

popups.ini

@@ -0,0 +1,10 @@
+[cpopup]
+
+[bpopup]
+n0=Script
+
+[mpopup]
+
+[qpopup]
+
+[lpopup]

scripts/a-own.nbs

@@ -0,0 +1 @@
+; you can put your own aliases here, this file will not be overwritten when updating nbs-irc

scripts/alias1.nbs

@@ -0,0 +1,153 @@
+sys {
+  $iif($1 == -e,n.echo normal -atg,say) OS: $n.osinfo  –  CPU: $n.cpuinfo  –  Memory usage: $+($dedll(usedphysicalmem),/,$dedll(totalphysicalmem)) MB ( $+ $dedll(memoryload) $+ )   –   Graphics: $dedll(videocard) ( $+ $replacecs($dedll(res),bpp,bit) $+ )
+}
+os {
+  cuptime
+  var %x = $n.osinfo
+  $iif($1 == -e,n.echo normal -atg,say) os: %x $iif(xp isin %x,(installed on $gettok($dedll(installdate),2-,44) $+ ))   –   uptime: $dur($calc($ticks / 1000))
+}
+uptime {
+  cuptime
+  $iif($1 == -e,n.echo normal -atg,say) uptime: $dur($calc($ticks / 1000)) $iif($ticks < $ncfg(ruptime),  –   record: $dur($calc($ncfg(ruptime) / 1000)))
+}
+ip {
+  if ($ip) $iif($1 == -e,n.echo normal -atg,say) ip: $ip
+  else n.echo normal -atg no ip found
+}
+cuptime { 
+  if (!$ncfg(ruptime)) { w_ncfg ruptime $ticks }
+  if ($ticks > $ncfg(ruptime)) { w_ncfg ruptime $ticks } 
+}
+uptimefake say Win95 uptime: $r(3,51) $+ w $r(1,6) $+ d $r(1,23) $+ h $r(1,59) $+ s
+wah say 8,9WAAA8,9A9,8AAAA8,9AAA9,8AAAAA8,9AAAA9,8AAAAA8,9AAAA9,8AAAAAAA8,9AAAAA9,8AAAA8,9AAAA9,8AAAAA8,9AAAA9,8AAAA8,9AAA9,8AAAA8,9AA9,8AAAA8,9AAAHH9,8HHHH8,9!!!!!!!!!!
+:p say :PpPPppPPpPPppPppPPpPPpPPppPppPPpPPpPPppPppPPpPPpPPppPppPPpPPpPPppPppPPpPPpPPppPppPPpPPpPPppP
+wee say 8,9WEEEE9,8EEEE8,9EEEE9,8EEEE8,9EEEE9,8EEEE8,9EEEE9,8EEEE8,9EEEE9,8EEEE8,9EEEE9,8EEEE8,9EEEE9,8EEEE8,9EEEE9,8EEEE8,9EEEE9,8EEEE8,9EEEE9,8EEEE8,9!!!!!!!!!!
+bu say brain usage: 1% [4|||||||||]
+mem $iif($1 == -e,n.echo normal -atg,say) memory usage: $+($dedll(usedphysicalmem),/,$dedll(totalphysicalmem)) MB ( $+ $dedll(memoryload) $+ )
+cpu $iif($1 == -e,n.echo normal -atg,say) cpu: $n.cpuinfo
+gfx $iif($1 == -e,n.echo normal -atg,say) graphics card: $dedll(videocard) ( $+ $replacecs($dedll(res),bpp,bit) $+ )
+net $iif($1 == -e,n.echo normal -atg,say) nic: $dedll(conn)
+snd $iif($1 == -e,n.echo normal -atg,say) sound card: $dedll(soundcard)
+bw {
+  var %d = $dedll(banddown), %u = $dedll(bandup)
+  if (%u > 1023) var %u = $round($calc(%u /1024),2) MB/s
+  else var %u = $round(%u,1) kB/s
+  if (%d > 1023) var %d = $round($calc(%d /1024),2) MB/s
+  else var %d = $round(%d,1) kB/s
+  $iif($1 == -e,n.echo normal -atg,say) download: %d  –  upload: %u
+}
+whois2 do_whois $1
+whois {
+  if ($chr(42) isin $1) || ($chr(63) isin $1) do_whois $1
+  else do_whois $1 $1
+}
+do_whois {
+  if ($ncfg(whois) == @whois) { 
+    set %w-dest @whois ( $+ $cid $+ )
+    if (!$window(%w-dest)) {
+      if ($ncfg(whois_inside) == 1)  window -k0n %w-dest 
+      else window -k0dn %w-dest 200 200 600 200 nbs.ico
+    }
+    if ($ncfg(whois_inside) != 1) iline $color(info) %w-dest 1 $timestamp $pre waiting for reply $par($1)
+    if ($appactive) && (!%whois.window.passive) window -a %w-dest
+  }
+  !whois $1-
+}
+hdd hd $1-
+hd {
+  ghds fixed
+  $iif($1 == -e,echo -a $pre,say) free space: %thdf $+ / $+ %thds GB ( $+ $perc(%thdfree,%thdsize) $+ )
+}
+hdds hds $1-
+hds {
+  unset %?
+  if (l isin $1-) var %labels = 1
+  if (e isin $1-) var %hd.echo = 1
+  if (m isin $1-) var %type = remote
+  else var %type = fixed
+  var %ii = 99
+  while (%ii < 123) {
+    if ($disk($chr(%ii)).type == %type) var % [ $+ [ $chr(%ii) ] ] $iif(%labels == 1 && $disk($chr(%ii)).label,( $+ $disk($chr(%ii)).label $+ )) $round($calc($calc($disk($chr(%ii)).free / 1024 / 1024) /1024),2) $+ / $+ $round($calc($calc($disk($chr(%ii)).size / 1024 / 1024) / 1024),2)
+    inc %ii
+  }
+  var %ii = 99, %hdsay
+  while (%ii < 123) { 
+    var %tmp.v = $chr(37) $+ $chr(%ii)
+    if ($eval(%tmp.v,2)) var %hdsay = %hdsay ( $+ $upper($right(%tmp.v,-1)) $+ :) $eval(%tmp.v,2)  - 
+    inc %ii
+  }
+  ghds %type
+  if (%thds > 1) $iif(%hd.echo == 1,n.echo normal -atg,say) free space: %hdsay (total: %thdf $+ / $+ %thds GB)
+  else n.echo info -atg /hds: no %type drives found
+}
+ghds {
+  if ($1) var %type = $1
+  unset %thdfree %thdsize
+  set %ii 99
+  while (%ii < 123) {
+    if ($disk($chr(%ii)).type == %type) inc %thdfree $disk($chr(%ii)).free
+    inc %ii
+  }
+  set %ii 99
+  while (%ii < 123) {
+    if ($disk($chr(%ii)).type == %type) inc %thdsize $disk($chr(%ii)).size
+    inc %ii
+  }
+  set %thdf $round($calc($calc(%thdfree /1024/1024) /1024),2)
+  set %thds $round($calc($calc(%thdsize /1024/1024) /1024),2)
+}
+txt if ($exists($1)) { set %txt $1- | dlg txt }
+setup dlg cp
+popups dlg popups
+about aboutnbs
+aboutnbs dlg om
+autocon dlg autocon
+nq dlg np
+quakenet dlg qnet
+undernet dlg unet
+misc gen
+gen dlg misc
+blist dlg blist
+seekcw dlg pcw
+prot dlg skydd
+alarm dlg alarm
+sa dlg mp3s
+mp3say dlg mp3s
+fkeys dlg fkeys
+ch dlg cl
+cns dlg ns
+cmds dlg cmds
+paste { set %paste.target $active | dlg paste }
+gl g-join $1-
+tedit {
+  if ($1) set %tedit $1-
+  else set %tedit $left($nopath($isalias(ttimestamp).fname),-4)
+  dlg tedit
+}
+hevents {
+  set %he.chan $1
+  dlg hevent
+}
+caj { 
+  if ($1) set %n.caj $1-
+  else set %n.caj $network
+  dlg aj
+}
+addedit {
+  if ($1) set %addedit $1-
+  dlg addedit
+}
+ren {
+  say 1,1@@@@@@@@0,0@1,1@@0,0@1,1@
+  say 1,1@@@@@@@@0,0@1,1@@0,0@1,1@
+  say 1,1@@@@@@@@@0,0@@0,01,1@@
+  say 1,1@@@@@@@@0,0@@@1,1@@
+  say 1,1@@@@@@@@@0,0@@1,1@@
+  say 1,1@@0,0@@@@@@@@@1,1@@
+  say 1,1@0,0@@@@@@@@@@1,1@@
+  say 1,1@0,0@@@@@@@@@@1,1@@
+  say 1,1@0,0@1,1@0,0@1,1@@@@0,0@1,1@0,0@1,1@@
+  say 1,1@0,0@1,1@0,0@1,1@@@@0,0@1,1@0,0@1,1@@
+  say 1,1@0,0@1,1@0,0@1,1@@@@0,0@1,1@0,0@1,1@@
+}
+faq n.url http://www.nbs-irc.net/faq