ChaosDLL mIRC Script

Achtung - der Code ist u.U. nicht kompatibel zu jeder Version

chaosdll.mrc

;--------------------------MENU INIT--------------------------
 
menu nicklist,query,channel {
  ChaosDLL
  .VLC Status: cd.vlc
  .VLC Status mit Verzeichnis: cd.vlcd
  .Winamp Status: cd.wa
  .FlashFXP: cd.fxp
  .FTPRush Session: cd.ftprs
  .FTPRush Gesamt: cd.ftprg
  .eMule Status: cd.emule.all
  .-
  .Optional
  ..$iif((!%cd.StreamOn),Set Radio On Air): { set %cd.StreamOn 1 | echo -a $myhead 4WebRadio On Air }
  ..$iif((%cd.StreamOn),Set Radio Down): { unset %cd.StreamOn | echo -a $myhead 4WebRadio Offline }
  ..Setze Webradio Stream Name: set %cd.StreamName $$?="Bitte den Namen des Streams eingeben"
  ..Setze Webradio URL: set %cd.StreamURL $$?="Bitte den Link zum WebRadio eingeben"
  ..-
  ..DLL entladen:dll -u chaosdll.dll
  ..-
  ..Auf Updates prüfen: run http://defcon1.hellhost.de
  ..About ChaosDLL: cd.about
}
 
;--------------------------INTERFACES--------------------------
 
alias cd.vlc {
  if (($vlc.file) || ($vlc.count)) {
    say $myhead ..::VLC Status::..
    say 4Gespielte Datei: 09 $+ $vlc.file
    say 4PlayCount: 09 $+ $vlc.count
    ;say $myfoot
  }
  else echo -a 4ChaosDLL Error! Läuft das Programm?
}
 
alias cd.vlcd {
  if (($vlc.file) || ($vlc.count)) {
    say $myhead ..::VLC Status::..
    say 4Gespielte Datei: 09 $+ $vlc.file
    say 4Im Verzeichnis: 09 $+ $vlc.filedir
    say 4PlayCount: 09 $+ $vlc.count
    ;say $myfoot
  }
  else echo -a 4ChaosDLL Error! Läuft das Programm?
}
 
alias cd.wa {
  if ($winamp.current) {
    msg $active $myhead ..::Winamp Status::..
    msg $active 4Listening to: 09 $+ $winamp.current
    msg $active 4Playtime: 09 $+ $winamp.timenow / $winamp.time
    if (%cd.StreamOn) {
      msg $active 4Stream: 9 $+ %cd.StreamName    
      msg $active 4On Air: 12 $+ %cd.StreamUrl
    }
    ;say $myfoot
  }
  else echo -a 4ChaosDLL Error! Läuft das Programm?
}
 
;Alias cd.debug {
;  echo -a $dll($scriptdirchaosdll.dll,TestWA,0)
;}
 
alias cd.fxp {
  if ($numtok($fxp.post,124) == 4) {
    var %cd.fxp.var = $fxp.post
    var %cd.tmp1 = $calc($len($gettok(%cd.fxp.var,1,124))-1)
    var %cd.tmp2 = $calc($len($gettok(%cd.fxp.var,2,124))-1)
    var %cd.tmp3 = $calc($len($gettok(%cd.fxp.var,3,124))-1)
    var %cd.tmp4 = $calc($len($gettok(%cd.fxp.var,4,124))-1)
    say $myhead ..::FlashFXP Info::..
    say 09Datei: 4not implemented
    say 09Geschwindigkeit: 4not implemented   
    say 09Fertig zu: $right($gettok(%cd.fxp.var,1,124),%cd.tmp1)
    say 09 $+ $right($gettok(%cd.fxp.var,2,124),%cd.tmp2)
    say 09 $+ $right($gettok(%cd.fxp.var,3,124),%cd.tmp3)
    say 09 $+ $right($gettok(%cd.fxp.var,4,124),%cd.tmp4)
  }
  else echo -a 4ChaosDLL Error! Läuft das Programm/der Transfer?
}
 
alias cd.emule.all {
  if ($emule.si) {
    say $myhead ..::eMule Status::..
    say 04 $+ $emule.bw
    say 04 $+ $emule.ui
    say 04 $+ $emule.si
    ;say $myfoot
  }
  else echo -a 4ChaosDLL Error! Läuft das Programm?
}
 
