rendered paste body;###########################################################;
; Idle #ROFLCOPTERS ;
; ROFLCODE v3.6 ;
; By evoL *ReadMe File* ;
; ** Please Read Text Below ** ;
;###########################################################;
; ;
;********** DO NOT GIVE THIS SCRIPT TO ANYONE!! ************;
;******** FOR PRIVATE USE ONLY, NO NEWBS ALLOWED. **********;
; ;
;#######################-READ-ME-###########################;
;#######################--START--###########################;
; *Auto*ROFLCode* ;
; Use /roflcodeOn to Automatic Talk in MyCode ;
; Use /roflcodeOff to Stop Auto ;
;;; ;
; *Manul*ROFLCode* ;
; Use /Talk <Text> to Msg in MyCode (w/ Autoroflcode Off) ;
; Use /DTalk <Coded Text> to Msg in Coded Text Normaly ;
;;; ;
; *Amsg*roflcode* ;
; Use /ATalk <Text> to AMsg in MyCode (w/ Autoroflcode Off ;
; Use /DATalk <Coded Text> to AMsg in Coded Text Normaly ;
;;; ;
; *describe(me)*roflcode* ;
; Use /show <Text> to describe(/me) in roflcode (AutoRC Off);
; Use /DShow <Coded Text> to describe(/me) in Coded to text ;
;;; ;
; *AMe*roflcode* ;
; Use /ashow <Text> to Auto describe(/me) with AutoRC Off ;
; Use /ADShow <Coded Text> to Auto describe(/me) ;
;;; ;
; *Notice*roflcode* ;
; Use /Ntc <Text> to Notice in roflcode (w/ AutoRC Off) ;
; Use /DNtc <Coded Text> to Notice in Coded Text Normaly ;
;;; ;
; *Echo*roflcode* ;
; Use /See <Text> to Echo (Only U See) Text -> MyCode ;
; Use /Dsee <Coded Text> to Echo roflcode -> Text ;
;#######################---END---###########################;
;#######################^^^^^^^^############################;
;# | Script Start | #;
;---------------------;
;;*[ Talk Script *];;
alias talk { msg $active $roflcode($1-) | echo $active $timestamp [Code: $+ $me $+ ] $UrCode($1-) }
alias Dtalk { msg $active $UrCode($1-) }
;;*[ AMsg Script *];;
alias atalk { amsg $active $roflcode($1-) | echo $active $timestamp [AmsgCode: $+ $me $+ ] $UrCode($1-) }
alias Datalk { amsg $active $UrCode($1-) }
;;*[ describe(me) Script *];;
alias show { describe $active $roflcode($1-) | echo $active $timestamp *Code* $me $UrCode($1-) }
alias dshow { describe $active $UrCode($1-) }
;;*[ Auto describe(me) Script *];;
alias ashow { describe $active $roflcode($1-) | echo $active $timestamp *AMeCode* $me $UrCode($1-) }
alias adshow { describe $active $UrCode($1-) }
;;*[ Notice Script ]*;;
alias ntc { notice $active $roflcode($1-) | echo $active $timestamp [Code: $+ $me $+ ] $UrCode($1-) }
alias Dntc { notice $active $UrCode($1-) }
;;*[ See Script ]*;;
alias See { echo $active $1- Codes To $roflcode($1-) }
alias DSee { echo $active $1- Decodes To $UrCode($1-) }
;;*[ AutoCoder On/Off ]*;;
alias roflcodeOn {
if (%auto-code == 0) { set %auto-code 1 | ColorCheckOn | echo $active roflcode is ON }
elseif (%auto-code == 1) { Echo $active roflcode is On }
}
alias roflcodeOff {
if (%auto-code == 1) { set %auto-code 0 | ColorCheckOff | echo $active roflcode is OFF }
elseif (%auto-code == 0) { Echo $active roflcode is Off }
}
;;*[ Auto Coder Script ]*;;
alias ColorCheckon { set %Color.BG $Color(editbox) | color editbox 14 }
alias ColorCheckoff {
if (%Color.BG == $null) {
if ($color(editboxtext) == 1) { color editbox 0 }
elseif ($color(editboxtext) == 0) { color editbox 1 }
else { Echo $active Error: No EditBox Color was Set, Please Reset it with the Command: /color editbox <Color Number> }
}
else { color editbox %Color.BG | unset %Color.BG }
}
;;*[ When Msg SomeOne, What You See ]*;;
on *:INPUT:*:{
if (%auto-code == 1) {
if ($left($1,1) == /) { return 0 }
else {
say $MyCode($1-) | haltdef
echo $active $timestamp [Code:4 $+ $me $+ ] $1-
}
}
}
;;*[ When Some1 Msgs You in Chan, Auto Decoder ]*;;
on ^*:TEXT:*:#:{
if ($left($1-,3) == : $+ $chr(9) $+ :) {
echo $chan $timestamp < $+ $nick $+ > $1- | haltdef
echo $chan $timestamp [Code:4 $+ $nick $+ ] $UrCode($1-) | haltdef
}
}
;;*[ When Some1 uses desribe(me), Auto Decoder ]*;;
on ^*:ACTION:*:#:{
if ($left($1-,3) == : $+ $chr(9) $+ :) {
echo $chan $timestamp * $nick $1- | haltdef
echo $chan $timestamp *Code* $nick $UrCode($1-) | haltdef
}
}
;;*[ When Some1 PMs You, Auto Decoder ]*;;
on ^*:TEXT:*:?:{
if ($left($1-,3) == : $+ $chr(9) $+ :) {
echo $nick $timestamp < $+ $nick $+ > $1- | haltdef
echo $nick $timestamp [Code:4 $+ $nick $+ ] $UrCode($1-) | haltdef
}
}
;;*[ When Some1 Notices You, Auto Decoder ]*;;
on ^*:NOTICE:*:*:{
if ($left($1-,3) == : $+ $chr(9) $+ :) {
echo $iif($chan != $null,$chan,$nick) $timestamp - $+ $nick $+ : $+ $chan $+ - $1- | haltdef
echo $iif($chan != $null,$chan,$nick) $timestamp [Notice Code: $+ $nick $+ ] $UrCode($1-) | haltdef
}
}
;;*[ When you First load the Script ]*;;
on *:JOIN:#: { if (($nick isop #ROFLCOPTERS) && ($chan != #ROFLCOPTERS) && ($nick != $me)) { echo $chan $timestamp * $nick is using the ROFLCODE Script } }
;;*[ When you First load the Script ]*;;
on *:Load: { echo -a Loaded ROFLCODE! Please read the ReadMe on the top of the Script! | set %auto-code 1 | join #£µ¤¥²¡·¯¥º¹ | timer 1 10 msg #£µ¤¥²¡·¯¥º¹ $me is using the ROFLCODE Script }
;; The Coder & DeCoder ;;
;; -- DO NOT EDIT! -- ;;
alias roflcode { return : $+ $chr(9) $+ : $+ $replace($1-,a,¡,b,¢,c,£,d,¤,e,¥,f,¦,g,§,h,ª,i,«,j,¬,k,¯,l,·,m,±,n,´,o,µ,p,¶,q,ð,r,º,s,¹,t,²,u,³,v,»,w,¾,x,¿,y,æ,z,÷,1,Ò,2,ò,3,ó,4,Ó,5,Ô,6,ô,7,õ,8,Õ,9,Ö,0,ö,!,°,@,Â,#,Ç,$,Æ,%,Ì,^,×,&,Í,*,È,$chr(40),×,$chr(41),Ñ,q,Ù,+,Ú,-,Û,=,Ü,[,Ý,],Þ,$chr(123),ß,$chr(125),á,;,ã,',å,",ç,.,í,<,ð,>,©,/,ú,?,ý,\,ù,|,û,`,ÿ,~,ü,$chr(3),®,$chr(2),¼,$chr(31),½,$chr(22),Ã,$chr(15),Å,$chr(32),::) }
alias UrCode { return $remove($replace($1-,¡,a,¢,b,£,c,¤,d,¥,e,¦,f,§,g,ª,h,«,i,¬,j,¯,k,·,l,±,m,´,n,µ,o,¶,p,ð,q,º,r,¹,s,²,t,³,u,»,v,¾,w,¿,x,æ,y,÷,z,Ò,1,ò,2,ó,3,Ó,4,Ô,5,ô,6,õ,7,Õ,8,Ö,9,ö,0,°,!,Â,@,Ç,#,Æ,$,Ì,%,×,^,Í,&,È,*,×,$chr(40),Ñ,$chr(41),Ù,q,Ú,+,Û,-,Ü,=,Ý,[,Þ,],ß,$chr(123),á,$chr(125),ã,;,å,',ç,",í,.,ð,<,©,>,ú,/,ý,?,ù,\,û,|,ÿ,`,ü,~,®,$chr(3),¼,$chr(2),½,$chr(31),Ã,$chr(22),Å,$chr(15),::,$chr(32)),: $+ $chr(9) $+ :) }
;; ^^ DO NOT EDIT! ^^ ;;
;-------------------;
;# | Script End | #;