#ₙₒₜₕᵢₙg ᵢₛ ₕₐᵣₘ ₑₓcₑₚₜ yₒᵤᵣ ₚᵣᵢdₑ ☢ [ ᴇxᴘʟᴏɪᴛᴇʀ ] ☢#https://www.blackbug.org# Load necessary packagespackage require httppackage require tlspackage require json# Define API credentialsset api_url "https://pro-api.coinmarketcap.com/v1/cryptocurrency/quotes/latest"set api_key "370cdba7-79dc-4180-94e8-50afacc9d44f"# List of top 50 cryptocurrency symbolsset coin_list {    BTC ETH USDT XRP BNB SOL USDC DOGE ADA TRX HBAR LINK LTC XLM LEO SUI AVAX TON SHIB OM DOT HYPE BCH USDe DAI BGB UNI XMR NEAR APT ONDO PEPE ICP AAVE ETC TAO OKB TRUMP MNT POL VET TIA S FIL ALGO FDUSD KAS JUP RENDER CRO GT ARB ATOM OP FET DEXE MKR KCS IP INJ XDC ENA IMX STX WLD SEI THETA LDO QNT GRT BONK MOVE FLR BERA JASMY EOS XTZ SAND FLOKI ENS PYUSD NEXO FLOW IOTA PYTH GALA JTO BTT KAIA XAUt BSV VIRTUAL NEO RAY GRASS PAXG EGLD WIF ZEC RON AXS CAKE HNT STRK MANA CRV PENGU CFX FTT AR MATIC KAITO DYDX TUSD XCN SPX AERO CORE PENDLE CHZ MELANIA APE KAVA MORPHO XEC COMP RUNE AMP TWT NFT BNX AIOZ BEAM DEEP RSR AKT AI16Z W AXL GNO MINA EIGEN BRETT LUNC ZK GLM 1INCH JST CTC KSM SFP DASH TFUEL SNX CKB MX BLUR ASTR ZRO NOT SUPER ATH ROSE SATS QTUM ACH ZIL SAFE VANA FARTCOIN WEMIX VTHO MOG LPT BAT POPCAT ZRX HOT ID ORDI BabyDoge ZKJ MOCA TURBO XCH CVX MASK PNUT GAS CELO STPT ETHFI ZETA OSMO MEW SUSHI}# Function to fetch cryptocurrency dataproc fetch_coin_data {symbol} {    global api_url api_key    set symbol [string toupper $symbol] ;# Convert symbol to uppercase    set request_url "$api_url?symbol=$symbol&convert=USD"    # Fetch data using curl    # set response [exec curl -s -H "X-CMC_PRO_API_KEY: $api_key" $request_url]    ::http::register https 443 [list ::tls::socket -autoservername true]    set tok [::http::geturl -headers [list X-CMC_PRO_API_KEY $api_key] $request_url]    set response [::http::data $tok]    ::http::cleanup $tok        if {[string length $response] == 0} {        return "Error: No data received from API."    }    # Parse JSON response    set data [json::json2dict $response]    if {[dict exists $data "data"] && [dict exists [dict get $data "data"] $symbol]} {        set coin_data [dict get [dict get $data "data"] $symbol]        set quote_data [dict get $coin_data "quote"]        set usd_data [dict get $quote_data "USD"]        if {            [dict exists $usd_data "price"] &&            [dict exists $usd_data "percent_change_1h"] &&            [dict exists $usd_data "percent_change_24h"] &&            [dict exists $usd_data "percent_change_7d"] &&            [dict exists $usd_data "percent_change_30d"] &&            [dict exists $coin_data "name"] &&            [dict exists $usd_data "last_updated"]        } {            # Extract values            set coin_name [dict get $coin_data "name"]set price [format "%.2f" [dict get $usd_data "price"]]set price_1h [format "%.2f" [dict get $usd_data "percent_change_1h"]]set price_1d [format "%.2f" [dict get $usd_data "percent_change_24h"]]set price_1w [format "%.2f" [dict get $usd_data "percent_change_7d"]]set price_1m [format "%.2f" [dict get $usd_data "percent_change_30d"]]            set last_updated [dict get $usd_data "last_updated"]            # Convert timestamp to readable format            set timestamp [clock scan $last_updated -format "%Y-%m-%dT%H:%M:%S.000Z"]            set formatted_date [clock format $timestamp -format "%a, %d-%b-%y %H:%M:%S %Z"]            # Colors            set color_green "\00303"  ;# Green            set color_red "\00304"    ;# Red            set color_reset "\00301"  ;# Reset color            # Determine color and arrow direction            set color_1h $color_red; set arrow_1h "▼"            if {$price_1h >= 0} { set color_1h $color_green; set arrow_1h "▲" }            set color_1d $color_red; set arrow_1d "▼"            if {$price_1d >= 0} { set color_1d $color_green; set arrow_1d "▲" }            set color_1w $color_red; set arrow_1w "▼"            if {$price_1w >= 0} { set color_1w $color_green; set arrow_1w "▲" }            set color_1m $color_red; set arrow_1m "▼"            if {$price_1m >= 0} { set color_1m $color_green; set arrow_1m "▲" }            # Construct output message (Arrow first, then percentage)            set output "\00305 ««\[ $coin_name \00302($symbol) \]»»  \00301Price:\00304 \$${price} USD \00301☢ 1h: ${color_1h}${arrow_1h} ${price_1h}% \00301☢ 1d: ${color_1d}${arrow_1d} ${price_1d}% \00301☢ 1w: ${color_1w}${arrow_1w} ${price_1w}% \00301☢ 1m: ${color_1m}${arrow_1m} ${price_1m}% \00301☢ Last update: \00302${formatted_date} \00309☢ \[ ᴇxᴘʟᴏɪᴛᴇʀ \] ☢"            # Debugging            puts "Output message: $output"            return $output        } else {            return "Error: Missing necessary data in API response."        }    } else {        return "Error: Coin symbol not found."    }}# Function to fetch and post a random coin price every hourproc random_coin_price {channel} {    global coin_list    set random_coin [lindex $coin_list [expr {int(rand() * [llength $coin_list])}]]    set data [fetch_coin_data $random_coin]    putserv "PRIVMSG $channel :$data"    # Schedule next update in 1 hour (3600000ms)    after 3600000 [list random_coin_price $channel]}# Start auto-updating pricesproc start_price_updates {channel} {    after 10000 [list random_coin_price $channel]  ;# Start after 10 seconds}# Bind !coin command for user requestsbind pub - !coin fetch_coin_command# Function to handle the !coin commandproc fetch_coin_command {nick host handle channel arg} {    if {[string length $arg] == 0} {        putserv "PRIVMSG $channel :Usage: !coin <symbol>"        return    }    set data [fetch_coin_data $arg]    putserv "PRIVMSG $channel :$data"}# Start price updates in the designated channelstart_price_updates "#blockchain"putlog "coinswithtimer.tcl loaded with auto-updates enabled - Janroe"

