If (Upper(ToWho) = Upper(MyNick) | AlwaysPriv = TRUE) then Do
"Raw Notice "Nick" :I last saw "UserNick.QuitLoop.ILoop" ("LastHost.QuitLoop") on "UserChan.QuitLoop" "ReplyText" Reason for leaving: "LastReason.QuitLoop
End
Else Do
"Say /Notice "ToWho" "Nick": I last saw "UserNick.QuitLoop.ILoop" ("LastHost.QuitLoop") on "UserChan.QuitLoop" "ReplyText" Reason for leaving: "LastReason.QuitLoop
End
Leave QuitLoop
End
End
End
If Found = 0 then Do
If (Upper(ToWho) = Upper(MyNick) | AlwaysPriv = TRUE) then Do
"Raw Notice "Nick" :I have not seen "FindNick" on "Channel" yet."
End
Else Do
"Say /Notice "ToWho" "Nick": I have not seen "FindNick" on "Channel" yet."
End
End
End
End
If (Type = "PRIVMSG") & (Upper(Word(rest,1)) = Trigger||"LAST") then Do
If Words(rest) > 1 then FindNick = Word(rest,2)
Else FindNick = Nick
Found = 0
GetChannel ; Channel = Result
If Upper(ToWho) ~= Upper(MyNick) then Channel = ToWho
Do QuitLoop = 1 to NumUsers
Do ILoop = 1 to UserNick.QuitLoop.0
If Upper(FindNick) = Upper(UserNick.QuitLoop.ILoop) then Do
Found = 1
ReplyText = "Last quit message for "UserNick.QuitLoop.ILoop" was '"d2c(2)||LastReason.QuitLoop||d2c(2)"'"
If (Upper(ToWho) = Upper(MyNick) | AlwaysPriv = TRUE) then Do
"Raw Notice "Nick " :"ReplyText
End
Else Do
"Say /Notice "ToWho" "Nick": "ReplyText
End
End
End
End
If Found = 0 then Do
If (Upper(ToWho) = Upper(MyNick) | AlwaysPriv = TRUE) then Do
"Raw Notice "Nick" :I have not seen a /QUIT message from "FindNick" on "Channel" yet."
End
Else Do
"Say /Notice "ToWho" "Nick": I have not seen a /QUIT message from "FindNick" on "Channel" yet."
End
End
End
If (Type = "PRIVMSG") & (Upper(Word(Rest,1)) = Trigger||"FAQADD") then Do
FAQFound = 0
If NumFAQ > 0 then Do
Do FAQLoop = 1 to NumFAQ
If Upper(Word(Rest,2)) = FAQName.FAQLoop then Do
FAQFound = 1
If (Upper(ToWho) = Upper(MyNick) | AlwaysPriv = TRUE) then Do
"Raw Notice "Nick" : «FAQ» "d2c(2)||Upper(Word(Rest,2))||d2c(2)" already exists in the database!"
End
Else Do
"Say /Notice "ToWho" «FAQ» "d2c(2)||Upper(Word(Rest,2))||d2c(2)" already exists in the database!"
End
End
End
End
If FAQFound = 0 then Do
NumFAQ = NumFAQ + 1
FAQName.NumFAQ = Upper(Word(Rest,2))
FAQText.NumFAQ = SubWord(Rest,3)
Call Open(FAQ,"AmIRC:Rexx/CTCP-FAQ","W")
Do FAQLoop = 1 to NumFAQ
Call WriteLn("FAQ",FAQName.FAQLoop)
Call WriteLn("FAQ",FAQText.FAQLoop)
End
If (Upper(ToWho) = Upper(MyNick) | AlwaysPriv = TRUE) then Do
"Raw Notice "Nick" : «FAQ» "d2c(2)||Upper(Word(Rest,2))||d2c(2)" has been added to the database."
End
Else Do
"Say /Notice "ToWho" «FAQ» "d2c(2)||Upper(Word(Rest,2))||d2c(2)" has been added to the database."
End
Call Close("FAQ")
End
End
If (Type = "PRIVMSG") & (Upper(Word(Rest,1)) = Trigger||"FAQ") & (NumFAQ > 0) then Do
FAQFound= 0
Do FAQLoop = 1 to NumFAQ
If FAQName.FAQLoop = Upper(Word(Rest,2)) Then Do
Response = FAQText.FAQLoop
FAQFound = 1
End
End
If FAQFound = 1 then Do
If (Upper(ToWho) = Upper(MyNick) | AlwaysPriv = TRUE) then Do
WHEN Strip(Cur1) = "ARP" Then FromCurr = "Argentine Pesos"
WHEN Strip(Cur1) = "ATS" Then FromCurr = "Austrian Schillings"
WHEN Strip(Cur1) = "AUD" Then FromCurr = "Australian Dollars"
WHEN Strip(Cur1) = "BBD" Then FromCurr = "Barbados Dollars"
WHEN Strip(Cur1) = "BEF" Then FromCurr = "Belgium Francs"
WHEN Strip(Cur1) = "BGL" Then FromCurr = "Bulgarian Lev"
WHEN Strip(Cur1) = "BMD" Then FromCurr = "Bermuda Dollars"
WHEN Strip(Cur1) = "BRR" Then FromCurr = "Brazilian Real"
WHEN Strip(Cur1) = "BSD" Then FromCurr = "Bahamas Dollars"
WHEN Strip(Cur1) = "CAD" Then FromCurr = "Canadian Dollars"
WHEN Strip(Cur1) = "CHF" Then FromCurr = "Swiss Francs"
WHEN Strip(Cur1) = "CLP" Then FromCurr = "Chilean Pesos"
WHEN Strip(Cur1) = "CNY" Then FromCurr = "Chinese Yuan Renmimbi"
WHEN Strip(Cur1) = "CSK" Then FromCurr = "Czech Republic Koruna"
WHEN Strip(Cur1) = "CYP" Then FromCurr = "Cyprus Pounds"
WHEN Strip(Cur1) = "DEM" Then FromCurr = "German Deutsche Marks"
WHEN Strip(Cur1) = "DKK" Then FromCurr = "Danish Kroner"
WHEN Strip(Cur1) = "DZD" Then FromCurr = "Algerian Dinars"
WHEN Strip(Cur1) = "EGP" Then FromCurr = "Egyptian Pounds"
WHEN Strip(Cur1) = "ESP" Then FromCurr = "Spanish Pesetas"
WHEN Strip(Cur1) = "EUR" Then FromCurr = "European Currency"
WHEN Strip(Cur1) = "FIM" Then FromCurr = "Finnish Markka"
WHEN Strip(Cur1) = "FJD" Then FromCurr = "Fijian Dollars"
WHEN Strip(Cur1) = "FRF" Then FromCurr = "French Francs"
WHEN Strip(Cur1) = "GBP" Then FromCurr = "British Pounds"
WHEN Strip(Cur1) = "GRD" Then FromCurr = "Greek Drachmas"
WHEN Strip(Cur1) = "HKD" Then FromCurr = "Hong Kong Dollars"
WHEN Strip(Cur1) = "HUF" Then FromCurr = "Hungarian Forint"
WHEN Strip(Cur1) = "IDR" Then FromCurr = "Indonesian Rupiah"
WHEN Strip(Cur1) = "IEP" Then FromCurr = "Irish Punt"
WHEN Strip(Cur1) = "ILS" Then FromCurr = "Israeli New Shekels"
WHEN Strip(Cur1) = "INR" Then FromCurr = "Indian Rupees"
WHEN Strip(Cur1) = "ISK" Then FromCurr = "Icelandic Krona"
WHEN Strip(Cur1) = "ITL" Then FromCurr = "Italian Lira"
WHEN Strip(Cur1) = "JMD" Then FromCurr = "Jamaican Dollars"
WHEN Strip(Cur1) = "JOD" Then FromCurr = "Jordan Dinar"
WHEN Strip(Cur1) = "JPY" Then FromCurr = "Japanese Yen"
WHEN Strip(Cur1) = "KRW" Then FromCurr = "South Korean Won"
WHEN Strip(Cur1) = "LBP" Then FromCurr = "Lebanonise Pounds"
WHEN Strip(Cur1) = "LUF" Then FromCurr = "Luxembourg Francs"
WHEN Strip(Cur1) = "MXP" Then FromCurr = "Mexican Pesos"
WHEN Strip(Cur1) = "MYR" Then FromCurr = "Malaysian Ringgit"
WHEN Strip(Cur1) = "NLG" Then FromCurr = "Dutch Guilders"
WHEN Strip(Cur1) = "NOK" Then FromCurr = "Norwegian Kroner"
WHEN Strip(Cur1) = "NZD" Then FromCurr = "New Zealand Dollars"
WHEN Strip(Cur1) = "PHP" Then FromCurr = "Philippine Pesos"
WHEN Strip(Cur1) = "PKR" Then FromCurr = "Pakistan Rupees"
WHEN Strip(Cur1) = "PLZ" Then FromCurr = "Polish Zloty"
WHEN Strip(Cur1) = "PTE" Then FromCurr = "Portugese Escudo"
WHEN Strip(Cur1) = "ROL" Then FromCurr = "Romanian Leu"
WHEN Strip(Cur1) = "RUR" Then FromCurr = "Russian Rubles"
WHEN Strip(Cur1) = "SAR" Then FromCurr = "Saudi Arabian Riyal"
WHEN Strip(Cur1) = "SDD" Then FromCurr = "Sudanese Dinar"
WHEN Strip(Cur1) = "SEK" Then FromCurr = "Swedish Krona"
WHEN Strip(Cur1) = "SGD" Then FromCurr = "Singapore Dollars"
WHEN Strip(Cur1) = "SKK" Then FromCurr = "Slovakia Koruna"
WHEN Strip(Cur1) = "THB" Then FromCurr = "Thailand Baht"
WHEN Strip(Cur1) = "TRL" Then FromCurr = "Turkish Lira"
WHEN Strip(Cur1) = "TTD" Then FromCurr = "Trinidad and Tobago Dollars"
WHEN Strip(Cur1) = "TWD" Then FromCurr = "Taiwanese Dollars"
WHEN Strip(Cur1) = "USD" Then FromCurr = "American Dollars"
WHEN Strip(Cur1) = "VEB" Then FromCurr = "Venezuelan Bolivar"
WHEN Strip(Cur1) = "XAG" Then FromCurr = "Silver Ounces"
WHEN Strip(Cur1) = "XAU" Then FromCurr = "Gold Ounces"
WHEN Strip(Cur1) = "XCD" Then FromCurr = "Eastern Caribbean Dollars"
WHEN Strip(Cur1) = "XDR" Then FromCurr = "Special Drawing Right (IMF)"
WHEN Strip(Cur1) = "XPD" Then FromCurr = "Palladium Ounces"
WHEN Strip(Cur1) = "XPT" Then FromCurr = "Platinum Ounces"
WHEN Strip(Cur1) = "ZAR" Then FromCurr = "South African Rand"
WHEN Strip(Cur1) = "ZMK" Then FromCurr = "Zambia Kwacha"
OTHERWISE Do
'Raw Notice 'Nick' :'cur1 'is an unknown Country code. Try '||Trigger||'EXCHANGE LIST <ALL or Letter> where Letter is first letter of country you are looking for.'
Signal MainLoop
End
END
SELECT
WHEN Strip(Cur2) = "ARP" Then ToCurr = "Argentine Pesos"
WHEN Strip(Cur2) = "ATS" Then ToCurr = "Austrian Schillings"
WHEN Strip(Cur2) = "AUD" Then ToCurr = "Australian Dollars"
WHEN Strip(Cur2) = "BBD" Then ToCurr = "Barbados Dollars"
WHEN Strip(Cur2) = "BEF" Then ToCurr = "Belgium Francs"
WHEN Strip(Cur2) = "BGL" Then ToCurr = "Bulgarian Lev"
WHEN Strip(Cur2) = "BMD" Then ToCurr = "Bermuda Dollars"
WHEN Strip(Cur2) = "BRR" Then ToCurr = "Brazilian Real"
WHEN Strip(Cur2) = "BSD" Then ToCurr = "Bahamas Dollars"
WHEN Strip(Cur2) = "CAD" Then ToCurr = "Canadian Dollars"
WHEN Strip(Cur2) = "CHF" Then ToCurr = "Swiss Francs"
WHEN Strip(Cur2) = "CLP" Then ToCurr = "Chilean Pesos"
WHEN Strip(Cur2) = "CNY" Then ToCurr = "Chinese Yuan Renmimbi"
WHEN Strip(Cur2) = "CSK" Then ToCurr = "Czech Republic Koruna"
WHEN Strip(Cur2) = "CYP" Then ToCurr = "Cyprus Pounds"
WHEN Strip(Cur2) = "DEM" Then ToCurr = "German Deutsche Marks"
WHEN Strip(Cur2) = "DKK" Then ToCurr = "Danish Kroner"
WHEN Strip(Cur2) = "DZD" Then ToCurr = "Algerian Dinars"
WHEN Strip(Cur2) = "EGP" Then ToCurr = "Egyptian Pounds"
WHEN Strip(Cur2) = "ESP" Then ToCurr = "Spanish Pesetas"
WHEN Strip(Cur2) = "EUR" Then ToCurr = "European Currency"
WHEN Strip(Cur2) = "FIM" Then ToCurr = "Finnish Markka"
WHEN Strip(Cur2) = "FJD" Then ToCurr = "Fijian Dollars"
WHEN Strip(Cur2) = "FRF" Then ToCurr = "French Francs"
WHEN Strip(Cur2) = "GBP" Then ToCurr = "British Pounds"
WHEN Strip(Cur2) = "GRD" Then ToCurr = "Greek Drachmas"
WHEN Strip(Cur2) = "HKD" Then ToCurr = "Hong Kong Dollars"
WHEN Strip(Cur2) = "HUF" Then ToCurr = "Hungarian Forint"
WHEN Strip(Cur2) = "IDR" Then ToCurr = "Indonesian Rupiah"
WHEN Strip(Cur2) = "IEP" Then ToCurr = "Irish Punt"
WHEN Strip(Cur2) = "ILS" Then ToCurr = "Israeli New Shekels"
WHEN Strip(Cur2) = "INR" Then ToCurr = "Indian Rupees"
WHEN Strip(Cur2) = "ISK" Then ToCurr = "Icelandic Krona"
WHEN Strip(Cur2) = "ITL" Then ToCurr = "Italian Lira"
WHEN Strip(Cur2) = "JMD" Then ToCurr = "Jamaican Dollars"
WHEN Strip(Cur2) = "JOD" Then ToCurr = "Jordan Dinar"
WHEN Strip(Cur2) = "JPY" Then ToCurr = "Japanese Yen"
WHEN Strip(Cur2) = "KRW" Then ToCurr = "South Korean Won"
WHEN Strip(Cur2) = "LBP" Then ToCurr = "Lebanonise Pounds"
WHEN Strip(Cur2) = "LUF" Then ToCurr = "Luxembourg Francs"
WHEN Strip(Cur2) = "MXP" Then ToCurr = "Mexican Pesos"
WHEN Strip(Cur2) = "MYR" Then ToCurr = "Malaysian Ringgit"
WHEN Strip(Cur2) = "NLG" Then ToCurr = "Dutch Guilders"
WHEN Strip(Cur2) = "NOK" Then ToCurr = "Norwegian Kroner"
WHEN Strip(Cur2) = "NZD" Then ToCurr = "New Zealand Dollars"
WHEN Strip(Cur2) = "PHP" Then ToCurr = "Philippine Pesos"
WHEN Strip(Cur2) = "PKR" Then ToCurr = "Pakistan Rupees"
WHEN Strip(Cur2) = "PLZ" Then ToCurr = "Polish Zloty"
WHEN Strip(Cur2) = "PTE" Then ToCurr = "Portugese Escudo"
WHEN Strip(Cur2) = "ROL" Then ToCurr = "Romanian Leu"
WHEN Strip(Cur2) = "RUR" Then ToCurr = "Russian Rubles"
WHEN Strip(Cur2) = "SAR" Then ToCurr = "Saudi Arabian Riyal"
WHEN Strip(Cur2) = "SDD" Then ToCurr = "Sudanese Dinar"
WHEN Strip(Cur2) = "SEK" Then ToCurr = "Swedish Krona"
WHEN Strip(Cur2) = "SGD" Then ToCurr = "Singapore Dollars"
WHEN Strip(Cur2) = "SKK" Then ToCurr = "Slovakia Koruna"
WHEN Strip(Cur2) = "THB" Then ToCurr = "Thailand Baht"
WHEN Strip(Cur2) = "TRL" Then ToCurr = "Turkish Lira"
WHEN Strip(Cur2) = "TTD" Then ToCurr = "Trinidad and Tobago Dollars"
WHEN Strip(Cur2) = "TWD" Then ToCurr = "Taiwanese Dollars"
WHEN Strip(Cur2) = "USD" Then ToCurr = "American Dollars"
WHEN Strip(Cur2) = "VEB" Then ToCurr = "Venezuelan Bolivar"
WHEN Strip(Cur2) = "XAG" Then ToCurr = "Silver Ounces"
WHEN Strip(Cur2) = "XAU" Then ToCurr = "Gold Ounces"
WHEN Strip(Cur2) = "XCD" Then ToCurr = "Eastern Caribbean Dollars"
WHEN Strip(Cur2) = "XDR" Then ToCurr = "Special Drawing Right (IMF)"
WHEN Strip(Cur2) = "XPD" Then ToCurr = "Palladium Ounces"
WHEN Strip(Cur2) = "XPT" Then ToCurr = "Platinum Ounces"
WHEN Strip(Cur2) = "ZAR" Then ToCurr = "South African Rand"
WHEN Strip(Cur2) = "ZMK" Then ToCurr = "Zambia Kwacha"
OTHERWISE Do
'Raw Notice 'Nick' :'cur2 'is an unknown Country code. Try '||Trigger||'EXCHANGE LIST <ALL or Letter> where Letter is first letter of country you are looking for.'
IF Left(txt,37) = '<td><b><font size="+1" color=#ffffff>' Then Do
Parse VAR txt '<td><b><font size="+1" color=#ffffff>'Location' Forecast'
End
IF Word(txt,1) = "Updated:" THEN DO
Parse VAR txt "<b>"UpdateTime"</b>"
END
IF txt='<tr ><td>Temperature</td>' THEN DO
txt = readln(1)
Parse VAR txt 'F / <b>'CTemp'</b>'
Parse VAR txt '<td><b>'FTemp'</b>'
Parse VAR FTemp FTemp'°'
If CTemp = "" then Temperature = FTemp||"°F"
Else Temperature = FTemp||"°F / "CTemp"°C"
NewCity = "FOUND"
Leave
END
IF Left(txt,28)='<tr bgcolor=#ffffff ><td >' Then Do
Parse VAR txt '.html">'Location'</a>'
Parse VAR txt 'F / 'CTemp'° C'
Parse VAR txt '<td>'FTemp'° F'
If CTemp = "" then Temperature = FTemp||"°F"
Else Temperature = FTemp||"°F / "CTemp"°C"
NewCity = "FOUND"
Leave
END
IF txt="We're sorry but the page you requested was not found." THEN DO
NewCity = 'NOWHERE'
Leave
END
END
END
CALL WRITELN(1,'Quit')
CALL CLOSE(1)
If NewCity = 'FOUND' then Do
If (Upper(ToWho) = Upper(MyNick) | AlwaysPriv = TRUE) then 'Raw Notice 'Nick' :Last reported temperature for 'Location': 'Temperature' (at 'UpdateTime').'
Else 'Say /Notice 'ToWho' 'Nick': Last reported temperature for 'Location': 'Temperature' (at 'UpdateTime').'
End
Else Do
If (Upper(ToWho) = Upper(MyNick) | AlwaysPriv = TRUE) then 'Raw Notice 'Nick' :Sorry, 'CityZip' was not found in the weather database.'
Else 'Say /Notice 'ToWho' 'Nick': Sorry, 'CityZip' was not found in the weather database.'
END
END
END
END
End
If (Type = "PRIVMSG") & (Upper(Word(Rest,1)) = Trigger||"WEATHER" | Upper(Word(Rest,1)) = Trigger||"FORECAST" ) then Do
If Words(Rest) = 1 then Rest = Rest||" 78660"
CityZip = SubWord(Rest,2)
Forecast = "" ; fc = 1
ZIP = Translate(CityZip,"+"," ")
NewCity = "NOWHERE"
IF ~SHOWLIST(H,'TCP') THEN ADDRESS COMMAND 'Mount TCP:'
IF SHOWLIST(H,'TCP') THEN DO
IF OPEN(1,'TCP:www.wunderground.com/80','W') THEN DO