HTML-Kodu

; ============================================
;   🛒 ALIŞVERİŞ BOTU - GELİŞMİŞ VERSİYON
;   Kanal: #Alışveriş | Yetki: Admin Kontrollü
; ============================================

; ========== DEĞİŞKENLER ==========
alias botversion { return "v2.5" }
alias botowner { return "nick1" }  ; SAHİP NICKİ
alias -l admins { return "nick1 nick2 nick3" }  ; ADMINLER

; ========== HASH TABLOSU ==========
on *:START: {
  if ($hget(urunler)) { hfree urunler }
  hmake -s urunler 500
  
  ; KATEGORİLER İÇİN AYRI TABLOLAR
  if ($hget(kategoriler)) { hfree kategoriler }
  hmake -s kategoriler 50
  hadd kategoriler "Elektrikli Süpürge" "Arzum,Philips,Samsung"
  hadd kategoriler "Telefon" "Samsung,Apple,Xiaomi"
  hadd kategoriler "Bilgisayar" "HP,Dell,Lenovo"
  
  ; ÖRNEK ÜRÜNLER (GERÇEK FİYATLARLA)
  !ekleürün "Arzum Elektrikli Süpürge AR3040" "1299" "https://www.trendyol.com/arzum-ar3040" "Trendyol" "Elektrikli Süpürge"
  !ekleürün "Arzum AR3055 Süpürge" "1499" "https://www.hepsiburada.com/arzum-ar3055" "Hepsiburada" "Elektrikli Süpürge"
  !ekleürün "Philips PowerPro FC9350" "1899" "https://www.n11.com/philips-powerpro" "N11" "Elektrikli Süpürge"
  !ekleürün "Samsung Jet 90 Complete" "2499" "https://www.amazon.com/samsung-jet90" "Amazon" "Elektrikli Süpürge"
  !ekleürün "iPhone 15 Pro Max" "45999" "https://www.trendyol.com/iphone-15" "Trendyol" "Telefon"
  !ekleürün "Samsung Galaxy S24" "39999" "https://www.hepsiburada.com/samsung-s24" "Hepsiburada" "Telefon"
  !ekleürün "HP Victus 15" "15999" "https://www.n11.com/hp-victus" "N11" "Bilgisayar"
  !ekleürün "Dell XPS 13" "18999" "https://www.amazon.com/dell-xps13" "Amazon" "Bilgisayar"
  
  echo -a 10✅ 15 Alışveriş Botu 10%botversion 15 başlatıldı! 
  echo -a 3📌 7#Alışveriş kanalında aktif - 10 $hget(urunler,0).item 7 ürün yüklendi.
}

; ========== ÜRÜN EKLEME ALIAS'ı ==========
alias -l !ekleürün {
  var %urun = $1
  var %fiyat = $2
  var %link = $3
  var %magaza = $4
  var %kategori = $5
  
  ; Data formatı: Fiyat|Link|Mağaza|Kategori|EklenmeTarihi
  var %data = %fiyat $+ | %link $+ | %magaza $+ | %kategori $+ | $asctime(dd/mm/yyyy)
  hadd -m urunler %urun %data
}

