API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 25th, 2017
573
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 11.96 KB | None | 0 0
raw download clone embed print report
  1. ; ____________________________
  2. ;//-----------------------------------------------\\
  3. ;|| Snyggast Hop/Half-op Script v1.2 ||
  4. ;\\-----------------------------------------------//
  5. ; ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  6.  
  7.  
  8. on *:load:onshtart
  9. on *:unload:unset %snhhost | unset %snhinfo | unset %dontthis | .remove snkba.dat
  10.  
  11. ;----------------------------;
  12. ;----Kick/Ban-"alias"----;
  13. ;----------------------------;
  14.  
  15.  
  16. on *:input:#:{
  17. if ($left($1,1) == $chr(47)) && ($2) {
  18. if ($read(snkba.dat, w, $mid($1,3,$mid($1,2,0)) $+ *)) {
  19. var %kbks = Användaren bröt en/flera utav våra regler:
  20. var %kbkans = $+($chr(40),$gettok($read(snkba.dat, w, $mid($1,3,$mid($1,2,0)) $+ *),3,42),$chr(41))
  21. if ($mid($1,2,1) == b) { ccmd $2 $gettok(%snhhost,1,32) 3600 %kbks %kbkans }
  22. elseif ($mid($1,2,1) == k) { ccmd $2 %kbks %kbkans }
  23. }
  24. }
  25. }
  26.  
  27. ;---------------------------------------------------;
  28. ;----Menyn-i-kanalen/Verktygsbaren----;
  29. ;---------------------------------------------------;
  30.  
  31. alias snhinfo {
  32. var %snhif = $replace($1-,[k],$+($chr(2),$chr(2),$iif(%kick.num == $null,0,%kick.num)),[ub],$+($chr(2),$chr(2),$iif(%unban.num == $null,0,%unban.num)),[b],$+($chr(2),$chr(2),$iif(%ban.num == $null,0,%ban.num)))
  33. return %snhif
  34. }
  35.  
  36.  
  37.  
  38. menu channel,menubar {
  39. $iif(Snyggast isin $server,Snyggast):
  40. .Info
  41. ..-
  42. ..Utslängda $+($chr(91),$iif(%kick.num == $null,0,%kick.num),$chr(93)):halt
  43. ..Avstängda $+($chr(91),$iif(%ban.num == $null,0,%ban.num),$chr(93)):halt
  44. ..Upphävda $+($chr(91),$iif(%unban.num == $null,0,%unban.num),$chr(93)):halt
  45. ..-
  46. ..KBU
  47. ...Stilar
  48. ....Egen:{
  49. var %shdo = $input($+(Skriv in din egen kick/ban/unban info,$crlf,$crlf,[k] = kickade,$crlf,[b] = bannade,$crlf,$crlf,[ub] = unbannade,$crlf,$crlf,Exempel: Kicks: [k] Bans: [b] Unbans: [ub]),ae,Kick/ban/unban stil,Kicks: [k] Bans: [b] Unbans: [ub])
  50. if (%shdo != $false) { set %snhinfo %shdo | !echo -ag [Hop-script] Satte KBU stilen till: %shdo }
  51. }
  52. ....-
  53. ....hop1:set %snhinfo $+($chr(2),U,$chr(2),tslängda) $+($chr(91),[k],$chr(93)) $+($chr(2),A,$chr(2),vstängda:) $+($chr(91),[b],$chr(93)) $+($chr(2),U,$chr(2),pphävda:) $+($chr(91),[ub],$chr(93)) | !echo -ag [Hop-Script] $snhinfo(%snhinfo)
  54. ....hop2:set %snhinfo $+($chr(2),K,$chr(2),icks) $+($chr(91),[k],$chr(93)) $+($chr(2),B,$chr(2),ans:) $+($chr(91),[b],$chr(93)) $+($chr(2),U,$chr(2),nbans:) $+($chr(91),[ub],$chr(93)) | !echo -ag [Hop-Script] $snhinfo(%snhinfo)
  55. ....hop3:set %snhinfo $+($chr(2),K,$chr(2)) $+($chr(91),[k],$chr(93)) $+($chr(2),B,$chr(2)) $+($chr(91),[b],$chr(93)) $+($chr(2),U,$chr(2)) $+($chr(91),[ub],$chr(93)) | !echo -ag [Hop-Script] $snhinfo(%snhinfo)
  56.  
  57. ...-
  58. ...Visa:!echo -ag [Hop-Script] $snhinfo(%snhinfo)
  59. ...Skriv ut allt:msg # $snhinfo(%snhinfo)
  60. .-
  61. .Hostmaskar
  62. ..$iif($gettok(%snhhost,1,32) == 0,$style(1)) 0. *!Ident@Host.se:set %snhhost 0 *!Ident@Host.se | !echo -ag [Hop-Script] - $+($chr(40),$gettok(%snhhost,1,32),$chr(41)) $gettok(%snhhost,2,32)
  63. ..$iif($gettok(%snhhost,1,32) == 1,$style(1)) 1. *!*Ident@Host.se:set %snhhost 1 *!*Ident@Host.se | !echo -ag [Hop-Script] - $+($chr(40),$gettok(%snhhost,1,32),$chr(41)) $gettok(%snhhost,2,32)
  64. ..$iif($gettok(%snhhost,1,32) == 2,$style(1)) 2. *!*@Host.se:set %snhhost 2 *!*@Host.se | !echo -ag [Hop-Script] - $+($chr(90),$gettok(%snhhost,1,32),$chr(91)) $gettok(%snhhost,2,32)
  65. ..$iif($gettok(%snhhost,1,32) == 3,$style(1)) 3. *!*Ident@Host.*:set %snhhost 3 *!*Ident@Host.* | !echo -ag [Hop-Script] - $+($chr(40),$gettok(%snhhost,1,32),$chr(41)) $gettok(%snhhost,2,32)
  66. ..$iif($gettok(%snhhost,1,32) == 4,$style(1)) 4. *!*@Host.*:set %snhhost 4 *!*@Host.* | !echo -ag [Hop-Script] - $+($chr(40),$gettok(%snhhost,1,32),$chr(91)) $gettok(%snhhost,2,32)
  67. ..$iif($gettok(%snhhost,1,32) == 5,$style(1)) 5. Nick!Ident@Host.se:set %snhhost 5 Nick!Ident@Host.se | !echo -ag [Hop-Script] - $+($chr(40),$gettok(%snhhost,1,32),$chr(41)) $gettok(%snhhost,2,32)
  68. ..$iif($gettok(%snhhost,1,32) == 6,$style(1)) 6. Nick!*Ident@Host.se:set %snhhost 6 Nick!*Ident@Host.se | !echo -ag [Hop-Script] - $+($chr(40),$gettok(%snhhost,1,32),$chr(41)) $gettok(%snhhost,2,32)
  69. ..$iif($gettok(%snhhost,1,32) == 7,$style(1)) 7. Nick!*@Host.se:set %snhhost 7 Nick!*@Host.se | !echo -ag [Hop-Script] - $+($chr(40),$gettok(%snhhost,1,32),$chr(41)) $gettok(%snhhost,2,32)
  70. ..$iif($gettok(%snhhost,1,32) == 8,$style(1)) 8. Nick!*Ident@Host.*:set %snhhost 8 Nick!*Ident@Host.* | !echo -ag [Hop-Script] - $+($chr(40),$gettok(%snhhost,1,32),$chr(41)) $gettok(%snhhost,2,32)
  71. ..$iif($gettok(%snhhost,1,32) == 9,$style(1)) 9. Nick!*@Host.*:set %snhhost 9 Nick!*@Host.* | !echo -ag [Hop-Script] - $+($chr(40),$gettok(%snhhost,1,32),$chr(41)) $gettok(%snhhost,2,32)
  72. .Anledningar:dialog -m snkba snkba
  73. }
  74. alias snhopv return $+($chr(49),.,$chr(50))
  75.  
  76. ;--------------------------------;
  77. ;---Menyn-i-Nicklistan/Queryn---;
  78. ;--------------------------------;
  79.  
  80. menu nicklist,query {
  81. $iif(Snyggast isin $server,Snyggast):
  82. .Kick
  83. ..Egen anledning:ccmd $$1 Användaren bröt en/flera utav våra regler: $+($chr(40),$$?="Skriv din anledning här:",$chr(41))
  84. ..-
  85. ..Sexchatt:snkb ksex $iif($menu == query,$nick,$$1)
  86. ..Felaktigt namn:snkb kfn $iif($menu == query,$nick,$$1)
  87. ..Olämplig:snkb kolm $iif($menu == query,$nick,$$1)
  88. ..Betaltjänster:snkb kbet $iif($menu == query,$nick,$$1)
  89. ..Missbruk av cam:snkb kcam $iif($menu == query,$nick,$$1)
  90. ..Reklam:snkb krek $iif($menu == query,$nick,$$1)
  91. ..Spam/Flood:snkb kspa $iif($menu == query,$nick,$$1)
  92. ..Telefonnr:snkb ktel $iif($menu == query,$nick,$$1)
  93. ..Email/Msn:snkb kmsn $iif($menu == query,$nick,$$1)
  94. ..Bold/Caps:snkb kbc $iif($menu == query,$nick,$$1)
  95. ..Swe/Eng:snkb klang $iif($menu == query,$nick,$$1)
  96. .Kick/ban
  97. ..Egen anledning:ccmd $$1 $gettok(%snhhost,1,32) $$?="Hur länge i sekunder:" Användaren bröt en/flera utav våra regler: $+($chr(40),$$?="Skriv din anledning här:",$chr(41))
  98. ..-
  99. ..Sexchatt:snkb bsex $iif($menu == query,$nick,$$1)
  100. ..Felaktigt namn:snkb bfn $iif($menu == query,$nick,$$1)
  101. ..Olämplig:snkb bolm $iif($menu == query,$nick,$$1)
  102. ..Betaltjänster:snkb bbet $iif($menu == query,$nick,$$1)
  103. ..Missbruk av cam:snkb bcam $iif($menu == query,$nick,$$1)
  104. ..Reklam:snkb brek $iif($menu == query,$nick,$$1)
  105. ..Spam/Flood:snkb bspa $iif($menu == query,$nick,$$1)
  106. ..Telefonnr:snkb btel $iif($menu == query,$nick,$$1)
  107. ..Email/Msn:snkb bmsn $iif($menu == query,$nick,$$1)
  108. ..Bold/Caps:snkb bbc $iif($menu == query,$nick,$$1)
  109. ..Swe/Eng:snkb blang $iif($menu == query,$nick,$$1)
  110. }
  111.  
  112.  
  113. ;-----------------------------------;
  114. ;---Anlednings-ändraren----;
  115. ;-----------------------------------;
  116.  
  117. dialog snkba {
  118. title "Anledningar"
  119. size -1 -1 181 112
  120. option dbu
  121. list 1, 2 4 57 95, size vsbar
  122. edit "", 3, 2 100 152 10, autohs
  123. button "Ändra", 4, 157 100 21 10, flat
  124. list 2, 60 4 119 95, size
  125. }
  126.  
  127. on *:dialog:snkba:*:*:{
  128. if ($devent == init) {
  129. if ($exists(snkba.dat) == $true) && ($lines(snkba.dat) > 0) {
  130. var %snkba = 1
  131. while (%snkba <= $lines(snkba.dat)) {
  132. did -a $dname 1 $gettok($read(snkba.dat, %snkba),2,42)
  133. did -a $dname 2 $gettok($read(snkba.dat, %snkba),3-,42)
  134. inc %snkba
  135. }
  136. }
  137. }
  138. if ($devent == sclick) {
  139. if ($did == 1) { did -c $dname 2 $did(1).sel | did -ra $dname 3 $did(2).seltext }
  140. if ($did == 2) { did -c $dname 1 $did(2).sel | did -ra $dname 3 $did(2).seltext }
  141. if ($did == 4) && ($did(2).sel != $null) {
  142. write -l $+ $did(2).sel snkba.dat $+($gettok($read(snkba.dat, w, * $+ $did(1).seltext $+ *),1,42),$chr(42),$did(1).seltext,$chr(42),$did(3))
  143. did -r $dname 1,2
  144. var %snkba = 1 | while (%snkba <= $lines(snkba.dat)) {
  145. did -a $dname 1 $gettok($read(snkba.dat, %snkba),2,42)
  146. did -a $dname 2 $gettok($read(snkba.dat, %snkba),3-,42)
  147. inc %snkba
  148. }
  149. }
  150. }
  151. }
  152.  
  153. ;---------------;
  154. ;---Övrigt----;
  155. ;---------------;
  156.  
  157. alias ccmd {
  158. if ($1 == $null) { !echo -agt [Hop-Script] Fel: Du måste skriva in ett nick med }
  159. if ($2 isnum) || ($2 == nban) { set %bban 1 }
  160. if ($$1 isreg #snyggast) || ($$1 isreg #chillout) {
  161. var %ccmd = 1
  162. while (%ccmd <= $comchan($$1,0)) {
  163. if (%ccmd == 1) && (%bban) { ban -u $+ $3 #snyggast $iif($2 == nban,$+($$1,!*@*),$$1 $2) | ban -u $+ $3 #chillout $iif($2 == nban,$+($$1,!*@*),$$1 $2) }
  164. $iif(%bban == $null,kick $comchan($$1,%ccmd) $$1 $iif($2- == $null,Användaren bröt en/flera utav våra regler.,$2-),kick $comchan($$1,%ccmd) $$1 $iif($4- == $null,Användaren bröt en/flera utav våra regler,$4-))
  165. if (%ccmd == $comchan($$1,0)) { unset %bban }
  166. inc %ccmd
  167. }
  168. }
  169. }
  170. alias snkb {
  171. if ($read(snkba.dat, w, $mid($1,2,$mid($1,1,0)) $+ *)) && ($2) {
  172. var %kbks = Användaren bröt en/flera utav våra regler:
  173. var %kbkans = $+($chr(40),$gettok($read(snkba.dat, w, $mid($1,2,$mid($1,1,0)) $+ *),3,42),$chr(41))
  174. if ($mid($1,1,1) == b) { ccmd $2 $gettok(%snhhost,1,32) 3600 %kbks %kbkans }
  175. elseif ($mid($1,1,1) == k) { ccmd $2 %kbks %kbkans }
  176. }
  177. }
  178. on *:rawmode:#:{
  179. if (snyggast isin $server) && ($nick == $me) {
  180. if ($left($1,1) == +) && ($2-) { inc %ban.num $count($1,b) }
  181. elseif ($left($1,1) == -) && ($2-) { inc %unban.num $count($1,b) }
  182. }
  183. }
  184.  
  185. alias onshtart {
  186. snhopll
  187. set %snhhost 3 *!*Ident@Host.*
  188. set %snhinfo $+($chr(2),U,$chr(2),tslängda) $+($chr(91),[k],$chr(93)) $+($chr(2),A,$chr(2),vstängda:) $+($chr(91),[b],$chr(93)) $+($chr(2),U,$chr(2),pphävda:) $+($chr(91),[ub],$chr(93))
  189. window -CdBpk0w0 +d @dohop -1 -1 115 115
  190. drawfill -r @dohop $rgb(100,100,100) $rgb(100,100,100) 0 0
  191. drawrect -r @dohop $rgb(0,0,0) 1 0 0 $window(@dohop).w $window(@dohop).h
  192. drawtext -r @dohop $rgb(0,0,0) wingdings 50 10 2 m
  193. drawtext -r @dohop $rgb(0,0,0) wingdings 50 55 2 m
  194. drawtext -r @dohop $rgb(0,0,0) wingdings 50 35 38 m
  195. drawtext -r @dohop $rgb(200,0,0) wingdings 52 12 1 l
  196. drawtext -r @dohop $rgb(0,200,0) wingdings 52 57 1 l
  197. drawtext -r @dohop $rgb(0,0,210) wingdings 52 37 37 l
  198. set %dontthis 1
  199. .timerdothis1 -m 1 100 drawtext -r @dohop $rgb(200,0,200) wingdings 52 12 1 l $chr(124) drawtext -r @dohop $rgb(0,0,0) verdana 19 21 14 H $chr(124) drawtext -r @dohop $rgb(255,255,255) verdana 19 22 15 H
  200. .timerdothis2 -m 1 200 drawtext -r @dohop $rgb(200,200,0) wingdings 52 57 1 l $chr(124) drawtext -r @dohop $rgb(0,0,0) verdana 19 67 16 O $chr(124) drawtext -r @dohop $rgb(255,255,255) verdana 19 68 17 O
  201. .timerdothis3 -m 1 300 drawtext -r @dohop $rgb(0,200,200) wingdings 52 37 37 l $chr(124) drawtext -r @dohop $rgb(0,0,0) verdana 19 49 51 P $chr(124) drawtext -r @dohop $rgb(255,255,255) verdana 19 50 52 P
  202. .timerdothis4 -m 1 400 drawtext -r @dohop $rgb(0,0,0) verdana 17 9 85 Script $+(v,$snhopv) $chr(124) drawtext -r @dohop $rgb(255,255,255) verdana 17 10 86 Script $+(v,$snhopv) $chr(124) unset %dontthis
  203. }
  204.  
  205. menu @dohop {
  206. sclick:$iif(%dontthis == $null,window -c @dohop)
  207. }
  208. on *:kick:#:{ if ($nick == $me) && (snyggast isin $server) { inc %kick.num } }
  209. on ^*:text:.hs:#:{ if ($nick isop $chan) { .notice $nick $+(v,$snhopv) } }
  210. alias snhopll {
  211. if ($exist(snkba.dat) == $false) || ($lines(snkba.dat) == 0) || ($count($read(snkba.dat, 1),$chr(42)) != 2) {
  212. $iif($count($read(snkba.dat, 1),$chr(42)) != 2,.remove snkba.dat)
  213. write snkba.dat sex*Sexchatt*Detta är inte en sexchatt
  214. write snkba.dat fn*Felaktigt namn*Olämpligt Namnval
  215. write snkba.dat olm*Olämplig*Olämpliga kommentarer/olämpligt beteende
  216. write snkba.dat bet*Betaltjänster*Ej tillåtna "tjänster"/betaltjänster
  217. write snkba.dat cam*Missbruk av cam*Missbruk utav camtjänsten
  218. write snkba.dat rek*Reklam*Reklam/olämpliga länkar
  219. write snkba.dat spa*Spam/Flood*Spam/Flood/Upprepningar
  220. write snkba.dat tel*Telefonnr*Telefonnummer i öppen kanal
  221. write snkba.dat msn*Email/Msn*Email/MSN adresser i öppen kanal
  222. write snkba.dat bc*Bold/Caps*Mening enbart i fetstil/versaler/understreck
  223. write snkba.dat lang*Swe/Eng*Only Swedish and/or English is allowed in the public channel.
  224. }
  225. }
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!