/ScriptServ

;/**********************************************************************
; *
; * aIRC
; * DLLs
; *
; **********************************************************************/
;
;
;;
;
; -( mdx.dll v0.90 by DragonZap )-
;
;;

alias _mdx.init {
  var %d = $dname
  _mdx.MarkDialog %d
  _mdx.SetDialog %d icon $iif(*.ico iswm $1,$1,$_aircicon)
  if ($2- != $null) { _mdx.SetDialog %d style $2-  }
}
alias _mdx.fixtablengths {
  var %r,%i = 1,%n = $numtok($1-,32),%t
  while (%i <= %n) {
    %t = $calc($dbuw * $gettok($1-,%i,32))
    %r = %r $+ , $+ %t
    inc %i
  }
  return @ $+ $right(%r,-1)
}
alias _mdx.tabtext {
  var %i = 1,%n = $0,%r
  while (%i <= %n) {
    %r = %r $+ $chr(9) $+ 0 $ [ $+ [ %i ] ]
    inc %i
  }
  return $right(%r,-1)
}
; _mdx.SetMircVersion
alias _mdx.SetMircVersion { return $dll(etc\dlls\mdx.dll,SetMircVersion,$version) }

; _mdx.MarkDialog [dname]
alias _mdx.MarkDialog { return $dll(etc\dlls\mdx.dll,MarkDialog,$iif($1 != $null,$1,$dname)) }

; _mdx.SetControlMDX <plugin> <dialog name> <ID> <control> [styles]
alias _mdx.SetControlMDX {
  var %parms = $2- > etc\dlls\ $+ $1
  return $dll(etc\dlls\mdx.dll,SetControlMDX,%parms)
}

; _mdx.SetMDXStyle <dialog> <ID> <styles>
alias _mdx.SetMDXStyle { return $dll(etc\dlls\mdx.dll,SetMDXStyle,$1-) }

; _mdx.SetBorderStyle <dialog> <ID> <styles>
alias _mdx.SetBorderStyle { return $dll(etc\dlls\mdx.dll,SetBorderStyle,$1-) }

; _mdx.GetFont <dialog> <ID>
alias _mdx.GetFont { return $dll(etc\dlls\mdx.dll,GetFont,$1-) }

; _mdx.SetFont <dialog> <ID> [+flags] [charset] <size> <weight> <font>
alias _mdx.SetFont {
  var %dialog = $1,%ids = $2,%parms = $3-,%tmp,%i = 1,%n = $numtok(%ids,44),%z
  while (%i <= %n) {
    %z = %dialog $gettok(%ids,%i,44) %parms
    %tmp = $dll(etc\dlls\mdx.dll,SetFont,%z)
    inc %i
  }
}

; _mdx.SetDialog <dialog> <property> <value>
alias _mdx.SetDialog { return $dll(etc\dlls\mdx.dll,SetDialog,$1-) }

; _mdx.SetColor <dialog> <ID> <attrib> <RGB value>
alias _mdx.SetColor { return $dll(etc\dlls\mdx.dll,SetColor,$1-) }

; _mdx.MoveControl <dialog> <ID> [x] [y] [w] [h]
alias _mdx.MoveControl { return $dll(etc\dlls\mdx.dll,MoveControl,$1-) }

; _mdx.Remove
alias _mdx.Remove { return $dll(etc\dlls\mdx.dll,Remove,-) }

; _mdx.DLLInfo
alias _mdx.DLLInfo { return $dll(etc\dlls\mdx.dll,DLLInfo,-) }

;;
;
; -( popups.dll v1.00pre1 by DragonZap )-
;
;;

; _popupdll.New <menu> <icon width> <icon height>
alias _popupdll.New {
  tokenize 32 $1-
  if ($dll(etc\dlls\Popups.dll,GetProperty, [ $1 ] imgsize) != $null) { var %tmp = $dll(etc\dlls\Popups.dll,Destroy,$1) }
  return $dll(etc\dlls\Popups.dll,New,$1-)
}

