Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- on *:input:*: {
- if ( ( $left($1,1) != / ) || ( $1 == /me ) ) {
- ;
- ; Quick Input check, if under 400 characters, don't bother
- var %textlen = $len($1-)
- ;
- if (%textlen > 400) {
- ;
- var %pos = 1
- var %text = $mid($1-, %pos, 400)
- var %firsttime = 1
- ;
- while ( %text != $null ) {
- ;
- ; Try to cut at the last word but if the last word is too long
- ; then just crop in the middle and be done with it.
- ;
- if ( $len($deltok(%text, -1, 32)) < 370 ) {
- %text = $left(%text, 370)
- inc %pos 370
- }
- else {
- %text = $deltok(%text,-1,32)
- inc %pos $len(%text)
- inc %pos
- }
- ;
- ; Store the outgoing text, and figure if this is the last
- ; batch of text we're sending, to see if we need to end it.
- ;
- var %outtext = %text
- %text = $mid($1-, %pos, 400)
- ;
- ; If this is the first batch of text, figure on what to do
- ;
- if (%firsttime == 1) {
- if ($gettok(%outtext, 1, 32) == /me) {
- ; This is a me command, treat it as such
- %outtext
- }
- else {
- ; Regular plain text being sent.
- say %outtext
- }
- ;
- %firsttime = 0;
- }
- else {
- ;
- ; Not the first, we're in the middle or end now.
- ;
- if (%text != $null) {
- ; This is only a fragment of a statement.
- say %outtext
- }
- else {
- if (%textlen <= 945) {
- ; If this is is it, mark the end flag
- say %outtext
- }
- else {
- ; Input is empty, but the user may not be done.
- say %outtext
- }
- }
- }
- }
- ;
- ; Prevent regular output from being sent to the server
- ;
- halt
- }
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement