API tools faq
paste
Guest User

Untitled

a guest
Jul 30th, 2018
109
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 49.66 KB | None | 0 0
raw download clone embed print report
  1. ; auto identify
  2.  
  3. dialog identi {
  4. title "Auto identify"
  5. size -1 -1 151 63
  6. option dbu
  7. text "Username:", 1, 7 5 26 8
  8. text "Password:", 2, 7 16 26 8
  9. list 3, 6 37 138 25, size
  10. edit "", 4, 35 4 69 10, autohs
  11. edit "", 5, 35 15 69 10, autohs
  12. button "Add", 6, 120 3 23 12
  13. check "Enable auth on connect", 8, 7 25 75 11
  14. button "Close", 7, 120 17 23 12, ok
  15. text "Double click on the list to remove.", 9, 7 56 82 8
  16. }
  17.  
  18. ; auto join channels
  19.  
  20. dialog jchannels {
  21. title "Auto join channels"
  22. size -1 -1 150 86
  23. option dbu
  24. text "Channel:", 1, 8 5 26 8
  25. list 2, 7 25 107 54, size
  26. edit "", 3, 35 4 79 10, autohs
  27. button "Add", 4, 120 3 23 12
  28. button "Remove", 5, 120 15 23 12
  29. button "Clear", 6, 120 27 23 12
  30. button "OK", 7, 120 39 23 13
  31. check "Enable join channels on connect", 8, 8 14 88 11
  32. }
  33.  
  34. ; main dialog
  35.  
  36. dialog Main {
  37. title "Main dialog"
  38. size -1 -1 178 197
  39. option dbu
  40. icon 2, 5 6 50 50, $longfn(icons\mp3.png), noborder
  41. icon 3, 63 6 50 50, $longfn(icons\friend.png), noborder
  42. icon 4, 121 6 50 50, $longfn(icons\info.png), noborder
  43. icon 5, 5 68 50 50, $longfn(icons\enemy.png), noborder
  44. icon 6, 63 68 50 50, $longfn(icons\search.png), noborder
  45. icon 7, 121 68 50 50, $longfn(icons\scan.png), noborder
  46. icon 8, 5 130 50 50, $longfn(icons\red.png), noborder
  47. icon 9, 63 130 50 50, $longfn(icons\green.png), noborder
  48. icon 10, 121 130 50 50, $longfn(icons\blue.png), noborder
  49. icon 1, -2 -2 250 200, $longfn(icons\black.jpg), 0, noborder bottom
  50. icon 20, 5 6 50 50, $longfn(icons\mp3.png), noborder
  51. icon 21, 63 6 50 50, $longfn(icons\friend.png), noborder
  52. icon 22, 121 6 50 50, $longfn(icons\info.png), noborder
  53. icon 23, 5 68 50 50, $longfn(icons\enemy.png), noborder
  54. icon 24, 63 68 50 50, $longfn(icons\search.png), noborder
  55. icon 25, 121 68 50 50, $longfn(icons\scan.png), noborder
  56. icon 26, 5 130 50 50, $longfn(icons\red.png), noborder
  57. icon 27, 63 130 50 50, $longfn(icons\green.png), noborder
  58. icon 28, 121 130 50 50, $longfn(icons\blue.png), noborder
  59. edit "Mp3 Player", 11, 5 58 52 10, read center
  60. edit "Friends List", 12, 63 58 52 10, read center
  61. edit "Infoline", 13, 121 58 52 10, read center
  62. edit "Enemies List", 14, 5 120 52 10, read center
  63. edit "Nick Searcher", 15, 63 120 52 10, read center
  64. edit "Calculator", 16, 121 120 52 10, read center
  65. edit "CloneX", 17, 5 182 52 10, read center
  66. edit "Auto Identify", 18, 63 182 52 10, read center
  67. edit "Auto Join Channels", 19, 121 182 52 10, read center
  68.  
  69. }
  70.  
  71. ; system info
  72.  
  73. alias -l allinfo {
  74. $1- 04S14ystem 04I14nfo: $cpuinfo $osinfo $videoinfo $moboinfo
  75. $1- 04S14ystem 04I14nfo: $netinfo $diskinfo
  76. }
  77. alias -l cpuinfo {
  78. .comopen Processor WbemScripting.SWbemLocator
  79. if (!$comerr) {
  80. if ($com(Processor, ConnectServer, 3, dispatch* Specs)) {
  81. if ($com(Specs, Get, 3, string, Win32_Processor.DeviceID='CPU0', dispatch* Results)) {
  82. var %manufacturer, %name, %caption, %clockspeed, %load, %architecture
  83. if ($com(Results, Manufacturer, 3)) { %manufacturer = $com(Results).result }
  84. if ($com(Results, Name, 3)) { %name = $com(Results).result }
  85. if ($com(Results, Caption, 3)) { %caption = $com(Results).result }
  86. if ($com(Results, CurrentClockSpeed, 3)) { %clockspeed = $com(Results).result }
  87. if ($com(Results, LoadPercentage, 3)) { %load = $com(Results).result }
  88. if ($com(Results, Architecture, 3)) { %architecture = $com(Results).result }
  89. .comclose Results
  90. }
  91. .comclose Specs
  92. }
  93. .comclose Processor
  94. $iif($isid,return,$iif(# ischan,say,echo -a)) 04C14PU:04 %manufacturer %name %caption $+(%load,%) Load
  95. }
  96. else { echo -st Com Error $nopath($script) | .comclose Processor | return }
  97. }
  98. alias -l osinfo {
  99. if (!$com(Wbem.2)) { WbemOpen }
  100. var %TotalMemory 04T14otal 04M14emory:04 $round($calc($WbemGet(Win32_OperatingSystem,TotalVisibleMemorySize,1)/1024),2)
  101. var %FreeMemory 04A14vailable 04M14emory:04 $round($calc($WbemGet(Win32_OperatingSystem,FreePhysicalMemory,1)/1024),2)
  102. var %OSCaption 04O14S:04 $WbemGet(Win32_OperatingSystem,Caption,1)
  103. var %OSVersion $WbemGet(Win32_OperatingSystem,Version,1)
  104. var %OSArchitecture $WbemGet(Win32_OperatingSystem,OSArchitecture,1)
  105. if ($com(Wbem.2)) { .comclose Wbem.2 }
  106. $iif($isid,return,$iif(# ischan,say,echo -a)) %OSCaption %OSVersion %OSArchitecture 04U14ptime:04 $uptime(system,1) $+(%TotalMemory,MB) $+(%FreeMemory,MB)
  107. }
  108. alias -l moboinfo {
  109. if (!$com(Wbem.2)) { WbemOpen }
  110. var %Aname 04A14udio:04 $WbemGet(Win32_SoundDevice,Name,1)
  111. var %Description $WbemGet(Win32_BaseBoard,Description,1)
  112. var %Manufacturer $WbemGet(Win32_BaseBoard,Manufacturer,1)
  113. if ($com(Wbem.2)) { .comclose Wbem.2 }
  114. $iif($isid,return,$iif(# ischan,say,echo -a)) 04M14OBO:04 %Manufacturer %Description %Aname 
  115. }
  116. alias -l netinfo {
  117. if (!$com(Wbem.2)) { WbemOpen }
  118. var %BytesReceived $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,BytesReceivedPerSec,1)
  119. %BytesReceived = 04R14eceived:04 $bytes($calc(%BytesReceived + $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,BytesReceivedPerSec,2))).suf
  120. var %BytesSent $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,BytesSentPerSec,1)
  121. %BytesSent = 04S14ent:04 $bytes($calc(%BytesSent + $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,BytesSentPerSec,2))).suf
  122. var %BytesTotal $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,BytesTotalPerSec,1)
  123. %BytesTotal = 04T14otal:04 $bytes($calc(%BytesTotal + $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,BytesTotalPerSec,2))).suf
  124. var %Bandwidth $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,CurrentBandwidth,1)
  125. %Bandwidth = 04B14andwidth:04 $calc(%Bandwidth + $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,CurrentBandwidth,2)/100000)
  126. var %Name $WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,Name,1)
  127. %Name = $+(%Name,14/04,$WbemGet(Win32_PerfRawData_Tcpip_NetworkInterface,Name,2))
  128. if ($com(Wbem.2)) { .comclose Wbem.2 }
  129. $iif($isid,return,$iif(# ischan,say,echo -a)) 04N14etwork:04 %Name $+(%Bandwidth,KBps) %BytesReceived %BytesSent %BytesTotal 
  130. }
  131. alias -l videoinfo {
  132. if (!$com(Wbem.2)) { WbemOpen }
  133. var %Compatibility $WbemGet(Win32_VideoController,AdapterCompatibility,1)
  134. var %VideoProcessor $WbemGet(Win32_VideoController,VideoProcessor,1)
  135. var %AdapterRam $WbemGet(Win32_VideoController,AdapterRam,1)
  136. var %Horizontal $WbemGet(Win32_VideoController,currenthorizontalresolution,1)
  137. var %Vertical $WbemGet(Win32_VideoController,currentverticalresolution,1)
  138. var %Bits $WbemGet(Win32_VideoController,currentbitsperpixel,1)
  139. var %Refresh $WbemGet(Win32_VideoController,currentrefreshrate,1)
  140. if ($com(Wbem.2)) { .comclose Wbem.2 }
  141. $iif($isid,return,$iif(# ischan,say,echo -a)) 04V14ideo:04 %Compatibility %VideoProcessor $+($bytes(%AdapterRam,3),MB) $+(%Horizontal,x,%Vertical) $+(%Bits,bit) $+(%Refresh,Hz)
  142. }
  143. alias -l DiskInfo {
  144. var %d $disk(0),%total 0,%free 0,%result
  145. while (%d) {
  146. if ($disk(%d).size) {
  147. %total = $calc(%total + $disk(%d).size)
  148. %free = $calc(%free + $disk(%d).free)
  149. %result = %result 04I14D:04 $disk(%d).label $disk(%d).path 04T14ype:04 $disk(%d).type 04S14ize:04 $bytes($disk(%d).size,g3).suf 04F14ree:04 $bytes($disk(%d).free,g3).suf 
  150. }
  151. dec %d
  152. }
  153. $iif($isid,return,$iif(# ischan,say,echo -a)) %Result 04T14otal 04D14isk 04S14pace:04 $bytes(%Total,g3).suf 04T14otal 04S14pace 04F14ree:04 $bytes(%free,g3).suf 
  154. }
  155. alias -l WbemOpen {
  156. .comopen Wbem.1 WbemScripting.SWbemLocator
  157. .comclose Wbem.1 $com(Wbem.1,ConnectServer,3,dispatch* Wbem.2)
  158. }
  159. alias -l WbemGet {
  160. if ($com(Wbem.3)) { .comclose Wbem.3 }
  161. if ($com(Wbem.2,ExecQuery,3,bstr*,select $2 from $1,dispatch* Wbem.3)) { var %Result $comval(Wbem.3,$3,$2) }
  162. .comclose Wbem.3
  163. return %Result
  164. }
  165.  
  166. ; nick searcher
  167.  
  168. dialog nsearch {
  169. title "Nick searcher"
  170. size -1 -1 97 125
  171. option dbu
  172. text "Type nick:", 1, 5 4 25 8
  173. edit "", 2, 5 13 59 11, autohs
  174. list 3, 5 25 87 95, size
  175. button "Search", 4, 66 13 25 11
  176. }
  177. alias csear .remove nicks.txt | if ($did(nsearch,3).lines == 0) { did -a nsearch 3 There are no results | did -a nsearch 3 Try another wording of the nick }
  178.  
  179. ; calculator
  180.  
  181. dialog calcn {
  182. title "Calculator"
  183. size -1 -1 123 135
  184. option dbu
  185. edit "", 1, 8 18 108 10, read
  186. text "Calculator", 2, 0 6 123 8, center
  187. edit "", 3, 8 29 108 13, read, center
  188. button "Root", 4, 8 47 15 12
  189. button "^", 5, 26 47 15 12
  190. button "(", 6, 44 47 15 12
  191. button ")", 7, 63 47 15 12
  192. button "x²", 8, 82 47 15 12
  193. button "x³", 9, 101 47 15 12
  194. button "7", 36, 8 65 20 12
  195. button "8", 37, 30 65 20 12
  196. button "9", 38, 52 65 20 12
  197. button "DEL", 13, 74 65 20 12
  198. button "AC", 14, 96 65 20 12
  199. button "4", 33, 8 81 20 12
  200. button "5", 34, 30 81 20 12
  201. button "6", 35, 52 81 20 12
  202. button "X", 18, 74 81 20 12
  203. button "÷", 19, 96 81 20 12
  204. button "1", 30, 8 97 20 12
  205. button "2", 31, 30 97 20 12
  206. button "3", 32, 52 97 20 12
  207. button "+", 23, 74 97 20 12
  208. button "-", 24, 96 97 20 12
  209. button "0", 29, 8 113 20 12
  210. button ".", 26, 30 113 20 12
  211. button "EXP", 27, 52 113 20 12
  212. button "Ans", 28, 74 113 20 12
  213. button "=", 39, 96 113 20 12
  214. check "shift", 41, 1 1 15 10, push
  215. box "SHIFTS", 40, -4 125 129 13
  216. text "EXP-PI, AC-OFF/CLOSE", 42, 33 129 102 8
  217. }
  218.  
  219.  
  220.  
  221. ; infoline
  222.  
  223.  
  224. dialog Infoline {
  225. title "Infoline list"
  226. size -1 -1 104 188
  227. option dbu notheme
  228. box "Infoline users list", 1, 3 3 96 94
  229. list 2, 8 12 86 80, size
  230. button "Add user", 6, 52 152 47 10
  231. button "Delete user", 7, 52 163 47 10
  232. button "Clear users", 8, 52 174 47 10
  233. box "Infolines", 9, 3 100 96 46
  234. list 10, 8 109 86 32, size
  235. button "Add Infoline", 3, 3 152 47 10
  236. button "Delete Infoline", 4, 3 163 47 10
  237. button "Clear Infolines", 5, 3 174 47 10
  238. }
  239. dialog Infolineadd {
  240. title "Add Infoline user"
  241. size -1 -1 102 34
  242. option dbu notheme
  243. edit "", 1, 3 3 96 11, autohs
  244. button "Add", 2, 52 17 46 13, ok
  245. button "Close", 3, 3 17 46 13, ok
  246. }
  247. dialog Infoline2add {
  248. title "Add Infoline"
  249. size -1 -1 101 45
  250. option dbu notheme
  251. edit "", 1, 28 3 70 11, autohs read
  252. button "Add", 2, 52 29 46 13, ok
  253. button "Close", 3, 3 29 46 13, ok
  254. text "User:", 4, 4 4 18 8
  255. edit "", 5, 28 15 70 11, autohs
  256. text "Infoline:", 6, 4 16 21 8
  257. }
  258.  
  259. ; friendlist
  260.  
  261.  
  262. dialog Friends {
  263. title "Friends list"
  264. size -1 -1 102 137
  265. option dbu notheme
  266. box "Friends list", 1, 3 3 96 94
  267. list 2, 8 12 86 80, size
  268. box "Friend mode", 3, 3 99 44 35
  269. radio "Op", 5, 6 114 29 10
  270. radio "Voice", 4, 6 105 29 10
  271. radio "None", 9, 6 123 29 10
  272. button "Add friend", 6, 52 102 47 10
  273. button "Delete friend", 7, 52 113 47 10
  274. button "Clear friends", 8, 52 124 47 10
  275. }
  276. dialog friendadd {
  277. title "Add friend"
  278. size -1 -1 102 38
  279. option dbu notheme
  280. edit "", 1, 3 3 96 11, autohs
  281. button "Add", 2, 61 17 37 17, OK
  282. check "Voice", 3, 3 16 50 10
  283. check "Op", 4, 3 26 50 10
  284. }
  285.  
  286. ; blacklist
  287.  
  288. dialog artblist {
  289. title "Blacklist"
  290. size -1 -1 168 100
  291. option dbu
  292. list 1, 4 4 160 80, size
  293. button "Add user", 2, 5 85 52 10
  294. button "Delete user", 3, 58 85 52 10
  295. button "Clear users", 4, 111 85 52 10
  296. }
  297.  
  298. dialog artblist.add {
  299. title "Add user"
  300. size -1 -1 109 55
  301. option dbu
  302. text "User:", 1, 3 5 14 8
  303. edit "", 2, 28 4 77 11, autohs
  304. text "Reason:", 3, 3 18 21 8
  305. edit "", 4, 28 17 77 11, autohs
  306. button "Cancel", 6, 56 37 37 12,cancel
  307. button "Add", 5, 17 37 37 12,ok
  308. }
  309.  
  310. alias artblist {
  311. var %b = 1
  312. while (%b <= $ulist(*,artblist,0)) { var %bl = %bl $ulist(*,artblist,%b) | inc %b }
  313. return %bl
  314. }
  315.  
  316. ; mp3 player
  317.  
  318. alias rcon return $readini($+(",$scriptdirmp3con.ini,"),$1,$2-)
  319. alias wcon writeini $+(",$scriptdirmp3con.ini,") $1 $2 $3-
  320.  
  321. alias mp3cut return $iif($len($1-) > 47,$left($1-,47) $+ ...,$1-)
  322. alias mp3cf {
  323. var %z = $regsubex($nopath($insong.fname),/.[^.]+$/,$null)
  324. if ($gettok(%z,1,32) isnum) %z = $deltok(%z,$iif($gettok(%z,2,32) = -,1-2,1),32)
  325. return %z
  326. }
  327.  
  328. alias artist {
  329. var %p = $iif($mp3($insong.fname).artist,$ifmatch,$iif($gettok($sound($insong.fname,TPE1).tag,2-,254),$ifmatch,$sound($insong.fname,TPE1).tag))
  330. return $iif($count(%p,$chr(32)) > 10,$remove(%p,$chr(32)),%p)
  331. }
  332.  
  333. alias length return $gmt($iif($insong,$calc($mp3($insong.fname).length / 1000)),nn:ss)
  334. alias pos return $gmt($iif($insong,$calc($insong.pos /1000)),nn:ss)
  335.  
  336. alias mp3.loadinfo {
  337. if ($insong) {
  338. .did -ra mp3c 10 $mp3cut($mp3cf)
  339. .did -ra mp3c 7 $pos
  340. .did -ra mp3c 9 $length
  341. }
  342. }
  343.  
  344. alias mp3.seek {
  345. inc %insong.pos 1
  346. .did -c mp3c 11 %insong.pos
  347. .did -ra mp3c 7 $pos
  348. .did -ra mp3c 9 $length
  349. }
  350.  
  351. alias mp3.didcheck {
  352. if ($dialog(mp3c)) {
  353. var %t = $rcon(playsettings,end)
  354. elseif (%t = repeat) .did -c mp3c 39
  355. elseif (%t = shuffle) .did -c mp3c 40
  356. elseif (%t = none) .did -c mp3c 48
  357. }
  358. }
  359. alias resumesplay {
  360. var %vl = $iif(%vol,%vol,$vol(master))
  361. .timervol* off
  362. .vol -v 0
  363. .splay -p resume
  364. var %x = 1
  365. while (%x <= %vl) {
  366. $(.timervol $+ %x) -m 1 $calc(%x / 50) .vol -v %x
  367. inc %x 1000
  368. }
  369. did -g $dname 2 icons\pause.png
  370. did -g $dname 90 icons\pause.png
  371. .timermp3 -r
  372. did -c $dname 13 1 | did -c $dname 13 $hget(Song,NUM)
  373. }
  374. alias pausesplay {
  375. set -u5 %vol $vol(master)
  376. .timervol* off
  377. var %x = $vol(master)
  378. var %y = 1
  379. did -g $dname 2 icons\play.png
  380. did -g $dname 90 icons\play.png
  381. while (%x > 0) {
  382. $(.timervol $+ %y) -m 1 $calc(%y / 70) .vol -v %x
  383. dec %x $iif(%x < 1000,%x,1000)
  384. inc %y 1000
  385. }
  386. $(.timervola) -m 1 $calc((%y / 70) +1) .splay -p pause
  387. $(.timervolb) -m 1 $calc((%y / 70) +60) .vol -v %vol
  388. $(.timervolc) -m 1 $calc((%y / 70)) .timermp3 -p
  389. }
  390. alias -l quickstop {
  391. .timermp3 off
  392. $iif($dialog(mp3c),did -c mp3c 11 1)
  393. .unset %insong.pos
  394. }
  395. alias didsel return $gettok($did(mp3c,13).seltext,6-,32)
  396. alias didnext $iif($did(mp3c,13,$calc($hget(Song,NUM) +1)),return $gettok($did(mp3c,13,$calc($hget(Song,NUM) +1)),6-,32))
  397. alias didprev $iif($did(mp3c,13,$calc($hget(Song,NUM) -1)),return $gettok($did(mp3c,13,$calc($hget(Song,NUM) -1)),6-,32))
  398. ; SKIP/PREV/PLAY local command
  399.  
  400. alias -l spr {
  401. var %s = $read($+(",$scriptdirmp3cplaylist.play,"),w,$+(*,$iif(!$1,$didsel,$iif($1 == next,$didnext,$didprev)),*))
  402. if (%s) {
  403. .splay -p %s
  404. if ($did(mp3c,1).enabled != $true) .did -e mp3c 1
  405. mp3.loadinfo
  406. .did -z mp3c 11 1 $round($calc($mp3($insong.fname).length / 1000),0)
  407. .timermp3 0 1 mp3.seek
  408. }
  409. }
  410.  
  411. dialog mp3c {
  412. title "MP3 Player"
  413. size -1 -1 141 120
  414. option dbu
  415. icon 1, 2 93 25 25, $longfn(icons\prev.png) , noborder
  416. icon 96, 76 102 16 16, $longfn(icons\nonmute.png) , noborder
  417. icon 2, 27 93 25 25, $longfn(icons\play.png) , noborder
  418. icon 3, 52 93 25 25, $longfn(icons\next.png) , noborder
  419. icon 88, -2 -2 250 200, $longfn(icons\black.jpg), 0, noborder bottom
  420. icon 89, 2 93 25 25, $longfn(icons\prev.png) , noborder
  421. icon 90, 27 93 25 25, $longfn(icons\play.png) , noborder
  422. icon 91, 52 93 25 25, $longfn(icons\next.png) , noborder
  423. icon 95, 76 102 16 16, $longfn(icons\nonmute.png) , noborder
  424. list 13, 3 15 135 58, size
  425. scroll "", 61, 93 81 45 35, horizontal bottom range 0 100
  426. text "00:00", 7, 3 86 15 7, center
  427. text "00:00", 9, 124 86 15 7, center
  428. text "Standing by...", 10, 5 5 131 8, center
  429. scroll "", 11, 3 76 135 8, horizontal top
  430. menu "File", 20
  431. menu "Add", 19, 20
  432. item "File", 27, 19
  433. item "break", 28, 19
  434. item "Directory", 29, 19
  435. item "Remove selected", 21, 20
  436. menu "Playlist", 23
  437. item "Save Current", 12, 23
  438. item "break", 222, 23
  439. item "Load playlist", 14, 23
  440. item "break", 15, 23
  441. item "Clear", 16, 23
  442. menu "Mode",8
  443. item "Repeat", 39, 8
  444. item "Shuffle", 40, 8
  445. item "break", 37, 8
  446. item "None", 48, 8
  447. }
  448.  
  449. alias haddmp3 if ($mp3cf isin $1-) { hadd -m Song NOW $gettok($1-,1,9) | hadd -m Song NUM $gettok($1-,2,9) | did -g mp3c 2 icons\pause.png | did -g mp3c 90 icons\pause.png | did -c mp3c 13 1 | did -c mp3c 13 $hget(Song,NUM) }
  450.  
  451. ; encoding
  452.  
  453. dialog encoding {
  454. title "Chr encoding"
  455. size -1 -1 119 76
  456. option dbu
  457. edit "", 2, 17 6 80 12, autohs
  458. text "Text:", 3, 4 8 13 8
  459. button "Enter", 4, 98 6 16 12
  460. list 5, 3 22 112 50, size
  461. }
  462.  
  463. ; clones scanner
  464.  
  465. dialog cscan {
  466. title "Clones scan"
  467. size -1 -1 105 73
  468. option dbu
  469. text "IP Address:", 1, 4 20 33 8
  470. edit "", 2, 39 18 63 11, read autohs
  471. text "Clones num:", 3, 4 32 31 8
  472. edit "", 4, 39 30 13 11, read autohs center
  473. list 5, 4 44 98 26, size extsel
  474. text "Channel:", 7, 4 8 24 8
  475. edit "", 8, 39 6 63 11, read autohs
  476. }
  477. dialog scan {
  478. title "Clones scan"
  479. size -1 -1 230 109
  480. option dbu
  481. list 1, 1 1 228 107, size
  482. }
  483. alias scan {
  484. dialog -t scan Clones scan on $1
  485. var %k 1, %scannum 1
  486. while ($read(Scan.txt,%k)) {
  487. if ($ialchan($read(Scan.txt,%k),$1,0) >= 2) {
  488. var %x 1,%y 1
  489. var %nicks $null
  490. write ScanAd.txt $read(Scan.txt,%k)
  491. while (%x <= $ialchan($read(Scan.txt,%k),$1,0)) { write Scannicks.txt $gettok($ialchan($read(Scan.txt,%k),$1,%x),1,33) | %nicks = %nicks $gettok($ialchan($read(Scan.txt,%k),$1,%x),1,33) | inc %x }
  492. .timer -m 1 $calc(%scannum * 70) did -a scan 1 $read(Scan.txt,%k) $chr(9) $ialchan($read(Scan.txt,%k),$1,0) $chr(9) $replace(%nicks,$chr(32),•)
  493. inc %scannum
  494. }
  495. inc %k
  496. }
  497. .remove Scan.txt
  498. .remove Scannicks.txt
  499. .remove ScanAd.txt
  500. .timer -m 1 1 clines
  501. }
  502. alias clines $iif($did(scan,1).lines = 1,dialog -t scan There are no users that using the same ip (Clones),did -d scan 1 $did(scan,1).lines))
  503. RAW 352:*: if (!$read(Scan.txt,w,* $+ $4)) && (%who) write Scan.txt *!*@ $+ $4
  504. RAW 315:*: if (%who) { scan $active }
  505.  
  506. ; welcome
  507.  
  508. on *:dialog:*:*:*:{
  509. if ($dname == jchannels) {
  510. if ($devent == init) { dll mdx.dll MarkDialog $dname | dll mdx.dll SetControlMDX 2 listview report grid nosortheader rowselect flatsb > views.mdx | did -i $dname 2 1 headerdims 193 | did -i $dname 2 1 headertext Channels | var %j 1 | while ($gettok($readini(Lines.ini,Settings,jChannels),%j,44)) { did -a $dname 2 $v1 | inc %j } | $iif($readini(Lines.ini,Settings,jChannelsStatus),did -c $dname 8) }
  511. if ($devent == sclick) {
  512. if ($did == 4) && ($did(3)) && ($chr(32) !isin $did(3)) && ($chr(35) $+ * iswm $did(3)) && (!$istok($readini(Lines.ini,Settings,jChannels),$did(3),44)) { writeini Lines.ini Settings jChannels $addtok($readini(Lines.ini,Settings,jChannels),$did(3),44) | did -a $dname 2 $did(3) }
  513. if ($did == 5) && ($did(2).sel) { $iif($numtok($readini(Lines.ini,Settings,jChannels),44) == 1,remini Lines.ini Settings jChannels,writeini Lines.ini Settings jChannels $remtok($readini(Lines.ini,Settings,jChannels),$gettok($did(2).seltext,6-,32),1,44)) | did -d $dname 2 $did(2).sel }
  514. if ($did == 6) { remini Lines.ini Settings jChannels | did -r $dname 2 }
  515. if ($did == 8) { $iif($did(8).state,writeini Lines.ini Settings jChannelsStatus 1,remini Lines.ini Settings jChannelsStatus) }
  516. }
  517. }
  518. if ($dname == identi) {
  519. if ($devent == init) { dll mdx.dll MarkDialog $dname | dll mdx.dll SetControlMDX 3 listview report grid nosortheader rowselect flatsb > views.mdx | did -i $dname 3 1 headerdims 120 152 | did -i $dname 3 1 headertext Username $chr(9) Password | did -a $dname 3 $replace($readini(Lines.ini,Settings,Identify),$chr(32),$chr(9)) | $iif($readini(Lines.ini,Settings,IdentifyStatus),did -c $dname 8) }
  520. if ($devent == dclick) && ($did == 3) { remini Lines.ini Settings Identify | did -r $dname 3 }
  521. if ($devent == sclick) {
  522. if ($did == 6) && ($did(4)) && ($did(5)) && ($chr(32) !isin $did(4)) && ($chr(32) !isin $did(5)) { writeini Lines.ini Settings Identify $did(4) $did(5) | did -ra $dname 3 $+($did(4),$chr(9),$did(5)) }
  523. if ($did == 8) { $iif($did(8).state,writeini Lines.ini Settings IdentifyStatus 1,remini Lines.ini Settings IdentifyStatus) }
  524. }
  525. }
  526. if ($dname == scan) && ($devent == init) { dll mdx.dll MarkDialog $dname | dll mdx.dll SetControlMDX 1 listview report grid nosortheader rowselect flatsb > views.mdx | did -i $dname 1 1 headerdims 200 30 205 | did -i $dname 1 1 headertext Address $chr(9) $chr(9) Nicks }
  527. if ($dname == encoding) && ($devent == sclick) && ($did(2)) { var %p = $regsubex($did(2),/(.)/g,$ $+ chr( $+ $asc(\1) $+ ) $+ $chr(44)) | did -a $dname 5 $ $+ +( $+ $left(%p,-1) $+ ) | editbox -a $ $+ +( $+ $left(%p,-1) $+ ) | clipboard $+ +( $+ $left(%p,-1) $+ ) }
  528. if ($dname == Main) && ($devent == sclick) {
  529. if ($did == 2) dialog $iif($dialog(mp3c),-v,-md) mp3c mp3c
  530. if ($did == 3) dialog $iif($dialog(friends),-v,-m) friends friends
  531. if ($did == 4) dialog $iif($dialog(Infoline),-v,-m) Infoline Infoline
  532. if ($did == 5) dialog $iif($dialog(artblist),-v,-m) artblist artblist
  533. if ($did == 6) dialog $iif($dialog(nsearch),-v,-m) nsearch nsearch
  534. if ($did == 7) dialog $iif($dialog(calcn),-v,-md) calcn calcn
  535. if ($did == 8) clonex
  536. if ($did == 9) dialog $iif($dialog(identi),-v,-m) identi identi
  537. if ($did == 10) dialog $iif($dialog(jchannels),-v,-m) jchannels jchannels
  538. }
  539. if ($dname == nsearch) {
  540. if ($devent == init) { dll mdx.dll MarkDialog $dname | dll mdx.dll SetControlMDX 3 listview report grid nosortheader rowselect flatsb > views.mdx | did -i $dname 3 1 headerdims 153 | did -i $dname 3 1 headertext Results }
  541. if ($devent == sclick) && ($did == 4) {
  542. did -r $dname 3
  543. if ($did(2)) {
  544. var %x 1
  545. while (%x <= $chan(0)) {
  546. var %y 1
  547. while (%y <= $nick($chan(%x),0)) {
  548. if ($did(2) isin $nick($chan(%x),%y)) && (!$read(nicks.txt,w,$nick($chan(%x),%y))) { write nicks.txt $nick($chan(%x),%y) | did -a $dname 3 $nick($chan(%x),%y) }
  549. inc %y
  550. }
  551. inc %x
  552. }
  553. }
  554. else did -a $dname 3 Error: please type a nick.
  555. csear
  556. }
  557. elseif ($devent == dclick) && ($did == 3) { query $gettok($did(3).seltext,6-,32) }
  558. }
  559.  
  560. if ($dname == calcn) {
  561. if ($devent == sclick) {
  562. var %a $iif($len($calc($replace($gettok($did(1),$numtok($did(1),32),61),Pi,3.14159265,E,10^,Ans,%ans,÷,/,X,*,²,^2,³,^3))) >= 27,*ERROR*,$calc($replace($gettok($did(1),$numtok($did(1),32),61),Pi,3.14159265,E,10^,Ans,%ans,÷,/,X,*,²,^2,³,^3)))
  563. if ($did isnum 29-38) { did -a $dname 1 $calc($did - 29) }
  564. elseif ($did == 4) { did -ra $dname 3 $sqrt(%a) | set %ans $sqrt(%a) }
  565. elseif ($did == 26) { did -a $dname 1 . }
  566. elseif ($did == 27) { if ($did(41).state) did -a $dname 1 Pi | else did -a $dname 1 E }
  567. elseif ($did == 13) { did -ra $dname 1 $left($did(1),-1) }
  568. elseif ($did == 14) { if ($did(41).state) dialog -x calcn | else { did -r $dname 1 | did -r $dname 3 } }
  569. elseif ($did == 18) { did -a $dname 1 X }
  570. elseif ($did == 19) { did -a $dname 1 ÷ }
  571. elseif ($did == 5) { did -a $dname 1 ^ }
  572. elseif ($did == 8) { did -a $dname 1 ² }
  573. elseif ($did == 28) && (%ans) { did -a $dname 1 Ans }
  574. elseif ($did == 9) { did -a $dname 1 ³ }
  575. elseif ($did == 6) { did -a $dname 1 ( }
  576. elseif ($did == 7) { did -a $dname 1 ) }
  577. elseif ($did == 23) { did -a $dname 1 + }
  578. elseif ($did == 24) { did -a $dname 1 - }
  579. elseif ($did == 39) { did -ra $dname 3 %a | did -a $dname 1 = %a | set %ans %a }
  580. if ($did isnum 4-39) { did -u $dname 41 }
  581. }
  582. elseif ($devent == close) { unset %ans }
  583. }
  584. if ($dname == Infoline) {
  585. if ($devent == sclick) {
  586. var %1 $gettok($did(2).seltext,6-,32),%2 $gettok($did(10).seltext,6-,32)
  587. if ($did == 5 && %1) { remini Lines.ini Infoline %1 | did -r $dname 10 }
  588. if ($did == 4 && %1 && %2) {
  589. did -d $dname 10 $did($dname,10).sel
  590. if ($numtok($readini(Lines.ini,Infoline,%1),92) == 1) { remini Lines.ini Infoline %1 }
  591. else { writeini Lines.ini Infoline %1 $remtok($readini(Lines.ini,Infoline,%1),%2,1,92) }
  592. }
  593. if ($did == 3) && (%1) { dialog -m Infoline2add Infoline2add | did -a Infoline2add 1 %1 }
  594. if ($did == 2) { did -r $dname 10 | var %x = 1 | while (%x <= $numtok($readini(Lines.ini,Infoline,%1),92)) { did -a $dname 10 $gettok($readini(Lines.ini,Infoline,%1),%x,92) | inc %x }
  595. }
  596. if ($did == 6) { dialog -m Infolineadd Infolineadd }
  597. if ($did == 7) && (%1) {
  598. if ($?!="Are you sure?") {
  599. if ($numtok($readini(Lines.ini,Infoline,Infoline),32) == 1) { remini Lines.ini Infoline Infoline }
  600. else { writeini Lines.ini Infoline Infoline $remtok($readini(Lines.ini,Infoline,Infoline),%1,1,32) | echo -a remini Lines.ini Infoline %1 }
  601. did -d $dname 2 $did($dname,2).sel
  602. did -r $dname 10
  603. }
  604. }
  605. if ($did == 8) { .remini Lines.ini Infoline | did -r $dname 2,10 }
  606. }
  607. if ($devent == init) { dll mdx.dll MarkDialog $dname | dll mdx.dll SetControlMDX 2 listview report grid nosortheader rowselect flatsb > views.mdx | dll mdx.dll SetControlMDX 10 listview report grid nosortheader rowselect flatsb > views.mdx | did -i $dname 2,10 1 headerdims 168 | did -i $dname 2 1 headertext Users | did -i $dname 10 1 headertext Infolines | var %x = 1 | while (%x <= $numtok($readini(Lines.ini,Infoline,Infoline),32)) { did -a $dname 2 $gettok($readini(Lines.ini,Infoline,Infoline),%x,32) | inc %x } }
  608. }
  609. if ($dname == Infolineadd) && ($devent == sclick) && ($did == 2 && $did(1)) {
  610. if ($iif($gettok($gettok($did(1),1,46),2,64) !== $null,$gettok($gettok($did(1),1,46),2,64),$did(1)) !isin $readini(Lines.ini,Infoline,Infoline) || $did(1) !isin $readini(Lines.ini,Infoline,Infoline)) { did -a Infoline 2 $did(1) | writeini Lines.ini Infoline Infoline $addtok($readini(Lines.ini,Infoline,Infoline),$iif($gettok($gettok($did(1),1,46),2,64) !== $null,$gettok($gettok($did(1),1,46),2,64),$did(1)),32)
  611. dialog -x $dname $dname
  612. }
  613. }
  614. if ($dname == Infoline2add) && ($devent == sclick) && ($did == 2) && ($did(1)) && ($did(5)) { writeini Lines.ini Infoline $did(1) $addtok($readini(Lines.ini,Infoline,$did(1)),$did(5),92) | did -a Infoline 10 $did(5) | dialog -x $dname $dname }
  615. if ($dname == Friends) {
  616. if ($devent == sclick) {
  617. var %1 $gettok($did(2).seltext,6-,32)
  618. if ($istok(4 5 9,$did,32)) && (%1) {
  619. if ($did(9).state) { remini Lines.ini friends %1 }
  620. else { writeini Lines.ini friends %1 $replace($did,5,Op,4,Voice) }
  621. }
  622. if ($did == 2) {
  623. did -e $dname 4,5,9
  624. $iif($readini(Lines.ini,Friends,%1),did -c $dname $replace($v1,Op,5,Voice,4),did -c $dname 9)
  625. }
  626. if ($Did == 6) { dialog -m friendadd friendadd }
  627. if ($did == 7) && (%1) {
  628. var %g = %1 | did -ub $dname 4 | did -ub $dname 5
  629. if ($?!="Are you sure?") {
  630. if ($numtok($readini(Lines.ini,friends,friends),32) == 1) { remini Lines.ini friends friends }
  631. else { writeini Lines.ini friends friends $remtok($readini(Lines.ini,friends,friends),%g,1,32) }
  632. did -d $dname 2 $did($dname,2).sel
  633. }
  634. }
  635. if ($Did == 8) { .remini Lines.ini friends | did -bu $dname 4,5,9 }
  636. }
  637. if ($devent == init) { dll mdx.dll MarkDialog $dname | dll mdx.dll SetControlMDX 2 listview report grid nosortheader rowselect flatsb > views.mdx | did -i $dname 2 1 headerdims 168 | did -i $dname 2 1 headertext Users | did -b $dname 4,5,9 | var %x = 1 | while (%x <= $numtok($readini(Lines.ini,friends,Friends),32)) { did -a $dname 2 $gettok($readini(Lines.ini,friends,friends),%x,32) | inc %x } }
  638. }
  639. if ($dname == friendadd) {
  640. if ($devent == sclick) {
  641. if ($did == 2 && $did(1)) {
  642. did -a friends 2 $did(1) | writeini Lines.ini friends Friends $addtok($readini(Lines.ini,friends,Friends),$iif($gettok($gettok($did(1),1,46),2,64) !== $null,$gettok($gettok($did(1),1,46),2,64),$did(1)),32)
  643. if ($did(3).state) || ($did(4).state == 1) {
  644. if ($did(4).state) { writeini Lines.ini friends $iif(@ isin $did(1),$gettok($did(1),2,64),$did(1)) Op }
  645. else { writeini Lines.ini friends $iif(@ isin $did(1),$gettok($did(1),2,64),$did(1)) Voice }
  646. }
  647. }
  648. }
  649. }
  650. if (artblist* iswm $dname) {
  651. if ($dname == artblist) {
  652. if ($devent == init) {
  653. dll mdx.dll MarkDialog $dname
  654. dll mdx.dll SetControlMDX 1 listview report grid nosortheader rowselect flatsb > views.mdx
  655. did -i $dname 1 1 headerdims 158 158
  656. did -i $dname 1 1 headertext User $chr(9) Reason
  657. var %x = 1 | while (%x <= $numtok($artblist,32)) { var %u $gettok($artblist,%x,32) | did -a $dname 1 %u $chr(9) $ulist(%u).info | inc %x }
  658. }
  659. if ($devent == sclick) {
  660. var %k $remove($did($dname,1).seltext,0 +fs 0 0 0,$did($dname,1).seltext,+fs 0 0 0,$did($dname,1).seltext,$chr(9))
  661. var %1 $gettok(%k,1,32), %2 $gettok(%k,2,32)
  662. if ($did == 2) { dialog $iif($dialog(artblist.add),-x,-m) artblist.add artblist.add }
  663. elseif ($did == 3) && ($did($dname,1).seltext) {
  664. if ($?!="Remove the user %1 ?") { .ruser %1 | did -d $dname 1 $did($dname,1).sel }
  665. }
  666. elseif ($did == 4) { .rlevel $dname | did -r $dname 1 }
  667. }
  668. }
  669. elseif ($devent == sclick) && ($did == 5) && ($did(2)) && ($did(4)) {
  670. var %u $iif($gettok($gettok($did(2),1,46),2,64),$gettok($gettok($did(2),1,46),2,64),$did(2))
  671. if (!$istok($artblist,* $+ %u $+ *,32)) || (!$istok($artblist,* $+ $did(2) $+ *,32)) { .auser artblist * $+ %u $+ * $did(4) | did -a artblist 1 * $+ %u $+ * $chr(9) $did(4) }
  672. }
  673. }
  674. if ($dname == mp3c) {
  675. if ($devent == dclick) || ($devent == sclick) {
  676. if ((($did == 2 && *play.png iswm $did(mp3c,2) && !$insong.pause) || ($did == 1 && $didprev) || ($did == 3 && $didnext)) && $devent == sclick) || ($did == 13 && $devent == dclick) {
  677. .quickstop
  678. if ($did(mp3c,13,2)) { spr $iif(!$istok(13 2,$did,32),$iif($did == 1,prev,next)) }
  679. else { did -ra mp3c 10 No playlist ! }
  680. var %num $hget(Song,NUM),%didprev $didprev,%didnext $didnext,%mp3
  681. hdel song now | hdel song num
  682. if ($istok(13 2,$did,32)) %mp3 = $+($didsel,$chr(9),$did(13).sel)
  683. elseif ($did == 1) %mp3 = $+(%didprev,$chr(9),$calc(%num -1))
  684. elseif ($did == 3) %mp3 = $+(%didnext,$chr(9),$calc(%num +1))
  685. .timer -m 1 1 haddmp3 %mp3
  686. }
  687. }
  688. if ($devent == sclick) {
  689. if ($did == 96) { if ($vol(master).mute) { .vol -vu2 | did -g $dname 95 icons\nonmute.png } | else { .vol -vu1 | did -g $dname 95 icons\mute.png } }
  690. if ($did == 2) && ($insong) {
  691. if ($insong.pause) && (*play.png iswm $did(2)) {
  692. resumesplay
  693. }
  694. elseif (*pause.png iswm $did(2)) {
  695. pausesplay
  696. }
  697. }
  698. }
  699. if ($devent == init) {
  700. dll mdx.dll MarkDialog $dname
  701. dll mdx.dll SetControlMDX 13 listview report grid nosortheader rowselect flatsb > views.mdx
  702. did -i $dname 13 1 headerdims 251
  703. did -i $dname 13 1 headertext Playlist
  704. dll mdx.dll SetBorderStyle 13 border dlgframe clientedge staticedge dlgmodal windowedge
  705. dll mdx.dll SetColor 7 background $rgb(0)
  706. dll mdx.dll SetColor 7 textbg $rgb(0)
  707. dll mdx.dll SetColor 7 text $rgb(255,250,250)
  708. dll mdx.dll SetColor 10 background $rgb(0)
  709. dll mdx.dll SetColor 10 textbg $rgb(0)
  710. dll mdx.dll SetColor 10 text $rgb(255,250,250)
  711. dll mdx.dll SetColor 9 background $rgb(0)
  712. dll mdx.dll SetColor 9 textbg $rgb(0)
  713. dll mdx.dll SetColor 9 text $rgb(255,250,250)
  714. .did -c mp3c 61 $round($calc($vol(master) * 100 / 65535),0)
  715. if ($vol(master).mute) { did -g $dname 95 icons\mute.png }
  716. if ($isfile($+(",$scriptdirmp3cplaylist.play,"))) {
  717. var %x = 1
  718. while (%x <= $lines($+(",$scriptdirmp3cplaylist.play,"))) {
  719. .did -az mp3c 13 $remove($nopath($read($+(",$scriptdirmp3cplaylist.play,"),%x)),.mp3)
  720. inc %x
  721. }
  722. }
  723. mp3.didcheck
  724. hinc -m Song NUM | hinc -m Song NOW
  725. }
  726. if ($devent == close) {
  727. if ($insong) {
  728. .quickstop
  729. .splay -p stop
  730. }
  731. hfree Song
  732. }
  733. if ($devent == menu) {
  734. if ($did == 27) {
  735. var %tf = $sfile(C:,Select a file to add to playlist)
  736. if (%tf != $null) {
  737. if ($right(%tf,4) != .mp3) {
  738. .did -ra mp3c 10 Invalid file
  739. return
  740. }
  741. elseif ($read($+(",$scriptdirmp3cplaylist.txt,"),w,$+(*,%tf,*))) {
  742. .did -ra mp3c 10 File already exists in playlist
  743. halt
  744. }
  745. else {
  746. .did -az mp3c 13 $remove($nopath(%tf),.mp3)
  747. .write $+(",$scriptdirmp3cplaylist.play,") %tf
  748. if ($rcon(optsetting,stpf) = true) {
  749. .did -c mp3c 13 $didwm(mp3c,13,$+(*,$remove($nopath(%tf),.mp3),*))
  750. spr
  751. }
  752. }
  753. }
  754. else { .did -ra mp3c 10 No file selected to add }
  755. }
  756. if ($did == 21) {
  757. if ($did(mp3c,13).sel) && ($isfile($+(",$scriptdirmp3cplaylist.play,"))) {
  758. .write $+(-dl,$did(mp3c,13).sel) $+(",$scriptdirmp3cplaylist.play,")
  759. .did -d $dname 13 $did(mp3c,13).sel
  760. }
  761. else { .did -ra mp3c 10 No file selected for removal. }
  762. }
  763. if ($did == 29) {
  764. var %td = $sdir(C:,Select a directory to add to playlist)
  765. if (%td != $null) {
  766. var %x = 1
  767. while ($findfile(%td,*.mp3,%x)) {
  768. .did -az mp3c 13 $remove($nopath($ifmatch),.mp3)
  769. .write $+(",$scriptdirmp3cplaylist.play,") $ifmatch
  770. inc %x
  771. }
  772. }
  773. }
  774. if ($did == 12) {
  775. var %ts = $sfile($mircdir*.play,Save Playlist, Save)
  776. if (!$gettok(%ts,2,46)) .set %mp3c.save $+(%ts,.,play)
  777. .set %mp3c.save %ts
  778. .copy -o $+(",$scriptdirmp3cplaylist.play,") $+(",%mp3c.save,")
  779. if (!$exists($+(",$scriptdirmp3cplaylist.play,"))) .did -ra mp3c 10 Empty playlist.
  780. .unset %mp3c.save
  781. }
  782. if ($did == 14) {
  783. var %tmp = " $+ $sfile($mircdir*.play,Select a playlist to load, Open) $+ "
  784. if (%tmp != $null) && ($exists(%tmp)) {
  785. .copy $iif($rcon(optsetting,apwl) = true,-a,-o) %tmp $+(",$scriptdirmp3cplaylist.play,")
  786. var %x = 1
  787. .did -r mp3c 13
  788. while (%x <= $lines($+(",$scriptdirmp3cplaylist.play,"))) {
  789. .did -a mp3c 13 $nopath($read($+(",$scriptdirmp3cplaylist.play,"),%x))
  790. inc %x
  791. }
  792. }
  793. elseif (!%tmp) { .did -ra mp3c 10 No file selected to load. }
  794. elseif (!$exists(%tmp)) { .did -ra mp3c 10 Invalid file. }
  795. }
  796. if ($did == 16) {
  797. .did -r mp3c 13
  798. .remove $+(",$scriptdirmp3cplaylist.play,")
  799. }
  800. if ($did == 39) {
  801. .did -u mp3c 40,48
  802. .did -c mp3c 39
  803. .echo -q $wcon(playsettings,end,repeat)
  804. }
  805. if ($did == 40) {
  806. .did -u mp3c 39,48
  807. .did -c mp3c 40
  808. .echo -q $wcon(playsettings,end,shuffle)
  809. }
  810. if ($did == 48) {
  811. .did -u mp3c 39-40
  812. .did -c mp3c 48
  813. .echo -q $wcon(playsettings,end,none)
  814. }
  815. if ($did == 34) {
  816. var %tmp = $$input(Enter your spam message here. $&
  817. Available tags are &title &artist &bitrate &length &sample $&
  818. &size &c (equivilent to ctrl+k) &b (ctrl+b) &u (ctrl+u). You can also $&
  819. type ~disable to disable the spam.,eo,Enter spam message:)
  820. .echo -q $wcon(playsettings,spammsg,$iif(%tmp == ~disable,null,%tmp))
  821. }
  822. }
  823. if ($devent == scroll) {
  824. if ($did == 11) {
  825. if ($insong) {
  826. .set %insong.pos $did(mp3c,11).sel
  827. .splay -p seek $calc($did(mp3c,11).sel * 1000)
  828. }
  829. }
  830. if ($did == 61) { .vol -v $calc(653.5 * $did($dname,61).sel) }
  831. }
  832. }
  833. }
  834. on *:connect: {
  835. echo -a 1;;;;;////\\\\1;;;;;\\\\\\\\\\\\\1;\\\\\\\\\\\\\1;\\\1;;;;;;\\\1;;;;;////\\\\1;;;;;\\\\\\\\\\\\
  836. echo -a 1;;;;////1;;\\\\1;;;;////1;;;;/////1;;;;;;///1;;;;;;///1;;;;;;///1;;;;////1;;\\\\1;;;;///
  837. echo -a 1;;;////==\\\\1;;;\\\\==\\\\1;;;;;;;\\\1;;;;;;\\\===\\\1;;;////==\\\\1;;;\\\\\\\\\\\\
  838. echo -a 1;;////1;;;;;;\\\\1;;////1;;;;;\\1;;;;;;;;///1;;;;;;///1;;;;;;///1;;////1;;;;;;\\\\1;;;;;;;;;;;///
  839. echo -a 1;////1;;;;;;;;\\\\1;\\\\1;;;;;;\\1;;;;;;;\\\1;;;;;;\\\1;;;;;;\\\1;////1;;;;;;;;\\\\1;\\\\\\\\\\\\
  840. echo -a 1-
  841. echo -a 1;\\\\\\\\\\\\1;\\\\\\\\\\\\1;\\\\\\\\\\\\\1;\\\\\\\\\\\\1;\\\\\\\\\\\\1;\\\\\\\\\\\\\
  842. echo -a 1;///1;;;;;;;;;;///1;;;;;;;;;;////1;;;;/////1;;;;;;///1;;;;;///1;;;;;;///1;;;;;;///
  843. echo -a 1;\\\\\\\\\\\\1;\\\1;;;;;;;;;;\\\\==\\\\1;;;;;;;\\\1;;;;;\\\===\\\1;;;;;;\\\
  844. echo -a 1;;;;;;;;;;///1;///1;;;;;;;;;;////1;;;;;\\1;;;;;;;;///1;;;;;///1;;;;;;;;;;;;;;;///
  845. echo -a 1;\\\\\\\\\\\\1;\\\\\\\\\\\\1;\\\\1;;;;;;\\1;;\\\\\\\\\\\\1;\\\1;;;;;;;;;;;;;;;\\\
  846. if ($readini(Lines.ini,Settings,IdentifyStatus)) { auth $readini(Lines.ini,Settings,Identify) }
  847. if ($readini(Lines.ini,Settings,jChannelsStatus)) { .timer 1 5 j $readini(Lines.ini,Settings,jChannels) }
  848. }
  849. on *:mp3end:{
  850. .quickstop
  851. if ($did(mp3c,39).state == 1) spr
  852. elseif ($did(mp3c,40).state == 1) { spr next | var %num $hget(Song,NUM),%didnext $didnext | hdel song now | hdel song num | .timer -m 1 1 haddmp3 $+(%didnext,$chr(9),$calc(%num +1)) }
  853. }
  854.  
  855. ; cZ invites
  856. RAW 352:*: if (cz isin $3) && ($6 !ison %cz.channel) && ($me isop %cz.channel) && (cz !isin $6) && (%czinvites) { inc %timer 2 | .timer 1 %timer invite $6 %cz.channel }
  857. RAW 315:*: if (%cz.channel) { unset %cz.channel | unset %timer }
  858.  
  859. ; on ***
  860.  
  861. on *:join:#:{
  862. if ($ialchan($wildsite,#,0) >= 2) && (%cscan) {
  863. var %x 1,%y 1
  864. while (%x <= $ialchan($wildsite,#,0)) { var %scan %scan $gettok($ialchan($wildsite,#,%x),1,33) | inc %x }
  865. if (!%sca) {
  866. if (%cscan == 1) { var %r =  $+ $r(2,15) | msg # [ $+ %r $+ Clones scan] %r $+ Address: $wildsite $+ $chr(44) %r $+ Nicks: %scan $+ $chr(44) %r $+ Number of clones: $ialchan($wildsite,#,0) }
  867. else { dialog $iif($dialog(cscan),-v,-m) cscan cscan | did -ra cscan 8 # | did -ra cscan 2 $wildsite | did -ra cscan 4 $ialchan($wildsite,#,0) | did -r cscan 5 | while (%y <= $numtok(%scan,32)) { did -ab cscan 5 $gettok(%scan,%y,32) | inc %y } }
  868. inc -u2 %sca
  869. }
  870. }
  871. if ($level($ulist($maddress)) == artblist) && ($nick !== $me) && ($me isop #) { ban -k # $nick 2 1Blacklisted, $ulist($maddress).info (ArthasScript) }
  872. if ($gettok($gettok($wildsite,1,46),2,64) isin $readini(Lines.ini,friends,Friends)) || ($nick isin isin $readini(Lines.ini,friends,Friends)) {
  873. var %r =  $+ $r(2,15) | msg # %r $+ Hi %r $+  $+ $iif($len($nick) <= 2,$nick,$left($nick,1) $+  $+ $mid($nick,2,$calc($len($nick) -2)) $+ %r $+  $+ $right($nick,1)) $+  $+ $chr(44) $+  %r $+ You %r $+ Are %r $+ In %r $+ My %r $+ Friends %r $+ List ( $+ %r $+ ArthasScript)
  874. if ($me isop #) {
  875. if ($readini(Lines.ini,Friends,$gettok($gettok($wildsite,1,46),2,64)) == Op) || ($readini(Lines.ini,Friends,$nick) == Op) { mode # +o $nick }
  876. elseif ($readini(Lines.ini,Friends,$gettok($gettok($wildsite,1,46),2,64)) == Voice) || ($readini(Lines.ini,Friends,$nick) == Voice) { mode # +v $nick }
  877. }
  878. }
  879. if ($gettok($gettok($wildsite,1,46),2,64) isin $readini(Lines.ini,Infoline,Infoline)) || ($nick isin isin $readini(Lines.ini,Infoline,Infoline)) {
  880. var %nick = $iif($gettok($gettok($wildsite,1,46),2,64) isin $readini(Lines.ini,Infoline,Infoline),$gettok($gettok($wildsite,1,46),2,64),$nick)),92)
  881. var %sw = $iif($numtok($readini(Lines.ini,Infoline,%nick),92) == 0,0,$r(1,$numtok($readini(Lines.ini,Infoline,%nick),92)))
  882. var %r =  $+ $r(2,15) | msg # %r $+ Info %r $+ Line %r $+ For %r $+  $+ $iif($len($nick) <= 2,$nick,$left($nick,1) $+  $+ $mid($nick,2,$calc($len($nick) -2)) $+ %r $+  $+ $right($nick,1)) $+  $+ $chr(44) $iif(%sw !== 0, $+ %sw $+ / $+ $numtok($readini(Lines.ini,Infoline,%nick),92) $+ : $+ ) $iif($gettok($readini(Lines.ini,Infoline,%nick),%sw,92),$gettok($readini(Lines.ini,Infoline,%nick),%sw,92),NOTSET) ( $+ %r $+ ArthasScript)
  883. }
  884. }
  885.  
  886. on *:op:#: if (!%connect) { var %r =  $+ $r(2,15) | if ($opnick == $me) msg # %r $+ Thanks for the %r $+ @p %r $+ ! $iif($nick == Q,%r $+ Q,%r $+  $+ $left($nick,1) $+  $+ $mid($nick,2,$calc($len($nick) -2)) $+ %r $+  $+ $right($nick,1) $+ ) ( $+ %r $+ ArthasScript) }
  887. on *:deop:#: if (!%connect) { var %r =  $+ $r(2,15) | if ($opnick == $me) msg # %r $+ HEY $iif($nick == Q,%r $+ Q,%r $+  $+ $left($nick,1) $+  $+ $mid($nick,2,$calc($len($nick) -2)) $+ %r $+  $+ $right($nick,1) $+ ) $+ %r ! %r $+ @p me BACK %r $+ ! ( $+ %r $+ ArthasScript) }
  888. on *:voice:#: if (!%connect) { var %r =  $+ $r(2,15) | if ($vnick == $me) msg # %r $+ Thanks for the Vo $+ %r $+ +ce %r $+ ! $iif($nick == Q,%r $+ Q,%r $+  $+ $left($nick,1) $+  $+ $mid($nick,2,$calc($len($nick) -2)) $+ %r $+  $+ $right($nick,1) $+ ) ( $+ %r $+ ArthasScript) }
  889. on *:devoice:#: if (!%connect) { var %r =  $+ $r(2,15) | if ($vnick == $me) msg # %r $+ HEY $iif($nick == Q,%r $+ Q,%r $+  $+ $left($nick,1) $+  $+ $mid($nick,2,$calc($len($nick) -2)) $+ %r $+  $+ $right($nick,1) $+ ) $+ %r ! Vo $+ %r $+ +ce me BACK %r $+ ! ( $+ %r $+ ArthasScript) }
  890. on !@*:kick:#:{
  891. if ($knick == $me) && ($readini(Lines.ini,Settings,Kickprot)) {
  892. if ($nick == Q) { .msg q unbanme # | .msg q invite # | join # }
  893. else { var %r =  $+ $r(2,15) | .join # | .timer 1 1 ban -k # $nick 2 %r $+ Dont ever kick %r $+ ME ( $+ %r $+ ArthasScript) }
  894. }
  895. }
  896. on !@*:ban:#:{
  897. if ($gettok($address($me,2),2,64) isin $banmask) && ($readini(Lines.ini,Settings,Banprot)) {
  898. if ($nick == Q) { .msg q unbanme # }
  899. else { var %r =  $+ $r(2,15) | .mode # -b $banmask | ban -k # $nick 2 %r $+ Dont ever ban %r $+ ME ( $+ %r $+ ArthasScript) }
  900. }
  901. }
  902.  
  903. ; input
  904.  
  905. alias InputCommands echo -a +mode • +/-(mir/mr/r/s/m) • (Invite)¬i <nicks> • (Unban all bans)¬unban • qtopic • (request Q)¬addq • +/-(amno/amo/ao/av) | echo -a chanlev • chanflags • chanmode • qwelcome • qnet • (request op)¬rop • whoami • clearchanlev *<Access>* <protected> • banclear
  906. on *:input:*: {
  907. if (!$ctrlenter) && (/* !iswm $1) {
  908. if ($me isop #) {
  909. if (+mode == $1) { mode # $2- | echo -at $iif($2 isin $chan(#).mode,asd) 5 $+ $left(#,1) $+  $+ $mid(#,2) mode $2- | halt }
  910. elseif ($istok(+mir -mir +mr -mr +r -r +s -s +m -m,$1,32)) { mode # $1 | echo -at 5 $+ $left(#,2) $+  $+ $mid(#,3) mode $1 | halt }
  911. elseif (i == $1) { var %x = 1 | while (%x <= $numtok($2-,32)) { invite $gettok($2-,%x,32) # | inc %x } | if (*triviabot* iswm $2-) .timer 1 10 msg # !stoptrivia | halt }
  912. elseif (unban == $1) { .mode # -b *!*@* | echo -a - | halt }
  913. }
  914. if (qtopic == $1) { .msg q settopic # $2- | echo -a - | halt }
  915. elseif (addq == $1) { .msg r requestbot # | echo -a - | halt }
  916. elseif (+amno == $1) { .msg q chanlev # $2 +amo | .msg q giveowner # $2 | echo -a - | halt }
  917. elseif ($istok(+av -av +ao -ao +amo -amo -amno,$1,32)) {
  918. if ($2 == me) { .msg q chanlev # $me $1 | $iif($left($1,1) == -,mode # - $+ $right($1,1) $me) | halt }
  919. else { .msg q chanlev # $2 $1 | $iif($left($1,1) == -,.timer 1 1 mode # - $+ $right($1,1) $2) | halt }
  920. halt | echo -a -
  921. }
  922. elseif (chanlev == $1) { .msg q chanlev # $2 $3 | echo -a - | halt }
  923. elseif (chanflags == $1) { .msg q chanflags # $2 | echo -a - | halt }
  924. elseif (chanmode == $1) { .msg Q chanmode $chan $2 | echo -a - | halt }
  925. elseif (qwelcome == $1) { .msg q welcome # $2- | echo -a - | halt }
  926. elseif (qnet == $1) { .msg q $2 # $3- | echo -a - | halt }
  927. elseif (rop == $1) { .msg r requestop # | echo -a - | halt }
  928. elseif (whoami == $1) { .msg q whoami | echo -a - | halt }
  929. elseif (clearchanlev == $1) && ($2) { clearchanlev # $2- | halt }
  930. elseif (banclear == $1) {
  931. if ($2) { .msg q banclear $2 | halt }
  932. else { .msg q banclear # | halt }
  933. }
  934. elseif (Status* !iswm $active) { say $replace($1-,:D,: $+ $r(2,15) $+ D,:],: $+ $r(2,15) $+ ],: $+ $chr(41),: $+ $r(2,15) $+  $+ $chr(41) $+ ,: $+ $chr(40),: $+ $r(2,15) $+  $+ $chr(40) $+ ,:[,: $+ $r(2,15) $+ [,:O,: $+ $r(2,15) $+ O,:X,: $+ $r(2,15) $+ X,:S,: $+ $r(2,15) $+ S,:|,: $+ $r(2,15) $+ |,:P,: $+ $r(2,15) $+ P) | halt }
  935. echo -a You are typing in the Status Window !
  936. haltdef
  937. }
  938. }
  939.  
  940. alias clearchanlev {
  941. if ($3-) { set %protected $3- }
  942. if ($left($1,1) == $chr(35)) && ($network == QuakeNet) {
  943. unset %temp | unset %zxx | unset %mylevel | unset %clea*
  944. if (!%clearing) && (!%clear1) {
  945. if ($left($2,1) == $chr(43)) || ($left($2,1) == $chr(45)) { set -u60 %clear $1 $remove($2,$left($2,1)) }
  946. else { set -u60 %clear $1 $2 }
  947. .timercheckwhat 1 5 checkwhat | set %clear1 1 | .msg q chanlev $1 | set %mylevel $remove($address($me,2),*!*@,.users.quakenet.org) | set %clearing 1 | set -u15 %zxx 1
  948. }
  949. elseif (%clearing) || (%clear1) { echo -at * Error! During a clearing!
  950. }
  951. }
  952. else { echo -at * Error! Either you didnt typed $chr(35) , or you are not using the network "quakenet". | halt }
  953. }
  954. alias checkwhat {
  955. var %zzz = $calc(%zxx -4)
  956. if ($numtok(%temp,32) < 18) && ($numtok(%temp,32) >= 1) { .timer 1 %zzz .msg q removeuser $gettok(%clear,1,32) %temp | .timer 1 $calc(%zzz +2) echo -at * Clearing ended. | unset %temp | unset %zxx | unset %mylevel | .timer 1 $calc(%zzz +4) unset %clea* | unset %protected }
  957. elseif ($numtok(%temp,32) == 0) { unset %mylevel | unset %zxx | echo -at * Error! No one has the level: " $+ $chr(43) $+ $gettok(%clear,2,32) $+ " | unset %zxx | unset %clea* | halt }
  958. }
  959. on ^*:Notice:*:*: {
  960. if ($nick == Q) {
  961. haltdef
  962. echo -a 05 $+ $timestamp $+(<,$nick,>) $1-
  963. if ($1 == do) .msg Q $4-
  964. if (%clear1) {
  965. if (%clearing) {
  966. if (*You do not have sufficient access on* iswm $1-) { .did -ra qcommands 18 * Error! you dont have enough acsses on $gettok(%clear,1,32) to use chanlev. | unset %clearing | .timercheckwhat off | .timera* off | halt }
  967. if (*is unknown or suspended* iswm $1-) { .did -ra qcommands 18 * Error! channel is unknown or suspended. | .timercheckwhat off | .timera* off | unset %clearing | halt }
  968. if (*known* !iswm $1-) && (*username* !iswm $1-) && ($1 != %mylevel) && (n !isin $2) && ($1 !isin %protected) {
  969. if ($left($2,1) == $chr(43)) && ($gettok(%clear,2,32) isin $2) && (n !isin $2) { set %temp %temp $chr(35) $+ $1 }
  970. if ($numtok(%temp,32) == 18) { .timera $+ %zxx 1 %zxx .msg q removeuser $gettok(%clear,1,32) %temp | unset %temp | inc %zxx 2 }
  971. }
  972. if (*End of* iswm $1-) { unset %clearing | halt }
  973. if (Total: iswm $1) { unset %clearing | halt }
  974. }
  975. }
  976. }
  977. }
  978.  
  979.  
  980. ; menu
  981.  
  982. menu * {
  983. Main dialog
  984. .MAIN DIALOG: dialog $iif($dialog(main),-v,-m) main main
  985. .-
  986. .Mp3 player: dialog $iif($dialog(mp3c),-v,-md) mp3c mp3c
  987. .Friends list: dialog $iif($dialog(friends),-v,-m) friends friends
  988. .Infoline: dialog $iif($dialog(Infoline),-v,-m) Infoline Infoline
  989. .Blacklist list: dialog $iif($dialog(artblist),-v,-m) artblist artblist
  990. .Nick searcher: dialog $iif($dialog(nsearch),-v,-m) nsearch nsearch
  991. .Calculator: dialog $iif($dialog(calcn),-v,-md) calcn calcn
  992. .Clonex
  993. ..Open Clonex:clonex
  994. ..Clonex GUIDE:ClonexHelp
  995. ..Kalevet
  996. ...Kalevet channel:set %kalevet $?"Set channel with (#):"
  997. ...Text to send:set %text $?"Text:"
  998. ...Status
  999. ....$style($iif(%kalb.status,1,0)) ON : inc %kalb.status
  1000. ....$style($iif(%kalb.status,0,1)) OFF : unset %kalb.status
  1001. .Auto identify: dialog $iif($dialog(identi),-v,-m) identi identi
  1002. .Auto join channels: dialog $iif($dialog(jchannels),-v,-m) jchannels jchannels
  1003. Protections
  1004. .$style($iif($readini(Lines.ini,Settings,Kickprot),1,0)) Kick: $iif($readini(Lines.ini,Settings,Kickprot),.remini Lines.ini Settings Kickprot,.writeini Lines.ini Settings Kickprot 1)
  1005. .$style($iif($readini(Lines.ini,Settings,Banprot),1,0)) Ban: $iif($readini(Lines.ini,Settings,Banprot),.remini Lines.ini Settings Banprot,.writeini Lines.ini Settings Banprot 1)
  1006. System Info
  1007. .$iif(!$chan,$style(2)) Public
  1008. ..All: allinfo say
  1009. ..OS-Memory: say $osinfo
  1010. ..MotherBoard-CPU: say $cpuinfo $moboinfo
  1011. ..Network: say $netinfo
  1012. ..Video: say $videoinfo
  1013. ..Disk Drives: say $diskinfo
  1014. .Private
  1015. ..All: allinfo echo
  1016. ..OS-Memory: echo -a $osinfo
  1017. ..MotherBoard-CPU: echo -a $cpuinfo $moboinfo
  1018. ..Network: echo -a $netinfo
  1019. ..Video: echo -a $videoinfo
  1020. ..Disk Drives: echo -a $diskinfo
  1021. Clones scan
  1022. .Do scan: .remove Scan.txt | .remove Scannicks.txt | .remove ScanAd.txt | dialog $iif($dialog(scan),-v,-m) scan scan | did -r scan 1 | inc -u10 %who | who #
  1023. .$style($iif(%cscan == 1,1,0)) Msg on channel: set %cscan 1
  1024. .$style($iif(%cscan == 2,1,0)) Open on window: set %cscan 2
  1025. .$style($iif(!%cscan,1,0)) Nothing: unset %cscan
  1026. CZ invites: set %cz.channel $?"Type channel" | if (%cz.channel) { inc %czinvites | who #cz.il }
  1027. Chr encoding: dialog $iif($dialog(encoding),-v,-m) encoding encoding
  1028. }
  1029. menu nicklist {
  1030. Lists
  1031. .Friends list
  1032. ..Add friend: if ($gettok($gettok($address($1,2),1,46),2,64) !isin $readini(Lines.ini,Friends,Friends)) { if ($dialog(Friends)) did -a friends 2 $gettok($gettok($address($1,2),1,46),2,64) | writeini Lines.ini friends Friends $addtok($readini(Lines.ini,friends,Friends),$gettok($gettok($address($1,2),1,46),2,64),32) } | else { echo -a $address($1,2) is already on the friends list }
  1033. .Infoline
  1034. ..Add Infoline user: if ($gettok($gettok($address($1,2),1,46),2,64) !isin $readini(Lines.ini,Infoline,Infoline)) { if ($dialog(Infoline)) did -a Infoline 2 $gettok($gettok($address($1,2),1,46),2,64) | writeini Lines.ini Infoline Infoline $addtok($readini(Lines.ini,Infoline,Infoline),$gettok($gettok($address($1,2),1,46),2,64),32) } | else { echo -a $address($1,2) is already on the Infoline list }
  1035. }
Add Comment
Please, Sign In to add comment
Public Pastes
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!