Kod

on *:TEXT:!chatgpt *:#: {
  ; --- AYARLAR ---
  var %apikey = YOUR_OPENAI_API_KEY_HERE
  var %model = gpt-4o-mini
  
  ; Gelen soruyu al ve mIRC değişken koruması için düzenle
  var %message = $2-
  var %chan = $chan
  
  ; Geçici benzersiz dosya isimleri oluştur (Çakışmayı önlemek için)
  var %girdi_dosya = gpt_istek_ $+ $nick $+ .json
  var %cikti_dosya = gpt_cevap_ $+ $nick $+ .txt
  
  ; OpenAI standartlarına uygun JSON dosyasını oluşturur
  .write -c %girdi_dosya {"model": " $+ %model $+ ", "messages": [{"role": "user", "content": " $+ %message $+ "}]}
  
  ; Windows Curl kütüphanesini arka planda (gizli -h) çalıştırır. TLS/SSL hatası yaşanmaz.
  .run -h curl -s -X POST https://openai.com -H "Content-Type: application/json" -H "Authorization: Bearer %apikey" -d @ $+ %girdi_dosya -o %cikti_dosya
  
  ; Yanıtın sunucudan gelip dosyaya yazılması için 2 saniye bekler ve okuma fonksiyonunu tetikler
  .timer.gpt. [ $+ [ $nick ] ] 1 2 gpt_dosya_oku %cikti_dosya %chan %girdi_dosya
}

alias -l gpt_dosya_oku {
  var %dosya = $1, %chan = $2, %silinecek_girdi = $3
  
  if ($exists(%dosya)) {
    ; Gelen JSON verisindeki "content":"..." kısmını doğrudan mIRC Regex'i ile ayıklar
    var %regex = /"content"\s*:\s*"(.*?)"/g
    var %tam_metin = $read(%dosya, w, *"content"*)
    
    if ($regex(gpt,%tam_metin,%regex)) {
      var %cevap = $regml(gpt,1)
      
      ; JSON içindeki escape edilmiş karakterleri (\n, \", \t) mIRC için temizler
      %cevap = $replace(%cevap, \n, $32, \", ", \t, $32, \\, \)
      
      ; Kanala yanıtı gönderir
      msg %chan 🤖  12ChatGPT:  %cevap
    }
    else {
      msg %chan ❌ ChatGPT'den yanıt alınamadı veya API anahtarı hatalı.
    }
    
    ; Temizlik: İşlem bittikten sonra arkada çöp dosya bırakmaz
    .remove %dosya
    .remove %silinecek_girdi
  }
  else {
    msg %chan ❌ Sunucu bağlantı zaman aşımına uğradı.
  }
}