; ========== KANAL KONTROL ==========
alias -l kanalkontrol {
  if ($chan != #Alışveriş) { return 0 }
  return 1
}

; ========== ADMIN KONTROL ==========
alias -l adminmi {
  var %adminlist = $admins
  if ($nick isin %adminlist) { return 1 }
  if ($nick == $botowner) { return 1 }
  return 0
}

; ========== FİYAT FORMATLA ==========
alias -l fiyatformat {
  var %fiyat = $1
  if (%fiyat >= 1000) {
    var %bin = $int($calc(%fiyat / 1000))
    var %kalan = $calc(%fiyat % 1000)
    if (%kalan == 0) { return %bin $+ .000 TL }
    return %bin $+ . $+ %kalan TL
  }
  return %fiyat $+ TL
}

; ========== ANA ARAMA (REGEX + FİLTRE) ==========
on *:TEXT:!ara *:#Alışveriş: {
  if (!$kanalkontrol) { return }
  
  var %aranan = $2-
  var %filtre = $3
  var %minfiyat = $4
  var %maxfiyat = $5
  
  ; Regex ile ara (kategori, mağaza, fiyat aralığı)
  var %sayi = $hfind(urunler, %aranan, 0, r)
  
  if (%sayi == 0) {
    msg $nick 4⚠ Hiç ürün bulunamadı: %aranan
    return
  }
  
  ; SONUÇLARI TOPLA VE SIRALA
  var %sonuclar = ""
  var %i = 1
  while (%i <= %sayi) {
    var %item = $hfind(urunler, %aranan, %i, r)
    var %data = $hget(urunler, %item)
    var %fiyat = $gettok(%data, 1, 124)
    var %link = $gettok(%data, 2, 124)
    var %magaza = $gettok(%data, 3, 124)
    var %kategori = $gettok(%data, 4, 124)
    var %tarih = $gettok(%data, 5, 124)
    
    ; FİYAT FİLTRESİ
    if (%minfiyat != $null) {
      if (%fiyat < %minfiyat) { inc %i | continue }
    }
    if (%maxfiyat != $null) {
      if (%fiyat > %maxfiyat) { inc %i | continue }
    }
    
    ; MAĞAZA FİLTRESİ (opsiyonel)
    if (%filtre != $null) {
      if (%magaza !isin %filtre) && (%kategori !isin %filtre) { inc %i | continue }
    }
    
    %sonuclar = %sonuclar %item $+ |%fiyat|%link|%magaza|%kategori|%tarih $+ ,
    inc %i
  }
  
  if (%sonuclar == "") {
    msg $nick 4⚠ Filtrelere uygun ürün bulunamadı.
    return
  }
  
  ; SIRALA (FİYATA GÖRE) - Kabarcık Sıralama
  var %temp = ""
  var %j = 1
  while (%j <= $numtok(%sonuclar, 44)) {
    var %a = $gettok(%sonuclar, %j, 44)
    var %fiyat_a = $gettok(%a, 2, 124)
    var %k = $calc(%j + 1)
    while (%k <= $numtok(%sonuclar, 44)) {
      var %b = $gettok(%sonuclar, %k, 44)
      var %fiyat_b = $gettok(%b, 2, 124)
      if (%fiyat_a > %fiyat_b) {
        %temp = %a
        %sonuclar = $puttok(%sonuclar, %b, %j, 44)
        %sonuclar = $puttok(%sonuclar, %temp, %k, 44)
        var %a = $gettok(%sonuclar, %j, 44)
        var %fiyat_a = $gettok(%a, 2, 124)
      }
      inc %k
    }
    inc %j
  }
  
  ; ÖZELE GÖNDER (GRAFİK DÜZEN)
  msg $nick 12╔═══════════════════════════════════════════════════════╗
  msg $nick 12║  15🛒 ARAMA SONUÇLARI: 10 $upper(%aranan) 12║
  msg $nick 12╠═══════════════════════════════════════════════════════╣
  
  var %m = 1
  while (%m <= $numtok(%sonuclar, 44)) {
    var %item = $gettok(%sonuclar, %m, 44)
    var %urun = $gettok(%item, 1, 124)
    var %fiyat = $gettok(%item, 2, 124)
    var %link = $gettok(%item, 3, 124)
    var %magaza = $gettok(%item, 4, 124)
    var %kategori = $gettok(%item, 5, 124)
    var %tarih = $gettok(%item, 6, 124)
    
    ; FİYATA GÖRE RENK KODU
    var %renk = 3
    if (%fiyat < 1000) { %renk = 10 }
    elseif (%fiyat < 5000) { %renk = 12 }
    elseif (%fiyat < 20000) { %renk = 7 }
    else { %renk = 4 }
    
    msg $nick 11 %m $+ . 15 %urun 
    msg $nick 10  ├ Fiyat: %renk $fiyatformat(%fiyat)
    msg $nick 10  ├ Mağaza: 14 %magaza
    msg $nick 10  ├ Kategori: 7 %kategori
    msg $nick 10  ├ Tarih: 14 %tarih
    msg $nick 10  └ Link: 7 %link
    msg $nick 12  ─────────────────────────────────────
    inc %m
  }
  msg $nick 12╚═══════════════════════════════════════════════════════╝
  
  ; KANAL BİLGİSİ
  msg #Alışveriş 3🔍 %aranan 7 için 10 $calc(%m - 1) 7 ürün bulundu. 11%nick 7 özel mesajına gönderildi.
}

