Forums Active Threads Past Year

alias pcb { echo $1 $+ $msgstamp $2- }

raw CHGHOST:*:{
  var %c = 1
  while ($comchan($nick,%c)) {
    pcb -i5mt $v1 · $nick has changed host to $+($nick,@,$2)
    inc %c
  }
}

alias pcb { echo $1 $+ $msgstamp $2- }

raw CHGHOST:*:{
  var %c = 1, %oldmask = $gettok($fulladdress,2,33), %ident = $gettok(%oldmask,1,64), %newmask = $+(%ident,@,$2)
  while ($comchan($nick,%c)) {
    pcb -i5mt $v1 · $nick ( $+ %oldmask $+ ) has changed host to %newmask
    inc %c
  }
  haltdef
}

#define WM_MBINVAR_GET (WM_USER + 202)
#define MIRCF_UNICODE 8
#define MIRCF_ENHANCEDERRORS 16

bool getBinvarData(HWND mIRCHWND, WCHAR *szMapFileDataAsString, int MapCnt, WCHAR *szBinvarname, size_t start, ptrdiff_t length)
{
  wsprintf(szMapFileDataAsString, L"%s %d %d", szBinvarname, start, length);
  
  auto err = SendMessage(mIRCHWND, WM_MBINVAR_GET, MIRCF_UNICODE | MIRCF_ENHANCEDERRORS, MapCnt)
  // mapfile now contains binvar data.
  if (err == 0)
    return true;

  // handle errors...

  return false;
}

#define WM_MBINVAR_GET (WM_USER + 202)
#define WM_MBINVAR_RELEASE (WM_USER + 203)
#define MIRCF_UNICODE 8
#define MIRCF_ENHANCEDERRORS 16

std::vector<uint8_t> getBinvarData(HWND mIRCHWND, WCHAR* szMapFileDataAsString, int MapCnt, WCHAR* szBinvarname)
{
  std::vector<uint8_t> vOut;

  wcscpy(szMapFileDataAsString, szBinvarname);

  const auto err = SendMessage(mIRCHWND, WM_MBINVAR_GET, MIRCF_UNICODE | MIRCF_ENHANCEDERRORS, MapCnt);
  if (err == 0)
  {
    auto pBinvarData = reinterpret_cast<uint8_t*>(wcstoumax(szMapFileDataAsString, nullptr, 10));
    auto szlen = wcschr(szMapFileDataAsString, L' ') + 1;
    auto iLen = wcstoumax(szlen, nullptr, 10);
    vOut.reserve(iLen);
    
    std::memcpy(vOut.data(), pBinvarData, vOut.size());

    wcscpy(szMapFileDataAsString, szBinvarname);
    SendMessage(mIRCHWND, WM_MBINVAR_RELEASE, MIRCF_ENHANCEDERRORS, MapCnt);
    return vOut;
  }

  // handle errors...

  return vOut;
}

on *:sockopen:fb: { 
  if ($sockerr) { echo -st $+(14,$sock($sockname).addr) konnte nicht gescheckt werden :( | return } 
  sockwrite -n $sockname GET $sock($sockname).mark HTTP/1.0
  sockwrite -n $sockname HOST: $sock($sockname).addr
  sockwrite -n $sockname User-Agent: $me
  sockwrite -n $sockname Content-Length: 769
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname $crlf
}
on *:sockread:fb: { 
  if ($sockerr) { echo -st $+(14,$sock($sockname).addr) konnte nicht gescheckt werden :( | return }
  else {
    tokenize 32 $sock($sockname).mark
    var %temp | sockread %temp
    if (%temp != $null) {
      echo -a %temp
    }
  }
}
on *:sockclose:fb:{ sockclose fb }

alias test { sockclose fb | sockopen -e fb www.kicker.de 443 | sockmark fb /bundesliga/spieltag/ }

$finddir($mircdir,logs*,1)  returns the first directory name beginning with "mirc"

on !*:JOIN:#CHANNEL:{
  var %idmask $remove($gettok($gettok($address($nick,5),1,64),2,33),~)
  var %x = 1
  while (%x <= $lines($mircdirbnicks.txt)) {
    if ($read(bnicks.txt,%x) iswm %idmask) {
      cs ban $chan +3600 $+(*!*,$v1,*@*) NICK NOT ALLOWED ! | /write $mircdir $+ banemule.txt *Badnick* $date $time $nick ---> $address
    }
    if ($read(bnicks.txt,%x) iswm $nick) {
      cs ban $chan +3600 $+(*,$v1,*!*@*) NICK NOT ALLOWED ! | /write $mircdir $+ banemule.txt *Badnick* $date $time $nick ---> $address
    }
    inc %x
  }
}

on *:NICK:{
  var %i = 1, %badwords = 1
  while (%i <= $comchan($newnick,0)) {
    if ($comchan($newnick,%i) != #eMule-Italian) { break }
    if ($newnick !isop $comchan($newnick,%i)) && ($newnick !ishop $comchan($newnick,%i)) && ($newnick != $me) {
      while (%badwords <= $lines(bnicks.txt)) {
        if ($read(bnicks.txt,%badwords) iswm $newnick) {
          cs ban $chan +3600 $+(*,$v1,*!*@*) NICK NOT ALLOWED !  | /write $mircdir $+ banemule.txt *Badnick* $date $time $newnick ---> $address($newnick,5)
        }
        inc %badwords
      }
    }
    inc %i
  }
}