Advertisement
Guest User

Untitled

a guest
Jun 1st, 2014
315
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.41 KB | None | 0 0
  1. on 1:INPUT:*:{
  2. if ($left($1,1) != /) && (%quote.status = on) {
  3. msg $target 10 $replace($1-,$chr(32) $+ $chr(34),$chr(32) $+ 5 $+ $chr(34), $chr(34) $+ $chr(32),5 $+ $chr(34) $+ 10 $+ $chr(32)) | haltdef
  4. }
  5. }
  6.  
  7. alias quote {
  8. if (%quote.status = $null) { set %quote.status on | echo -a Quoting is 03 $+ enabled! | halt }
  9. elseif (%quote.status = off) { set %quote.status on | echo -a Quoting is 03 $+ enabled! }
  10. elseif (%quote.status = on) { set %quote.status off | echo -a Quoting is 04 $+ disabled! }
  11. else { halt }
  12. }
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19. on *:INPUT:*:{
  20. var %End <snip>
  21. var %New <cont>
  22. var %MaxLen $calc(400 - $len($nick))
  23. if ($len($1-) < %MaxLen) return
  24. var %x %MaxLen, %y, %1, %2, %3, %Prefix say
  25. while ($asc($mid($1-,%x,1)) !== 32) { if (%x < $calc(%MaxLen - 50)) goto SpcFound | dec %x }
  26. :SpcFound
  27. %1 = $left($1-,%x) | %2 = $mid($1-,%x,$len($1-))
  28. if ($len(%2) > %MaxLen) {
  29. %x = %MaxLen
  30. while ($asc($mid(%2,%x,1)) !== 32) { if (%x < $calc(%MaxLen - 50)) goto SpcFound3 | dec %x }
  31. :SpcFound3
  32. %3 = $mid(%2,%x,$len(%2))
  33. %2 = $left(%2,%x)
  34. }
  35. if (($1 = /me) || ($1 = /action)) {
  36. %Prefix = /me
  37. if ($1 == /me) %1 = $right(%1,$calc($len(%1) - 3))
  38. else %1 = $right(%1,$calc($len(%1) - 7))
  39. }
  40. %Prefix %1 %End
  41. if (%3 !== $null) { %2 = %2 %End | .timerCuttxt3 1 2 %Prefix %New %3 }
  42. .timerCuttxt2 1 1 %Prefix %New %2
  43. halt
  44. }
  45. Cut-Off-Script.txt
  46.  
  47. 1 of 1
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement