Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

Link zu dieser Vergleichsansicht

Beide Seiten der vorigen RevisionVorhergehende Überarbeitung
software:chaosdll:script [2023/11/08 13:04] – psycoresoftware:chaosdll:script [2024/12/06 11:37] (aktuell) – gelöscht 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>