PHP- Kodu

on *:START:{
  .timer_borsa 0 60 borsa_guncelle
}

alias borsa_guncelle {
  sockclose borsa
  sockopen borsa query1.finance.yahoo.com 80
}

on *:SOCKOPEN:borsa:{
  ; Semboller: USDTRY=X EUR/TRY, GC=F Altin, SI=F Gumus, CL=F Petrol, BTC-USD Bitcoin
  sockwrite -n borsa GET /v7/finance/quote?symbols=USDTRY=X,EURTRY=X,GBPTRY=X,GC=F,SI=F,CL=F,NG=F,BTC-USD,ETH-USD,XU100.IS HTTP/1.0
  sockwrite -n borsa Host: query1.finance.yahoo.com
  sockwrite -n borsa $crlf
}

var %buf = 
on *:SOCKREAD:borsa:{
  var %d | sockread %d
  %buf = %buf $+ %d
  
  ; Dolar
  if ($regex(%buf,"USDTRY=X".*?"regularMarketPrice":([0-9.]+))) {
    set %usd $regml(1)
  }
  ; Euro
  if ($regex(%buf,"EURTRY=X".*?"regularMarketPrice":([0-9.]+))) {
    set %eur $regml(1)
  }
  ; Sterlin
  if ($regex(%buf,"GBPTRY=X".*?"regularMarketPrice":([0-9.]+))) {
    set %gbp $regml(1)
  }
  ; Altin (ons)
  if ($regex(%buf,"GC=F".*?"regularMarketPrice":([0-9.]+))) {
    set %altin $regml(1)
  }
  ; Gumus (ons)
  if ($regex(%buf,"SI=F".*?"regularMarketPrice":([0-9.]+))) {
    set %gumus $regml(1)
  }
  ; Ham Petrol (WTI)
  if ($regex(%buf,"CL=F".*?"regularMarketPrice":([0-9.]+))) {
    set %petrol $regml(1)
  }
  ; Dogalgaz
  if ($regex(%buf,"NG=F".*?"regularMarketPrice":([0-9.]+))) {
    set %gaz $regml(1)
  }
  ; Bitcoin
  if ($regex(%buf,"BTC-USD".*?"regularMarketPrice":([0-9.]+))) {
    set %btc $regml(1)
  }
  ; Ethereum
  if ($regex(%buf,"ETH-USD".*?"regularMarketPrice":([0-9.]+))) {
    set %eth $regml(1)
  }
  ; BIST 100
  if ($regex(%buf,"XU100.IS".*?"regularMarketPrice":([0-9.]+))) {
    set %bist $regml(1)
  }
}

on *:SOCKCLOSE:borsa:{
  var %saat = $time(HH:nn)
  var %tarih = $date(DD/MM/YYYY)
  
  msg #Canlı 14,1 ═══════════════════════════════════
  msg #Canlı 08,1 📊 CANLI PİYASALAR 08 » %tarih %saat
  msg #Canlı 14,1 ═══════════════════════════════════
  msg #Canlı 💵 4 $bold USD/TRY: $bold %usd $+ ₺   💶 4 $bold EUR/TRY: $bold %eur $+ ₺   💷 4 $bold GBP/TRY: $bold %gbp $+ ₺
  msg #Canlı 14,1 ───────────────────────────────────
  msg #Canlı 07 🥇 $bold ALTIN: $bold %altin $+ $  🥈 $bold GÜMÜŞ: $bold %gumus $+ $  🛢️ $bold PETROL: $bold %petrol $+ $  🔥 $bold DOGALGAZ: $bold %gaz $+ $
  msg #Canlı 14,1 ───────────────────────────────────
  msg #Canlı 03 ₿ $bold BTC: $bold %btc $+ $   🔷 $bold ETH: $bold %eth $+ $
  msg #Canlı 14,1 ───────────────────────────────────
  msg #Canlı 12 📈 $bold BIST 100: $bold %bist
  msg #Canlı 14,1 ═══════════════════════════════════
  
  set %buf 
}

; Manuel komut
on *:TEXT:!borsa:#Canlı:{
  borsa_guncelle
}
on *:TEXT:!piyasa:#Canlı:{
  borsa_guncelle
}