[SNOOPY]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

; /mors <metin> ? mors kodu üretir ve kanala gönderir
alias mors {
  if ($1 == $null) {
    echo -a Kullanım: /mors <metin>
    return
  }

  var %i = 1, %mors = 
  while ($gettok($1-,%i,32) != $null) {
    var %kelime = $gettok($1-,%i,32), %j = 1
    while ($mid(%kelime,%j,1) != $null) {
      var %harf = $lower($mid(%kelime,%j,1))
      var %kod = $morschar(%harf)
      if (%kod != $null) { var %mors = %mors %kod }
      inc %j
    }
    var %mors = %mors  
    inc %i
  }

  msg $chan %mors
}

; /morscoz <mors kodu> ? çözümünü kanala gönderir
alias morscoz {
  if ($1 == $null) {
    echo -a Kullanım: /morscoz <mors kodu>
    return
  }

  var %i = 1, %cozum = , %kelime =

  while ($gettok($1-,%i,32) != $null) {
    var %kod = $gettok($1-,%i,32)
    if (%kod == /) {
      var %cozum = %cozum $+ %kelime $+ $chr(32)
      var %kelime = 
    }
    else {
      var %harf = $morstokarakter(%kod)
      if (%harf != $null) { var %kelime = %kelime $+ %harf }
    }
    inc %i
  }
  ; Son kelimeyi ekle
  var %cozum = %cozum $+ %kelime

  msg $chan Çözüm: %cozum
}

; Harften mors'a
alias morschar {
  if ($1 == a) return .-
  if ($1 == b) return -...
  if ($1 == c) return -.-.
  if ($1 == d) return -..
  if ($1 == e) return .
  if ($1 == f) return ..-.
  if ($1 == g) return --.
  if ($1 == h) return ....
  if ($1 == i) return ..
  if ($1 == j) return .---
  if ($1 == k) return -.-
  if ($1 == l) return .-..
  if ($1 == m) return --
  if ($1 == n) return -.
  if ($1 == o) return ---
  if ($1 == p) return .--.
  if ($1 == q) return --.-
  if ($1 == r) return .-.
  if ($1 == s) return ...
  if ($1 == t) return -
  if ($1 == u) return ..-
  if ($1 == v) return ...-
  if ($1 == w) return .--
  if ($1 == x) return -..-
  if ($1 == y) return -.--
  if ($1 == z) return --..
  if ($1 == 0) return -----
  if ($1 == 1) return .----
  if ($1 == 2) return ..---
  if ($1 == 3) return ...--
  if ($1 == 4) return ....-
  if ($1 == 5) return .....
  if ($1 == 6) return -....
  if ($1 == 7) return --...
  if ($1 == 8) return ---..
  if ($1 == 9) return ----.
  return
}

; Mors'tan harfe
alias morstokarakter {
  if ($1 == .-) return a
  if ($1 == -...) return b
  if ($1 == -.-.) return c
  if ($1 == -..) return d
  if ($1 == .) return e
  if ($1 == ..-.) return f
  if ($1 == --.) return g
  if ($1 == ....) return h
  if ($1 == ..) return i
  if ($1 == .---) return j
  if ($1 == -.-) return k
  if ($1 == .-..) return l
  if ($1 == --) return m
  if ($1 == -.) return n
  if ($1 == ---) return o
  if ($1 == .--.) return p
  if ($1 == --.-) return q
  if ($1 == .-.) return r
  if ($1 == ...) return s
  if ($1 == -) return t
  if ($1 == ..-) return u
  if ($1 == ...-) return v
  if ($1 == .--) return w
  if ($1 == -..-) return x
  if ($1 == -.--) return y
  if ($1 == --..) return z
  if ($1 == -----) return 0
  if ($1 == .----) return 1
  if ($1 == ..---) return 2
  if ($1 == ...--) return 3
  if ($1 == ....-) return 4
  if ($1 == .....) return 5
  if ($1 == -....) return 6
  if ($1 == --...) return 7
  if ($1 == ---..) return 8
  if ($1 == ----.) return 9
  return
}

Kullanım şekli

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

/mors IRCForumlari.Net

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

<%SNOOPY> = .. .-. -.-. ..-. --- .-. ..- -- .-.. .- .-. .. -. . -

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

/morscoz .. .-. -.-. ..-. --- .-. ..- -- .-.. .- .-. .. -. . -

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

[12:56] <%SNOOPY> Çözüm: =ircforumlarinet

Kod ChatGPT ile deneme amaçlı yazıldı üzerinde basit hatalar düzeltildi.

[gRaL]

eğlenceli olabilir güzel düşünülmüş, teşekkürler
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[Hüdaverdi1]

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bizi bitirdin beee ömrümüzü yedin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[manikdepresif]

tufenk cikti, mertlik bozuldu. herkese yeniden selam olsun