/ScriptServ

;====================================================================================
;                                                                 NetLand §¢®Ipt V2.0
;                                                                       ßÿ GoodNews 
;                                           We made everything here and it is professional
;                                          so you dont need to touch or change  anything 
;                                     cause it can cause a malfunction to the script .Thx !!!!!!
;                                                               Long Live #NetLand
;=====================================================================================
/r1 {
  set %rainbow *1
  %rainbow = $replace(%rainbow,a,1a)
  %rainbow = $replace(%rainbow,b,3b)
  %rainbow = $replace(%rainbow,c,4c)
  %rainbow = $replace(%rainbow,d,6d)
  %rainbow = $replace(%rainbow,e,12e)
  %rainbow = $replace(%rainbow,f,13f)
  %rainbow = $replace(%rainbow,g,14g)
  %rainbow = $replace(%rainbow,h,15h)
  %rainbow = $replace(%rainbow,i,1i)
  %rainbow = $replace(%rainbow,j,3j)
  %rainbow = $replace(%rainbow,k,4k)
  %rainbow = $replace(%rainbow,l,6l)
  %rainbow = $replace(%rainbow,m,12m)
  %rainbow = $replace(%rainbow,n,13n)
  %rainbow = $replace(%rainbow,o,14o)
  %rainbow = $replace(%rainbow,p,1p)
  %rainbow = $replace(%rainbow,q,3q)
  %rainbow = $replace(%rainbow,r,4r)
  %rainbow = $replace(%rainbow,s,6s)
  %rainbow = $replace(%rainbow,t,12t)
  %rainbow = $replace(%rainbow,u,13u)
  %rainbow = $replace(%rainbow,v,14v)
  %rainbow = $replace(%rainbow,w,15w)
  %rainbow = $replace(%rainbow,x,1x)
  %rainbow = $replace(%rainbow,y,3y)
  %rainbow = $replace(%rainbow,z,4z)
  say %rainbow
  unset %rainbow
}
/r2 {
  %rainbow = *1
  set %rainbow $replace(%rainbow,a,4a)
  set %rainbow $replace(%rainbow,b,3B)
  set %rainbow $replace(%rainbow,c,6C) 
  set %rainbow $replace(%rainbow,d,7D) 
  set %rainbow $replace(%rainbow,e,4e) 
  set %rainbow $replace(%rainbow,f,12F) 
  set %rainbow $replace(%rainbow,g,13G) 
  set %rainbow $replace(%rainbow,h,6H) 
  set %rainbow $replace(%rainbow,i,4i) 
  set %rainbow $replace(%rainbow,j,J) 
  set %rainbow $replace(%rainbow,k,3K) 
  set %rainbow $replace(%rainbow,l,L) 
  set %rainbow $replace(%rainbow,m,4M) 
  set %rainbow $replace(%rainbow,n,6N)
  set %rainbow $replace(%rainbow,o,4o) 
  set %rainbow $replace(%rainbow,p,12P) 
  set %rainbow $replace(%rainbow,q,Q) 
  set %rainbow $replace(%rainbow,r,13R) 
  set %rainbow $replace(%rainbow,s,7S) 
  set %rainbow $replace(%rainbow,t,T) 
  set %rainbow $replace(%rainbow,u,4u) 
  set %rainbow $replace(%rainbow,v,V) 
  set %rainbow $replace(%rainbow,w,12W) 
  set %rainbow $replace(%rainbow,x,7X) 
  set %rainbow $replace(%rainbow,y,Y) 
  set %rainbow $replace(%rainbow,z,6z) 
  set %rainbow $replace(%rainbow,?,12¿15?) 
  say %rainbow
  unset %rainbow
}
/rb {
  set %rainbow1 $replace(*1,$chr(32), ) | set %rainbow1 $left(200,%rainbow1) | set %rainbow2 $chr(3) $+ 4,1 | set %rainbow3 1 | set %rainbow4 1
  :loop
  set %rainbow2 %rainbow2 $+ $chr(3) $+ $token( %rainbow4 , 38 , 4&7&8&9&11&13 ) $+ $mid(%rainbow3,1,%rainbow1) 
  inc %rainbow3
  if ( $mid(%rainbow3,1,%rainbow1) !=  ) { inc %rainbow4 }
  if ( %rainbow4 > 6 ) { set %rainbow4 1 }
  if ( $mid(%rainbow3,1,%rainbow1) != $null ) { goto loop }
  say %rainbow2
  unset %rainbow1 %rainbow2 %rainbow3 %rainbow4
}
/ascii {
  set %ascii *1
  %ascii = $replace(%ascii,a,å)
  %ascii = $replace(%ascii,b,ß)
  %ascii = $replace(%ascii,c,©)
  %ascii = $replace(%ascii,d,Ð)
  %ascii = $replace(%ascii,e,ê)
  %ascii = $replace(%ascii,f,f)
  %ascii = $replace(%ascii,g,g)
  %ascii = $replace(%ascii,h,h)
  %ascii = $replace(%ascii,i,ï)
  %ascii = $replace(%ascii,j,j)
  %ascii = $replace(%ascii,k,K)
  %ascii = $replace(%ascii,l,£)
  %ascii = $replace(%ascii,m,m)
  %ascii = $replace(%ascii,n,ñ)
  %ascii = $replace(%ascii,o,ð)
  %ascii = $replace(%ascii,p,þ)
  %ascii = $replace(%ascii,q,q)
  %ascii = $replace(%ascii,r,®)
  %ascii = $replace(%ascii,s,§)
  %ascii = $replace(%ascii,t,t)
  %ascii = $replace(%ascii,u,ü)
  %ascii = $replace(%ascii,v,v)
  %ascii = $replace(%ascii,w,W)
  %ascii = $replace(%ascii,x,×)
  %ascii = $replace(%ascii,y,¥)
  %ascii = $replace(%ascii,z,z)
  %ascii = $replace(%ascii,?,¿)
  %ascii = $replace(%ascii,!,¡)
  say %ascii
  unset %ascii
}
/asciic {
  %ascii = $parms
  %ascii = $replace(%ascii, 1, ¹)
  %ascii = $replace(%ascii, 2, ²)
  %ascii = $replace(%ascii, 3, ³)
  %ascii = $replace(%ascii, 1/4, ¼)
  %ascii = $replace(%ascii, 1/2, ½)
  %ascii = $replace(%ascii, 3/4, ¾)
  %ascii = $replace(%ascii, AE, Æ)
  %ascii = $replace(%ascii, A, Å)
  %ascii = $replace(%ascii, B, ß)
  %ascii = $replace(%ascii, C, Ç)
  %ascii = $replace(%ascii, D, Ð)
  %ascii = $replace(%ascii, E, Ê)
  %ascii = $replace(%ascii, I, Î)
  %ascii = $replace(%ascii, L, £)
  %ascii = $replace(%ascii, N, Ñ)
  %ascii = $replace(%ascii, O, Ô)
  %ascii = $replace(%ascii, R, ®)
  %ascii = $replace(%ascii, S, §)
  %ascii = $replace(%ascii, U, Û)
  %ascii = $replace(%ascii, Y, ¥) { 
    %ascii1 = %ascii
    unset %ascii
    %ascii = 
    %asciicnumber = 1 
    %asciiccolor = 2
    :continue
    if $mid(%asciicnumber,1, %ascii1) != $null {
      %ascii = %ascii $+   $+ %asciiccolor $+ $mid(%asciicnumber, 1,%ascii1) $+  
      inc %asciicnumber
      If (%asciiccolor == 15) %asciiccolor = 1
      inc %asciiccolor
      goto continue
    }
    say %ascii
    unset %ascii 
    unset %ascii1 
    unset %asciiccolor
    unset %asciicnumber
  }
} 
/brick1 { %bricknum = 1 | unset %brickmsg  | %brickmsg =  | %brickcolor = p
  :start
  if %brickcolor == p { %bricknum2 = 4 | %bricknum3 = 1 | %brickcolor = y | goto add }
  if %brickcolor == y  { %bricknum2 = 1 | %bricknum3 = 4 | %brickcolor = p | goto add }
  :add
  if $mid(%bricknum,1, *1) != $null {
    %brickmsg = %brickmsg $+   $+ %bricknum2 $+ , $+  %bricknum3 $+  $mid(%bricknum, 1,*1) $+     
    inc %bricknum 
  goto start  }
  say %brickmsg
  unset %brick*
}
/brick2 { %bricknum = 1 | unset %brickmsg  | %brickmsg =  | %brickcolor = p
  :start
  if %brickcolor == p { %bricknum2 = 5 | %bricknum3 = 15 | %brickcolor = y | goto add }
  if %brickcolor == y  { %bricknum2 = 15 | %bricknum3 = 5 | %brickcolor = p | goto add }
  :add
  if $mid(%bricknum,1, *1) != $null {
    %brickmsg = %brickmsg $+   $+ %bricknum2 $+ , $+  %bricknum3 $+  $mid(%bricknum, 1,*1) $+     
    inc %bricknum 
  goto start  }
  say %brickmsg
  unset %brick*
}
/brick3 { %bricknum = 1 | unset %brickmsg  | %brickmsg =  | %brickcolor = p
  :start
  if %brickcolor == p { %bricknum2 = 12 | %bricknum3 = 11 | %brickcolor = y | goto add }
  if %brickcolor == y  { %bricknum2 = 11 | %bricknum3 = 12 | %brickcolor = p | goto add }
  :add
  if $mid(%bricknum,1, *1) != $null {
    %brickmsg = %brickmsg $+   $+ %bricknum2 $+ , $+  %bricknum3 $+  $mid(%bricknum, 1,*1) $+     
    inc %bricknum 
  goto start  }
  say %brickmsg
  unset %brick*
}
/brick4 { %bricknum = 1 | unset %brickmsg  | %brickmsg =  | %brickcolor = p
  :start
  if %brickcolor == p { %bricknum2 = 2 | %bricknum3 = 14 | %brickcolor = y | goto add }
  if %brickcolor == y  { %bricknum2 = 14 | %bricknum3 = 2 | %brickcolor = p | goto add }
  :add
  if $mid(%bricknum,1, *1) != $null {
    %brickmsg = %brickmsg $+   $+ %bricknum2 $+ , $+  %bricknum3 $+  $mid(%bricknum, 1,*1) $+     
    inc %bricknum 
  goto start  }
  say %brickmsg
  unset %brick*
}
/vowels {
  %vowels = $parm1
  %vowels = $remove(%vowels,a)
  %vowels = $remove(%vowels,e)
  %vowels = $remove(%vowels,i)
  %vowels = $remove(%vowels,o)
  %vowels = $remove(%vowels,u)
  me hugs $parm1 so tight that the vowels fall out of their nick 2{{{ %vowels }}}
  me watches as %vowels picks up their vowels and puts them back in their nick 2{{{ $parm1 }}}
  unset %vowels
}