; _popupdll.Destroy <menu>
alias _popupdll.Destroy { return $dll(etc\dlls\Popups.dll,Destroy,$1-) }

; _popupdll.AddItem <menu> <pos> [+flags] [unsel#] [sel#] [trans] [text]{cr}[info]
alias _popupdll.AddItem { return $dll(etc\dlls\Popups.dll,AddItem,$1-) }

; _popupdll.RemoveItem <menu> <pos>
alias _popupdll.RemoveItem { return $dll(etc\dlls\Popups.dll,RemoveItem,$1-) }

; _popupdll.LoadImg <menu> [index] <type> [trans] <[resource#,]filename>
alias _popupdll.LoadImg { return $dll(etc\dlls\Popups.dll,LoadImg,$1-) }

; _popupdll.SetStyle <menu> [style] [style] ...
alias _popupdll.SetStyle { return $dll(etc\dlls\Popups.dll,SetStyle,$1-) }

; _popupdll.SetMetrics <menu> [name [w] [h]] [name [w] [h]] ..
alias _popupdll.SetMetrics { return $dll(etc\dlls\Popups.dll,SetMetrics,$1-) }

; _popupdll.GetProperty <menu> [item] <property>
alias _popupdll.GetProperty { return $dll(etc\dlls\Popups.dll,GetProperty,$1-) }

; _popupdll.SetProperty <menu> <item> <property> <value>
alias _popupdll.SetProperty { return $dll(etc\dlls\Popups.dll,SetProperty,$1-) }

; _popupdll.Popup <menu> [+flags] <x> <y> [x y w h]
alias _popupdll.Popup { return $dll(etc\dlls\Popups.dll,Popup,$1-) }

; _popupdll.Remove
alias _popupdll.Remove { return $dll(etc\dlls\Popups.dll,Remove,-) }

; _popupdll.DLLInfo
alias _popupdll.DLLInfo { return $dll(etc\dlls\Popups.dll,DLLInfo,-) }

;;
;
; -( mOTFv.dll v2.01 by danielson )-
;
;;

; _mOTFv.Load
alias _mOTFv.Load { return $dll(etc\dlls\mOTFv.dll,Load,-) }

; _mOTFv.Mark
alias _mOTFv.Mark { return $dll(etc\dlls\mOTFv.dll,Mark,-) }

; _mOTFv.SetVersion [string]
alias _mOTFv.SetVersion { return $dll(etc\dlls\mOTFv.dll,SetVersion,$1-) }

; _mOTFv.Unload
alias _mOTFv.Unload { return $dll(etc\dlls\mOTFv.dll,Unload,-) }

; _mOTFv.DLLInfo
alias _mOTFv.DLLInfo { return $dll(etc\dlls\mOTFv.dll,DLLInfo,-) }

;;
;
; -( amp_in.dll v1.07 by DragonZap )-
;
;;

; _ampdll.PluginLoad <type> [DSP module number] <filename>
alias _ampdll.PluginLoad {
  var %parms = load $1-
  return $dll(etc\dlls\amp_in.dll,PluginManager,%parms)
}
; _ampdll.PluginUnload <type>
alias _ampdll.PluginUnload {
  var %parms = unload $1-
  return $dll(etc\dlls\amp_in.dll,PluginManager,%parms)
}
; _ampdll.PluginInputcount
alias _ampdll.PluginInputcount {
  var %tmp = $dll(etc\dlls\amp_in.dll,PluginManager,inputcount)
  if (ok * iswm %tmp) { return $gettok(%tmp,2-,32) }
  return 0
}
; _ampdll.PluginAbout <type or input number>
alias _ampdll.PluginAbout {
  var %parms = about $1-
  return $dll(etc\dlls\amp_in.dll,PluginManager,%parms)
}
; _ampdll.PluginConfig <type or input number>
alias _ampdll.PluginConfig {
  var %parms = config $1-
  return $dll(etc\dlls\amp_in.dll,PluginManager,%parms)
}
; _ampdll.PluginDescription <type or input number>
alias _ampdll.PluginDescription {
  var %parms = description $1-,%tmp = $dll(etc\dlls\amp_in.dll,PluginManager,%parms)
  if (ok * iswm %tmp) { return $gettok(%tmp,2-,32) }
}
; _ampdll.PluginTypecount <type or input number>
alias _ampdll.PluginTypecount {
  var %parms = typecount $1-
  return $dll(etc\dlls\amp_in.dll,PluginManager,%parms)
}
; _ampdll.PluginTypelist <input plugin number> <type set>
alias _ampdll.PluginTypelist {
  var %parms = typelist $1-,%tmp = $dll(etc\dlls\amp_in.dll,PluginManager,%parms)
  if (ok * iswm %tmp) { return $gettok(%tmp,2-,32) }
}
; _ampdll.PluginTypedesc <input plugin number> <type set>
alias _ampdll.PluginTypedesc {
  var %parms = typedesc $1-
  return $dll(etc\dlls\amp_in.dll,PluginManager,%parms)
}
; _ampdll.PluginAlltypes [input plugin number]
alias _ampdll.PluginAlltypes {
  var %parms = alltypes $1-
  return $dll(etc\dlls\amp_in.dll,PluginManager,%parms)
}
; _ampdll.PluginUinfo <type> <info> [modnumber] <filename>
alias _ampdll.PluginUinfo {
  var %parms = uinfo $1-
  return $dll(etc\dlls\amp_in.dll,PluginManager,%parms)
}

; _ampdll.Queue <subcommand> [parameters]
;   add <filename>
;   count
;   insert <position> <filename>
;   remove <position>
;   clear
;   looping <setting>
;   shuffle <command>
;   filename <position>
;   title <position>
;   length <position>
;   setcurrent <position>
;   getcurrent
;   saveM3U <filename>
;   loadM3U <filename>
alias _ampdll.Queue { return $dll(etc\dlls\amp_in.dll,Queue,$1-) }

; _ampdll.Play <filename>
alias _ampdll.Play { return $dll(etc\dlls\amp_in.dll,Play,$1-) }

; _ampdll.Stop
alias _ampdll.Stop { return $dll(etc\dlls\amp_in.dll,Stop,-) }

; _ampdll.FileTitle <filename>
alias _ampdll.FileTitle {
  var %parms = title $1-
  return $dll(etc\dlls\amp_in.dll,Info,%parms)
}
; _ampdll.FileLength <filename>
alias _ampdll.FileLength {
  var %parms = length $1-
  return $dll(etc\dlls\amp_in.dll,Info,%parms)
}
; _ampdll.FileInfo <filename>
alias _ampdll.FileInfo {
  var %parms = info $1-
  return $dll(etc\dlls\amp_in.dll,Info,%parms)
}

; _ampdll.Status
alias _ampdll.Status { return $dll(etc\dlls\amp_in.dll,CurrentMusic,status) }
; _ampdll.Pause
alias _ampdll.Pause { return $dll(etc\dlls\amp_in.dll,CurrentMusic,pause) }
; _ampdll.Unpause
alias _ampdll.Unpause { return $dll(etc\dlls\amp_in.dll,CurrentMusic,unpause) }
; _ampdll.Title
alias _ampdll.Title { return $dll(etc\dlls\amp_in.dll,CurrentMusic,title) }
; _ampdll.Filename
alias _ampdll.Filename { return $dll(etc\dlls\amp_in.dll,CurrentMusic,filename) }
; _ampdll.Length
alias _ampdll.Length { return $dll(etc\dlls\amp_in.dll,CurrentMusic,length) }
; _ampdll.Position
alias _ampdll.Position { return $dll(etc\dlls\amp_in.dll,CurrentMusic,position) }
; _ampdll.Seek <position>
alias _ampdll.Seek {
  var %parms = seek $1-
  return $dll(etc\dlls\amp_in.dll,CurrentMusic,%parms)
}
; _ampdll.Bitrate
alias _ampdll.Bitrate { return $dll(etc\dlls\amp_in.dll,CurrentMusic,bitrate) }
; _ampdll.Samplerate
alias _ampdll.Samplerate { return $dll(etc\dlls\amp_in.dll,CurrentMusic,samplerate) }
; _ampdll.Stereo
alias _ampdll.Stereo { return $dll(etc\dlls\amp_in.dll,CurrentMusic,stereo) }
; _ampdll.Synched
alias _ampdll.Synched { return $dll(etc\dlls\amp_in.dll,CurrentMusic,synched) }
; _ampdll.Info
alias _ampdll.Info { return $dll(etc\dlls\amp_in.dll,CurrentMusic,info) }

; _ampdll.Misc <subcommand> [parameters]
alias _ampdll.Misc { return $dll(etc\dlls\amp_in.dll,Misc,$1-) }
; _ampdll.getvolume
alias _ampdll.getvolume {
  var %tmp = $dll(etc\dlls\amp_in.dll,Misc,getvolume)
  if (ok * iswm %tmp) { return $gettok(%tmp,2,32) }
}
; _ampdll.setvolume <new volume>
alias _ampdll.setvolume {
  var %parms = setvolume $1-
  return $dll(etc\dlls\amp_in.dll,Misc,%parms)
}
; _ampdll.getpan
alias _ampdll.getpan {
  var %tmp = $dll(etc\dlls\amp_in.dll,Misc,getpan)
  if (ok * iswm %tmp) { return $gettok(%tmp,2,32) }
}
; _ampdll.setpan <new panning>
alias _ampdll.setpan {
  var %parms = setpan $1-
  return $dll(etc\dlls\amp_in.dll,Misc,%parms)
}
; _ampdll.EQon
alias _ampdll.EQon { return $dll(etc\dlls\amp_in.dll,Misc,equalizer enable) }
; _ampdll.EQoff
alias _ampdll.EQoff { return $dll(etc\dlls\amp_in.dll,Misc,equalizer disable) }
; _ampdll.EQstatus
alias _ampdll.EQstatus { return $iif($dll(etc\dlls\amp_in.dll,Misc,equalizer enabled?) == OK yes,1,0) }
; _ampdll.EQpreampset <value>
alias _ampdll.EQpreampset {
  var %parms = equalizer preamp-set $1-
  return $dll(etc\dlls\amp_in.dll,Misc,%parms)
}
; _ampdll.EQpreampget
alias _ampdll.EQpreampget {
  var %tmp = $dll(etc\dlls\amp_in.dll,Misc,equalizer preamp-get)
  if (ok * iswm %tmp) { return $gettok(%tmp,2,32) }
}
; _ampdll.EQget
alias _ampdll.EQget { return $dll(etc\dlls\amp_in.dll,Misc,equalizer get) }
; _ampdll.EQset <v1> <v2> <v3> <v4> <v5> <v6> <v7> <v8> <v9> <v10>
alias _ampdll.EQset {
  var %parms = equalizer set $1-
  return $dll(etc\dlls\amp_in.dll,Misc,%parms)
}
; _ampdll.box
alias _ampdll.box { return $dll(etc\dlls\amp_in.dll,Misc,box) }
; _ampdll.notify <setting>
alias _ampdll.notify { return $dll(etc\dlls\amp_in.dll,Misc,notify) }

; _ampdll.FlushAllPlugins
alias _ampdll.FlushAllPlugins { return $dll(etc\dlls\amp_in.dll,FlushAllPlugins,-) }

; _ampdll.DLLInfo
alias _ampdll.DLLInfo { return $dll(etc\dlls\amp_in.dll,DLLInfo,-) }

;;
;
; -( registry.dll v2.01 by DragonZap )-
;
;;

; _regdll.GetKeyValue [starting character] [length] [display] <key/value>
alias _regdll.GetKeyValue { return $dll(etc\dlls\registry.dll,GetKeyValue,$1-) }
; _regdll.GetKeyType <key/value>
alias _regdll.GetKeyType { return $dll(etc\dlls\registry.dll,GetKeyType,$1-) }
; _regdll.GetSubKeyName <index> <key>
alias _regdll.GetSubKeyName { return $dll(etc\dlls\registry.dll,GetSubKeyName,$1-) }
; _regdll.GetValueName <index> <key>
alias _regdll.GetValueName { return $dll(etc\dlls\registry.dll,GetValueName,$1-) }
; _regdll.SetKeyValue <type> <key/value> [$cr <new setting>]
alias _regdll.SetKeyValue { return $dll(etc\dlls\registry.dll,SetKeyValue,$1-) }
; _regdll.DeleteValue <key/value>
alias _regdll.DeleteValue { return $dll(etc\dlls\registry.dll,DeleteValue,$1-) }
; _regdll.DeleteKey <key>
alias _regdll.DeleteKey { return $dll(etc\dlls\registry.dll,DeleteKey,$1-) }
; _regdll.DLLInfo
alias _regdll.DLLInfo { return $dll(etc\dlls\registry.dll,DLLInfo,-) }


;;
;
; -( stdio.dll v1.02 by DragonZap )-
;
;;

; _stdio.RunConsole <process alias> <exe> [arguments]
alias _stdio.RunConsole { return $dll(etc\dlls\stdio.dll,RunConsole,$1-) }

; _stdio.ReadText <process alias> <out|err>
alias _stdio.ReadText { return $dll(etc\dlls\stdio.dll,ReadText,$1-) }

; _stdio.ReadBinary <process alias> <out|err> <bytes> [special]
alias _stdio.ReadBinary { return $dll(etc\dlls\stdio.dll,ReadBinary,$1-) }

; _stdio.WriteText <process alias> <text>
alias _stdio.WriteText { return $dll(etc\dlls\stdio.dll,WriteText,$1-) }

; _stdio.WriteBinary <process alias> <ascii value> <ascii value> ...
alias _stdio.WriteBinary { return $dll(etc\dlls\stdio.dll,WriteBinary,$1-) }

; _stdio.CloseInput <process alias>
alias _stdio.CloseInput { return $dll(etc\dlls\stdio.dll,CloseInput,$1-) }

; _stdio.GetExitCode <process alias>
alias _stdio.GetExitCode { return $dll(etc\dlls\stdio.dll,GetExitCode,$1-) }

; _stdio.SetProcess <process alias> <property>
alias _stdio.SetProcess { return $dll(etc\dlls\stdio.dll,SetProcess,$1-) }

; _stdio.GetProcess <process alias or number>
alias _stdio.GetProcess { return $dll(etc\dlls\stdio.dll,GetProcess,$1-) }

; _stdio.ReleaseProcess <process alias>
alias _stdio.ReleaseProcess { return $dll(etc\dlls\stdio.dll,ReleaseProcess,$1-) }

; _stdio.Remove
alias _stdio.Remove { return $dll(etc\dlls\stdio.dll,Remove,-) }

; _stdio.DLLInfo
alias _stdio.DLLInfo { return $dll(etc\dlls\stdio.dll,DLLInfo,-) }


;;
;
; -( miscelaneus stuff )-
;
;;

; _setdnum <number> <default> [min max]
alias _setdnum {
  var %n = $1,%d = $2,%min = $3,%max = $4,%extra = $5-
  if (%min !isnum) { %min = 1 }
  if (%max !isnum) { %max = 99999999999 }
  if (%n !isnum) || (%n < %min) || (%n > %max) { %n = %d }
  return %n %min %max %extra
}
alias _getdnum { return $gettok($did($1,$2),1,32) }