Remotes Manager

By HeatedHeart on Aug 11, 2009

Another script for XeroChat, this one manages your remotes :D. i find it very useful, and i use it all the time, Also shows information on the script in top right corner. Also Fixed my run error, /help /run ftfw. Please rate/Download/Comment Thank You. :D
Image

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Script Manager---------------------;;
;;Coded By HeatedHeart---------------;;
;;For Use With XeroChat3-------------;;
;;All Rights Reserved:XeroChat Team--;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;#### Start Up
on *:DIALOG:SM:init:*: {
  ShowScript
}
;#### Aliase's
Alias ShowScript {
  var %Loop2 1
  var %z 1,8,9,10,11,12
  while (%Loop2 <= 6) {
    did -r $dname $gettok(%z,%Loop2,44)
    inc %loop2
  }
  Var %x $Script(0)
  Var %Loop 1
  while (%Loop <= %X) {
    did -a $dname 1 $NoPath($script(%Loop))
    inc %loop
  }
}
;#### Pop Ups
menu * {
  Script Manager:/dialog -vmd SM SM
}
;#### Dialog
dialog SM {
  title "XeroChat3 Script Manager"
  size -1 -1 417 353
  option pixels notheme
  box "Script Infromation", 2, 230 33 182 126
  list 1, 8 38 216 314
  text "Name:", 3, 236 52 35 17
  text "Size:", 4, 236 74 25 17
  text "Number Of Lines:", 5, 236 95 84 17
  text "Last Modified:", 6, 237 132 74 17
  text "Created:", 7, 237 114 41 17
  text "", 8, 271 53 102 17
  text "", 9, 262 74 100 17
  text "", 10, 322 96 66 17
  text "", 11, 282 114 100 17
  text "", 12, 311 132 82 17
  box "Control", 13, 231 197 83 133
  button "Unload", 14, 239 212 65 25
  button "Delete", 15, 239 299 65 25
  button "View Script", 16, 239 269 65 25
  button "Load Script", 17, 240 241 63 25
  link "www.XeroCreative.Com", 18, 250 330 129 17
  button "Refresh", 19, 9 6 398 25
  button "Exit", 20, 320 203 90 122
}
;#### Dialog Coding
on *:dialog:SM:SCLICK:*: {
  if ($did == 1) {
    var %Name $did(1).seltext
    var %Size $file($Script($Did(1).seltext)).size  
    var %Lines $lines($script($did(1).Seltext))
    var %LastMod $file($Script($Did(1).seltext)).mtime 
    var %created $file($Script($Did(1).seltext)).ctime
    did -a $dname 8 %Name
    did -a $dname 9 $bytes(%size,k) KB
    did -a $dname 10 %lines
    did -a $dname 11 $Gettok($asctime(%Created),1-3,32)
    did -a $dname 12 $Gettok($asctime(%lastMod),1-3,32)
  }
  if ($did == 14) {
    .unload -rs $did(1).seltext
    showscript
  }
  if ($did == 15) {
    var %x $?!="You Sure You Want To Unload This File and Delete It?"
    if (%x == $True) { 
      remove $qt($script($did(1).seltext)) 
      unload -rs $did(1).seltext
      dialog -v SM SM
      ShowScript
    }
    else { 
      halt
    }
  }
  if ($did == 16) {
    .run notepad.exe $qt($Script($did(1).seltext))
  }
  if ($did == 17) {
    var %x $qt($sfile(dir))
    .load -rs %x
    dialog -v SM SM
    showscript
  }
  if ($did == 19) {
    ShowScript
  }
  if ($did == 20) {
    dialog -x SM SM
  }
}
;#### End Script Manager

Comments

Sign in to comment.
Jethro   -  Oct 14, 2011

Your biological clock never stops ticking and time flies! People get old, sick and die. That's the facts of life.

 Respond  
HeatedHeart   -  Oct 14, 2011

i havent even downloaded mirc yet. haha. but holy crap 7.22? i left when it was like 6.0

 Respond  
jaytea   -  Oct 14, 2011

check out versions.txt ;)

 Respond  
HeatedHeart   -  Oct 14, 2011

bump after 2 years... so how much has mirc changed since ive dissapeared?

 Respond  
PATX   -  Aug 13, 2009

no ur coding is fine. its just not awesome. nobodys is.

 Respond  
HeatedHeart   -  Aug 12, 2009

Again. my coding is bad? :/ k w/e ill take what ever comments i can get

 Respond  
PATX   -  Aug 12, 2009
HeatedHeart   -  Aug 12, 2009

bump... ;~;

 Respond  
HeatedHeart   -  Aug 11, 2009

fixed the /run error

 Respond  
Tamaki   -  Aug 11, 2009

XD, good script
i used the 'idea' behind it in Staff Bot 4...so thanks <3

 Respond  
HeatedHeart   -  Aug 11, 2009

Bump... yeah im bumping this in the same day >:[

 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.