; ========== KATEGORİ ARAMA ==========
on *:TEXT:!kategori *:#Alışveriş: {
  if (!$kanalkontrol) { return }
  
  var %kategori = $2-
  var %sayi = $hget(urunler, 0).item
  var %bulunan = ""
  
  var %i = 1
  while (%i <= %sayi) {
    var %item = $hget(urunler, %i).item
    var %data = $hget(urunler, %item)
    var %kat = $gettok(%data, 4, 124)
    if (%kat isin %kategori) {
      %bulunan = %bulunan %item $+ | $+ %data $+ ,
    }
    inc %i
  }
  
  if (%bulunan == "") {
    msg $nick 4⚠ %kategori 7 kategorisinde ürün yok.
    return
  }
  
  msg $nick 12═══════ 📂 %kategori 7 KATEGORİSİ ═══════
  var %j = 1
  while (%j <= $numtok(%bulunan, 44)) {
    var %item = $gettok(%bulunan, %j, 44)
    var %urun = $gettok(%item, 1, 124)
    var %fiyat = $gettok(%item, 2, 124)
    var %link = $gettok(%item, 3, 124)
    var %magaza = $gettok(%item, 4, 124)
    msg $nick 3 %j $+ . 15 %urun 3 - 10 $fiyatformat(%fiyat) 14 (%magaza)
    inc %j
  }
}

; ========== EN UCUZ ÜRÜN ==========
on *:TEXT:!ucuz:#Alışveriş: {
  if (!$kanalkontrol) { return }
  
  var %sayi = $hget(urunler, 0).item
  var %enucuz = 999999999
  var %enurun = ""
  
  var %i = 1
  while (%i <= %sayi) {
    var %item = $hget(urunler, %i).item
    var %data = $hget(urunler, %item)
    var %fiyat = $gettok(%data, 1, 124)
    if (%fiyat < %enucuz) {
      %enucuz = %fiyat
      %enurun = %item
    }
    inc %i
  }
  
  var %data = $hget(urunler, %enurun)
  var %link = $gettok(%data, 2, 124)
  var %magaza = $gettok(%data, 3, 124)
  
  msg #Alışveriş 10💰 EN UCUZ ÜRÜN: 15 %enurun 10 - $fiyatformat(%enucuz) 14 (%magaza)
}

; ========== EN PAHALI ÜRÜN ==========
on *:TEXT:!pahali:#Alışveriş: {
  if (!$kanalkontrol) { return }
  
  var %sayi = $hget(urunler, 0).item
  var %enpahali = 0
  var %enurun = ""
  
  var %i = 1
  while (%i <= %sayi) {
    var %item = $hget(urunler, %i).item
    var %data = $hget(urunler, %item)
    var %fiyat = $gettok(%data, 1, 124)
    if (%fiyat > %enpahali) {
      %enpahali = %fiyat
      %enurun = %item
    }
    inc %i
  }
  
  var %data = $hget(urunler, %enurun)
  var %link = $gettok(%data, 2, 124)
  var %magaza = $gettok(%data, 3, 124)
  
  msg #Alışveriş 4💎 EN PAHALI ÜRÜN: 15 %enurun 4 - $fiyatformat(%enpahali) 14 (%magaza)
}

; ========== FİYAT GÜNCELLE (ADMIN) ==========
on *:TEXT:!fiyat *:#Alışveriş: {
  if (!$kanalkontrol) { return }
  if (!$adminmi) { msg $nick 4❌ Admin yetkisi gerekli! ; return }
  
  var %urun = $2-
  var %yenifiyat = $3
  
  if (!$hget(urunler, %urun)) {
    msg $nick 4❌ Ürün bulunamadı: %urun
    return
  }
  
  var %data = $hget(urunler, %urun)
  var %link = $gettok(%data, 2, 124)
  var %magaza = $gettok(%data, 3, 124)
  var %kategori = $gettok(%data, 4, 124)
  var %tarih = $asctime(dd/mm/yyyy)
  
  hadd -m urunler %urun %yenifiyat $+ | %link $+ | %magaza $+ | %kategori $+ | %tarih
  msg #Alışveriş 3✅ Admin 7 %nick 3 fiyat güncelledi: 15 %urun 10 = $fiyatformat(%yenifiyat)
}