/fnt {
  set %fnt  *1
  %fnt = $replace(%fnt,a,12å)
  %fnt = $replace(%fnt,b,13ß)
  %fnt = $replace(%fnt,c,7©)
  %fnt = $replace(%fnt,d,5Ð)
  %fnt = $replace(%fnt,e,14ê)
  %fnt = $replace(%fnt,f,2f)
  %fnt = $replace(%fnt,g,3g)
  %fnt = $replace(%fnt,h,6h)
  %fnt = $replace(%fnt,i,11ï)
  %fnt = $replace(%fnt,j,10j)
  %fnt = $replace(%fnt,k,4K)
  %fnt = $replace(%fnt,l,4£)
  %fnt = $replace(%fnt,m,2m)
  %fnt = $replace(%fnt,n,6ñ)
  %fnt = $replace(%fnt,o,5ð)
  %fnt = $replace(%fnt,p,4þ)
  %fnt = $replace(%fnt,q,10Q)
  %fnt = $replace(%fnt,r,3®)
  %fnt = $replace(%fnt,s,12§)
  %fnt = $replace(%fnt,t,13T)
  %fnt = $replace(%fnt,u,6ü)
  %fnt = $replace(%fnt,v,15V)
  %fnt = $replace(%fnt,w,5w)
  %fnt = $replace(%fnt,x,9×)
  %fnt = $replace(%fnt,y,4¥)
  %fnt = $replace(%fnt,z,7z)
  %fnt = $replace(%fnt,!,12!15¡)
  %fnt = $replace(%fnt,?,12?15¿)

  say %fnt
  unset %fnt
}

