By Korvin on Mar 17, 2007its a secret messege system
on ^pwnd:JOIN:#: {
msg $nick 11,4You have recieved a coded messege from %pwndnick. $+ $nick $+ . To read, type .ReadMsg You will only be able to read this once, so write it down.
}
on ^pwnd:TEXT:.readmsg:#: {
if (%pwnd. $+ $nick == $null) halt
msg $nick Here you go, this will only be sent once...
msg $nick [ %pwnd. [ $+ [ $nick ] ] ]
msg $nick For help, type .key This will only be sent once, so be carefull!
set %key. $+ $nick on
unset %pwndnick. $+ $nick
unset %pwnd. $+ $nick
ruser pwnd $nick
}
on *:TEXT:*:#: {
if ($1 == .sendcode) {
msg $chan sent.
set %pwnd $3-
%pwnd = $replace(%pwnd,a,1-)
%pwnd = $replace(%pwnd,b,2-)
%pwnd = $replace(%pwnd,c,3-)
%pwnd = $replace(%pwnd,d,4-)
%pwnd = $replace(%pwnd,e,5-)
%pwnd = $replace(%pwnd,f,6-)
%pwnd = $replace(%pwnd,g,7-)
%pwnd = $replace(%pwnd,h,8-)
%pwnd = $replace(%pwnd,i,9-)
%pwnd = $replace(%pwnd,j,10-)
%pwnd = $replace(%pwnd,k,11-)
%pwnd = $replace(%pwnd,l,12-)
%pwnd = $replace(%pwnd,m,13-)
%pwnd = $replace(%pwnd,n,14-)
%pwnd = $replace(%pwnd,o,15-)
%pwnd = $replace(%pwnd,p,16-)
%pwnd = $replace(%pwnd,q,17-)
%pwnd = $replace(%pwnd,r,18-)
%pwnd = $replace(%pwnd,s,19-)
%pwnd = $replace(%pwnd,t,20-)
%pwnd = $replace(%pwnd,u,21-)
%pwnd = $replace(%pwnd,v,22-)
%pwnd = $replace(%pwnd,w,23-)
%pwnd = $replace(%pwnd,x,24-)
%pwnd = $replace(%pwnd,y,25-)
%pwnd = $replace(%pwnd,z,26-)
%pwnd = $replace(%pwnd,(-/),(/))
%pwnd = $replace(%pwnd,.,/)
%pwnd = $replace(%pwnd,$chr(15),/)
set %pwndnick. $+ $2 $nick
set %pwnd. $+ $2 %pwnd
auser pwnd $2
}
if ($1 == .key) {
if (%key. [ $+ [ $nick ] ] == $null) { halt }
msg $nick ______________________________________________________________________
msg $nick |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 |
msg $nick |1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|
unset %key. $+ $nick
}
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;nowtheSolver;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias decode {
set %pwnd $1-
%pwnd = $replace(%pwnd,1,a)
%pwnd = $replace(%pwnd,2,b)
%pwnd = $replace(%pwnd,3,c)
%pwnd = $replace(%pwnd,4,d)
%pwnd = $replace(%pwnd,5,e)
%pwnd = $replace(%pwnd,6,f)
%pwnd = $replace(%pwnd,7,g)
%pwnd = $replace(%pwnd,8,h)
%pwnd = $replace(%pwnd,9,i)
%pwnd = $replace(%pwnd,10,j)
%pwnd = $replace(%pwnd,11,k)
%pwnd = $replace(%pwnd,12,l)
%pwnd = $replace(%pwnd,13,m)
%pwnd = $replace(%pwnd,14,n)
%pwnd = $replace(%pwnd,15,o)
%pwnd = $replace(%pwnd,16,p)
%pwnd = $replace(%pwnd,17,q)
%pwnd = $replace(%pwnd,18,r)
%pwnd = $replace(%pwnd,19,s)
%pwnd = $replace(%pwnd,20,t)
%pwnd = $replace(%pwnd,21,u)
%pwnd = $replace(%pwnd,22,v)
%pwnd = $replace(%pwnd,23,w)
%pwnd = $replace(%pwnd,24,x)
%pwnd = $replace(%pwnd,25,y)
%pwnd = $replace(%pwnd,26,x)
%pwnd = $replace(%pwnd,/,-)
echo %pwnd
unset %pwnd
}
;type /decode -codedmsg- to decode.
Quote from Solo: If the script is not Professional i dont\'t see why the comments should be. With the same intensity you attack \"unhelpful\" comments you should be attacking \"unhelpful\" and unprofessional scripts.
^_^ so if Hawkee does not right a professional script does that mean we can give him unprofessional comments?
All of you cool it. It is getting rather tiresome watching there be a argument every time Korvin posts a snippet whether or not the code is \"good\" or if it works or not everyone needs to remain Professional. Comments like: \"Very bad coding. Painful usage of $replace.\" are not professional in the least even if they have a valid point. Also things like \"Write some of your own scripts, then comment.\" are along the same lines. When ever you make comments give reasons why the things you point out are wrong, could be improved, or how excellent they are. Keep to the rules of both posting and snippet and commenting on a snippet and we won\'t have these out bursts.
