IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:

; /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:

/mors IRCForumlari.Net

Kod:

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

Kod:

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

Kod:

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

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