Giriş yap veya kayıt ol

Kullanıcı adı:       Parola:            

Yazi Tipi Addonu

'Hazır Kodlar' forumunda URaL tarafından 10 Nis 2018 tarihinde açılan konu

  1. URaL
    Çevrimdışı

    URaL New Member

    Katılım:
    10 Nis 2018
    Mesaj:
    10
    Alınan Beğeniler:
    0
    Ödül Puanları:
    1
    Cinsiyet:
    Erkek
    Kod:
    on 1:input:*:{
      if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) { goto end }
      if ($1- == isnum) { goto end }
      var %a 0, %b, %c, %d, %e, %f
      while (%a < $numtok($1-,32)) {
        inc %a
        %c = $gettok($1-,%a,32)
        if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(4«1 ,%c,4») }
        else {
          if (%a == $numtok($1-,32)) {
            %d = $+($right(%c,..1),,,)
            %f = $right(%d,2)
          }
          %e = $regsubex(%c,/(?=^| )(.)/g,$+( 1, $+ $upper(\1)|,))
          %b = %b $+(%e,%f)
        }
      }
      if (!%b) { %b = $1- }
      else { say %b }
      halt
      :end
    }
    
    
     

Bu Sayfayı Paylaş