; ========== ÜRÜN ARA VE KANALA GÖNDER (ADMIN) ==========
on *:TEXT:!duyur *:#Alışveriş: {
  if (!$kanalkontrol) { return }
  if (!$adminmi) { return }
  
  var %aranan = $2-
  var %sayi = $hfind(urunler, %aranan, 0, r)
  
  if (%sayi == 0) {
    msg #Alışveriş 4⚠ Ürün bulunamadı: %aranan
    return
  }
  
  msg #Alışveriş 12═══════ 📢 ADMIN DUYURUSU ═══════
  var %i = 1
  while (%i <= 3) {  ; SADECE İLK 3 ÜRÜN
    var %item = $hfind(urunler, %aranan, %i, r)
    var %data = $hget(urunler, %item)
    var %fiyat = $gettok(%data, 1, 124)
    var %link = $gettok(%data, 2, 124)
    var %magaza = $gettok(%data, 3, 124)
    msg #Alışveriş 15 %item 10 - $fiyatformat(%fiyat) 14 (%magaza) 7 - %link
    inc %i
  }
  msg #Alışveriş 12═══════════════════════════════
}

; ========== İSTATİSTİK ==========
on *:TEXT:!istatistik:#Alışveriş: {
  if (!$kanalkontrol) { return }
  
  var %toplam = $hget(urunler, 0).item
  var %magazalar = ""
  var %kategoriler = ""
  
  var %i = 1
  while (%i <= %toplam) {
    var %item = $hget(urunler, %i).item
    var %data = $hget(urunler, %item)
    var %magaza = $gettok(%data, 3, 124)
    var %kategori = $gettok(%data, 4, 124)
    
    if (%magaza !isin %magazalar) { %magazalar = %magazalar %magaza $+ , }
    if (%kategori !isin %kategoriler) { %kategoriler = %kategoriler %kategori $+ , }
    inc %i
  }
  
  msg $nick 12═══════ 📊 BOT İSTATİSTİK ═══════
  msg $nick 10📦 Toplam Ürün: 15 %toplam
  msg $nick 10🏷 Mağaza Sayısı: 14 $numtok(%magazalar, 44)
  msg $nick 10📂 Kategori Sayısı: 14 $numtok(%kategoriler, 44)
  msg $nick 10🤖 Bot Versiyon: 15 %botversion
  msg $nick 10👑 Bot Sahibi: 14 $botowner
}

; ========== YARDIM ==========
on *:TEXT:!yardim:#Alışveriş: {
  if (!$kanalkontrol) { return }
  
  msg $nick 12╔═══════════════════════════════════════════════════════╗
  msg $nick 12║  15🤖 ALIŞVERİŞ BOT %botversion 12 - YARDIM MENÜSÜ   ║
  msg $nick 12╠═══════════════════════════════════════════════════════╣
  msg $nick 7  !ara 10 ÜrünAdı 7- Ürün ara (özel mesaj)
  msg $nick 7  !ara 10 ÜrünAdı Mağaza 7- Mağazaya göre filtrele
  msg $nick 7  !ara 10 ÜrünAdı * 500 1000 7- Fiyat aralığı
  msg $nick 7  !kategori 10 KategoriAdı 7- Kategoriye göre ara
  msg $nick 7  !ucuz 7- En ucuz ürünü göster
  msg $nick 7  !pahali 7- En pahalı ürünü göster
  msg $nick 7  !istatistik 7- Bot istatistikleri
  msg $nick 12╠═══════════════════════════════════════════════════════╣
  msg $nick 4  ⚠ ADMIN KOMUTLARI:
  msg $nick 7  !ekle 10 Ürün Fiyat Link Mağaza Kategori
  msg $nick 7  !sil 10 ÜrünAdı
  msg $nick 7  !fiyat 10 ÜrünAdı YeniFiyat
  msg $nick 7  !duyur 10 ÜrünAdı 7- Kanala duyur (ilk 3)
  msg $nick 12╚═══════════════════════════════════════════════════════╝
}