Code:

#ₙₒₜₕᵢₙg ᵢₛ ₕₐᵣₘ ₑₓcₑₚₜ yₒᵤᵣ ₚᵣᵢdₑ ☢ [ ᴇxᴘʟᴏɪᴛᴇʀ ] ☢#https://www.blackbug.org# Load necessary packagespackage require json# Define API credentialsset api_url "https://pro-api.coinmarketcap.com/v1/cryptocurrency/quotes/latest"set api_key "370cdba7-79dc-4180-94e8-50afacc9d44f"# List of top 50 cryptocurrency symbolsset coin_list {    BTC ETH USDT XRP BNB SOL USDC DOGE ADA TRX HBAR LINK LTC XLM LEO SUI AVAX TON SHIB OM DOT HYPE BCH USDe DAI BGB UNI XMR NEAR APT ONDO PEPE ICP AAVE ETC TAO OKB TRUMP MNT POL VET TIA S FIL ALGO FDUSD KAS JUP RENDER CRO GT ARB ATOM OP FET DEXE MKR KCS IP INJ XDC ENA IMX STX WLD SEI THETA LDO QNT GRT BONK MOVE FLR BERA JASMY EOS XTZ SAND FLOKI ENS PYUSD NEXO FLOW IOTA PYTH GALA JTO BTT KAIA XAUt BSV VIRTUAL NEO RAY GRASS PAXG EGLD WIF ZEC RON AXS CAKE HNT STRK MANA CRV PENGU CFX FTT AR MATIC KAITO DYDX TUSD XCN SPX AERO CORE PENDLE CHZ MELANIA APE KAVA MORPHO XEC COMP RUNE AMP TWT NFT BNX AIOZ BEAM DEEP RSR AKT AI16Z W AXL GNO MINA EIGEN BRETT LUNC ZK GLM 1INCH JST CTC KSM SFP DASH TFUEL SNX CKB MX BLUR ASTR ZRO NOT SUPER ATH ROSE SATS QTUM ACH ZIL SAFE VANA FARTCOIN WEMIX VTHO MOG LPT BAT POPCAT ZRX HOT ID ORDI BabyDoge ZKJ MOCA TURBO XCH CVX MASK PNUT GAS CELO STPT ETHFI ZETA OSMO MEW SUSHI}# Function to fetch cryptocurrency dataproc fetch_coin_data {symbol} {    global api_url api_key    set symbol [string toupper $symbol] ;# Convert symbol to uppercase    set request_url "$api_url?symbol=$symbol&convert=USD"    # Fetch data using curl    set response [exec curl -s -H "X-CMC_PRO_API_KEY: $api_key" $request_url]    if {[string length $response] == 0} {        return "Error: No data received from API."    }    # Parse JSON response    set data [json::json2dict $response]    if {[dict exists $data "data"] && [dict exists [dict get $data "data"] $symbol]} {        set coin_data [dict get [dict get $data "data"] $symbol]        set quote_data [dict get $coin_data "quote"]        set usd_data [dict get $quote_data "USD"]        if {            [dict exists $usd_data "price"] &&            [dict exists $usd_data "percent_change_1h"] &&            [dict exists $usd_data "percent_change_24h"] &&            [dict exists $usd_data "percent_change_7d"] &&            [dict exists $usd_data "percent_change_30d"] &&            [dict exists $coin_data "name"] &&            [dict exists $usd_data "last_updated"]        } {            # Extract values            set coin_name [dict get $coin_data "name"]set price [format "%.2f" [dict get $usd_data "price"]]set price_1h [format "%.2f" [dict get $usd_data "percent_change_1h"]]set price_1d [format "%.2f" [dict get $usd_data "percent_change_24h"]]set price_1w [format "%.2f" [dict get $usd_data "percent_change_7d"]]set price_1m [format "%.2f" [dict get $usd_data "percent_change_30d"]]            set last_updated [dict get $usd_data "last_updated"]            # Convert timestamp to readable format            set timestamp [clock scan $last_updated -format "%Y-%m-%dT%H:%M:%S.000Z"]            set formatted_date [clock format $timestamp -format "%a, %d-%b-%y %H:%M:%S %Z"]            # Colors            set color_green "\00303"  ;# Green            set color_red "\00304"    ;# Red            set color_reset "\00301"  ;# Reset color            # Determine color and arrow direction            set color_1h $color_red; set arrow_1h "▼"            if {$price_1h >= 0} { set color_1h $color_green; set arrow_1h "▲" }            set color_1d $color_red; set arrow_1d "▼"            if {$price_1d >= 0} { set color_1d $color_green; set arrow_1d "▲" }            set color_1w $color_red; set arrow_1w "▼"            if {$price_1w >= 0} { set color_1w $color_green; set arrow_1w "▲" }            set color_1m $color_red; set arrow_1m "▼"            if {$price_1m >= 0} { set color_1m $color_green; set arrow_1m "▲" }            # Construct output message (Arrow first, then percentage)            set output "\00305 ««\[ $coin_name \00302($symbol) \]»»  \00301Price:\00304 \$${price} USD \00301☢ 1h: ${color_1h}${arrow_1h} ${price_1h}% \00301☢ 1d: ${color_1d}${arrow_1d} ${price_1d}% \00301☢ 1w: ${color_1w}${arrow_1w} ${price_1w}% \00301☢ 1m: ${color_1m}${arrow_1m} ${price_1m}% \00301☢ Last update: \00302${formatted_date} \00309☢ \[ ᴇxᴘʟᴏɪᴛᴇʀ \] ☢"            # Debugging            puts "Output message: $output"            return $output        } else {            return "Error: Missing necessary data in API response."        }    } else {        return "Error: Coin symbol not found."    }}# Function to fetch and post a random coin price every hourproc random_coin_price {channel} {    global coin_list    set random_coin [lindex $coin_list [expr {int(rand() * [llength $coin_list])}]]    set data [fetch_coin_data $random_coin]    putserv "PRIVMSG $channel :$data"    # Schedule next update in 1 hour (3600000ms)    after 3600000 [list random_coin_price $channel]}# Start auto-updating pricesproc start_price_updates {channel} {    after 10000 [list random_coin_price $channel]  ;# Start after 10 seconds}# Bind !coin command for user requestsbind pub - !coin fetch_coin_command# Function to handle the !coin commandproc fetch_coin_command {nick host handle channel arg} {    if {[string length $arg] == 0} {        putserv "PRIVMSG $channel :Usage: !coin <symbol>"        return    }    set data [fetch_coin_data $arg]    putserv "PRIVMSG $channel :$data"}# Start price updates in the designated channelstart_price_updates "#blockchain"putlog "coinswithtimer.tcl loaded with auto-updates enabled - Janroe"