API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jan 23rd, 2018
70
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 50.38 KB | None | 0 0
raw download clone embed print report
  1.  
  2. Aliases
  3. /ug /me huggles $$1
  4. /hug /me 4h 07u 08g 09g 12l 06e 13s $$1-
  5. /cud /me 4c 07u 08d 09d 12l 06e 13s $$1-
  6. /away /nick Toby|Away
  7. /back /nick `Toby
  8. /bnc /nick Toby|BNC
  9. /ghost /ns ghost `Toby
  10. /flashbang /msg $chan 0,8FLASH BANG 8,0FLASH BANG 0,8FLASH BANG 8,0FLASH BANG 0,8FLASH BANG 8,0FLASH BANG 0,8FLASH BANG 8,0FLASH BANG 0,8FLASH BANG 8,0FLASH BANG 0,8FLASH BANG 8,0FLASH BANG 0,8FLASH BANG 8,0FLASH BANG 0,8FLASH BANG 8,0FLASH BANG 0,8FLASH BANG 8,0FLASH BANG 0,8FLASH BANG 8 8,0FLASH BANG 0,8FLASH BANG 8,0FLASH BANG 0,8FLASH BANG 8,0FLASH BANG 0,8FLASH BANG 8,0FLASH BANG 0,8FLASH BANG 8,0FLASH BANG 0,8FLASH BANG 8,0FLASH BANG
  11. /minibeg /msg Vonte Vonte get a war
  12. /global /amsg 12« 1[ 12amsg 1] 12» $$1-
  13. /face /msg $chan ¯\_(ツ)_/¯
  14.  
  15. Remote
  16. PROHler
  17. menu * {
  18. ProHLer
  19. .$iif(!%ProHLer.On,$style(2))Turn ProHLer Off:/ProHLer.Off
  20. .$iif(%ProHLer.On,$style(2))Turn ProHLer On:/ProHLer.On
  21. .-
  22. .Open ProHler:/ProHLer.Open
  23. }
  24. menu nicklist {
  25. ProHLer
  26. .$iif($1 == $null,$style(2)) Add to NonHighlighting Nicknames:/ProHLer.Menu.NickList.1 $1
  27. }
  28. menu @ProHLer.* {
  29. dclick:/ProHLer.Menu.Window.2 $1-
  30. ProHLer
  31. .Add to NonHighlighting Nicknames:ProHLer.Menu.Window.1 $active
  32. }
  33.  
  34. ;If You have your own color identifers you can replace the ProHLer identifers with something like this:
  35. ;alias ProHLer.C1 {
  36. ; var %c = $c1(MSG)
  37. ; %c = $gettok($remove(%c, ,MSG),1,44)
  38. ; return $iif($prop == code,%c,$iif($1,$+( ,%c,$1),$+( ,%c)))
  39. ;}
  40. alias ProHLer.C1 {
  41. var %c = 04
  42. %c = $gettok($remove(%c, ,MSG),1,44)
  43. return $iif($prop == code,%c,$iif($1,$+( ,%c,$1),$+( ,%c)))
  44. }
  45. alias ProHLer.C2 {
  46. var %c = 03
  47. %c = $gettok($remove(%c, ,MSG),1,44)
  48. return $iif($prop == code,%c,$iif($1,$+( ,%c,$1),$+( ,%c)))
  49. }
  50. alias ProHLer.C3 {
  51. var %c = 02
  52. %c = $gettok($remove(%c, ,MSG),1,44)
  53. return $iif($prop == code,%c,$iif($1,$+( ,%c,$1),$+( ,%c)))
  54. }
  55. alias ProHLer.C4 {
  56. var %c = 05
  57. %c = $gettok($remove(%c, ,MSG),1,44)
  58. return $iif($prop == code,%c,$iif($1,$+( ,%c,$1),$+( ,%c)))
  59. }
  60. alias ProHLer.CloseWindows {
  61. if ($input(Are you sure you want to close all the ProHLer windows?,yqd,ProHLer - Question)) {
  62. var %total $window(@ProHLer.*,0)
  63. close -@ProHLer.*
  64. if ($dialog(ProHLer.DMain)) dialog -x $v1
  65. if ($dialog(ProHLer.DNoHL)) dialog -x $v1
  66. if ($dialog(ProHLer.DHLers)) dialog -x $v1
  67. if ($dialog(ProHLer.DResetStats)) dialog -x $v1
  68. if ($dialog(ProHLer.DSettings)) dialog -x $v1
  69. noop $input(All ProHLer windows are closed! Total: %total,oid,ProHLer - Info)
  70. }
  71. }
  72. alias ProHLer.Help {
  73. if ($window(@ProHLer.Help)) {
  74. clear @ProHLer.Help
  75. }
  76. else window -k0vxz @ProHLer.Help
  77. aline $ProHLer.C1().code @ProHLer.Help <***>ProHLer HighLight detection script by: Marlinc - Version $ProHLer.Version $+ <***>
  78. aline $ProHLer.C3().code @ProHLer.Help Common aliases:
  79. aline @ProHLer.Help $ProHLer.C2(/ProHLer.Open) $ProHLer.C1(=) $ProHLer.C3(Opens the main screen of ProHLer wich provides Stats and Settings)
  80. aline @ProHLer.Help $ProHLer.C2(/ProHLer.CloseWindows) $ProHLer.C1(=) $ProHLer.C3(Closes all the ProHLer windows)
  81. aline @ProHLer.Help $ProHLer.C2(/ProHLer.Help) $ProHLer.C1(=) $ProHLer.C3(Opens this help screen)
  82. aline @ProHLer.Help $ProHLer.C2(/ProHLer.On) $ProHLer.C1(=) $ProHLer.C3(This will turn ProHLer on)
  83. aline @ProHLer.Help $ProHLer.C2(/ProHLer.Off) $ProHLer.C1(=) $ProHLer.C3(This will turn ProHLer off)
  84. aline @ProHLer.Help $ProHLer.C2(/ProHLer.Changelog) $ProHLer.C1(=) $ProHLer.C3(Opens the ProHLer changelog)
  85. aline $ProHLer.C3().code @ProHLer.Help -----
  86. aline $ProHLer.C3().code @ProHLer.Help Developer aliases/identifiers/variables:
  87. aline @ProHLer.Help $ProHLer.C2(/ProHLer.Nicks.Filter) $ProHLer.C1(=) $ProHLer.C3(Sorts the nicknames that highlighted you to a file called ProHLer.NicksOUT.txt)
  88. aline @ProHLer.Help $ProHLer.C2(/ProHLer.Chans.Filter) $ProHLer.C1(=) $ProHLer.C3(Sorts the channels where you are highlighted you to a file called ProHLer.ChansOUT.txt)
  89. aline @ProHLer.Help $ProHLer.C2($!ProHLer.Version) $ProHLer.C1(=) $ProHLer.C3(Returns the current ProHLer version)
  90. aline @ProHLer.Help $ProHLer.C2($!ProHLer.Duration) $ProHLer.C1(=) $ProHLer.C3(Returns a $ProHLer.Duration(12345) format of $!duration)
  91. aline @ProHLer.Help $ProHLer.C2($!ProHLer.C1) $ProHLer.C1(=) $ProHLer.C3(Returns ProHLer color 1)
  92. aline @ProHLer.Help $ProHLer.C2($!ProHLer.C2) $ProHLer.C1(=) $ProHLer.C3(Returns ProHLer color 2)
  93. aline @ProHLer.Help $ProHLer.C2($!ProHLer.C3) $ProHLer.C1(=) $ProHLer.C3(Returns ProHLer color 3)
  94. aline @ProHLer.Help $ProHLer.C2($!ProHLer.C4) $ProHLer.C1(=) $ProHLer.C3(Returns ProHLer color 4)
  95. aline @ProHLer.Help $ProHLer.C2($!ProHLer.C5) $ProHLer.C1(=) $ProHLer.C3(Returns ProHLer color 5)
  96. aline @ProHLer.Help $ProHLer.C2($!ProHler.NoHL) $ProHLer.C1(=) $ProHLer.C3(If no nickname specified it will return a list of nicknames that can't highlight you)
  97. aline @ProHLer.Help $ProHLer.C2($+(%,ProHLer.LastUpdate)) $ProHLer.C1(=) $ProHLer.C3(Returns the time of the last update in $!ctime format)
  98. aline @ProHLer.Help $ProHLer.C2($+(%,ProHLer.Version)) $ProHLer.C1(=) $ProHLer.C3(Returns the current ProHLer version. This is only to check if you updated you ProHLer version)
  99. aline @ProHLer.Help $ProHLer.C2($+(%,ProHLer.TotalHls)) $ProHLer.C1(=) $ProHLer.C3(Returns the total of highlights you got)
  100. }
  101. alias ProHLer.ChangeLog {
  102. if ($window(@ProHLer.Help)) {
  103. clear @ProHLer.Help
  104. }
  105. else window -k0vxz @ProHLer.Help
  106. aline $ProHLer.C1().code @ProHLer.Help <***>ProHLer HighLight detection script by: Marlinc - Version $ProHLer.Version $+ <***>
  107. aline $ProHLer.C3().code @ProHLer.Help Changelog $ProHLer.Version $+ :
  108. aline @ProHLer.Help $ProHLer.C2(----- 1 -----) $ProHLer.C1(=) $ProHLer.C3(Add updatechecker)
  109. aline @ProHLer.Help $ProHLer.C2(----- 2 -----) $ProHLer.C1(=) $ProHLer.C3(Changed a type mistake: Allowd to Allowed)
  110. aline @ProHLer.Help $ProHLer.C2(----- 3 -----) $ProHLer.C1(=) $ProHLer.C3(Added a settings dialog)
  111. aline @ProHLer.Help $ProHLer.C2(----- 4 -----) $ProHLer.C1(=) $ProHLer.C3(Added a question to ask if the updatechecker needs to start when the main window opens)
  112. aline @ProHLer.Help $ProHLer.C2(----- 5 -----) $ProHLer.C1(=) $ProHLer.C3(Added a question to ask if ProHLer needs to at ur current nickname to your highlighters $+ $chr(40) $+ Only when firstrun $+ $chr(41))
  113. aline @ProHLer.Help $ProHLer.C2(----- 6 -----) $ProHLer.C1(=) $ProHLer.C3(Added common alias /ProHLer.ChangeLog)
  114. aline @ProHLer.Help $ProHLer.C2(----- 7 -----) $ProHLer.C1(=) $ProHLer.C3(Added "Close all ProHLer Windows" to the userhighlight listbox)
  115. aline @ProHLer.Help $ProHLer.C2(----- 8 -----) $ProHLer.C1(=) $ProHLer.C3(Color bug solved at the highlight tips)
  116. aline @ProHLer.Help $ProHLer.C2(----- 8 -----) $ProHLer.C1(=) $ProHLer.C3(Install/UpdateWindow bug solved)
  117. }
  118.  
  119. alias ProHLer.Duration {
  120. return $replacecs($duration($1),hrs,Hours,hr,Hour,mins,Minutes,min,Minute,secs,Seconds,sec,Second,days,Days,day,Day,wks,Weeks,wk,Week)
  121. }
  122. alias ProHLer.Menu.NickList.1 {
  123. set %proHler.DNoHL.nick $1
  124. dialog -mordv ProHLer.DNoHL ProHLer.DNoHL
  125. }
  126. alias ProHLer.Menu.Window.1 {
  127. set %proHler.DNoHL.nick $remove($1,@ProHLer.)
  128. dialog -mordv ProHLer.DNoHL ProHLer.DNoHL
  129. }
  130. alias ProHLer.Menu.Window.2 {
  131. if ($mouse.lb) {
  132. if ($1 == 1) {
  133. set %proHler.DNoHL.nick $remove($active,@ProHLer.)
  134. dialog -mordv ProHLer.DNoHL ProHLer.DNoHL
  135. }
  136. elseif ($1 == 2) ProHLer.Open
  137. elseif ($1 == 3) window -c $active
  138. elseif ($1 == 4) ProHLer.CloseWindows
  139. }
  140. }
  141. alias ProHLer.UpdateCheck.Start {
  142. set %ProHLer.UpdateCheck.LastCheck $ctime
  143. if ($sock(ProHLer.UpdateCheck)) echo -a socket is al open
  144. else {
  145. if ($1) set %ProHLer.UpdateCheck.Alias $1
  146. else set %ProHLer.UpdateCheck.Alias ProHLer.UpdateCheck.Return1
  147. if ($window(@ProHLer.UpdateCheck)) clear @ProHLer.UpdateCheck
  148. else window -k0n2h @ProHLer.UpdateCheck
  149. aline $ProHLer.C1().code @ProHLer.UpdateCheck <***>ProHLer HighLight detection script by: Marlinc - Version $ProHLer.Version $+ <***>
  150. aline $ProHLer.C3().code @ProHLer.UpdateCheck Checking for new version...
  151. sockopen ProHLer.UpdateCheck mchosts.co.cc 80
  152. }
  153. }
  154. on *:sockopen:ProHLer.UpdateCheck*: {
  155. sockwrite -nt $sockname GET /mirc/ProHLer-UpdateCheck.php HTTP/1.1
  156. sockwrite -nt $sockname Host: mchosts.co.cc
  157. sockwrite -nt $sockname User-Agent: ProHLer VersionCheck
  158. sockwrite -nt $sockname $crlf
  159. }
  160. on *:sockread:ProHLer.UpdateCheck*: {
  161. if ($sockerr > 0) halt
  162. var %data
  163. sockread %data
  164. set %ProHLer.UpdateCheck.HTTP.Code $gettok(%data,2,32)
  165. set %ProHLer.UpdateCheck.HTTP.Response $gettok(%data,3-,32)
  166. while ($sockbr) {
  167. sockread %data
  168. if (DATA:* iswm %data) {
  169. var %data $mid(%data,6)
  170. set %ProHLer.UpdateCheck.Data.NewVersion $gettok(%data,1,44)
  171. set %ProHLer.UpdateCheck.Data.SwiftIRCUrl $gettok(%data,2,44)
  172. }
  173. }
  174. ProHLer.UpdateCheck.Check
  175. }
  176. alias ProHLer.UpdateCheck.Check {
  177. if ($window(@ProHLer.UpdateCheck)) {
  178. if (%ProHLer.UpdateCheck.HTTP.Code == 200) {
  179. aline $ProHLer.C1().code @ProHLer.UpdateCheck Data downloaded successfull!
  180. aline $ProHLer.C1().code @ProHLer.UpdateCheck Checking data...
  181. aline @ProHLer.UpdateCheck $ProHLer.C1(The newest) $ProHLer.C2(ProHLer) $ProHLer.C1(version is) $ProHLer.C2(%ProHLer.UpdateCheck.Data.NewVersion)
  182. if ($ProHLer.Version < %ProHLer.UpdateCheck.Data.NewVersion) {
  183. aline @ProHLer.UpdateCheck $ProHLer.C1(Please go to) $ProHLer.C2(%ProHLer.UpdateCheck.Data.SwiftIRCUrl) $ProHLer.C1(and upgrade ur) $ProHLer.C2(ProHLer) $ProHLer.C1(to version) $ProHLer.C2(%ProHLer.UpdateCheck.Data.NewVersion) $+ $ProHLer.C1(!)
  184. }
  185. else aline @ProHLer.UpdateCheck $ProHLer.C1(You already got the newest version of) $ProHLer.C2(ProHLer) $ProHLer.C1(there no need to upgrade!)
  186. }
  187. else {
  188. aline $ProHLer.C1().code @ProHLer.UpdateCheck An error has occurred while checking for a new version:
  189. aline @ProHLer.UpdateCheck $ProHLer.C1(HTTP-Errorcode =) $c2(%ProHLer.UpdateCheck.HTTP.Code)
  190. aline @ProHLer.UpdateCheck $ProHLer.C1(HTTP-Errorname =) $c2(%ProHLer.UpdateCheck.HTTP.Response)
  191. }
  192. aline $ProHLer.C3().code @ProHLer.UpdateCheck -----
  193. }
  194. if (%ProHLer.UpdateCheck.Alias) .timerProHLer.UpdateCheck.AliasTimer 1 0 %ProHLer.UpdateCheck.Alias @ProHLer.UpdateCheck
  195. }
  196. alias ProHLer.UpdateCheck.Return1 {
  197. window -a $gettok($1,1,59)
  198. }
  199. alias ProHLer.UpdateCheck.Return2 {
  200. if (%ProHLer.UpdateCheck.HTTP.Code == 200) {
  201. if ($ProHLer.Version < %ProHLer.UpdateCheck.Data.NewVersion) {
  202. if ($dialog(ProHLer.DMain)) dialog -n $v1
  203. if ($input(ProHLer Version %ProHLer.UpdateCheck.Data.NewVersion is now available! Do you want to see the update url?,yqd,ProHLer - Question)) {
  204. window -aw3 @ProHLer.UpdateCheck
  205. }
  206. if ($dialog(ProHLer.DMain)) dialog -o $v1
  207. }
  208. else window -c @ProHLer.UpdateCheck
  209. }
  210. else window -c @ProHLer.UpdateCheck
  211. }
  212. alias ProHler.Version { return 1.31 }
  213. alias ProHLer.Open {
  214. if ($dialog(ProHLer.DMain)) dialog -x ProHLer.DMain
  215. if (%ProHLer.On == $null) set %ProHLer.On $true
  216. if (%ProHLer.Version) {
  217. if (%ProHLer.Version < $ProHler.Version) {
  218. var %OldVer %ProHLer.Version
  219. if (%ProHLer.LastUpdate) var %OldUpdate %ProHLer.LastUpdate
  220. ProHLer.Nicks.Filter
  221. ProHLer.Chans.Filter
  222. noop $input(Thank you for upgrading to ProHLer version " $+ $ProHLer.Version $+ "! $crlf $crlf Please wait patient while we check your current settings!,oid,ProHLer - Info)
  223. window -xdok0g1 @ProHLer.SettingsCheck
  224. aline $ProHLer.C1().code @ProHLer.SettingsCheck <***>ProHLer HighLight detection script by: Marlinc<***>
  225. aline $ProHLer.C3().code @ProHLer.SettingsCheck Loading nickname's that HighLighted you:
  226. var %i = 1
  227. while (%i <= $lines(ProHLer.NicksOUT.txt)) {
  228. var %name $gettok($read(ProHLer.NicksOUT.txt,n,%i),2,59)
  229. var %times = $gettok($read(ProHLer.NicksOUT.txt,n,%i),3,59)
  230. aline @ProHLer.SettingsCheck $ProHLer.C2(%name) $ProHLer.C1(=) $ProHLer.C1(%times)
  231. inc %i
  232. }
  233. aline $ProHLer.C3().code @ProHLer.SettingsCheck -----
  234. aline $ProHLer.C3().code @ProHLer.SettingsCheck Loading channels where you are HighLighted on:
  235. var %i = 1
  236. while (%i <= $lines(ProHLer.ChansOUT.txt)) {
  237. var %name $gettok($read(ProHLer.ChansOUT.txt,n,%i),2,59)
  238. var %times = $gettok($read(ProHLer.ChansOUT.txt,n,%i),3,59)
  239. aline @ProHLer.SettingsCheck $ProHLer.C2(%name) $ProHLer.C1(=) $ProHLer.C1(%times)
  240. inc %i
  241. }
  242. aline $ProHLer.C3().code @ProHLer.SettingsCheck -----
  243. aline $ProHLer.C3().code @ProHLer.SettingsCheck Setting variables:
  244. aline @ProHLer.SettingsCheck $ProHLer.C1(Setting var:) $ProHLer.C2($+(%,ProHLer.LastUpdate)) $ProHLer.C1(To) $ProHLer.C2($ctime)
  245. set %ProHLer.LastUpdate $ctime
  246. aline @ProHLer.SettingsCheck $ProHLer.C1(Setting var:) $ProHLer.C2($+(%,ProHLer.Version)) $ProHLer.C1(To) $ProHLer.C2($ProHLer.Version)
  247. set %ProHLer.Version $ProHLer.Version
  248. if (!%ProHLer.UpdateCheck.On) {
  249. window -u @ProHLer.SettingsCheck
  250. if ($input(Do you want ProHLer to check for a new version everytime you open the main window?,yqd,ProHLer - Question)) {
  251. aline @ProHLer.SettingsCheck $ProHLer.C1(Setting var:) $ProHLer.C2($+(%,ProHLer.UpdateCheck.On)) $ProHLer.C1(To) $ProHLer.C2($!true)
  252. set %ProHLer.UpdateCheck.On $true
  253. }
  254. else {
  255. aline @ProHLer.SettingsCheck $ProHLer.C1(Setting var:) $ProHLer.C2($+(%,ProHLer.UpdateCheck.On)) $ProHLer.C1(To) $ProHLer.C2($!false)
  256. set %ProHLer.UpdateCheck.On $false
  257. }
  258. window -o @ProHLer.SettingsCheck
  259. }
  260. aline $ProHLer.C3().code @ProHLer.SettingsCheck -----
  261. aline $ProHLer.C3().code @ProHLer.SettingsCheck Thank you for upgrading to ProHLer version " $+ $ProHLer.Version $+ " from version " $+ %OldVer $+ "!
  262. if (%oldUpdate) aline $ProHLer.C3().code @ProHLer.SettingsCheck Your last update as on $asctime(%OldUpdate) that was $ProHLer.Duration($calc($ctime - %OldUpdate)) ago!
  263. }
  264. else {
  265. if (%ProHLer.UpdateCheck.On) {
  266. ProHLer.UpdateCheck.Start ProHLer.UpdateCheck.Return2
  267. }
  268. }
  269. }
  270. else {
  271. noop $input(Thank you for installing ProHLer version " $+ $ProHLer.Version $+ "! $crlf $crlf Please wait patient while we set some settings!,oid,ProHLer - Info)
  272. window -xdok0g1 @ProHLer.SettingsCheck
  273. aline $ProHLer.C1().code @ProHLer.SettingsCheck <***>ProHLer HighLight detection script by: Marlinc<***>
  274. aline $ProHLer.C3().code @ProHLer.SettingsCheck Setting variables:
  275. aline @ProHLer.SettingsCheck $ProHLer.C1(Setting var:) $ProHLer.C2($+(%,ProHLer.LastUpdate)) $ProHLer.C1(To) $ProHLer.C2($ctime)
  276. set %ProHLer.LastUpdate $ctime
  277. aline @ProHLer.SettingsCheck $ProHLer.C1(Setting var:) $ProHLer.C2($+(%,ProHLer.Version)) $ProHLer.C1(To) $ProHLer.C2($ProHLer.Version)
  278. set %ProHLer.Version $ProHLer.Version
  279. window -u @ProHLer.SettingsCheck
  280. if ($input(Do you want ProHLer to check for a new version everytime you open the main window?,yqd,ProHLer - Question)) {
  281. aline @ProHLer.SettingsCheck $ProHLer.C1(Setting var:) $ProHLer.C2($+(%,ProHLer.UpdateCheck.On)) $ProHLer.C1(To) $ProHLer.C2($!true)
  282. set %ProHLer.UpdateCheck.On $true
  283. }
  284. else {
  285. aline @ProHLer.SettingsCheck $ProHLer.C1(Setting var:) $ProHLer.C2($+(%,ProHLer.UpdateCheck.On)) $ProHLer.C1(To) $ProHLer.C2($!false)
  286. set %ProHLer.UpdateCheck.On $false
  287. }
  288. if ($input(Do you want to use " $+ $me $+ " as a highlighter?,yqd,ProHLer - Question)) {
  289. aline @ProHLer.SettingsCheck $ProHLer.C1(Setting var:) $ProHLer.C2($+(%,ProHLer.Highlights)) $ProHLer.C1(To) $ProHLer.C2($me)
  290. set %ProHLer.Highlights $me
  291. }
  292. window -o @ProHLer.SettingsCheck
  293. aline $ProHLer.C3().code @ProHLer.SettingsCheck -----
  294. aline $ProHLer.C3().code @ProHLer.SettingsCheck Thank you for installing ProHLer version " $+ $ProHLer.Version $+ "!
  295. }
  296. dialog -mordv ProHLer.DMain ProHLer.DMain
  297. }
  298. alias ProHLer.DMain.Reload {
  299. ProHLer.Nicks.Filter
  300. ProHLer.Chans.Filter
  301.  
  302. if ($dialog(ProHLer.DMain)) {
  303. did -ra ProHLer.DMain 31 $bytes($iif(%ProHLer.TotalHls isnum,%ProHLer.TotalHls,0),bd)
  304. did -ra ProHLer.DMain 37 $bytes($iif(%ProHLer.TotalHls isnum,$var(%ProHLer.Nicks.*,0),0),bd)
  305. did -ra ProHLer.DMain 39 $bytes($iif(%ProHLer.TotalHls isnum,$var(%ProHLer.Chans.*,0),0),bd)
  306. var %name $gettok($read(ProHLer.NicksOUT.txt,n,1),2,59)
  307. var %times = $gettok($read(ProHLer.NicksOUT.txt,n,1),3,59)
  308. did -ra ProHLer.DMain 33 $iif(%name,%name,None) $+ $chr(40) $+ $bytes($iif(%times,%times,0),bd) $+ $chr(41)
  309. var %chan $gettok($read(ProHLer.ChansOUT.txt,n,1),2,59)
  310. var %times = $gettok($read(ProHLer.ChansOUT.txt,n,1),3,59)
  311. did -ra ProHLer.DMain 35 $iif(%chan,%chan,None) $+ $chr(40) $+ $bytes($iif(%times,%times,0),bd) $+ $chr(41)
  312. did -ra ProHLer.DMain 41 $bytes($iif(%ProHLer.TotalNonHls isnum,%ProHLer.TotalNonHls,0),bd)
  313. did -h ProHLer.DMain 22
  314. did -h ProHLer.DMain 42
  315. did -h ProHLer.DMain 43
  316. did -ra ProHLer.DMain 43 $bytes($calc($iif(%ProHLer.TotalHls isnum,%ProHLer.TotalHls,0) / $iif(%ProHLer.Average.Day isnum,%ProHLer.Average.Day,0)),bd)
  317. did -ra ProHLer.DMain 55 Turn ProHLer $iif(%ProHLer.On,Off,On)
  318. }
  319. }
  320. alias ProHLer.DHLers.Reload {
  321. if ($dialog(ProHLer.DHLers)) {
  322. did -ra ProHLer.DHLers 31 None
  323. did -rm ProHLer.DHLers 33
  324. did -r ProHLer.DHLers 70
  325. did -r ProHLer.DHLers 71
  326. var %i = 1
  327. while (%i <= $numtok(%ProHLer.Highlights,59)) {
  328. did -a ProHLer.DHLers 70 %i
  329. did -a ProHLer.DHLers 71 $gettok(%ProHLer.Highlights,%i,59)
  330. inc %i
  331. }
  332. }
  333. }
  334. alias ProHLer.DNoHL.Reload {
  335. if ($dialog(ProHLer.DNoHL)) {
  336. did -ra ProHLer.DNoHL 31 None
  337. did -rm ProHLer.DNoHL 33
  338. did -r ProHLer.DNoHL 70
  339. did -r ProHLer.DNoHL 71
  340. var %i = 1
  341. while (%i <= $numtok(%ProHLer.NoHls,59)) {
  342. did -a ProHLer.DNoHL 70 %i
  343. did -a ProHLer.DNoHL 71 $gettok(%ProHLer.NoHls,%i,59)
  344. inc %i
  345. }
  346. }
  347. }
  348. alias ProHLer.DSettings.Reload {
  349. if ($dialog(ProHLer.DSettings)) {
  350. did -ra ProHLer.DSettings 50 $iif(%ProHLer.UpdateCheck.On,Disable,Enable) AutoUpdate
  351. }
  352. }
  353. alias ProHLer.Nicks.Filter {
  354. write -c ProHLer.NicksIN.txt
  355. write -c ProHLer.NicksOUT.txt
  356. var %i = 1
  357. while (%i <= $var(%ProHLer.Nicks.*,0)) {
  358. write ProHLer.NicksIN.txt $var(%ProHLer.Nicks.*,%i) $+ $chr(59) $+ $remove($var(%ProHLer.Nicks.*,%i),%,ProHLer.Nicks.) $+ $chr(59) $+ $eval($var(%ProHLer.Nicks.*,%i),2)
  359. inc %i
  360. }
  361. filter -fk ProHLer.NicksIN.txt ProHLer.Nicks.FilterGet *
  362. write -c ProHLer.NicksIN.txt
  363. }
  364. alias ProHLer.Nicks.FilterGet {
  365. var %data $1-
  366. tokenize 59 %data
  367. var %high $gettok($read(ProHLer.NicksOUT.txt,n,1),3,59)
  368. var %high $iif(%high,%high,0)
  369. if ($3 > %high) {
  370. write -il1 ProHLer.NicksOUT.txt %data
  371. }
  372. else {
  373. write ProHLer.NicksOUT.txt %data
  374. }
  375. }
  376. alias ProHLer.Chans.Filter {
  377. write -c ProHLer.ChansIN.txt
  378. write -c ProHLer.ChansOUT.txt
  379. var %i = 1
  380. while (%i <= $var(%ProHLer.Chans.*,0)) {
  381. write ProHLer.ChansIN.txt $var(%ProHLer.Chans.*,%i) $+ $chr(59) $+ $remove($var(%ProHLer.Chans.*,%i),%,ProHLer.Chans.) $+ $chr(59) $+ $eval($var(%ProHLer.Chans.*,%i),2)
  382. inc %i
  383. }
  384. filter -fk ProHLer.ChansIN.txt ProHLer.Chans.FilterGet *
  385. write -c ProHLer.ChansIN.txt
  386. }
  387. alias ProHLer.Chans.FilterGet {
  388. var %data $1-
  389. tokenize 59 %data
  390. var %high $gettok($read(ProHLer.ChansOUT.txt,n,1),3,59)
  391. var %high $iif(%high,%high,0)
  392. if ($3 > %high) {
  393. write -il1 ProHLer.ChansOUT.txt %data
  394. }
  395. else {
  396. write ProHLer.ChansOUT.txt %data
  397. }
  398. }
  399. alias ProHler.NoHL {
  400. if ($1) {
  401. var %i = 1
  402. while (%i <= $numtok(%ProHLer.NoHls,59)) {
  403. if ($gettok(%ProHLer.NoHls,%i,59) iswm $1) return $gettok(%ProHLer.NoHls,%i,59)
  404. inc %i
  405. }
  406. }
  407. else return %ProHLer.NoHls
  408. }
  409. alias ProHLer.Off {
  410. set %ProHLer.On $false
  411. echo -at $ProHLer.C1(ProHLer is now turned off!)
  412. }
  413. alias ProHLer.On {
  414. set %ProHLer.On $true
  415. echo -at $ProHLer.C1(ProHLer is now turned on!)
  416. }
  417. on ^*:TEXT:*:*: {
  418. if (%ProHLer.On) {
  419. var %hltext $replace($1-,$chr(59),-)
  420. var %hlplace $iif($chan,$chan,$nick)
  421. var %i = 1
  422. while (%i <= $numtok(%ProHLer.Highlights,59)) {
  423. var %hler $eval($gettok(%ProHLer.Highlights,%i,59),2)
  424. if (%hler isin %hltext) {
  425. if ($ProHler.NoHL($nick)) {
  426. inc %ProHLer.TotalNonHls
  427. }
  428. else {
  429. inc %ProHLer.TotalHls
  430. inc %ProHLer.Nicks. $+ $nick
  431. set %ProHLer.Last.Nick $nick
  432. set %ProHLer.Last.Time $ctime
  433. if (%ProHLer.Date.Day != $date(dd-mm-yy)) {
  434. set %ProHLer.Date.Day $date(dd-mm-yy)
  435. inc %ProHLer.Average.Day
  436. }
  437. var %i = 1
  438. while (%i <= $cnick(0)) {
  439. if ($cnick(%i) iswm $nick) { var %c $cnick(%i).color | break }
  440. elseif (($nick isop $chan) && (@ isin $cnick(%i).modes)) { var %c $cnick(%i).color | break }
  441. elseif (($nick ishop $chan) && (% isin $cnick(%i).modes)) { var %c $cnick(%i).color | break }
  442. elseif (($nick isvoice $chan) && (+ isin $cnick(%i).modes)) { var %c $cnick(%i).color | break }
  443. elseif (($nick isreg $chan) && ($cnick(%i).nomode) || (!$chan)) { var %c $cnick(%i).color | break }
  444. inc %i
  445. }
  446. if (!%c) var %c $color(text)
  447. if ($nick isop $chan) { var %cc @ }
  448. elseif ($nick ishop $chan) { var %cc % }
  449. elseif ($nick isvoice $chan) { var %cc + }
  450. echo -tmg $iif($chan,$chan,$nick) $+(< ,%c,%cc,$nick, >) $ProHLer.C1 $+ $replace($strip(%hltext),%hler,$ProHLer.C2(%hler) $+ $ProHLer.C1)
  451. if ($chan) inc %ProHLer.Chans. $+ $chan
  452. if ($window(@ProHLer. $+ $nick)) {
  453. rline $ProHLer.C2().code @ProHLer. $+ $nick 2 --- $+ $nick HighLighted you $bytes($eval($+(%,ProHLer.Nicks.,$nick),2),bd) time $+ $iif($eval($+(%,ProHLer.Nicks.,$nick),2) != 1,s) $+ !
  454. aline $ProHLer.C3().code @ProHLer. $+ $nick $ProHLer.C1(HL) $+ $chr(40) $+ $bytes($calc($line(@ProHLer. $+ $nick,0) - 1),bd) - %hlplace - $gmt(HH:nn:ss) $+ $chr(41) $+ $+(< ,%c,%cc,$nick, > 03) $+ : $ProHLer.C1 $+ $replace($strip(%hltext),%hler,$ProHLer.C4(%hler) $+ $ProHLer.C1)
  455. }
  456. else {
  457. window -k0l35n2vxz @ProHLer. $+ $nick
  458. aline -al @ProHLer. $+ $nick Add to NonHighlighting Nicknames
  459. aline -al @ProHLer. $+ $nick Open ProHLer
  460. aline -al @ProHLer. $+ $nick Close Window
  461. aline -al @ProHLer. $+ $nick Close all ProHLer Windows
  462. renwin @ProHLer. $+ $nick @ProHLer. $+ $nick HighLight info( $+ $nick $+ )
  463. aline $ProHLer.C1().code @ProHLer. $+ $nick <***>ProHLer HighLight detection script by: Marlinc - Version $ProHLer.Version $+ <***>
  464. aline $ProHLer.C2().code @ProHLer. $+ $nick --- $+ $nick HighLighted you $bytes($eval($+(%,ProHLer.Nicks.,$nick),2),bd) time $+ $iif($eval($+(%,ProHLer.Nicks.,$nick),2) != 1,s) $+ !
  465. aline $ProHLer.C3().code @ProHLer. $+ $nick $ProHLer.C3(HL) $+ $chr(40) $+ 1 - %hlplace - $gmt(HH:nn:ss) $+ $chr(41) $+ $+(< ,%c,%cc,$nick, > $+ $ProHLer.C2) $+ : $ProHLer.C1 $+ $replace($strip(%hltext),%hler,$ProHLer.C4(%hler) $+ $ProHLer.C1)
  466. }
  467. ProHLer.DMain.Reload
  468. noop $tip(ProHLer. $+ $nick $+ . $+ $ticks,$ProHLer.C1(Pro) $+ $ProHLer.C2(HL) $+ $ProHLer.C1(er) $+ :,$ProHLer.C2($nick) $ProHLer.C1(HighLighted you!) $crlf $ProHLer.C1(Network:) $ProHLer.C2($network) $iif($chan,$crlf $ProHLer.C1(Channel:) $ProHLer.C2($chan)) $crlf $ProHLer.C1(Text:) $ProHLer.C2($replace($strip(%hltext),%hler, 05 $+ %hler $+ 03),10)))
  469. flash -b5 ProHLer: $nick HighLighted you!
  470. window -g2 %hlplace
  471. haltdef
  472. break
  473. }
  474. }
  475. inc %i
  476. }
  477. }
  478. }
  479. dialog -l ProHLer.DMain {
  480.  
  481. ;ID Info:
  482. ;Boxes 20-30
  483. ;Lables(Text) 30-50
  484. ;Buttons 50-70
  485.  
  486. title "ProHLer - Main(Loading...)"
  487. size -1 -1 320 100
  488. option dbu
  489.  
  490. box "Status" , 20, 5 5 150 75
  491. box "Settings" , 21, 155 5 150 85
  492. box "Status" , 22, 5 5 150 85
  493. text "Total HighLights:" , 30, 10 15 75 10
  494. text "Loading..." , 31, 80 15 70 10
  495. text "Most Highlights(Nick):" , 32, 10 25 75 10
  496. text "Loading..." , 33, 80 25 70 10
  497. text "Most Highlights(Chan):" , 34, 10 35 75 10
  498. text "Loading..." , 35, 80 35 70 10
  499. text "Different nicks:" , 36, 10 45 75 10
  500. text "Loading..." , 37, 80 45 70 10
  501. text "Different channels:" , 38, 10 55 75 10
  502. text "Loading..." , 39, 80 55 70 10
  503. text "Ignored HighLights:" , 40, 10 65 75 10
  504. text "Loading..." , 41, 80 65 70 10
  505. text "Average per day:" , 42, 10 75 75 10
  506. text "Loading..." , 43, 80 75 70 10
  507. button "Close ProHLer Windows" , 50, 160 25 80 10
  508. button "Reset Data!" , 51, 160 35 80 10
  509. button "HighLighters!" , 52, 160 45 80 10
  510. button "NonHighLighting nicknames!" , 53, 160 55 80 10
  511. button "Show extra stats" , 54, 160 65 80 10
  512. button "Turn ProHLer ..." , 55, 160 15 80 10
  513. button "Settings" , 56, 160 75 80 10
  514. }
  515. on *:dialog:ProHLer.DMain:init:0: {
  516. dialog -t $dname ProHLer(Version $ProHLer.Version $+ ) - Main
  517.  
  518. ProHLer.DMain.Reload
  519. }
  520. on *:dialog:ProHLer.DMain:sclick:50: {
  521. dialog -n $dname
  522. if ($window(@ProHLer.SettingsCheck)) window -c @ProHLer.SettingsCheck
  523. if ($input(Are you sure you want to close all the ProHLer windows?,yqd,ProHLer - Question)) {
  524. var %total $window(@ProHLer.*,0)
  525. close -@ProHLer.*
  526. dialog -x $dname
  527. if ($dialog(ProHLer.DNoHL)) dialog -x $v1
  528. if ($dialog(ProHLer.DHLers)) dialog -x $v1
  529. if ($dialog(ProHLer.DResetStats)) dialog -x $v1
  530. if ($dialog(ProHLer.DSettings)) dialog -x $v1
  531. noop $input(All ProHLer windows are closed! Total: %total,oid,ProHLer - Info)
  532. }
  533. }
  534. on *:dialog:ProHLer.DMain:sclick:51: {
  535. if ($window(@ProHLer.SettingsCheck)) window -c @ProHLer.SettingsCheck
  536. dialog -mordv ProHLer.DResetStats ProHLer.DResetStats
  537. }
  538. on *:dialog:ProHLer.DMain:sclick:52: {
  539. if ($window(@ProHLer.SettingsCheck)) window -c @ProHLer.SettingsCheck
  540. dialog -mordv ProHLer.DHLers ProHLer.DHLers
  541. }
  542. on *:dialog:ProHLer.DMain:sclick:53: {
  543. if ($window(@ProHLer.SettingsCheck)) window -c @ProHLer.SettingsCheck
  544. dialog -mordv ProHLer.DNoHL ProHLer.DNoHL
  545. }
  546. on *:dialog:ProHLer.DMain:sclick:54: {
  547. if ($did(20).visible) {
  548. did -h $dname 20
  549. did -v $dname 22
  550. did -v ProHLer.DMain 42
  551. did -v ProHLer.DMain 43
  552. did -ra $dname $did Hide extra stats
  553. }
  554. else {
  555. did -v $dname 20
  556. did -h $dname 22
  557. did -h ProHLer.DMain 42
  558. did -h ProHLer.DMain 43
  559. did -ra $dname $did Show extra stats
  560. }
  561. }
  562. on *:dialog:ProHLer.DMain:sclick:55: {
  563. if (%ProHLer.On) {
  564. ProHLer.Off
  565. did -ra ProHLer.DMain 55 Turn ProHLer On
  566. }
  567. else {
  568. ProHLer.On
  569. did -ra ProHLer.DMain 55 Turn ProHLer Off
  570. }
  571. }
  572. on *:dialog:ProHLer.DMain:sclick:56: {
  573. if ($window(@ProHLer.SettingsCheck)) window -c @ProHLer.SettingsCheck
  574. dialog -mordv ProHLer.DSettings ProHLer.DSettings
  575. }
  576. on *:dialog:ProHLer.DMain:close:0: {
  577. if ($window(@ProHLer.SettingsCheck)) window -c @ProHLer.SettingsCheck
  578. }
  579. dialog -l ProHLer.DHLers {
  580.  
  581. ;ID Info:
  582. ;Boxes 20-30
  583. ;Lables(Text&Edit) 30-50
  584. ;Buttons 50-70
  585. ;Lists 70-80
  586.  
  587. title "ProHLer - HighLighters(Loading...)"
  588. size -1 -1 270 170
  589. option dbu
  590.  
  591. box "HighLighter Editor" , 20, 5 5 250 60
  592. box "HighLighters" , 21, 5 65 250 85
  593. text "Nr:" , 30, 10 15 50 10
  594. text "Loading..." , 31, 80 15 50 10
  595. text "Edit:" , 32, 10 25 50 10
  596. edit "Loading..." , 33, 77 25 150 10
  597. text "Things like $me or $mnick are allowd!" , 34, 10 37 100 20
  598. list 70, 10 75 10 60
  599. list 71, 77 75 150 60
  600. button "Delete Selected" , 50, 10 135 80 10
  601. button "Add one" , 51, 90 135 80 10
  602. button "Save" , 52, 10 45 80 10
  603. button "Save all / Exit" , 53, 5 155 80 10
  604. }
  605. on *:dialog:ProHLer.DHLers:init:0: {
  606. if ($dialog(ProHLer.DMain)) dialog -n ProHLer.DMain
  607. ProHLer.DHLers.Reload
  608. dialog -t $dname ProHLer(Version $ProHLer.Version $+ ) - HighLighters
  609. }
  610. on *:dialog:ProHLer.DHLers:sclick:50: {
  611. dialog -n $dname
  612. if ($did(71).sel) {
  613. var %nr $did(71).sel
  614. var %text $did(71).seltext
  615. if ($input(Are you sure you want to delete the folowing HighLighter: $+ $crlf $+ Nr: %nr $+ $crlf $+ Text: %text,yqd,ProHLer - Question)) {
  616. did -d $dname 70 %nr
  617. did -d $dname 71 %nr
  618. var %i = 1
  619. while (%i <= $did(70).lines) {
  620. did -o $dname 70 %i %i
  621. inc %i
  622. }
  623. did -ra $dname 31 None
  624. did -rma $dname 33
  625. }
  626. }
  627. else {
  628. noop $input(There is no HighLighter selected!,oid,ProHLer - Info)
  629. }
  630. dialog -o $dname
  631. }
  632. on *:dialog:ProHLer.DHLers:sclick:51: {
  633. dialog -n $dname
  634. var %nr $calc($did(70).lines + 1)
  635. if (%nr <= 30) {
  636. did -a $dname 70 %nr
  637. did -a $dname 71 New HighLighter: %nr
  638. did -c $dname 70 %nr
  639. did -c $dname 71 %nr
  640.  
  641. did -ra $dname 31 $did(70).sel
  642. did -ra $dname 33 $did(71).seltext
  643. did -fn $dname 33
  644. }
  645. else {
  646. noop $input(Sorry we only accept 30 HighLighters!,oid,ProHLer - Info)
  647. }
  648. dialog -o $dname
  649. }
  650. on *:dialog:ProHLer.DHLers:sclick:52: {
  651. dialog -n $dname
  652. if ($did(71).sel) {
  653. var %nr $did(31).text
  654. var %text $did(33).text
  655. did -o $dname 70 %nr %nr
  656. did -o $dname 71 %nr %text
  657. did -c $dname 70 %nr
  658. did -c $dname 71 %nr
  659. }
  660. else {
  661. noop $input(There is no HighLighter selected!,oid,ProHLer - Info)
  662. }
  663. dialog -o $dname
  664. }
  665. on *:dialog:ProHLer.DHLers:sclick:53: {
  666. dialog -n $dname
  667. set %ProHLer.Highlights $didtok($dname,71,59)
  668. noop $input(Your HighLighters are saved!,oid,ProHLer - Info)
  669. dialog -x $dname
  670. if ($dialog(ProHLer.DMain)) dialog -o ProHLer.DMain
  671. }
  672. on *:dialog:ProHLer.DHLers:sclick:70: {
  673. did -ra $dname 31 $did($did).sel
  674. did -ran $dname 33 $did(71,$did($did).sel).text
  675. did -c $dname 71 $did($did).sel
  676. }
  677. on *:dialog:ProHLer.DHLers:sclick:71: {
  678. did -ra $dname 31 $did($did).sel
  679. did -ran $dname 33 $did($did).seltext
  680. did -c $dname 70 $did($did).sel
  681. }
  682. on *:dialog:ProHLer.DHLers:close:0: {
  683. if ($didtok($dname,71,59) != %ProHLer.Highlights) {
  684. if ($input(You made some changes! Do you want to save them?,yqd,ProHLer - Question)) {
  685. set %ProHLer.Highlights $didtok($dname,71,59)
  686. noop $input(Your HighLighters are saved!,oid,ProHLer - Info)
  687. }
  688. }
  689. if ($dialog(ProHLer.DMain)) dialog -o ProHLer.DMain
  690. }
  691. dialog -l ProHLer.DNoHL {
  692.  
  693. ;ID Info:
  694. ;Boxes 20-30
  695. ;Lables(Text&Edit) 30-50
  696. ;Buttons 50-70
  697. ;Lists 70-80
  698.  
  699. title "ProHLer - NonHighLighting nicknames(Loading...)"
  700. size -1 -1 300 170
  701. option dbu
  702.  
  703. box "Nickname Editor" , 20, 5 5 250 60
  704. box "Nicknames" , 21, 5 65 250 85
  705. text "Nr:" , 30, 10 15 50 10
  706. text "Loading..." , 31, 80 15 50 10
  707. text "Edit:" , 32, 10 25 50 10
  708. edit "Loading..." , 33, 77 25 150 10
  709. text "Wildcards(*) are allowed at nicknames!" , 34, 10 37 100 20
  710. list 70, 10 75 10 60
  711. list 71, 77 75 150 60
  712. button "Delete Selected" , 50, 10 135 80 10
  713. button "Add one" , 51, 90 135 80 10
  714. button "Save" , 52, 10 45 80 10
  715. button "Save all / Exit" , 53, 5 155 80 10
  716. }
  717. on *:dialog:ProHLer.DNoHL:init:0: {
  718. if ($dialog(ProHLer.DMain)) dialog -n ProHLer.DMain
  719. ProHLer.DNoHL.Reload
  720. dialog -t $dname ProHLer(Version $ProHLer.Version $+ ) - NonHighLight nicknames
  721. if (%proHler.DNoHL.nick) {
  722. dialog -n $dname
  723. if (!$didwm($dname,71,%proHler.DNoHL.nick)) {
  724. var %nr $calc($did(70).lines + 1)
  725. if (%nr <= 40) {
  726. did -a $dname 70 %nr
  727. did -a $dname 71 %proHler.DNoHL.nick
  728. did -c $dname 70 %nr
  729. did -c $dname 71 %nr
  730.  
  731. did -ra $dname 31 $did(70).sel
  732. did -ranf $dname 33 $did(71).seltext
  733. }
  734. else {
  735. noop $input(Sorry we only accept 40 nicknames!,oid,ProHLer - Info)
  736. }
  737. }
  738. else {
  739. noop $input(The nickname " $+ %proHler.DNoHL.nick $+ " is already at your NonHighLighting nickname list! $+ $crlf $+ At nr: $didwm($dname,71,%proHler.DNoHL.nick),oid,ProHLer - Info)
  740. dialog -x $dname
  741. }
  742. dialog -o $dname
  743. unset %proHler.DNoHL.nick
  744. }
  745. }
  746. on *:dialog:ProHLer.DNoHL:sclick:50: {
  747. dialog -n $dname
  748. if ($did(71).sel) {
  749. var %nr $did(71).sel
  750. var %text $did(71).seltext
  751. if ($input(Are you sure you want to delete the folowing nickname: $+ $crlf $+ Nr: %nr $+ $crlf $+ Text: %text,yqd,ProHLer - Question)) {
  752. did -d $dname 70 %nr
  753. did -d $dname 71 %nr
  754. var %i = 1
  755. while (%i <= $did(70).lines) {
  756. did -o $dname 70 %i %i
  757. inc %i
  758. }
  759. did -ra $dname 31 None
  760. did -ram $dname 33
  761. }
  762. }
  763. else {
  764. noop $input(There is no nickname selected!,oid,ProHLer - Info)
  765. }
  766. dialog -o $dname
  767. }
  768. on *:dialog:ProHLer.DNoHL:sclick:51: {
  769. dialog -n $dname
  770. var %nr $calc($did(70).lines + 1)
  771. if (%nr <= 40) {
  772. did -a $dname 70 %nr
  773. did -a $dname 71 Nickname %nr
  774. did -c $dname 70 %nr
  775. did -c $dname 71 %nr
  776.  
  777. did -ra $dname 31 $did(70).sel
  778. did -rafn $dname 33 $did(71).seltext
  779. }
  780. else {
  781. noop $input(Sorry we only accept 40 nicknames!,oid,ProHLer - Info)
  782. }
  783. dialog -o $dname
  784. }
  785. on *:dialog:ProHLer.DNoHL:sclick:52: {
  786. dialog -n $dname
  787. if ($did(71).sel) {
  788. var %nr $did(31).text
  789. var %text $did(33).text
  790. did -o $dname 70 %nr %nr
  791. did -o $dname 71 %nr %text
  792. did -c $dname 70 %nr
  793. did -c $dname 71 %nr
  794. }
  795. else {
  796. noop $input(There is no nickname selected!,oid,ProHLer - Info)
  797. }
  798. dialog -o $dname
  799. }
  800. on *:dialog:ProHLer.DNoHL:sclick:53: {
  801. dialog -n $dname
  802. set %ProHLer.NoHls $didtok($dname,71,59)
  803. var %i = 1
  804. while (%i <= $numtok(%ProHLer.NoHls,59)) {
  805. if ($window(@ProHLer. $+ $gettok(%ProHLer.NoHls,%i,59))) window -c @ProHLer. $+ $gettok(%ProHLer.NoHls,%i,59))
  806. inc %i
  807. }
  808. noop $input(Your non highlighting nicknames are saved!,oid,ProHLer - Info)
  809. dialog -x $dname
  810. if ($dialog(ProHLer.DMain)) dialog -o ProHLer.DMain
  811. }
  812. on *:dialog:ProHLer.DNoHL:sclick:70: {
  813. did -ra $dname 31 $did($did).sel
  814. did -ran $dname 33 $did(71,$did($did).sel).text
  815. did -c $dname 71 $did($did).sel
  816. }
  817. on *:dialog:ProHLer.DNoHL:sclick:71: {
  818. did -ra $dname 31 $did($did).sel
  819. did -ran $dname 33 $did($did).seltext
  820. did -c $dname 70 $did($did).sel
  821. }
  822. on *:dialog:ProHLer.DNoHL:close:0: {
  823. if ($didtok($dname,71,59) != %ProHLer.NoHls) {
  824. if ($input(You made some changes! Do you want to save them?,yqd,ProHLer - Question)) {
  825. set %ProHLer.NoHls $didtok($dname,71,59)
  826. noop $input(Your non highlighting nicknames are saved!,oid,ProHLer - Info)
  827. }
  828. }
  829. if ($dialog(ProHLer.DMain)) dialog -o ProHLer.DMain
  830. }
  831. dialog -l ProHLer.DResetStats {
  832.  
  833. ;ID Info:
  834. ;Boxes 20-30
  835. ;Lables(Text&Edit) 30-50
  836. ;Buttons 50-70
  837. ;Lists 70-80
  838.  
  839. title "ProHLer - Reseting(Loading...)"
  840. size -1 -1 120 90
  841. option dbu
  842.  
  843. box "Reset" , 20, 5 5 90 60
  844. button "Reset Stats(nicknames)" , 50, 10 15 80 10
  845. button "Reset Stats(Channels)" , 51, 10 25 80 10
  846. button "Reset All ignored HighLights" , 52, 10 35 80 10
  847. button "Reset All HighLight stats" , 53, 10 45 80 10
  848. button "Exit" , 54, 5 70 80 10
  849. }
  850. on *:dialog:ProHLer.DResetStats:init:0: {
  851. if ($dialog(ProHLer.DMain)) dialog -n ProHLer.DMain
  852. dialog -t $dname ProHLer(Version $ProHLer.Version $+ ) - Reseting
  853. }
  854. on *:dialog:ProHLer.DResetStats:sclick:50: {
  855. dialog -n $dname
  856. if ($input(Are you sure you want to reset the nickname HighLight stats?,yqd,ProHLer - Question)) {
  857. var %total $bytes($iif(%ProHLer.TotalHls isnum,$var(%ProHLer.Nicks.*,0),0),bd)
  858. unset %ProHLer.Nicks.*
  859. noop $input(All Nickname HighLight stats are reseted! Total: %total,oid,ProHLer - Info)
  860. ProHLer.DMain.Reload
  861. }
  862. dialog -o $dname
  863. }
  864. on *:dialog:ProHLer.DResetStats:sclick:51: {
  865. dialog -n $dname
  866. if ($input(Are you sure you want to reset the Channel HighLight stats?,yqd,ProHLer - Question)) {
  867. var %total $bytes($iif(%ProHLer.TotalHls isnum,$var(%ProHLer.Chans.*,0),0),bd)
  868. unset %ProHLer.Chans.*
  869. noop $input(All Channel HighLight stats are reseted! Total: %total,oid,ProHLer - Info)
  870. ProHLer.DMain.Reload
  871. }
  872. dialog -o $dname
  873. }
  874. on *:dialog:ProHLer.DResetStats:sclick:52: {
  875. dialog -n $dname
  876. if ($input(Are you sure you want to reset the ignored HighLight stats?,yqd,ProHLer - Question)) {
  877. unset %ProHLer.TotalNonHls
  878. noop $input(Your ignored HighLight stats are reseted!,oid,ProHLer - Info)
  879. ProHLer.DMain.Reload
  880. }
  881. dialog -o $dname
  882. }
  883. on *:dialog:ProHLer.DResetStats:sclick:53: {
  884. dialog -n $dname
  885. if ($input(Are you sure you want to reset the all HighLight stats?,yqd,ProHLer - Question)) {
  886. var %total $bytes($iif(%ProHLer.TotalHls isnum,$var(%ProHLer.Nicks.*,0),0),bd)
  887. var %totalc $bytes($iif(%ProHLer.TotalHls isnum,$var(%ProHLer.Chans.*,0),0),bd)
  888. var %totaltot $iif(%ProHLer.TotalHls isnum,%ProHLer.TotalHls,0)
  889. var %totaligtot $iif(%ProHLer.TotalNonHls isnum,%ProHLer.TotalNonHls,0)
  890. unset %ProHLer.Nicks.*
  891. unset %ProHLer.Chans.*
  892. unset %ProHLer.TotalHls
  893. unset %ProHLer.TotalNonHls
  894. unset %ProHLer.Date.Day
  895. unset %ProHLer.Average.Day
  896. unset %ProHLer.Last.Nick
  897. unset %ProHLer.Last.Time
  898. noop $input(All HighLight stats are reseted! Total(Nicknames): %total $crlf Total(Channels): %totalc $crlf Total(All HighLights): %totaltot $crlf Total(All Ignored HighLights): %totaligtot,oid,ProHLer - Info)
  899. ProHLer.DMain.Reload
  900. }
  901. dialog -o $dname
  902. }
  903. on *:dialog:ProHLer.DResetStats:sclick:54: {
  904. dialog -x $dname
  905. ProHLer.DMain.Reload
  906. if ($dialog(ProHLer.DMain)) dialog -o ProHLer.DMain
  907. }
  908. on *:dialog:ProHLer.DResetStats:close:0: {
  909. ProHLer.DMain.Reload
  910. if ($dialog(ProHLer.DMain)) dialog -o ProHLer.DMain
  911. }
  912. dialog -l ProHLer.DSettings {
  913.  
  914. ;ID Info:
  915. ;Boxes 20-30
  916. ;Lables(Text&Edit) 30-50
  917. ;Buttons 50-70
  918. ;Lists 70-80
  919.  
  920. title "ProHLer - Settings(Loading...)"
  921. size -1 -1 120 90
  922. option dbu
  923.  
  924. box "Settings" , 20, 5 5 90 60
  925. button "... UpdateCheck" , 50, 10 15 80 10
  926. button "Exit" , 54, 5 70 80 10
  927. }
  928. on *:dialog:ProHLer.DSettings:init:0: {
  929. if ($dialog(ProHLer.DMain)) dialog -n ProHLer.DMain
  930. ProHLer.DSettings.Reload
  931. dialog -t $dname ProHLer(Version $ProHLer.Version $+ ) - Settings
  932. }
  933. on *:dialog:ProHLer.DSettings:sclick:50: {
  934. dialog -n $dname
  935. if (%ProHLer.UpdateCheck.On) {
  936. set %ProHLer.UpdateCheck.On $false
  937. did -ra ProHLer.DSettings 50 Enable UpdateCheck
  938. noop $input(ProHLer will nolonger check for a new version if you open the main window,oid,ProHLer - Info)
  939. }
  940. else {
  941. set %ProHLer.UpdateCheck.On $true
  942. did -ra ProHLer.DSettings 50 Disable UpdateCheck
  943. noop $input(ProHLer will now check for a new version everytime you open the main window,oid,ProHLer - Info)
  944. }
  945. dialog -o $dname
  946. }
  947. on *:dialog:ProHLer.DSettings:sclick:54: {
  948. dialog -x $dname
  949. ProHLer.DMain.Reload
  950. if ($dialog(ProHLer.DMain)) dialog -o ProHLer.DMain
  951. }
  952. on *:dialog:ProHLer.DSettings:close:0: {
  953. ProHLer.DMain.Reload
  954. if ($dialog(ProHLer.DMain)) dialog -o ProHLer.DMain
  955. }
  956.  
  957. Query control
  958. dialog GBQC {
  959. title "GB Query Control"
  960. size -1 -1 172 54
  961. option dbu
  962. button "Accept", 1, 24 37 37 12
  963. button "Decline", 2, 67 37 37 12
  964. button "Ignore", 3, 110 37 37 12
  965. text "", 4, 24 5 123 28
  966. text "V1.0", 5, 159 46 13 8, disable
  967. }
  968. menu Status,Channel,MenuBar,Query {
  969. -
  970. $iif($group(#qc) == on,$style(1)Disable,$style(0)Enable) Use Query Control: {
  971. var %status = $iif($group(#qc) == on,Disable,Enable)
  972. $+(.,%status) #qc
  973. echo -ta 14Query control has been 04 $+(%status,d, 14.)
  974. }
  975. -
  976. }
  977. menu Query {
  978. $iif($hget(GBQC,$address($active,3)),$style(1),$style(0)) Auto-Accept queries from $active: {
  979. var %status = $iif($hget(GBQC,$address($active,3)) = 1,Del,Add)
  980. $+(h,%status) GBQC $address($active,3) 1
  981. echo -ta $+( 04,$active) 14 has been 04 $iif(%status = del,deleted from,added to) 14Auto-Accept.
  982. }
  983. }
  984.  
  985. #qc on
  986. on *:OPEN:?:{
  987. %QC.nick.address = $address($nick,3)
  988. %QC.nick = $nick
  989. if ($hget(GBQC,%QC.nick.address)) {
  990. .msg $nick PM Auto-Accepted. $iif($away,I may not reply as I am currently away.)
  991. echo -ta 14Query Control: 04Auto-Accept from ' $+ $nick $+ '.
  992. }
  993. elseif (!$hget(GBQC,%QC.nick.address)) {
  994. if ($dialog(GBQC)) { .msg $nick I currently have a que of PMs. If this is important please try again later or send me a memo. /ms send $me ¬yourmessage¬ | halt }
  995. window -h $nick
  996. .msg $nick Please wait for your query to be accepted/declined.
  997. dialog -mo GBQC GBQC
  998. did -ra GBQC 4 %QC.nick ( $+ %QC.nick.address $+ ) has PMed you. Do you want to accept, decline or ignore?
  999. }
  1000. }
  1001. on *:exit:{
  1002. hsave -s GBQC GBQC.hsh
  1003. }
  1004. on *:start:{
  1005. hmake GBQC 100
  1006. if ($exists(GBQC.hsh)) {
  1007. hload -s GBQC GBQC.hsh
  1008. }
  1009. }
  1010. #qc end
  1011. on *:dialog:GBQC:sclick:1:{
  1012. window -w %QC.nick
  1013. window -a %QC.nick
  1014. .msg %QC.nick I have accepted you PM. You do not have to repeat your last message as I can see it already. $iif($away,I may not reply as I am currently away.)
  1015. dialog -x GBQC
  1016. if ($?!"Do you want to add this user ( $+ %QC.nick $+ ) to your auto-accept list?") addexc %QC.nick.address
  1017. unset %QC.nick
  1018. }
  1019. on *:dialog:GBQC:sclick:2:{
  1020. .msg %QC.nick I have declined your Private Message. A 2 minute ignore has been put on your nick for private messages to prevent abuse.
  1021. .ignore -pu120 %QC.nick.address
  1022. close -m %QC.nick
  1023. dialog -x GBQC
  1024. unset %QC.*
  1025. }
  1026. on *:dialog:GBQC:sclick:3:{
  1027. msg %QC.nick Private Message Declined. You have been ignored.
  1028. .ignore -pu1200 %QC.nick.address
  1029. close -m %QC.nick
  1030. dialog -x GBQC
  1031. unset %QC.*
  1032. }
  1033. alias addexc {
  1034. if (!$hget(GBQC)) hmake GBQC 100
  1035. hadd GBQC %QC.nick.address 1
  1036. echo -ta 14Query Control: 04 Added ' $+ $address(%QC.nick,3) $+ ' to auto-accept list.
  1037. }
  1038.  
  1039.  
  1040.  
  1041. alias clearbans {
  1042. if ($1 isnum) && ($chan) { var %c = $chan | var %d = $1 }
  1043. elseif ($2 isnum) && ($me ison $1) { var %c = $1 | var %d = $2 }
  1044. elseif ($1 isnum) && ($me ison $2) { var %c = $2 | var %d = $1 }
  1045. else { echo $color(info) -at Error: no valid channel or number of days given. | halt }
  1046. mode %c +b
  1047. echo $color(info) -at Checking the %c bans list for bans older then %d days, please wait..
  1048. .timer 1 1 clearbanslist %c %d
  1049. }
  1050. alias -l clearbanslist {
  1051. var %c = $1
  1052. var %bu
  1053. var %d = $2
  1054. var %d.ct = $calc( $ctime - ( %d * 86400 ) )
  1055. var %bt = $ibl(%c,0)
  1056. var %bc = 1
  1057. while (%bc <= %bt) {
  1058. if ($ibl(%c,%bc).ctime <= %d.ct) {
  1059. if (%bo) {
  1060. if ($numtok(%bo,32) >= $modespl) { mode # $+(-,$str(b,$modespl)) %bo | var %bo = $ibl(%c,%bc) }
  1061. else { var %bo = %bo $ibl(%c,%bc) }
  1062. }
  1063. else { var %bo = $ibl(%c,%bc) }
  1064. inc %bu
  1065. }
  1066. inc %bc
  1067. }
  1068. if (%bo) { mode # $+(-,$str(b,$numtok(%bo,32))) %bo }
  1069. .timer 1 1 echo $color(info) -at Done cleaning the ban list in %c $+ . Out of %bt bans, $iif(%bu,%bu,no) bans were older then %d days.
  1070. }
  1071.  
  1072. Theme
  1073. on *:START:{
  1074. .timestamp -f 12» 1 ddd 12| 14HH 12 : 14nn 12 : 14ss 12 « | .timestamp on
  1075. }
  1076. alias -l levelc { return $iif($1 isop $chan, 4@,$iif($1 === ChanServ, 4@,$iif($1 ishop $chan, 8%, 2+ )))) }
  1077. ; $iif($1 isvoice $chan,;;
  1078. on ^*:TEXT:*:#:{
  1079. haltdef
  1080. echo $+ $iif($highlighted($1-),$chr(32) $+ -m) $chan $iif($highlighted($1-), 14[¬ 4HL¬ 14] $+ $chr(32)) $+ $timestamp ( $+ $levelc($nick) $+ 14 $+ $nick $+ ) $1-
  1081. }
  1082. on ^*:RAWMODE:#:{
  1083. haltdef
  1084. echo -t $chan $alert ChanMode : $levelc($nick) $+ 14 $+ $nick sets 14 [ 12 $+ $1 $+ 14 ] 12 $iif($2,$2-)
  1085. }
  1086. on ^*:NICK:{
  1087. haltdef | var %x $comchan($newnick,0) | while (%x) {
  1088. echo $comchan($newnick,%x) $timestamp $alert Nick : 14 $nick $+ $iif($newnick isop $comchan($newnick,%x), 4»»»,$iif($newnick ishop $comchan($newnick,%x), 8»»»,$iif($newnick isvoice $comchan($newnick,%x), 2»»», »»»))) $+ 14 $newnick
  1089. dec %x
  1090. }
  1091. }
  1092. on ^*:JOIN:#:{
  1093. haltdef
  1094. if ($nick != $me) { echo -t $chan $alert Joins : 14 $nick ( 14 $+ $replace($address,@, @ 14,., 12 . 14) $+ ) }
  1095. else { echo -t $chan ————————————————————————————————— | echo -t $chan $alert Now talking in 12 # $+ . }
  1096. }
  1097. on ^*:PART:#:{
  1098. haltdef
  1099. if ($nick != $me) {
  1100. echo -t $chan $alert Parts : $levelc($nick) $+ 14 $+ $nick ( 14 $+ $replace($address,@, @ 14,., 12 . 14) $+ ) 14 $1-
  1101. }
  1102. }
  1103. on ^*:QUIT:{
  1104. haltdef | var %x $comchan($nick,0) | while (%x) {
  1105. echo -t $comchan($nick,%x) $alert Quits : $iif($nick isop $comchan($nick,%x), 4@,$iif($nick ishop $comchan($nick,%x), 8%,$iif($nick isvoice $comchan($nick,%x), 12+))) $+ 14 $+ $nick ( 14 $+ $replace($address,@, @ 14,., 12 . 14) $+ ) 12: 14 $1-
  1106. dec %x
  1107. }
  1108. }
  1109. on *:INPUT:#:{
  1110. if (/* !iswm $1) || ($ctrlenter) {
  1111. haltdef | .msg # $1- | echo -at ( $+ $levelc($me) $+ 14 $+ $me $+ ) $1-
  1112. }
  1113. }
  1114. on ^*:ACTION:*:#:{
  1115. haltdef
  1116. echo $+ $iif($highlighted($1-),$chr(32) $+ -m) $chan $iif($highlighted($1-), 14[¬ 4HL¬ 14] $+ $chr(32)) $+ $timestamp 13* ( $+ $levelc($nick) $+ 14 $+ $nick $+ ) 13 $1-
  1117. }
  1118. on ^*:NOTICE:*:?:{
  1119. haltdef | var %x $comchan($nick,0) | while (%x) {
  1120. echo $comchan($nick,%x) 12« 1[ 12N 1] $+ $timestamp [ $+ $iif($nick isop $comchan($nick,%x), 4@,$iif($nick ishop $comchan($nick,%x), 8%,$iif($nick isvoice $comchan($nick,%x), 12+))) $+ 14 $+ $nick ( 14 $+ $replace($address,@, @ 14,., 12 . 14) $+ )] $1-
  1121. dec %x
  1122. }
  1123. if ($nick !ison $active) {
  1124. echo -a 12« 1[ 12N 1] $+ $timestamp [ $+ $levelc($nick) $+ 14 $+ $nick ( 14 $+ $replace($address,@, @ 14,., 12 . 14) $+ )] $1-
  1125. }
  1126. if ($active != Status window) {
  1127. echo 12« 1[ 12N 1] $+ $timestamp [ 14 $+ $nick ( 14 $+ $replace($address,@, @ 14,., 12 . 14) $+ )] $1-
  1128. }
  1129. }
  1130. on ^*:NOTICE:*:#:{
  1131. haltdef
  1132. echo $chan 12« 1[ 12N 1] $+ $timestamp 4 ( 14 $+ $chan $+ 4 ) [ $+ $levelc($nick) $+ 14 $+ $replace($nick,., 12 . 14) ( 14 $+ $iif(@ isin $replace($address,@, @ 14,., 12 . 14),$v2,Server) $+ )] $1-
  1133. }
  1134. on ^*:KICK:#:{
  1135. haltdef
  1136. if ($knick != $me) {
  1137. echo -t $chan $alert Kicks : [ $+ $levelc($knick) $+ 14 $+ $knick ( 14 $+ $replace($gettok($address($knick,5),2,33),@, @ 14,., 12 . 14) $+ )] was kicked by [ $+ $levelc($nick) $+ 14 $+ $nick $+ ] 14 $1- }
  1138. else {
  1139. echo -t $alert Kicks : 12You were kicked from 4 # by [ $+ $levelc($nick) $+ 14 $+ $nick ( 14 $+ $replace($address,@, @ 14,., 12 . 14) $+ )] 14 $1-
  1140. }
  1141. }
  1142. on ^*:TEXT:*:?:{
  1143. query $nick | haltdef | echo $nick 14[ 12PM 14] $timestamp ( 14 $+ $nick $+ ) $1-
  1144. }
  1145. on *:INPUT:?:{
  1146. if (/* !iswm $1) || ($ctrlenter) {
  1147. haltdef | .msg $active $1- | echo -a 14[ 12PM 14] $timestamp ( 14 $+ $me $+ ) $1-
  1148. }
  1149. }
  1150. on ^*:SNOTICE:*:{ echo ? $+ $timestamp ( 14 $+ $replace($nick,., 12 . 14) $+ ) $1- | haltdef }
  1151. on ^*:TOPIC:#:{ haltdef | echo -t $chan $alert Topic Change [ $+ $levelc($nick) $+ 14 $+ $nick $+ ] : $1- }
  1152. on ^*:INVITE:#:{ haltdef | echo -t $alert Invite : 12 $nick ( 14 $+ $replace($address,@, @ 14,., 12. 14) $+ ) invites you to join 12 $chan $+ . }
  1153. on ^*:ACTION:*:?:{ haltdef | echo $nick 14[ 12PM 14] $timestamp 13* ( 14 $+ $nick $+ ) 13 $1- }
  1154. on ^*:USERMODE:{ echo -t UserMode : You changed: ( 14 $+ $1- $+ ) | haltdef }
  1155. alias notice { if ($2) { .notice $1- | echo -q ? $+ $timestamp to ( 14 $+ $1 $+ ) $2- } }
  1156. alias query { query $1 | if ($2) { .msg $1- | echo -a 14[ 12PM 14] $timestamp ( 14 $+ $me $+ ) $2- } }
  1157. alias me {
  1158. if ($1) {
  1159. .describe $active $1-
  1160. if ($chan) { echo -ta 13* ( $+ $levelc($me) $+ 14 $+ $me $+ ) 13 $1- }
  1161. else { echo $nick 14[ 12PM 14] $timestamp 13* ( 14 $+ $me $+ ) 13 $1- }
  1162. }
  1163. }
  1164. raw 332:*:{ echo -t $2 $alert Topic: $3- | haltdef }
  1165. raw 333:*:{ echo -t $2 $alert Topic : Set by 12 [ 14 $+ $gettok($3,1,33) 12( 14 $+ $iif(! isin $3,$replace($gettok($3,2,33),@, @ 14,., 12. 14),unknown address) $+ 12)] at 12 ( 14 $+ $asctime($4) $+ 12 ) | echo -t $2 ————————————————————————————————— | haltdef }
  1166. alias alert { return 14 [ 12¤ 14 ] }
  1167. raw 313:*:{ echo -a 12| $5- | haltdef }
  1168. raw 311:*:{ echo -a 12|¯¯¯¯¯¯¯¯¯¯¯ ( /whois 14 $2 $+ 12 ) | echo -a 12| 14 $3 $+ @ 14 $+ $replace($4,., 12 . 14) * $6- | haltdef }
  1169. raw 319:*:{ echo -a 12| on 14 $remove($3-,@,%,+) | haltdef }
  1170. raw 312:*:{ echo -a 12| 12 $replace($3,., 14. 12) 14( 12 $+ $4- $+ 14) | haltdef }
  1171. raw 307:*:{ echo -a 12| 14 Identified | haltdef }
  1172. raw 317:*:{ echo -a 12| Idle: 12 $duration($3) 14| Signed on 12 $duration($calc($ctime - $4)) ago. | haltdef }
  1173. raw 318:*:{ echo -a 12|___________ ( /whois 14 $2 $+ 12 ) | haltdef }
  1174. raw 335:*:{ echo -a 12| 14 is a Bot | haltdef }
  1175. raw 671:*:{ echo -a 12| 12S 14ecure 12C 14onnection | haltdef }
  1176. raw 301:*:{ echo -a 12| 14 Away: $3- | haltdef }
  1177.  
  1178. masshl
  1179. alias listchan $iif($numtok($2-,32) < $nick($1,0),scid $cid listchan $1- $+($nick($1,$calc($numtok($2-,32) +1)),$chr(44)),/msg $1 $+([,$1,] $left($2-,-1),.))
  1180. Input commands
  1181. on *:input:#:{
  1182. if ($1 == .kb) { ban -k $chan $2 $3- }
  1183. if ($1 == .b) { mode $chan +b $address($2,2) }
  1184. if ($1 == .tkb) { ban -ku $+ $2 $chan $2 14 You have been banned for 7 $3 14Seconds from 7 $chan $+ 14. }
  1185. if ($1 == .i) { invite $2 $chan }
  1186. if ($1 == .k) { kick $chan $2 $3- }
  1187. if ($1 == .akick) { msg ChanServ akick $chan add $2 $3 }
  1188. if ($1 == .delakick) { msg ChanServ akick $chan del $2 }
  1189. if ($1 == .akicklist) { msg Chanserv akick $chan list }
  1190. if ($1 == .hl) { listchan # }
  1191. if ($1 == .rlb) { mode $chan -b $readini(rlb.ini,Bans,$chan) }
  1192. }
  1193. On *:BAN:#:{ writeini rlb.ini Bans $chan $banmask }
  1194. on *:input:#: {
  1195. if ($1 == .rlb) { mode $chan -b $readini(rlb.ini,Bans,$chan) }
  1196. }
  1197.  
  1198. Modes
  1199. ON *:INPUT:#:{ if ($regex($1,/^[-+]\w+/Si)) { /mode # $1- }
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!