Code: Select all
|buffer.inc v1.1 by Notadruid
Sub initbuffer(int templength)
/if (!${Defined[curbuffer]}) /declare curbuffer string outer empty
/if (!${Defined[bufferlength]}) /declare bufferlength int outer 70
/if (${Defined[templength]}) /varset bufferlength ${templength}
/return
Sub buffer(string tempbuffer)
/if (${Defined[tempbuffer]}) {
/if (${tempbuffer.Length}>=${bufferlength}) {
/call dumpbuffer
/varset curbuffer ${tempbuffer}
/call dumpbuffer
/return
}
/if (${curbuffer.Equal[empty]}) {
/varset curbuffer ${tempbuffer}
/return
}
/varset curbuffer ${curbuffer}${tempbuffer}
/if (${curbuffer.Length}>=${bufferlength}) {
/call dumpbuffer
}
/return
}
/echo Warning: buffer called without a parameter!
/return
Sub dumpbuffer
/if (${curbuffer.NotEqual[empty]}) {
/echo ${curbuffer}
/varset curbuffer empty
}
/return