API tools faq
paste
Advertisement
pony

scriptloader

pony
Mar 31st, 2020
123
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.56 KB | None | 0 0
raw download clone embed print report
  1. menu * {
  2. Script Loader:/echo -a Please Hold For Files Info | /Sloader | echo -a Loaded Into Dialog
  3. }
  4.  
  5. alias SLoader {
  6. if !%Sloader.x { %Sloader.x = -1 | %Sloader.y = -1 }
  7. if !%ScriptLoader.filetypes { %ScriptLoader.filetypes = mrc mud }
  8. if !$dialog(Sloader) { dialog -m Sloader Sloader }
  9. }
  10. dialog SLoader {
  11. size %Sloader.x %Sloader.y 275 278
  12. option dbu
  13. list 1, 1 38 122 186, size
  14. list 2, 152 38 122 186, size
  15. button "Load", 3, 126 43 23 12
  16. button "Unload", 4, 126 61 23 12
  17. text "Scripts Not Loaded", 5, 2 6 120 8, center
  18. text "Loaded Scripts", 6, 153 6 120 8, center
  19. button "Edit File", 7, 126 124 23 12
  20. button "Reload Everthing", 8, 114 22 46 12
  21. text "Path of Script:", 9, 4 230 39 8
  22. text "Rename Script:", 10, 4 241 40 8
  23. text "-", 11, 54 230 180 8, center
  24. edit "", 12, 54 240 145 10
  25. button "Rename", 13, 203 240 28 10
  26. text "File Size:", 14, 4 257 69 8
  27. text "Lines of Code:", 15, 4 267 60 8
  28. text "File Attr:", 16, 76 257 78 8
  29. text "Created:", 17, 67 267 94 8
  30. button "Delete", 18, 126 192 23 12
  31. text "Total Lines:", 19, 162 17 103 8, center
  32. text "Total Lines:", 20, 8 17 103 8, center
  33. text "Total Size:", 21, 8 28 103 8, center
  34. text "Total Size:", 22, 162 28 103 8, center
  35. text "Extension:", 23, 157 257 36 8
  36. text "-", 24, 198 257 22 8, center
  37. text "Extension:", 25, 165 267 28 8
  38. button "Add", 26, 231 267 20 8
  39. edit "", 27, 197 266 33 10, center
  40. button "Del", 28, 253 267 20 8
  41. }
  42. on *:dialog:SLoader:*:*: {
  43. if $devent == close {
  44. unset %load.suf %unload.suf
  45. }
  46. if $devent == mouse {
  47. %Sloader.x = $dialog($dname).x
  48. %Sloader.y = $dialog($dname).y
  49. }
  50. if $devent == init {
  51. if $did == 0 {
  52. reload
  53. }
  54. }
  55. if $devent == sclick {
  56. if $did == 1 {
  57. did -e $dname 3,7,12,18
  58. did -b $dname 4,13
  59. did -u $dname 2
  60. did -r $dname 12
  61. did -ra $dname 11 $remove($findfile($mircdir,$did($dname,1).seltext,1),$did($dname,1).seltext)
  62. did -ra $dname 16 File Attr: $replace($file($+($did($dname,11),$did($dname,1).seltext)).attr,a,Archive)
  63. did -ra $dname 15 Lines of Code: $bytes($lines($+($did($dname,11),$did($dname,1).seltext)),b)
  64. did -ra $dname 14 File Size: $bytes($file($+($did($dname,11),$did($dname,1).seltext)).size).suf
  65. did -ra $dname 17 Created: $asctime($file($+($did($dname,11),$did($dname,1).seltext)).ctime)
  66. did -ra $dname 24 $gettok($did($dname,1).seltext,2,46)
  67. }
  68. if $did == 2 {
  69. did -e $dname 4,7,12,18
  70. did -b $dname 3,13
  71. did -u $dname 1
  72. did -r $dname 12
  73. did -ra $dname 11 $remove($script($did($dname,2).seltext),$did($dname,2).seltext)
  74. did -ra $dname 16 File Attr: $replace($file($script($did($dname,2).seltext)).attr,a,Archive)
  75. did -ra $dname 15 Lines of Code: $bytes($lines($script($did($dname,2).seltext)),b)
  76. did -ra $dname 14 File Size: $bytes($file($script($did($dname,2).seltext)).size).suf
  77. did -ra $dname 17 Created: $asctime($file($script($did($dname,2).seltext)).ctime)
  78. if $+($did($dname,11),$did($dname,2).seltext) == $script { did -b $dname 4,7,12,18 }
  79. did -ra $dname 24 $gettok($did($dname,2).seltext,2,46)
  80. }
  81. if $did == 3 {
  82. did -ra $dname 21 Total Size: $bytes($calc(%unload.suf - $file($+($did($dname,11),$did($dname,1).seltext).suf))).suf
  83. did -ra $dname 22 Total Size: $bytes($calc(%load.suf + $file($+($did($dname,11),$did($dname,1).seltext).suf))).suf
  84. did -ra $dname 19 Total Lines: $bytes($calc($remove($gettok($did($dname,19),3,32),$chr(44)) + $gettok($did($dname,15),4,32)),b)
  85. did -ra $dname 20 Total Lines: $bytes($calc($remove($gettok($did($dname,20),3,32),$chr(44)) - $gettok($did($dname,15),4,32)),b)
  86. did -a $dname 2 $did($dname,1).seltext
  87. did -ra $dname 5 UnLoaded Scripts: $calc($gettok($did($dname,5),3,32) - 1)
  88. did -ra $dname 6 Loaded Scripts: $calc($gettok($did($dname,6),3,32) + 1)
  89. load -rs $+(",$did($dname,11),$did($dname,1).seltext,")
  90. did -d $dname 1 $did($dname,1).sel
  91. did -b $dname 3,4,7,13,12,18
  92. did -ra $dname 14 File Size: -
  93. did -ra $dname 15 Lines of Code: -
  94. did -ra $dname 16 File Attr: -
  95. did -ra $dname 17 Created: -
  96. did -ra $dname 11,24 -
  97. }
  98. if $did == 4 {
  99. did -ra $dname 21 Total Size: $bytes($calc(%unload.suf + $file($+($did($dname,11),$did($dname,1).seltext).suf))).suf
  100. did -ra $dname 22 Total Size: $bytes($calc(%load.suf - $file($+($did($dname,11),$did($dname,1).seltext).suf))).suf
  101. did -ra $dname 19 Total Lines: $bytes($calc($remove($gettok($did($dname,19),3,32),$chr(44)) - $gettok($did($dname,15),4,32)),b)
  102. did -ra $dname 20 Total Lines: $bytes($calc($remove($gettok($did($dname,20),3,32),$chr(44)) + $gettok($did($dname,15),4,32)),b)
  103. did -a $dname 1 $did($dname,2).seltext
  104. did -ra $dname 5 UnLoaded Scripts: $calc($gettok($did($dname,5),3,32) + 1)
  105. did -ra $dname 6 Loaded Scripts: $calc($gettok($did($dname,6),3,32) - 1)
  106. unload -rs $+(",$did($dname,11),$did($dname,2).seltext,")
  107. did -d $dname 2 $did($dname,2).sel
  108. did -b $dname 3,4,7,13,12,18
  109. did -ra $dname 14 File Size: -
  110. did -ra $dname 15 Lines of Code: -
  111. did -ra $dname 16 File Attr: -
  112. did -ra $dname 17 Created: -
  113. did -ra $dname 11,24 -
  114. }
  115. if $did == 7 {
  116. if $did($dname,1).seltext {
  117. run notepad.exe $+(",$did($dname,11),$did($dname,1).seltext,")
  118. }
  119. else {
  120. run notepad.exe $+(",$script($did($dname,2).seltext),")
  121. }
  122. }
  123. if $did == 8 {
  124. did -r $dname 1,2,5,6
  125. unset %unload.suf %load.suf
  126. reload
  127. }
  128. if $did == 13 {
  129. if $did($dname,1).seltext {
  130. rename $+(",$did($dname,11),$did($dname,1).seltext,") $+(",$did($dname,11),$did($dname,12),")
  131. did -o $dname 1 $did($dname,1).sel $did($dname,12)
  132. }
  133. else {
  134. unload -rs $+(",$did($dname,11),$did($dname,2).seltext,")
  135. rename $+(",$did($dname,11),$did($dname,2).seltext,") $+(",$did($dname,11),$did($dname,12),")
  136. did -o $dname 2 $did($dname,2).sel $did($dname,12)
  137. load -rs $+(",$did($dname,11),$did($dname,12),")
  138. }
  139. did -b $dname 3,4,7,13,12,18
  140. did -ra $dname 14 File Size: -
  141. did -ra $dname 15 Lines of Code: -
  142. did -ra $dname 16 File Attr: -
  143. did -ra $dname 17 Created: -
  144. if $filesleft($did($dname,24)) == 0 { set %ScriptLoader.filetypes $remove(%ScriptLoader.filetypes,$did($dname,24)) }
  145. did -ra $dname 11,24 -
  146. var %x = 1
  147. while %x <= $numtok(%ScriptLoader.filetypes,32) {
  148. if $gettok(%ScriptLoader.filetypes,%x,32) == $gettok($did($dname,12),2,46) {
  149. goto sloaderend
  150. }
  151. inc %x
  152. }
  153. %ScriptLoader.filetypes = %ScriptLoader.filetypes $gettok($did($dname,12),2,46)
  154. did -r $dname 1,2,5,6
  155. unset %unload.suf %load.suf
  156. reload
  157. :sloaderend
  158. did -r $dname 12
  159. }
  160. if $did == 18 {
  161. if $did($dname,1).seltext {
  162. did -ra $dname 21 Total Size: $bytes($calc(%unload.suf - $file($+($did($dname,11),$did($dname,1).seltext).suf))).suf
  163. remove $+(",$did($dname,11),$did($dname,1).seltext,")
  164. did -d $dname 1 $did($dname,1).sel
  165. did -ra $dname 5 UnLoaded Scripts: $calc($gettok($did($dname,5),3,32) - 1)
  166. did -u $dname 1
  167. }
  168. else {
  169. did -ra $dname 22 Total Size: $bytes($calc(%load.suf - $file($+($did($dname,11),$did($dname,2).seltext).suf))).suf
  170. unload -rs $+(",$did($dname,11),$did($dname,2).seltext,")
  171. remove $+(",$did($dname,11),$did($dname,2).seltext,")
  172. did -d $dname 2 $did($dname,2).sel
  173. did -ra $dname 6 Loaded Scripts: $calc($gettok($did($dname,6),3,32) - 1)
  174. did -u $dname 2
  175. }
  176. did -b $dname 3,4,7,13,12,18
  177. did -ra $dname 14 File Size: -
  178. did -ra $dname 15 Lines of Code: -
  179. did -ra $dname 16 File Attr: -
  180. did -ra $dname 17 Created: -
  181. if $filesleft($did($dname,24)) == 0 { set %ScriptLoader.filetypes $remove(%ScriptLoader.filetypes,$did($dname,24)) }
  182. did -ra $dname 11,24 -
  183. }
  184. if $did == 26 {
  185. var %x = 1
  186. while %x <= $numtok(%ScriptLoader.filetypes,32) {
  187. if $gettok(%ScriptLoader.filetypes,%x,32) == $did($dname,27) {
  188. goto sloaderend3
  189. }
  190. inc %x
  191. }
  192. %ScriptLoader.filetypes = %ScriptLoader.filetypes $did($dname,27)
  193. did -r $dname 1,2,5,6
  194. unset %unload.suf %load.suf
  195. reload
  196. :sloaderend3
  197. did -r $dname 27
  198. }
  199. if $did == 28 {
  200. %ScriptLoader.filetypes = $remove(%ScriptLoader.filetypes,$did($dname,27))
  201. did -r $dname 27
  202. did -r $dname 1,2,5,6
  203. unset %unload.suf %load.suf
  204. reload
  205. }
  206. }
  207. if $devent == edit {
  208. if $did == 12 {
  209. if $exists($+(",$did($dname,11),$did($dname,12),")) || $gettok($did($dname,12),0,46) != 2 {
  210. did -b $dname 13
  211. }
  212. if !$exists($+(",$did($dname,11),$did($dname,12),")) && $gettok($did($dname,12),0,46) == 2 {
  213. did -e $dname 13
  214. }
  215. }
  216. if $did == 27 {
  217. if $len($did($dname,27)) > 0 { did -e $dname 26,28 }
  218. else { did -b $dname 26,28 }
  219. if $did($dname,27) !isalpha {
  220. did -ra $dname 27 $left($did($dname,27),$calc($len($did($dname,27))-1))
  221. }
  222. }
  223. }
  224. }
  225. alias -l reload {
  226. var %x = 1
  227. while %x <= $numtok(%ScriptLoader.filetypes,32) {
  228. loading $gettok(%ScriptLoader.filetypes,%x,32)
  229. inc %x
  230. }
  231. did -ra $dname 5 UnLoaded Scripts: %unload
  232. did -ra $dname 20 Total Lines: $bytes(%unload.lines,b)
  233. did -ra $dname 6 Loaded Scripts: %load
  234. did -ra $dname 19 Total Lines: $bytes(%load.lines,b)
  235. did -ra $dname 21 Total Size: $bytes(%unload.suf).suf
  236. did -ra $dname 22 Total Size: $bytes(%load.suf).suf
  237. unset %load %load.lines %unload %unload.lines
  238. did -b $dname 3,4,7,13,12,18,26,28
  239. did -ra $dname 14 File Size: -
  240. did -ra $dname 15 Lines of Code: -
  241. did -ra $dname 16 File Attr: -
  242. did -ra $dname 17 Created: -
  243. }
  244. alias -l FilesLeft {
  245. return $findfile($mircdir,$+(*.,$1),0)
  246. }
  247. alias -l Loading {
  248. var %xx = $findfile($mircdir,*. $+ $1,0)
  249. var %x = 1
  250. while %x <= %xx {
  251. var %script = $findfile($mircdir,*. $+ $1,%x)
  252. if $script($gettok($findfile($mircdir,*. $+ $1,%x),$gettok($findfile($mircdir,*. $+ $1,%x),0,92),92)) {
  253. did -a $dname 2 $nopath(%script)
  254. inc %load.lines $lines(%script)
  255. inc %load
  256. inc %load.suf $file(%script).size
  257. }
  258. else {
  259. did -a $dname 1 $nopath(%script)
  260. inc %unload
  261. inc %unload.lines $lines(%script)
  262. inc %unload.suf $file(%script).size
  263. }
  264. inc %x
  265. }
  266. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!