; ========== ADMIN KOMUTLARI ==========

; ÜRÜN EKLE (ADMIN)
on *:TEXT:!ekle *:#Alışveriş: {
  if (!$kanalkontrol) { return }
  if (!$adminmi) { msg $nick 4❌ Admin yetkisi gerekli! ; return }
  
  if ($2 == $null) {
    msg $nick 4❌ Kullanım: !ekle ÜrünAdı Fiyat Link Mağaza Kategori
    return
  }
  
  var %urun = $2
  var %fiyat = $3
  var %link = $4
  var %magaza = $5
  var %kategori = $6
  
  if (%fiyat !isnum) {
    msg $nick 4❌ Fiyat sayı olmalı!
    return
  }
  
  !ekleürün %urun %fiyat %link %magaza %kategori
  msg #Alışveriş 3✅ Admin 7 %nick 3 ürün ekledi: 15 %urun 10 - $fiyatformat(%fiyat) 14 (%magaza)
}

; ÜRÜN SİL (ADMIN)
on *:TEXT:!sil *:#Alışveriş: {
  if (!$kanalkontrol) { return }
  if (!$adminmi) { msg $nick 4❌ Admin yetkisi gerekli! ; return }
  
  var %urun = $2-
  if (!$hget(urunler, %urun)) {
    msg $nick 4❌ Ürün bulunamadı: %urun
    return
  }
  
  hdel urunler %urun
  msg #Alışveriş 3🗑 Admin 7 %nick 3 ürün sildi: 15 %urun
}

; TÜM ÜRÜNLERİ LİSTELE (ADMIN)
on *:TEXT:!listele:#Alışveriş: {
  if (!$kanalkontrol) { return }
  if (!$adminmi) { msg $nick 4❌ Admin yetkisi gerekli! ; return }
  
  var %sayi = $hget(urunler, 0).item
  if (%sayi == 0) {
    msg $nick 4⚠ Hiç ürün yok.
    return
  }
  
  msg $nick 12═══════ 📋 TÜM ÜRÜNLER ═══════
  var %i = 1
  while (%i <= %sayi) {
    var %item = $hget(urunler, %i).item
    var %data = $hget(urunler, %item)
    var %fiyat = $gettok(%data, 1, 124)
    var %magaza = $gettok(%data, 3, 124)
    msg $nick 3 %i $+ . 15 %item 3 - 10 $fiyatformat(%fiyat) 14 (%magaza)
    inc %i
  }
}

; ========== OTOMATİK YEDEKLEME ==========
.timer 1 1440 !yedeckaydet  ; Her 24 saatte bir yedekle

alias -l !yedeckaydet {
  if ($hget(urunler, 0).item > 0) {
    write -c yedek_urunler.txt $asctime(dd/mm/yyyy HH:nn)
    var %i = 1
    while (%i <= $hget(urunler, 0).item) {
      var %item = $hget(urunler, %i).item
      var %data = $hget(urunler, %item)
      write yedek_urunler.txt %item $+ | %data
      inc %i
    }
    echo -a 3✅ Yedek alındı: $hget(urunler,0).item ürün
  }
}

; ========== YEDEKTEN YÜKLE ==========
on *:TEXT:!yedekyukle:#Alışveriş: {
  if (!$kanalkontrol) { return }
  if ($nick != $botowner) { msg $nick 4❌ Sadece bot sahibi! ; return }
  
  if (!$isfile(yedek_urunler.txt)) {
    msg $nick 4⚠ Yedek dosyası yok!
    return
  }
  
  hfree urunler
  hmake -s urunler 500
  
  var %i = 1
  while (%i <= $lines(yedek_urunler.txt)) {
    var %line = $read(yedek_urunler.txt, %i)
    if (*|* iswm %line) {
      var %urun = $gettok(%line, 1, 124)
      var %data = $gettok(%line, 2-, 124)
      hadd -m urunler %urun %data
    }
    inc %i
  }
  msg #Alışveriş 3✅ Yedek yüklendi: $hget(urunler,0).item ürün
}