API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 29th, 2017
98
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 15.17 KB | None | 0 0
raw download clone embed print report
  1. dialog Open {
  2. icon %aria
  3. title "Connect To Server"
  4. size -1 -1 390 318
  5. icon 2, -3 5 390 100 , imgs/open.png
  6. edit "", 6, 110 111 100 21,autohs
  7. edit "",7, 110 140 100 21,autohs
  8. edit "",8, 265 111 100 21,autohs,pass
  9. edit "", 9, 265 140 100 21,autohs
  10. text "Nickname:" 10, 40 115 55 15
  11. text "Alternative:" 11, 40 144 55 15
  12. text "Pass:" 12, 227 115 35 15
  13. text "ID:" 13, 235 144 20 15
  14. box "", 17, 20 105 85 28
  15. box "", 18, 20 134 85 28
  16. box "", 19, 220 105 40 28
  17. box "", 25, 220 134 40 28
  18. box "Servers:" 20, 20 170 348 123
  19. text "Server:" 30, 30 218 40 15
  20. text "List:" 31, 36 190 35 15
  21. text "Port:" 32, 35 246 35 15
  22. edit "" 22, 71 214 190 21
  23. edit "" 66, 71 242 50 21
  24. combo 50, 73 187 100 150 , drop , sort
  25. button "Add" 51, 180 187 60 20
  26. button "Edit" 52, 245 187 50 20
  27. button "Delet" 53, 300 187 60 20
  28. box "" 40, 25 208 43 28
  29. box "" 41, 25 180 43 28
  30. box "" 42, 25 236 43 28
  31. check "New server window" 201, 135 243 125 20
  32. Button "Connect To Server", 24, 125 266 135 21,ok
  33. button "Help" 54, 300 243 60 21
  34. button "Close" 55, 300 266 60 21,cancel
  35. check "Pop Up This Dialog On Start." 200 , 110 296 155 20
  36. }
  37. On *:DIALOG:open:*:* {
  38. if ($devent == init) {
  39. did -a $dname 6 $me
  40. did -a $dname 7 $readini mirc.ini mIRC anick
  41. did -a $dname 9 $readini mirc.ini ident userid
  42. listserver
  43. if ($did(50) == .Select Server.) { did -re open 22 | did -ra open 66 6667 }
  44. if (%openshow == ON) { did -c open 200 }
  45. }
  46. if ($devent == sclick) && ($did == 50) {
  47. if ($did(50) == .Select Server.) { did -re open 22 | did -ra open 66 6667 }
  48. else { did -rb open 22 | did -ra open 22 %servaddress. [ $+ [ $did(50) ] ] | did -ra open 66 %servport. [ $+ [ $did(50) ] ] }
  49. }
  50. if ($devent == sclick) && ($did == 51) { addserver }
  51. if ($devent == sclick) && ($did == 52) { if ($did(50) != .Select Server.) { set %settingserver $did(50) | set-server } }
  52. if ($devent == sclick) && ($did == 53) { if ($did(50) != .Select Server.) { set %listserver $did(50) | delserver } }
  53. if ($devent == sclick) && ($did == 54) { /help Connecting to a Server }
  54. if ($devent == sclick) && ($did == 24) {
  55. if ($did(22) == $null) { halt }
  56. elseif (%new.server.win == ON) { set %connectto $did(22) $+ : $+ $did(66) | canim2 }
  57. elseif ($server != $null) { set %Nnick $did(6) | set %Aanick $did(7) | if ($did(8) != $null) { set -u60 %ididentify $did(8) } | set %Iidentd $did(9) | set %connectto $did(22) $+ : $+ $did(66) | dialog -m bcserver bcserver }
  58. elseif ($server == $null) { set %Nnick $did(6) | set %Aanick $did(7) | if ($did(8) != $null) { set -u60 %ididentify $did(8) } | set %Iidentd $did(9) | set %connectto $did(22) $+ : $+ $did(66) | canim }
  59. }
  60. if ($devent == sclick) && ($did == 200) {
  61. if (%openshow == ON) { set %openshow OFF | halt }
  62. else { set %openshow ON | halt }
  63. }
  64. if ($devent == sclick) && ($did == 201) {
  65. if (%new.server.win == ON) { unset %new.server.win }
  66. else { set %new.server.win ON }
  67. }
  68. if ($did == 55) { unset %new.server.win }
  69. }
  70. dialog addserver {
  71. icon %aria
  72. title "Add Server"
  73. size -1 -1 260 125
  74. edit "" 1, 60 5 185 22 ,autohs
  75. edit "" 2, 60 30 185 22 ,autohs
  76. edit "" 3, 60 55 185 22
  77. text "Description:" 11, 3 10 55 15
  78. text "IRC Server:" 12, 3 35 57 15
  79. text "Port:" 13, 30 60 30 15
  80. button "Add" 20, 30 90 60 20,ok
  81. button "Cancel" 21, 100 90 60 20,cancel
  82. button "Help" 22, 170 90 60 20
  83. }
  84. on 1:dialog:addserver:*:*:{
  85. if ($devent == init) { did -a $dname 3 6667 }
  86. if ($devent == sclick) && ($did == 22) { help Connecting to a Server }
  87. if ($devent == sclick) && ($did == 20) {
  88. if ($did(1) == $null) { set %errorinadd Description is Missing! | errorinadd | halt }
  89. if ($did(2) == $null) { set %errorinadd IRC Server Address is Missing! | errorinadd | halt }
  90. if ($did(3) == $null) { set %errorinadd Please Enter Port! | errorinadd | halt }
  91. if (* * iswm $did(1)) { set %errorinadd Don't Leave Empty Room Between The Words! | errorinadd | halt }
  92. if (* * iswm $did(2)) { set %errorinadd Don't Leave Empty Room Between The Words! | errorinadd | halt }
  93. if (* * iswm $did(3)) { set %errorinadd Don't Leave Empty Room Between The Words! | errorinadd | halt }
  94. else {
  95. set %selserver $did(1)
  96. set %selserveradd $did(2)
  97. set %servport $did(3)
  98. serverset
  99. }
  100. }
  101. }
  102. dialog set-server {
  103. icon %aria
  104. title "Edit Server"
  105. size -1 -1 260 125
  106. edit "" 1, 60 5 185 22 ,autohs
  107. edit "" 2, 60 30 185 22 ,autohs
  108. edit "" 3, 60 55 185 22
  109. text "Description:" 11, 3 10 55 15
  110. text "IRC Server:" 12, 3 35 57 15
  111. text "Port:" 13, 30 60 30 15
  112. button "Edit" 20, 25 90 65 20,ok
  113. button "Cancel" 21, 100 90 65 20,cancel
  114. button "Help" 22, 175 90 60 20
  115. }
  116. on 1:dialog:set-server:*:*:{
  117. if ($devent == init) {
  118. did -a $dname 1 %settingserver
  119. did -a $dname 2 %servaddress. [ $+ [ %settingserver ] ]
  120. did -a $dname 3 %servport. [ $+ [ %settingserver ] ]
  121. }
  122. if ($devent == sclick) && ($did == 22) { help Connecting to a Server }
  123. if ($devent == sclick) && ($did == 21) { unset %settingserver }
  124. if ($devent == sclick) && ($did == 20) {
  125. if ($did(1) == $null) { set %errorinadd Description is Missing! | errorinadd | halt }
  126. if ($did(2) == $null) { set %errorinadd IRC Server Address is Missing! | errorinadd | halt }
  127. if ($did(3) == $null) { set %errorinadd Please Enter Port! | errorinadd | halt }
  128. if (* * iswm $did(1)) { set %errorinadd Don't Leave Empty Room Between The Words! | errorinadd | halt }
  129. if (* * iswm $did(2)) { set %errorinadd Don't Leave Empty Room Between The Words! | errorinadd | halt }
  130. if (* * iswm $did(3)) { set %errorinadd Don't Leave Empty Room Between The Words! | errorinadd | halt }
  131. else {
  132. set %listserver %settingserver
  133. delserver
  134. unset %settingserver
  135. set %selserver $did(1)
  136. set %selserveradd $did(2)
  137. set %servport $did(3)
  138. serverset
  139. }
  140. }
  141. }
  142. dialog bcserver {
  143. size -1 -1 260 85
  144. title "Confirm Exit"
  145. icon %info
  146. icon 1, 10 10 30 30 , imgs\soal.ico
  147. text "Do You Wont To Change Server?", 2, 57 25 240 15
  148. box "", 3, 42 15 200 30
  149. button "Yes", 4, 50 55 75 20,ok
  150. button "No", 5, 150 55 75 20,cancel
  151. }
  152. on 1:dialog:bcserver:sclick:*:{
  153. if ($did == 4) { quit %quit.msg | canim }
  154. if ($did == 5) { unset %Nnick | unset %Aanick | unset %connectto | unset %ididentify }
  155. }
  156. dialog errordialog {
  157. icon %info
  158. title "Error"
  159. size -1 -1 250 100
  160. button "OK" 1, 90 73 70 20,cancel
  161. icon 2, 15 25 50 50 , imgs\incorrect.ico
  162. text "" 3, 60 20 160 50
  163. }
  164. on 1:dialog:errordialog:init:*:{ did -ra $dname 3 %errorinadd }
  165. on 1:dialog:errordialog:sclick:*:{ if ($did == 1) { unset %errorinadd } }
  166. dialog invdo {
  167. icon %ask
  168. title "INVITE 1"
  169. size -1 -1 270 120
  170. edit "", 1, 5 10 260 20, read
  171. edit "", 2, 170 35 95 20, read
  172. box "", 3, 5 30 160 26
  173. text "Invited You To Join Channel :", 4, 15 39 142 12
  174. button "Join Channel", 5, 12 70 75 20 , ok
  175. button "Don't Join", 6, 97 70 75 20 , cancel
  176. button "Send Notice", 7, 182 70 75 20
  177. box "", 8, 5 58 260 37
  178. check "Always ask me on invite" 9, 60 100 150 15
  179. }
  180. on 1:dialog:invdo:init:*:{
  181. did -ra invdo 1 %inviteme
  182. did -ra invdo 2 %invitemechan
  183. if (%inviteask == ON) { did -c $dname 9 }
  184. }
  185. on 1:dialog:invdo:sclick:*:{
  186. if ($did == 5) { join $did(2) | dialog -c invdo | unset %inviteme %invitemechan %invitemen | halt }
  187. if ($did == 6) { unset %inviteme %invitemechan %invitemen | dialog -c invdo | halt }
  188. if ($did == 7) { notice $gettok($gettok($did(1).text,1,9),1,32) 15,1 $$?="Reply Your Msg" | dialog -c invdo | unset %inviteme %invitemechan %invitemen | halt }
  189. if ($did == 9) {
  190. if (%inviteask == ON) { set %inviteask OFF }
  191. else { set %inviteask ON }
  192. }
  193. }
  194. on *:invite:#:{
  195. if ($nick == ChanServ) { join $chan }
  196. if ($nick != ChanServ) && (%inviteask == ON) {
  197. set %invitemen $nick
  198. set %inviteme $nick ( $+ $address $+ )
  199. set %invitemechan #
  200. inviteaskshow
  201. }
  202. }
  203. dialog Search {
  204. icon %search
  205. title "Search The Web Site"
  206. size -1 -1 330 83
  207. text "Enter The Word:" 1, 15 15 100 15
  208. box "" 2, 5 5 100 30
  209. box "" 5, 5 35 315 37
  210. edit "" 3, 10 45 250 22, autohs
  211. Button "Search" 4, 265 45 50 22,ok
  212. button "" 6, 1 1 1 1,cancel
  213. }
  214. on 1:dialog:search:*:*: {
  215. if ( $devent == init ) { did -b Search 4 }
  216. if ( $devent == edit ) && ($did == 3) { set %searchword $did(3) | serorno }
  217. if ( $devent == sclick ) && ($did == 4) { doSearch }
  218. if ( $devent == sclick ) && ($did == 6) { unset %searchword %Searching }
  219. }
  220. on 1:start: { start }
  221. #Swear off
  222. on @1:text:*:#: {
  223. if (%nickbanned [ $+ [ $nick ] ] == $null) {
  224. set %i 0
  225. :checking
  226. inc %i 1
  227. set %currentsword $read -l $+ %i $mircdirTXT/Swear.txt
  228. if (%currentsword == $null) { .unset %i %currentsword | goto end }
  229. else {
  230. if (%currentsword isin $1-) { goto offense }
  231. else { goto checking }
  232. }
  233. :offense
  234. if ($nick isop $chan) && (%dontkbops == ON) { goto end }
  235. elseif ($nick isvoice $chan) && (%dontkbvoices == ON) { goto end }
  236. else { set -u5 %nickbanned [ $+ [ $nick ] ] YES | sweartxtdo }
  237. .goto end
  238. }
  239. :end
  240. }
  241. on @1:action:*:#: {
  242. if (%nickbanned [ $+ [ $nick ] ] == $null) {
  243. set %i 0
  244. :checking
  245. inc %i 1
  246. set %currentsword $read -l $+ %i $mircdirTXT/Swear.txt
  247. if (%currentsword == $null) { .unset %i %currentsword | goto end }
  248. else {
  249. if (%currentsword isin $1-) { goto offense }
  250. else { goto checking }
  251. }
  252. :offense
  253. if ($nick isop $chan) && (%dontkbops == ON) { goto end }
  254. elseif ($nick isvoice $chan) && (%dontkbvoices == ON) { goto end }
  255. else { set -u5 %nickbanned [ $+ [ $nick ] ] YES | sweartxtdo }
  256. .goto end
  257. }
  258. :end
  259. }
  260. on @1:notice:*:#: {
  261. if (%nickbanned [ $+ [ $nick ] ] == $null) {
  262. set %i 0
  263. :checking
  264. inc %i 1
  265. set %currentsword $read -l $+ %i $mircdirTXT/Swear.txt
  266. if (%currentsword == $null) { .unset %i %currentsword | goto end }
  267. else {
  268. if (%currentsword isin $1-) { goto offense }
  269. else { goto checking }
  270. }
  271. :offense
  272. if ($nick isop $chan) && (%dontkbops == ON) { goto end }
  273. elseif ($nick isvoice $chan) && (%dontkbvoices == ON) { goto end }
  274. else { set -u5 %nickbanned [ $+ [ $nick ] ] YES | sweartxtdo }
  275. .goto end
  276. }
  277. :end
  278. }
  279. #Swear end
  280.  
  281. on ^*:nick:{
  282. %new.nick = $newnick
  283. %new.chan = $comchan(%new.nick,1)
  284. set %temo 0
  285. :nickchange
  286. inc %temo 1
  287. if ($comchan($newnick,%temo)) {
  288. echo $colour(nick text) $comchan($newnick,%temo) $timestamp ***3 $nick is now known as 3 $+ $newnick $+
  289. goto nickchange
  290. }
  291. unset %temo %new.nick %new.chan
  292. haltdef
  293. }
  294. dialog invdo2 {
  295. icon %ask
  296. title "INVITE 2"
  297. size -1 -1 270 120
  298. edit "", 1, 5 10 260 20, read
  299. edit "", 2, 170 35 95 20, read
  300. box "", 3, 5 30 160 26
  301. text "Invited You To Join Channel :", 4, 15 39 142 12
  302. button "Join Channel", 5, 12 70 75 20 , ok
  303. button "Don't Join", 6, 97 70 75 20 , cancel
  304. button "Send Notice", 7, 182 70 75 20
  305. box "", 8, 5 58 260 37
  306. check "Always ask me on invite" 9, 60 100 150 15
  307. }
  308. on 1:dialog:invdo2:init:*:{
  309. did -ra invdo2 1 %inviteme
  310. did -ra invdo2 2 %invitemechan
  311. if (%inviteask == ON) { did -c $dname 9 }
  312. }
  313. on 1:dialog:invdo2:sclick:*:{
  314. if ($did == 5) { join $did(2) | dialog -c invdo2 | unset %inviteme %invitemechan %invitemen | halt }
  315. if ($did == 6) { unset %inviteme %invitemechan %invitemen | dialog -c invdo2 | halt }
  316. if ($did == 7) { notice $gettok($gettok($did(1).text,1,9),1,32) 15,1 $$?="Reply Your Msg" | dialog -c invdo2 | unset %inviteme %invitemechan %invitemen | halt }
  317. if ($did == 9) {
  318. if (%inviteask == ON) { set %inviteask OFF }
  319. else { set %inviteask ON }
  320. }
  321. }
  322. dialog invdo3 {
  323. icon %ask
  324. title "INVITE 3"
  325. size -1 -1 270 120
  326. edit "", 1, 5 10 260 20, read
  327. edit "", 2, 170 35 95 20, read
  328. box "", 3, 5 30 160 26
  329. text "Invited You To Join Channel :", 4, 15 39 142 12
  330. button "Join Channel", 5, 12 70 75 20 , ok
  331. button "Don't Join", 6, 97 70 75 20 , cancel
  332. button "Send Notice", 7, 182 70 75 20
  333. box "", 8, 5 58 260 37
  334. check "Always ask me on invite" 9, 60 100 150 15
  335. }
  336. on 1:dialog:invdo3:init:*:{
  337. did -ra invdo3 1 %inviteme
  338. did -ra invdo3 2 %invitemechan
  339. if (%inviteask == ON) { did -c $dname 9 }
  340. }
  341. on 1:dialog:invdo3:sclick:*:{
  342. if ($did == 5) { join $did(2) | dialog -c invdo3 | unset %inviteme %invitemechan %invitemen | halt }
  343. if ($did == 6) { unset %inviteme %invitemechan %invitemen | dialog -c invdo3 | halt }
  344. if ($did == 7) { notice $gettok($gettok($did(1).text,1,9),1,32) 15,1 $$?="Reply Your Msg" | dialog -c invdo3 | unset %inviteme %invitemechan %invitemen | halt }
  345. if ($did == 9) {
  346. if (%inviteask == ON) { set %inviteask OFF }
  347. else { set %inviteask ON }
  348. }
  349. }
  350. dialog invdo4 {
  351. icon %ask
  352. title "INVITE 4"
  353. size -1 -1 270 120
  354. edit "", 1, 5 10 260 20, read
  355. edit "", 2, 170 35 95 20, read
  356. box "", 3, 5 30 160 26
  357. text "Invited You To Join Channel :", 4, 15 39 142 12
  358. button "Join Channel", 5, 12 70 75 20 , ok
  359. button "Don't Join", 6, 97 70 75 20 , cancel
  360. button "Send Notice", 7, 182 70 75 20
  361. box "", 8, 5 58 260 37
  362. check "Always ask me on invite" 9, 60 100 150 15
  363. }
  364. on 1:dialog:invdo4:init:*:{
  365. did -ra invdo4 1 %inviteme
  366. did -ra invdo4 2 %invitemechan
  367. if (%inviteask == ON) { did -c $dname 9 }
  368. }
  369. on 1:dialog:invdo4:sclick:*:{
  370. if ($did == 5) { join $did(2) | dialog -c invdo4 | unset %inviteme %invitemechan %invitemen | halt }
  371. if ($did == 6) { unset %inviteme %invitemechan %invitemen | dialog -c invdo4 | halt }
  372. if ($did == 7) { notice $gettok($gettok($did(1).text,1,9),1,32) 15,1 $$?="Reply Your Msg" | dialog -c invdo4 | unset %inviteme %invitemechan %invitemen | halt }
  373. if ($did == 9) {
  374. if (%inviteask == ON) { set %inviteask OFF }
  375. else { set %inviteask ON }
  376. }
  377. }
  378. dialog invdo5 {
  379. icon %ask
  380. title "INVITE 5"
  381. size -1 -1 270 120
  382. edit "", 1, 5 10 260 20, read
  383. edit "", 2, 170 35 95 20, read
  384. box "", 3, 5 30 160 26
  385. text "Invited You To Join Channel :", 4, 15 39 142 12
  386. button "Join Channel", 5, 12 70 75 20 , ok
  387. button "Don't Join", 6, 97 70 75 20 , cancel
  388. button "Send Notice", 7, 182 70 75 20
  389. box "", 8, 5 58 260 37
  390. check "Always ask me on invite" 9, 60 100 150 15
  391. }
  392. on 1:dialog:invdo5:init:*:{
  393. did -ra invdo5 1 %inviteme
  394. did -ra invdo5 2 %invitemechan
  395. if (%inviteask == ON) { did -c $dname 9 }
  396. }
  397. on 1:dialog:invdo5:sclick:*:{
  398. if ($did == 5) { join $did(2) | dialog -c invdo5 | unset %inviteme %invitemechan %invitemen | halt }
  399. if ($did == 6) { unset %inviteme %invitemechan %invitemen | dialog -c invdo5 | halt }
  400. if ($did == 7) { notice $gettok($gettok($did(1).text,1,9),1,32) 15,1 $$?="Reply Your Msg" | dialog -c invdo5 | unset %inviteme %invitemechan %invitemen | halt }
  401. if ($did == 9) {
  402. if (%inviteask == ON) { set %inviteask OFF }
  403. else { set %inviteask ON }
  404. }
  405. }
  406. alias lockpass {
  407. if ($1 != %lockpass2) { lockpassa $?="Enter Your Lock Password:" | halt }
  408. }
  409. alias lockpassa {
  410. if ($1 != %lockpass2) { exit }
  411. }
  412. on *:part:#:{ if ($nick == $me) { part # 11,1 $+ $chr(171) $+ 7 $+ $chr(68) $+ 15 $+ $chr(97) $+ 14 $+ $chr(110) $+ 15 $+ $chr(105) $+ 14 $+ $chr(101) $+ 15 $+ $c
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!