1 say 15,16'%16,15%,14,15'%15,14%,1,14'%14,1%,16,1 $1- 14,1'%1,14%,15,14'%14,15%,16,15'%15,16%,
2 say 8,16'%16,8%,7,8'%8,7%,4,7'%7,4%,5,4'%4,5%,1,5'%5,1%,8,1 $1- 5,1'%1,5%,4,5'%5,4%,7,4'%4,7%,8,7'%7,8%,16,8'%8,16%,
3 say 9,16'%16,9%,3,9'%9,3%,1,3'%3,1%,9,1 $1- 3,1'%1,3%,9,3'%3,9%,16,9'%9,16%,
4 say 11,16'%16,11%,12,11'%11,12%,2,12'%12,2%,1,2'%2,1%,11,1 $1- 2,1'%1,2%,12,2'%2,12%,11,12'%12,11%,16,11'%11,16%,
5 say 13,16'%16,13%,6,13'%13,6%,1,6'%6,1%,13,1 $1- 6,1'%1,6%,13,6'%6,13%,16,13'%13,16%,
6 say 15,16«14,15«1,14«15,1 $1- 1,14»14,15»15,16»
7 say 8,16«7,8«4,7«5,4«1,5«8,1 $1- 1,5»5,4»4,7»7,8»8,16»
8 say 9,16«3,9«1,3«9,1 $1- 1,3»3,9»9,16»
9 say 11,16«12,11«2,12«1,2«11,1 $1- 1,2»2,12»12,11»11,16»
10 say 13,16«6,13«1,6«13,1 $1- 1,6»6,13»13,16»

