View

encoded messeges

Snippet Author: Korvin
Rated:

Snippet Description: Just made this, i will be working on it periodically

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
  }
}

Favorite Script -

Lindrian

Comments:
Not a bad script, but you dont need more then 1 text event, secondly, instead of using %var == $null you can simply use !%var Secondly, I see your using set %pwnd. $+ $2 %pwnd etc. You can use (on all of your similiar variables) set $+(%,key,.,$nick) Anyways, good job.

Posted by: Lindrian

Korvin

Comments:
ty.

Posted by: Korvin

Smilies	Message:
	Comments:

X-Static Codes

Search

Scripting

Links

Sponsors

Stats

View

encoded messeges