on *:TEXT:!chatgpt *:#: {
  var %apikey = YOUR_OPENAI_API_KEY_HERE
  var %message = $2-
  var %host = api.openai.com
  var %endpoint = /v1/chat/completions
  var %model = gpt-3.5-turbo

  ; JSON verisi
  var %json = { "model": "%model", "messages": [ { "role": "user", "content": "%message" } ] }

  sockopen chatgpt %host 443 ssl
  set %chatgpt.api_key %apikey
  set %chatgpt.data $null
  set %chatgpt.json %json
  set %chatgpt.channel $chan
}

on *:SOCKOPEN:chatgpt: {
  if ($sockerr) {
    msg %chatgpt.channel ChatGPT connection error!
    sockclose chatgpt
    return
  }

  var %apikey = %chatgpt.api_key
  var %json = %chatgpt.json
  var %len = $len(%json)

  sockwrite -n chatgpt POST /v1/chat/completions HTTP/1.1
  sockwrite -n chatgpt Host: api.openai.com
  sockwrite -n chatgpt Authorization: Bearer %apikey
  sockwrite -n chatgpt Content-Type: application/json
  sockwrite -n chatgpt Content-Length: %len
  sockwrite -n chatgpt
  sockwrite -n chatgpt %json
}

on *:SOCKREAD:chatgpt: {
  var %chunk
  sockread %chunk
  if (%chunk != $null) {
    set %chatgpt.data $+(%chatgpt.data,%chunk)
  }
}

on *:SOCKCLOSE:chatgpt: {
  var %response = %chatgpt.data

  ; JSON'dan cevabı çıkarma
  if ($regex(resp,%response,/\"content\"\s*:\s*\"(.*?)\"/s)) {
    var %answer = $regml(resp,1)
    ; JSON kaçışlarını temizle
    %answer = $replace(%answer,\\n,$crlf,\\"," ,",\\"," ,\\u0027,',\\u0022,",\\",")
    msg %chatgpt.channel ChatGPT: %answer
  }
  else {
    msg %chatgpt.channel Could not get a reply from ChatGPT.
  }

  unset %chatgpt.*
}

on *:TEXT:!chatgpt *:#: gpt_query $chan $2-
on *:TEXT:!gpt *:#: gpt_query $chan $2-
on *:TEXT:!ai *:#: gpt_query $chan $2-