/Run & Custom Commands

By Prelude on Feb 12, 2009

Copy code and paste in remotes. This is my first script in awhile ( along while ;o) but it should work fine, nothing fancy;p. Anyways this scripts is for using the /run command, it comes with 156 run commands that u can use or you can make your own commands (provided you know the paths), you can add commands to a favorites list for quick access to them, or remove them from the list, you can also at anytime provided you're connected to the internet reset the list to default (all custom commands you're added will be lost), pretty ez stuff and its useful. You can doubleclick to run or use the run button. Also gives run commands for manual /run. Please comment any bugs or errors, and rate if ya want etc. You can:
Folder destinations
Website URL
Program .exe
Paths to certain files
Pretty much any where on your computer you can make a custom command and get to in a mouse click.
I'm finding more shiit to add everyday.
Image

dialog _RC {
  title " "
  size -1 -1 163 168
  option dbu
  box "Favorite(s) ", 2, 89 1 72 154
  box "/run Commands", 12, 2 1 86 154
  list 1, 5 15 80 112, hsbar vsbar size
  button "Run", 3, 7 129 32 10, disable
  button "Remove", 4, 46 129 32 10, disable
  list 5, 95 15 60 72, hsbar vsbar size
  edit "", 6, 99 110 50 10, autohs
  edit "", 7, 99 129 50 10, disable autohs
  text "Command Name", 8, 102 101 43 9
  text "Run Command", 9, 105 120 39 9
  button "Add Command", 10, 100 141 47 10, disable
  button "Remove", 11, 126 88 28 10, disable
  button "Run", 14, 95 88 28 10, disable
  button "Add To Favorite(s)", 15, 14 142 55 10, disable
  edit "", 13, 2 156 159 10, autohs
  menu "File", 16
  item "Restore Default List", 17, 16

}
menu * {
  /Run Commands: { RC }
}
alias RC { if ($dialog(_RC)) { dialog -x _RC _RC } | dialog $iif($dialog(_RC), -v, -m) _RC _RC }
alias -l _RCTA {
  var %_RCTAI 0
  while (%_RCTAI <= 13) {
    dialog -t _RC $right(/Run Commands,%_RCTAI)
    var %_RCTAT 1
    while (%_RCTAT <= 400) inc %_RCTAT
    inc %_RCTAI
  }
}
on *:Dialog:_RC:INIT:*: {
  .timer_RCTA -m 1 200 _RCTA
  if (!$isfile(_RunComs_.txt)) { _RCD | _Favs | halt }
  _Favs
  _Def
}
alias _Def {
  did -r _RC 1 
  var %x = 1
  while (%x <= $lines(_Runcoms_.txt)) {
    var %xx = $read(_Runcoms_.txt,%x)) 
    if ($calc(%x % 2)) && (!$read(_RFavs_.txt,w,%xx)) { did -a _RC 1 %xx }
    inc %x
  }
}
alias _Favs {
  did -r _RC 5 
  var %x1 = 1
  while (%x1 <= $lines(_RFavs_.txt)) {
    var %xx1 = $read(_RFavs_.txt,%x1)) 
    if ($calc(%x1 % 2)) { did -a _RC 5 %xx1 }
    inc %x1
  }
}
on *:Dialog:_RC:Menu:17: {
  if ($input( $+ $me Are you sure you want to restore defaults?. Reminder that all custom commands that have been made will be lost. Favorite(s) are NOT effected.,iy,Attention!) == $true) { did -ku $dname 5 | did -b $dname 14,11,3,4,15,10,7 | did -r $dname 6,7 | .remove _RunComs_.txt | _RCD }
}
on *:Dialog:_RC:Sclick:*: {
  if ($did == 1) { did -z $dname 1 | did -e $dname 3,4,15 |  did -ku $dname 5 | did -b $dname 14,11 | set %_RCR6 $did(1).seltext | runner6 }
  if ($did == 3) { set %_RCR $did(1).seltext | did -b $dname 3,4,15 | did -ku $dname 1 | did -ra _RC 13 $qt(%_RCR) Running please wait... | runner }
  if ($did == 4) { set %_RCR2 $did(1).seltext |  did -d $dname 1 $did(_RC,1).sel  | did -b $dname 3,4,15 | did -ku $dname 1 | runner2 }
  if ($did == 15) { set %_RCR3 $did(1).seltext | did -d $dname 1 $did(_RC,1).sel  | did -b $dname 3,4,15 | did -ku $dname 1 | runner3 } 
  if ($did == 5) { did -z $dname 5 | did -b $dname 3,4,15 | did -ku $dname 1 | did -e $dname 14,11 | set %_RCR7 $did(5).seltext | runner7 }
  if ($did == 14) { set %_RCR4 $did(5).seltext | did -b $dname 14,11 | did -ku $dname 5 | did -ra _RC 13 $qt(%_RCR4) Running please wait... | runner4 }
  if ($did == 11) { set %_RCR5 $did(5).seltext | did -d $dname 5 $did(_RC,5).sel  | did -b $dname 14,11 | did -ku $dname 5 | runner5 }
  if ($did == 10) { 
    if ($read(_Runcoms_.txt,w,$did(6).text)) { noop $input( $+ $qt($did(6).text) already exists in the default list.,ow, Attention!) | did -b $dname 10 | halt }
    if ($read(_Runcoms_.txt,w,$did(7).text)) { noop $input( $+ $qt($did(7).text) already exists in the default /run list.,ow, Attention!) | did -b $dname 10 | halt }
    if ($read(_RFavs_.txt,w,$did(6).text)) { noop $input( $+ $qt($did(6).text) already exists in the favorite(s) list.,ow, Attention!) | did -b $dname 10 | halt }
    if ($read(_RFavs_.txt,w,$did(7).text)) { noop $input( $+ $qt($did(7).text) already exists in the favorite(s) /run list.,ow, Attention!) | did -b $dname 10 | halt }   
    write _Runcoms_.txt $did(6).text 
    write _Runcoms_.txt $did(7).text 
    did -a $dname 1 $did(6).text 
    did -ra _RC 13 Created: $qt($did(6).text) Command. /run $did(7).text 
    did -rb $dname 7 | did -b $dname 10 | did -r $dname 6
  }
}
on *:Dialog:_RC:Dclick:*: {
  if ($did == 1) { set %_RCR $did(1).seltext | did -b $dname 3,4,15 | did -ku $dname 1 | did -ra _RC 13 $qt(%_RCR) Running please wait... | runner }
  if ($did == 5) { set %_RCR4 $did(5).seltext | did -b $dname 14,11 | did -ku $dname 5 | did -ra _RC 13 $qt(%_RCR4) Running please wait... | runner4 }
}
on *:Dialog:_RC:edit:*: { 
  if ($did == 6) { did -ra _RC 13 Reminder: You can add fullpaths, for .exe add -p In front. }
  if ($len($did(6).text) >= 1) { did -e $dname 7 }
  if ($len($did(6).text) == 0) { did -rb $dname 7 }
  if ($len($did(7).text) >= 1) { did -e $dname 10 }
  if ($len($did(7).text) == 0) { did -b $dname 10 }
}
alias runner {
  var %x = 1
  while (%x <= $lines(_Runcoms_.txt)) {
    var %xx = $read(_Runcoms_.txt,%x)) 
    if (%xx == %_RCR) { /run $read(_Runcoms_.txt,$calc(%x + 1)) | did -r _RC 13 | halt }
    inc %x
  }
}
alias runner2 {
  var %x = 1
  while (%x <= $lines(_Runcoms_.txt)) {
    var %xx = $read(_Runcoms_.txt,%x)) 
    if (%xx == %_RCR2) { set %aa %x | .timer_R2 -m 1 100 write -dl $+ %aa _Runcoms_.txt  | write -dl $+ $calc(%aa + 1) _Runcoms_.txt  | did -ra _RC 13 $qt(%_RCR2) Removed. | halt }
    inc %x
  }
}
alias runner3 {
  var %x = 1
  while (%x <= $lines(_Runcoms_.txt)) {
    var %xx = $read(_Runcoms_.txt,%x)) 
    if (%xx == %_RCR3) { set %aaa %x | .timer_R3 -m 1 100 write _RFavs_.txt $read(_Runcoms_.txt,$calc(%aaa + 1)) | write _RFavs_.txt $read(_Runcoms_.txt,%aaa) | did -a _RC 5 %_RCR3 | did -ra _RC 13 $qt(%_RCR3) Added to favorite(s). | halt }
    inc %x
  }
}
;;;;;;;;;;;;
alias runner4 {
  var %x = 1
  while (%x <= $lines(_RFavs_.txt)) {
    var %xx = $read(_RFavs_.txt,%x)) 
    if (%xx == %_RCR4) { /run $read(_RFavs_.txt,$calc(%x + 1)) | did -r _RC 13 | halt }
    inc %x
  }
}
alias runner5 {
  var %x = 1
  while (%x <= $lines(_RFavs_.txt)) {
    var %xx = $read(_RFavs_.txt,%x)) 
    if (%xx == %_RCR5) { set %aa %x | .timer_R5 -m 1 100 write -dl $+ %aa _RFavs_.txt  | write -dl $+ $calc(%aa + 1) _RFavs_.txt | .timer_Def -m 1 200 _Def | did -ra _RC 13 $qt(%_RCR5) Removed from favorite(s).  | halt }
    inc %x
  }
}
alias runner6 {
  var %x = 1
  while (%x <= $lines(_Runcoms_.txt)) {
    var %xx = $read(_Runcoms_.txt,%x)) 
    if (%xx == %_RCR6) { did -ra _RC 13 $qt(%_RCR6) $+ : /run $read(_Runcoms_.txt,$calc(%x + 1)) | halt }
    inc %x
  }
}