Alias cd.ftprs {
  if ($ftpr(RushApp.Version)) {
    say $myhead ..::FTPRush Session::..
    say 09Download: 04 $+ $rate2($ftpr(RushApp.CurDownloadSize)) 07- 09Upload: 04 $+ $rate2($ftpr(RushApp.CurUploadSize))
    say 09DL Speed: 04 $+ $ftpr(RushApp.DownloadBW) KB/Sek 07- 09UL Speed: 04 $+ $ftpr(RushApp.UploadBW) KB/Sek
    say 09FXP Session: 04 $+ $rate2($ftpr(RushApp.CurFXPSize)) 
    say 09Client: 04 $+ $ftpr(RushApp.Version)
  }
  else echo -a 4ChaosDLL Error! Läuft das Programm?
}
 
Alias cd.ftprg {
  if ($ftpr(RushApp.Version)) {
    say $myhead ..::FTPRush Total::..
    say 09Download: 04 $+ $rate2($ftpr(RushApp.TotalDownloadSize)) 07- 09Upload: 04 $+ $rate2($ftpr(RushApp.TotalUploadSize))
    say 09DL Speed: 04 $+ $ftpr(RushApp.DownloadBW) KB/Sek 07- 09UL Speed: 04 $+ $ftpr(RushApp.UploadBW) KB/Sek
    say 09FXP Total: 04 $+ $rate2($ftpr(RushApp.TotalFXPSize))
    say 09Client: 04 $+ $ftpr(RushApp.Version)
  }
  else echo -a 4ChaosDLL Error! Läuft das Programm?
}
 
;--------------------------DLL COM--------------------------
 
Alias ftpr {
  return $dll(rushmirc.dll,Invoke,$1)
}
 
Alias vlc.file {
  return $dll($scriptdirchaosdll.dll,GetVLCFile,0)
}
 
Alias vlc.count {
  return $dll($scriptdirchaosdll.dll,GetVLCPCount,0)
}
 
Alias vlc.filedir {
  return $dll($scriptdirchaosdll.dll,GetVLCDir,0)
}
 
Alias winamp.current {
  return $dll($scriptdirchaosdll.dll,GetWATitle,0)
}
 
Alias winamp.time {
  return $dll($scriptdirchaosdll.dll,GetWATime,0)
}
 
Alias winamp.timenow {
  return $dll($scriptdirchaosdll.dll,GetWATimeNow,0)
}
 
Alias fxp.post {
  return $dll($scriptdirchaosdll.dll,GetFXPFile,0)
}
 
Alias emule.ui {
  return $dll($scriptdirchaosdll.dll,GetEmuleUserInfo,0)
}
 
Alias emule.si {
  return $dll($scriptdirchaosdll.dll,GetEmuleServerInfo,0)
}
 
Alias emule.bw {
  return $dll($scriptdirchaosdll.dll,GetEmuleTraffic,0)
}
 
alias cd.about {
  say $myhead ..::About::..
  say 4 $+ $dll($scriptdirchaosdll.dll,AboutThisChaos,0)
  say $myfoot
}
 
;--------------------------STATIC--------------------------
 
Alias myhead {
  return 4—00C04-15h04-15a04-00o04-15s04-00D04-00L04-00L™04—
}
 
Alias myfoot {
  return 7[4C5haos4D5LL7]-[9p3ow9e3red7.9b3y7.9P3sy9C3ore7]
}
 
;--------------------------REMOTES--------------------------
 
Alias cd.StreamOnName {
  return Set WebRadio Online
}
 
Alias cd.StreamOffName {
  return Set WebRadio Offline
}
 
alias -l nkm2 {
  var %nk = $gettok($1,2,46)
  if (!%nk) || (%nk = 0)  { return $int($1) $+ .00 }
  if ($len(%nk) = 1) { return $1 $+ 0 } 
  return $int($1) $+ . $+ $left(%nk,2)
}
alias rate2 {
  if ($calc($1 / 1073741824) >= 1) { return $nkm2($ifmatch) EB }
  if ($calc($1 / 1048576) >= 1) { return $nkm2($ifmatch) TB }
  if ($calc($1 / 1024) >= 1) { return $nkm2($ifmatch) GB }
  if ($calc($1 / 1024) > 0 ) { return $nkm2($1) MB }
  return 0.00 MB
}
 
on 1:load: {
  echo -a 9Du hast das $myfoot 9erfolgreich geladen
  echo -a $myfoot
}
 
on 1:unload: {
  unset cd.StreamUrl
  unset cd.StreamOn
}