/fbox { 
  set %funkbox $rand(1,10)
  if %funkbox == 1 { /c1 $$?="wHaT u WaNt To SaY??:" }
  elseif %funkbox == 2 { /c2 $$?="wHaT Do YOu WaNt To SaY??:" }
  elseif %funkbox == 3 { /c3 $$?="wHaT Do YOu WaNt To SaY??:" }
  elseif %funkbox == 4 { /c4 $$?="wHaT Do YOu WaNt To SaY??:" }
  elseif %funkbox == 5 { /c5 $$?="wHaT Do YOu WaNt To SaY??:" }
  elseif %funkbox == 6 {  /c6 $$?="wHaT Do YOu WaNt To SaY??:" }
  elseif %funkbox == 7 { /c7 $$?="wHaT Do YOu WaNt To SaY??:" }
  elseif %funkbox == 8 { /c8 $$?="wHaT Do YOu WaNt To SaY??:" }
  elseif %funkbox == 9 { /c9  $$?="wHaT Do YOu WaNt To SaY??:" }
  elseif %funkbox == 10 { /c10  $$?="wHaT Do YOu WaNt To SaY??:" }
  else { return }
  :end
}
/c1 {
  .say 4,4 $$1 *2 $+ !
  .say 13,4 $$1 *2 $+ 4,4!1,1!
  .say 4,4 $$1 *2 $+ 4,4!1,1!
  .say 0,0 1,1 $$1 *2 $+ !
} 
/c2 {
  .say 12,12 $$1 *2 $+ !
  .say 11,12 $$1 *2 $+ 12,12!1,1!
  .say 12,12 $$1 *2 $+ 12,12!1,1!
  .say 0,0 1,1 $$1 *2 $+ !
} 
/c3 {
  .say 7,7 $$1 *2 $+ !
  .say 4,7 $$1 *2 $+ 7,7!1,1!
  .say 7,7 $$1 *2 $+ 7,7!1,1!
  .say 0,0 1,1 $$1 *2 $+ !
} 
/c1 {
  .say 4,4 $$1 *2 $+ !
  .say 13,4 $$1 *2 $+ 4,4!1,1!
  .say 4,4 $$1 *2 $+ 4,4!1,1!
  .say 0,0 1,1 $$1 *2 $+ !
} 
/c4 {
  .say 6,6 $$1 *2 $+ !
  .say 9,6 $$1 *2 $+ 6,6!1,1!
  .say 6,6 $$1 *2 $+ 6,6!1,1!
  .say 0,0 1,1 $$1 *2 $+ !
} 
/c5 {
  .say 13,13 $$1 *2 $+ !
  .say 3,13 $$1 *2 $+ 13,13!1,1!
  .say 13,13 $$1 *2 $+ 13,13!1,1!
  .say 0,0 1,1 $$1 *2 $+ !
} 
/c6 {
  .say 14,14 $$1 *2 $+ !
  .say 1,14 $$1 *2 $+ 14,14!1,1!
  .say 14,14 $$1 *2 $+ 14,14!1,1!
  .say 0,0 1,1 $$1 *2 $+ !
} 
/c7 {
  .say 3,3 $$1 *2 $+ !
  .say 0,3 $$1 *2 $+ 3,3!1,1!
  .say 3,3 $$1 *2 $+ 3,3!1,1!
  .say 0,0 1,1 $$1 *2 $+ !
} 
/c8 {
  .say 10,10 $$1 *2 $+ !
  .say 9,10 $$1 *2 $+ 10,10!1,1!
  .say 10,10 $$1 *2 $+ 10,10!1,1!
  .say 0,0 1,1 $$1 *2 $+ !
} 
/c9 {
  .say 2,2 $$1 *2 $+ !
  .say 4,2 $$1 *2 $+ 2,2!1,1!
  .say 2,2 $$1 *2 $+ 2,2!1,1!
  .say 0,0 1,1 $$1 *2 $+ !
} 
/c10 {
  .say 4,4 $$1 *2 $+ !
  .say 1,4 $$1 *2 $+ 4,4!1,1!
  .say 4,4 $$1 *2 $+ 4,4!1,1!
  .say 0,0 1,1 $$1 *2 $+ !
}