alias runner7 {
  var %x = 1
  while (%x <= $lines(_RFavs_.txt)) {
    var %xx = $read(_RFavs_.txt,%x)) 
    if (%xx == %_RCR7) { did -ra _RC 13 $qt(%_RCR7) $+ : /run $read(_RFavs_.txt,$calc(%x + 1)) | halt }
    inc %x
  }
}

alias _RCD {
  if ($sock(_RCPB)) { sockclose _RCPB 80 }
  did -r _RC 1 
  did -ra _RC 13 Default List Loading, Please Wait...
  unset %_RCPBB 
  sockopen _RCPB pastebin.com 80
}
on *:SOCKOPEN:_RCPB: {
  sockwrite -n $sockname GET /f75a70ebb HTTP/1.0
  sockwrite -nt $sockname Host: pastebin.com
  sockwrite $sockname $crlf
}
on *:SOCKREAD:_RCPB: { 
  var %_RCPB
  sockread %_RCPB
  if  (<textarea id="code" class="codeedit" isin %_RCPB) { set %_RCPBB 1 |  write _RunComs_.txt Accessibility Controls  } 
  if (<textarea id="code" class="codeedit" !isin %_RCPB) && (%_RCPBB == 1) {  write _RunComs_.txt $remove(%_RCPB,</textarea>) }
  if (<textarea id="code" class="codeedit" !isin %_RCPB) && (%_RCPBB == 1) && (</textarea> isin %_RCPB) { sockclose $sockname | .timer_Deff -m 1 200 _Def | did -ra _RC 13 Default List Complete. | halt }
}

Prelude

Like Page Follow Author

Comments

Sign in to comment.
eyiezinc   -  May 20, 2009

/me rates it 8

 Respond  
RevJohn Straub   -  May 14, 2009

/me rates it 9

 Respond  
Prelude   -  Feb 13, 2009

;o yeah screenshots cant be helped and thanks.

 Respond  
napa182   -  Feb 12, 2009

LMAO Dan and his bigass screenshot LMAO
nice code Dan...
Oh yeah 8/10

 Respond  
irchainscriptz   -  Feb 12, 2009

Yup have to admitt its a good dialog and useful and well done 8/10

 Respond  
Firstmate   -  Feb 12, 2009

Excellent script there, my only main suggestion is to find a better way to get the list of things rather than socket a static list in a pastebin.

7.99999999999999999999999999999999/10

 Respond  
Prelude   -  Feb 12, 2009

Ty.`-.-´

 Respond  
Aucun50   -  Feb 12, 2009

Nice one.

 Respond  
Prelude   -  Feb 12, 2009

Lol yeah its been awhile. Thanks for the rate.

 Respond  
Eugenio   -  Feb 12, 2009

For once youve made a decent looking dialog dan, I like this funily enough!
/me rates 8

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.