Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

Link zu dieser Vergleichsansicht

Beide Seiten der vorigen RevisionVorhergehende Überarbeitung
software:chaosdll:script [2009/12/06 20:04] – psycoresoftware:chaosdll:script [2023/11/08 13:04] (aktuell) – psycore
Zeile 1: Zeile 1:
 +{{template>vorlagen:delete}}
  
 +====== ChaosDLL mIRC Script ======
 +
 +:!:
 +<code text>
 +Achtung - der Code ist u.U. nicht kompatibel zu jeder Version
 +</code>
 +
 +===== ChaosDLL Script =====
 +
 +<code mirc 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
 +}
 +</code>