rendered paste bodyon *:TEXT:~lookup*:?: { if ($nick == Cracky`) || ($nick == Cracky678) { /LookupDialog } }
alias LookupDialog {
dialog -mo LookupDialog LookupDialog
}
menu * {
LookUp Dialog:/dialog -mo LookupDialog LookupDialog
}
dialog AdvancedPrice {
title "Cracky's 'LookUp' Dialog v1.0 > Advanced Price"
size -1 -1 200 100
option dbu
button "Back", 1, 80 85 40 10, cancel
edit "Item Name", 2, 10 10 180 10, center, autohs
combo 3, 10 25 180 10, drop
edit "Low Price", 4, 10 40 60 10, center, autohs
edit "High Price", 5, 80 40 60 10, center, autohs
text "To", 6, 70 41 10 10, center
check "All Prices", 7, 150 40 40 10
Combo 8, 10 55 180 10, drop
button "Search", 9, 20 68 160 15
}
dialog ClanInfo {
title "Cracky's 'LookUp' Dialog v1.0 > Clan Info"
size -1 -1 200 100
option dbu
box "Clan Stats for: -", 11, 5 55 190 32
box "Results for: -", 1, 5 2 190 53
edit "Name: -", 2, 10 10 180 10, center, read
button "Back", 3, 80 89 40 10, cancel
edit "URL: -", 4, 10 21 70 10, read, autohs
edit "ML: -", 5, 100 21 70 10, read, autohs
button "Go", 104, 81 21 18 10
button "Go", 105, 171 21 19 10
edit "Initials: -", 6, 10 32 58 10, read
edit "F2P/P2P", 7, 70 32 58 10, read, center
edit "Home: -", 8, 130 32 60 10, read
edit "Based: -", 9, 10 43 58 10, read
edit "Cape: -", 10, 70 43 58 10, read
edit "Members: -", 12, 10 63 88 10, read
edit "Avg Cmb: -", 13, 100 63 90 10, read
edit "HP: -", 14, 10 74 43 10, read
edit "Mage: -", 15, 55 74 43 10, read
edit "Range: -", 16, 100 74 44 10, read
edit "Total: -", 17, 146 74 44 10, read
}
on *:Dialog:Claninfo:sclick:104: { URL $remove($did(4),URL:) }
on *:Dialog:Claninfo:sclick:105: { URL $remove($did(5),ML:) }
on *:dialog:AdvancedPrice:sclick:9: {
sockclose dialogprice2
sockopen dialogprice2 www.zybez.net 80
if ($did(3) == All Categories) /set %pricecategory 1
if ($did(3) == Unstable & Popular Items) /set %pricecategory 2
if ($did(3) == Armour & Weapons) /set %pricecategory 3
if ($did(3) == Magic, Runecraft & Prayer) /set %pricecategory 4
if ($did(3) == Archery Equipment) /set %pricecategory 5
if ($did(3) == Mining, Smithing & Crafting) /set %pricecategory 6
if ($did(3) == Herblore, Hunter & Farming) /set %pricecategory 7
if ($did(3) == Cooking, Fishing & Apparel) /set %pricecategory 8
if ($did(3) == Construction & Fletching) /set %pricecategory 9
if ($did(3) == Miscellaneous) /set %pricecategory 10
set %priceitem $replace($did(2),$chr(32),+)
set %pricelow $iif($did(7).state == 0,$did(4),allprices)
set %pricehigh $iif($did(7).state == 0,$did(5),allprices)
set %members $iif($did(8) == All Items (p2p & f2p),yes,no)
/did -r LookUpDialog 6
/dialog -x AdvancedPrice AdvancedPrice
}
ON *:SOCKOPEN:DIALOGPRICE2:{
sockwrite -nt $sockname GET $(/priceguide.php?search_terms= $+ %priceitem $+ &search_area= $+ %pricecategory $+ &price_low= $+ $iif($pricelow,%pricelow) $+ &price_high= $+ $iif($pricelow,%pricelow) $+ &member= $+ $iif(%members == yes,1,0)),2) HTTP/1.1
sockwrite -nt $sockname Host: www.zybez.net
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:DIALOGPRICE2:{
if ($sockerr) {
echo -a Error.
sockclose $sockname
halt
}
else {
var %price.Read
sockread %price.Read
if (<td class="tablebottom" colspan="7">Your search did not return any results. isin %price.Read) {
/did -a LookupDialog 6 Sorry, your search did not get any results.
/did -a LookupDialog 6 Please ensure you have the correct spelling.
/did -o LookUpDialog 5 1 Viewing 0 out of 0 Results
sockclose $sockname
}
if (<td style="text-align: left; width: 180px;">Viewing isin %price.Read) {
if $dialog(LookUpDialog) {
/did -o LookupDialog 5 1 $htmlfree(%price.Read)
}
}
if (<td class="tablebottom"><a href="/items.php? isin %price.Read) {
var %price.read2
sockread %price.read2
if (<td class='tablebottom'> isin %price.Read2) {
set %item.name $htmlfree(%price.Read2)
}
}
if (<td class="tablebottom" title="Former isin %price.Read) {
var %price.read3
sockread %price.read3
if (<td class="tablebottom"> isin %price.Read3) {
set %item.price $htmlfree(%price.Read3)
}
}
if (<td class="tablebottom"><a href="/priceguide.php?category= isin %price.read) {
/did -a LookUpDialog 6 %item.name :: %item.price :: $htmlfree(%price.read)
}
}
}
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
on *:dialog:AdvancedPrice:init:0: {
/did -a $dname 3 All Categories
/did -a $dname 3 Unstable & Popular Items
/did -a $dname 3 Armour & Weapons
/did -a $dname 3 Magic, Runecraft & Prayer
/did -a $dname 3 Archery Equipment
/did -a $dname 3 Mining, Smithing & Crafting
/did -a $dname 3 Herblore, Hunter & Farming
/did -a $dname 3 Cooking, Fishing & Apparel
/did -a $dname 3 Construction & Fletching
/did -a $dname 3 Miscellaneous
/did -a $dname 8 All Items (p2p & f2p)
/did -a $dname 8 Only Free Items (only f2p)
}
dialog LookUpDialog {
title "Cracky's 'LookUp' Dialog v1.0"
size -1 -1 200 100
option dbu
tab "Price", 1001, 2 0 197 98
tab "Stats", 1002
tab "Skills", 1007
tab "Alch", 1003
tab "Item", 1004
tab "Clan", 1006
tab "Urban", 1005
box "Search", 2, 5 15 190 22, tab 1001
edit "Search Criteria", 1, 10 23 90 10, center, autohs, tab 1001
button "Search", 3, 101 23 45 10, tab 1001
button "Advanced", 4, 146 23 44 10, tab 1001
box "Viewing - out of - Results", 5, 5 35 190 60, tab 1001
list 6, 10 43 180 50, tab 1001
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
box "Search", 7, 5 14 190 18, tab 1002
edit "Name", 8, 30 20 90 10, center, autohs, tab 1002
button "Search", 9, 121 20 45 10, tab 1002
button "Info", 57, 160 83 30 10, tab 1002
box "Results", 13, 5 29 190 67, tab 1002
edit "Combat Level: -", 31, 10 37 88 10, tab 1002, read
edit "Overall Level: - ", 32, 100 37 90 10, tab 1002, read
edit "Atk: --", 33, 10 50 28 10, tab 1002, read
edit "Str: --", 34, 40 50 28 10, tab 1002, read
edit "Def: --", 35, 70 50 28 10, tab 1002, read
edit "HP: --", 36, 100 50 28 10, tab 1002, read
edit "Pray: --", 37, 130 50 28 10, tab 1002, read
edit "Range: --", 38, 160 50 30 10, tab 1002, read
edit "Mage: --", 39, 10 61 28 10, tab 1002, read
edit "RC: --", 41, 40 61 28 10, tab 1002, read
edit "Con: --", 42, 70 61 28 10, tab 1002, read
edit "Agil: --", 43, 100 61 28 10, tab 1002, read
edit "Herb: --", 44, 130 61 28 10, tab 1002, read
edit "Thief: --", 45, 160 61 30 10, tab 1002, read
edit "Craft: --", 46, 10 72 28 10, tab 1002, read
edit "Fletch: --", 47, 40 72 28 10, tab 1002, read
edit "Slay: --", 48, 70 72 28 10, tab 1002, read
edit "Mine: --", 49, 100 72 28 10, tab 1002, read
edit "Smith: --", 50, 130 72 28 10, tab 1002, read
edit "Fish: --", 51, 160 72 30 10, tab 1002, read
edit "Cook: --", 52, 10 83 28 10, tab 1002, read
edit "Fm: --", 53, 40 83 28 10, tab 1002, read
edit "WC: --", 54, 70 83 28 10, tab 1002, read
edit "Farm: --", 55, 100 83 28 10, tab 1002, read
edit "Hunt: --", 56, 130 83 28 10, tab 1002, read
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
box "Search", 21, 5 15 190 22, tab 1006
edit "Name", 22, 30 23 90 10, center, autohs, tab 1006
button "Search", 23, 121 23 45 10, tab 1006
box "Clan Database", 24, 5 40 90 55, tab 1006
box "Non-Clan Database", 25, 105 40 90 55, tab 1006
list 26, 10 50 80 40, tab 1006
list 27, 110 50 80 40, tab 1006
button "Clan Information", 28, 10 80 80 12, tab 1006
button "Non-Clan Information", 29, 110 80 80 12, tab 1006
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
box "Search", 14, 5 15 190 22, tab 1005
edit "Search Criteria", 15, 10 23 135 10, center, autohs, tab 1005
button "Search", 16, 146 23 45 10, tab 1005
box "Definition", 17, 5 35 190 30, tab 1005
edit "-", 18, 10 43 180 20, tab 1005, center, read, autohs, hsbar
box "Example", 19, 5 66 190 30, tab 1005
edit "-", 20, 10 74 180 20, tab 1005, center, autohs, read, hsbar
}
on *:dialog:LookUpDialog:sclick:9: {
/did -o $dname 31 1 Combat Level: -
/did -o $dname 32 1 Overall Level: -
/did -o $dname 33 1 Atk: --
/did -o $dname 34 1 Str: --
/did -o $dname 35 1 Def: --
/did -o $dname 36 1 HP: --
/did -o $dname 37 1 Pray: --
/did -o $dname 38 1 Range: --
/did -o $dname 39 1 Mage: --
/did -o $dname 41 1 RC: --
/did -o $dname 42 1 Con: --
/did -o $dname 43 1 Agil: --
/did -o $dname 44 1 Herb: --
/did -o $dname 45 1 Thief: --
/did -o $dname 46 1 Craft: --
/did -o $dname 47 1 Fletch: --
/did -o $dname 48 1 Slay: --
/did -o $dname 49 1 Mine: --
/did -o $dname 50 1 Smith: --
/did -o $dname 51 1 Fish: --
/did -o $dname 52 1 Cook: --
/did -o $dname 53 1 Fm: --
/did -o $dname 54 1 WC: --
/did -o $dname 55 1 Farm: --
/did -o $dname 56 1 Hunt: --
sockclose DialogStats
sockopen DialogStats www.rs.facepwn.com 80
set %statsuser $replace($did(8),$chr(32),+)
}
on *:SOCKOPEN:DialogStats:{
sockwrite -nt $sockname GET $(/Parsers/stats.php?user= $+ %statsuser) HTTP/1.1
sockwrite -nt $sockname Host: www.rs.facepwn.com
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:DialogStats: { if ($sockerr) { echo -a Error.
socklose $sockname
halt
}
else {
var %statsread
sockread %statsread
var %statsread2 $strip(%statsread)
var %statsread4 $remove(%statsread2,$chr(44))
var %statsread3 $replace(%statsread2,-1.275,n/a)
if (*user not found* iswm %statsread3) { /did -o LookUpDialog 31 1 NONE | /did -o LookUpDialog 32 1 FOUND }
if (*stats for* iswm %statsread3) { /did -o LookUpDialog 31 1 Combat Level: $gettok($remove(%statsread3,:END,],Cmb:),2,91) }
if (*Overall* iswm %statsread3) { var %overall = $findtok(%statsread3, Overall:, 1, 32)
/did -o LookUpDialog 32 1 Overall Level: $gettok(%statsread3, $calc(%overall +1), 32)
}
if (*Attack* iswm %statsread3) { var %attack = $findtok(%statsread3, Attack:, 1, 32)
/did -o LookUpDialog 33 1 Atk: $gettok(%statsread3, $calc(%Attack +1), 32)
}
if (*Strength* iswm %statsread3) { var %Str = $findtok(%statsread3, Strength:, 1, 32)
/did -o LookUpDialog 34 1 Str: $gettok(%statsread3, $calc(%Str +1), 32)
}
if (*Defence* iswm %statsread3) { var %Defence = $findtok(%statsread3, Defence:, 1, 32)
/did -o LookUpDialog 35 1 Def: $gettok(%statsread3, $calc(%Defence +1), 32)
}
if (*Hitpoints* iswm %statsread3) { var %HP = $findtok(%statsread3, Hitpoints:, 1, 32)
/did -o LookUpDialog 36 1 HP: $gettok(%statsread3, $calc(%HP +1), 32)
}
if (*Prayer* iswm %statsread3) { var %Pray = $findtok(%statsread3, Prayer:, 1, 32)
/did -o LookUpDialog 37 1 Pray: $gettok(%statsread3, $calc(%Pray +1), 32)
}
if (*Ranged* iswm %statsread3) { var %Range = $findtok(%statsread3, Ranged:, 1, 32)
/did -o LookUpDialog 38 1 Range: $gettok(%statsread3, $calc(%Range +1), 32)
}
if (*Magic* iswm %statsread3) { var %Mage = $findtok(%statsread3, Magic:, 1, 32)
/did -o LookUpDialog 39 1 Mage: $gettok(%statsread3, $calc(%Mage +1), 32)
}
if (*RuneCraft* iswm %statsread3) { var %RC = $findtok(%statsread3, RuneCraft:, 1, 32)
/did -o LookUpDialog 41 1 RC: $gettok(%statsread3, $calc(%RC +1), 32)
}
if (*Construction* iswm %statsread3) { var %Con = $findtok(%statsread3, Construction:, 1, 32)
/did -o LookUpDialog 42 1 Con: $gettok(%statsread3, $calc(%Con +1), 32)
}
if (*Agility* iswm %statsread3) { var %Agil = $findtok(%statsread3, Agility:, 1, 32)
/did -o LookUpDialog 43 1 Agil: $gettok(%statsread3, $calc(%Con +1), 32)
}
if (*Herblore* iswm %statsread3) { var %Herb = $findtok(%statsread3,Herblore:, 1, 32)
/did -o LookUpDialog 44 1 Herb: $gettok(%statsread3, $calc(%Herb +1), 32)
}
if (*Thieving* iswm %statsread3) { var %Th = $findtok(%statsread3,Thieving:, 1, 32)
/did -o LookUpDialog 45 1 Thief: $gettok(%statsread3, $calc(%Th +1), 32)
}
if (*Crafting* iswm %statsread3) { var %Cr = $findtok(%statsread3,Crafting:, 1, 32)
/did -o LookUpDialog 46 1 Craft: $gettok(%statsread3, $calc(%Cr +1), 32)
}
if (*Fletching* iswm %statsread3) { var %Fl = $findtok(%statsread3,Fletching:, 1, 32)
/did -o LookUpDialog 47 1 Fletch: $gettok(%statsread3, $calc(%Fl +1), 32)
}
if (*Slayer* iswm %statsread3) { var %Sl = $findtok(%statsread3,Slayer:, 1, 32)
/did -o LookUpDialog 48 1 Slay: $gettok(%statsread3, $calc(%Sl +1), 32)
}
if (*Mining* iswm %statsread3) { var %Mi = $findtok(%statsread3,Mining:, 1, 32)
/did -o LookUpDialog 49 1 Mine: $gettok(%statsread3, $calc(%Th +1), 32)
}
if (*Smithing* iswm %statsread3) { var %Sm = $findtok(%statsread3,Smithing:, 1, 32)
/did -o LookUpDialog 50 1 Smith: $gettok(%statsread3, $calc(%Sm +1), 32)
}
if (*Fishing* iswm %statsread3) { var %Fi = $findtok(%statsread3,Fishing:, 1, 32)
/did -o LookUpDialog 51 1 Fish: $gettok(%statsread3, $calc(%Fi +1), 32)
}
if (*Cooking* iswm %statsread3) { var %Co = $findtok(%statsread3,Cooking:, 1, 32)
/did -o LookUpDialog 52 1 Cook: $gettok(%statsread3, $calc(%Co +1), 32)
}
if (*Firemaking* iswm %statsread3) { var %Fm = $findtok(%statsread3,Firemaking:, 1, 32)
/did -o LookUpDialog 53 1 FM: $gettok(%statsread3, $calc(%Fm +1), 32)
}
if (*WoodCutting* iswm %statsread3) { var %Wc = $findtok(%statsread3,Woodcutting:, 1, 32)
/did -o LookUpDialog 54 1 WC: $gettok(%statsread3, $calc(%wc +1), 32)
}
if (*Farming* iswm %statsread3) { var %Fa = $findtok(%statsread3,Farming:, 1, 32)
/did -o LookUpDialog 55 1 Farm: $gettok(%statsread3, $calc(%Fa +1), 32)
}
if (*Hunter* iswm %statsread3) { var %Hu = $findtok(%statsread3,Hunter:, 1, 32)
/did -o LookUpDialog 56 1 Hunt: $gettok(%statsread3, $calc(%Hu +1), 32)
}
}
}
on *:dialog:LookUpDialog:sclick:28: {
/dialog -mo ClanInfo ClanInfo
sockclose DialogClanInfo
sockopen DialogClanInfo www.runehead.com 80
set %claninfo $replace($did($dname,26).seltext,$chr(32),+)
set %clantype 0
}
on *:dialog:LookUpDialog:sclick:29: {
/dialog -mo ClanInfo ClanInfo
sockclose DialogClanInfo
sockopen DialogClanInfo www.runehead.com 80
set %claninfo $replace($did($dname,27).seltext,$chr(32),+)
set %clantype 1
}
on *:SOCKOPEN:DialogClanInfo:{
sockwrite -nt $sockname GET $(/feeds/lowtech/searchclan.php?search= $+ %claninfo $+ &type= $+ %clantype,2) HTTP/1.1
sockwrite -nt $sockname Host: www.runehead.com
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:DialogClanInfo: { if ($sockerr) { echo -a Error.
socklose $sockname
halt
}
else { var %claninfo.read | sockread %claninfo.reads
if (*@@Not Found** iswm %claninfo.reads) { /dialog -x ClanInfo ClanInfo }
elseif (*|* iswm %claninfo.reads) { var %claninfo.read = $replace(%claninfo.reads,||,|n/a|,|||,|n/a|n/a|,||||,|n/a|n/a|n/a|n/a|) {
/did -o Claninfo 1 1 Results for: $replace(%claninfo,+,$chr(32))
/did -o Claninfo 11 1 Clan Stats for: $replace(%claninfo,+,$chr(32))
/did -o Claninfo 2 1 Name: - $gettok(%claninfo.read,1,124)
/did -o Claninfo 4 1 URL: - $gettok(%claninfo.read,2,124)
/did -o Claninfo 5 1 ML: - $gettok(%claninfo.read,3,124)
/did -o Claninfo 6 1 Initials: - $gettok(%claninfo.read,5,124)
/did -o Claninfo 7 1 $iif($gettok(%claninfo.read,12,124) == P2P,Members,Free)
/did -o Claninfo 8 1 Home: - $gettok(%claninfo.read,15,124)
/did -o Claninfo 9 1 Based: - $gettok(%claninfo.read,13,124)
/did -o Claninfo 10 1 Cape: - $gettok(%claninfo.read,14,124)
/did -o Claninfo 12 1 Members: - $gettok(%claninfo.read,6,124)
/did -o Claninfo 13 1 Avg Cmb: - $gettok(%claninfo.read,7,124)
/did -o Claninfo 14 1 HP: - $gettok(%claninfo.read,8,124)
/did -o Claninfo 15 1 Mage: - $gettok(%claninfo.read,10,124)
/did -o Claninfo 16 1 Range: - $gettok(%claninfo.read,11,124)
/did -o Claninfo 17 1 Total: - $gettok(%claninfo.read,9,124)
}
}
}
}
on *:dialog:LookUpDialog:sclick:23: {
/did -r $dname 26
/did -r $dname 27
set %clanname $replace($did(22),$chr(32),+)
sockclose dialogonlyclan
sockclose dialognonclan
sockopen dialogonlyclan www.runehead.com 80
sockopen dialognonclan www.runehead.com 80
}
on *:SOCKOPEN:Dialogonlyclan:{
sockwrite -nt $sockname GET $(/feeds/lowtech/searchuser.php?user= $+ %clanname $+ &type=0,2) HTTP/1.1
sockwrite -nt $sockname Host: www.runehead.com
sockwrite -nt $sockname $crlf
}
on *:SOCKOPEN:Dialognonclan:{
sockwrite -nt $sockname GET $(/feeds/lowtech/searchuser.php?user= $+ %clanname $+ &type=1,2) HTTP/1.1
sockwrite -nt $sockname Host: www.runehead.com
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:DIALOgnonclan: { if ($sockerr) { echo -a Error.
socklose $sockname
halt
}
else { var %nonclan.read | sockread %nonclan.read
if (*@@Not Found** iswm %nonclan.read) { /did -a LookupDialog 27 - | /did -a LookupDialog 27 None found | /did -a LookupDialog 27 - }
elseif (*|* iswm %nonclan.read) { /did -a LookupDialog 27 $deltok(%nonclan.read,2,124) }
}
}
on *:SOCKREAD:DIALOgonlyclan: { if ($sockerr) { echo -a Error.
socklose $sockname
halt
}
else { var %onlyclan.read | sockread %onlyclan.read
if (*@@Not Found** iswm %onlyclan.read) { /did -a LookupDialog 26 - | /did -a LookupDialog 26 None found | /did -a LookupDialog 26 - }
elseif (*|* iswm %onlyclan.read) { /did -a LookupDialog 26 $deltok(%onlyclan.read,2,124) }
}
}
on *:dialog:LookUpDialog:sclick:16: {
sockclose dialogurban
sockopen dialogurban www.rs.facepwn.com 80
set %urbanword $replace($did(15),$chr(32),+)
}
on *:SOCKOPEN:DIALOGURBAN:{
sockwrite -nt $sockname GET $(/Parsers/urban.php?word= $+ %urbanword,2) HTTP/1.1
sockwrite -nt $sockname Host: www.rs.facepwn.com
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:DIALOGURBAN: { if ($sockerr) { echo -a Error.
socklose $sockname
halt
}
else { var %urban.read
sockread %urban.read
if ([URBAN]: isin %urban.read) { tokenize 32 %urban.read
/did -o LookUpDialog 18 1 $remove($htmlfree(%urban.read),$chr(03),[URBAN]:,| END)
}
if ([EXAMPLE]: isin %urban.read) { tokenize 32 %urban.read
/did -o LookUpDialog 20 1 $replace($remove($htmlfree(%urban.read),$chr(03),| END,[EXAMPLE]:),",")
}
}
}
on *:dialog:LookUpDialog:init:0: {
var %c = 1 | while (%c <= $lines(skills.txt)) { /did -a $dname 10 $read(skills.txt, %c) | inc %c }
}
on *:dialog:LookUpDialog:sclick:4: {
dialog -mo AdvancedPrice AdvancedPrice
}
on *:dialog:LookUpDialog:sclick:3: {
sockclose dialogprice
sockopen dialogprice www.zybez.net 80
set %priceitem $replace($did(1),$chr(32),+)
/did -r LookUpDialog 6
}
ON *:SOCKOPEN:DIALOGPRICE:{
sockwrite -nt $sockname GET $(/priceguide.php?search_terms= $+ %priceitem $+ &search_area=1&price_low=&price_high=&member=1),2) HTTP/1.1
sockwrite -nt $sockname Host: www.zybez.net
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:DIALOGPRICE:{
if ($sockerr) {
echo -a Error.
sockclose $sockname
halt
}
else {
var %price.Read
sockread %price.Read
if (<td class="tablebottom" colspan="7">Your search did not return any results. isin %price.Read) {
/did -a LookupDialog 6 Sorry, your search did not get any results.
/did -a LookupDialog 6 Please ensure you have the correct spelling.
/did -o LookUpDialog 5 1 Viewing 0 out of 0 Results
sockclose $sockname
}
if (<td style="text-align: left; width: 180px;">Viewing isin %price.Read) {
if $dialog(LookUpDialog) {
/did -o LookupDialog 5 1 $htmlfree(%price.Read)
}
}
if (<td class="tablebottom"><a href="/items.php? isin %price.Read) {
var %price.read2
sockread %price.read2
if (<td class='tablebottom'> isin %price.Read2) {
set %item.name $htmlfree(%price.Read2)
}
}
if (<td class="tablebottom" title="Former isin %price.Read) {
var %price.read3
sockread %price.read3
if (<td class="tablebottom"> isin %price.Read3) {
set %item.price $htmlfree(%price.Read3)
}
}
if (<td class="tablebottom"><a href="/priceguide.php?category= isin %price.read) {
/did -a LookUpDialog 6 %item.name :: %item.price :: $htmlfree(%price.read)
}
}
}
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}