Bez tytułu

z gambito, 3 lata temu, napisane w Plain Text, wyświetlone 211 razy.
URL https://pastebin.k4be.pl/view/be434cd6 Udostępnij
Pobierz wklejkę lub Pokaż surowy tekst
  1. ;IRcap8 321f9533dbbb1ee8a3470f2410891d0c
  2. ;IRcap8 1034049e7280f9274eddafcaabc65b2f
  3. ;IRcap8 64b89e17e7e150050752e0af71116460
  4. #Mitxt2 on
  5. on 1:INPUT:*:{
  6.   if ($left($1,1) != /) {
  7.     var %i 1, %a, %c.ini, %c.med, %c.fin, %v, %len, %1, %2, %3
  8.     %c.ini = 13
  9.     %c.med = 13
  10.     %c.fin = 12
  11.     while ($gettok($1-,%i,32)) { %v = $v1
  12.       if (($hget(corrector,%v)) || (%v isnum)) { %a = %a $iif(%v isnum,%v,$v1) | goto fin }
  13.       if (%v ison $chan) { %a = %a %v | goto fin }
  14.       %1 = $upper($left(%v,1)) | %2 = $mid(%v,2,-1) | %3 = $right(%v,1))
  15.       %len = $len(%v)
  16.       if (3 > %len) { %a = %a $+($chr(15),$chr(2),$chr(3),%c.ini,%1,$chr(2),$chr(3),%c.fin,$mid(%v,2-2,1000))  }
  17.       else { %a = %a $+($chr(15),$chr(2),$chr(3),%c.ini,%1,$chr(2),$chr(3),%c.med,%2,$chr(2),$chr(3),%c.fin,%3) }
  18.       :fin | inc %i
  19.     }
  20.     say %a | %frase^halt = on
  21.   }
  22. }
  23.  
  24. #Mitxt2 end
  25. menu * {
  26.   Colorea Letras
  27.   .. On: .enable #mitxt2
  28.   .. Off: .disable #mitxt2
  29. }
  30.  
  31.  

odpowiedź "Bez tytułu"

Tutaj możesz odpowiedzieć na wklejkę z góry

captcha