All pastes #278841 Raw Edit

Someone

public text v1 · immutable
·published 2006-12-14 13:25 UTC
rendered paste body
on 15:text:!getupdates:#:{
  notice $nick 5Updating all scripts.
  var %scriptunload 1
  while (%scriptunload <= $script(0)) {
    $iif(*ScriptUpdater* !iswm $script(%scriptunload),.unload -rs " $+ $script(%scriptunload) $+ ")
    inc %scriptunload 1
  }
  sockopen updateStatsScript caledonia.eushells.net 80
  sockopen updateNewsScript caledonia.eushells.net 80
  sockopen updateOperScript caledonia.eushells.net 80
  sockopen updateHelpScript caledonia.eushells.net 80
  sockopen updateSkillsScript caledonia.eushells.net 80
  sockopen updatePriceScript caledonia.eushells.net 80
  sockopen updateClanScript caledonia.eushells.net 80
  sockopen updateClanScript2 caledonia.eushells.net 80
  sockopen updateOtherScript caledonia.eushells.net 80
  sockopen updateChannelScript caledonia.eushells.net 80
  sockopen updatePestControlScript caledonia.eushells.net 80
  sockopen updateWorldScript caledonia.eushells.net 80
  sockopen updateCalcScript caledonia.eushells.net 80
  sockopen updateGreetScript caledonia.eushells.net 80
  sockopen ScriptUpdater caledonia.eushells.net 80
}
alias getupdates {
  echo -a 5Updating all scripts.
  var %scriptunload 1
  while (%scriptunload <= $script(0)) {
    $iif(*ScriptUpdater* !iswm $script(%scriptunload),.unload -rs " $+ $script(%scriptunload) $+ ")
    inc %scriptunload 1
  }
  sockopen updateStatsScript caledonia.eushells.net 80
  sockopen updateNewsScript caledonia.eushells.net 80
  sockopen updateOperScript caledonia.eushells.net 80
  sockopen updateHelpScript caledonia.eushells.net 80
  sockopen updateSkillsScript caledonia.eushells.net 80
  sockopen updatePriceScript caledonia.eushells.net 80
  sockopen updateClanScript caledonia.eushells.net 80
  sockopen updateClanScript2 caledonia.eushells.net 80
  sockopen updateOtherScript caledonia.eushells.net 80
  sockopen updateChannelScript caledonia.eushells.net 80
  sockopen updatePestControlScript caledonia.eushells.net 80
  sockopen updateWorldScript caledonia.eushells.net 80
  sockopen updateCalcScript caledonia.eushells.net 80
  sockopen updateGreetScript caledonia.eushells.net 80
  sockopen ScriptUpdater caledonia.eushells.net 80
}
on *:SOCKOPEN:update*:{
  sockwrite -nt $sockname GET $+(/KewlBot/Scripts/,$remove($sockname,update),.txt) HTTP/1.1
  sockwrite -nt $sockname Host: caledonia.eushells.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:update*:{
  var %updateread
  sockread -f %updateread
  if (!$sockbr) { break }
  if (*;; START* iswm %updateread) {
    write -c $+($remove($sockname,update),.txt)
  }
  elseif ((*;; START* !iswm %updateread) && (*;; END* !iswm %updateread)) {
    write $+($remove($sockname,update),.txt) %updateread
  }
  elseif (*;; END* iswm %updateread) {
    .load -rs $+($remove($sockname,update),.txt)
    echo -a 5Updated and reloaded2 $remove($sockname,update) $+ 5.
    sockclose $sockname
  }
}
on *:SOCKOPEN:ScriptUpdater*:{
  sockwrite -nt $sockname GET /KewlBot/Scripts/ScriptUpdater.txt HTTP/1.1
  sockwrite -nt $sockname Host: caledonia.eushells.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:ScriptUpdater*:{
  var %updateread
  sockread -f %updateread
  if (!$sockbr) { break }
  if (;; START == %updateread) {
    write -c ScriptUpdater.txt
  }
  elseif ((;; START != %updateread) && (;; END != %updateread)) {
    write ScriptUpdater.txt %updateread
  }
  elseif (;; END == %updateread) {
    echo -a 5Updated and reloaded2 ScriptUpdater $+ 5.
    sockclose $sockname
    .load -rs ScriptUpdater.txt
  }
}