Draft | Approver: psycore
vorlagen:delete
ChaosDLL mIRC Script
Achtung - der Code ist u.U. nicht kompatibel zu jeder Version
ChaosDLL Script
- 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 }