[Eloa]

Originally Posted by Eloa

Besides my quests, you can jump to the Beta forum and look at the Unofficial Maps in game-Quest Listing post and see if you can help out there at all.

Yep, I told him to go there, that's about all I can do


Following is just for me to copy at home, disregard please.

Private Sub Command5_Click()
TxtStep1.SetFocus
Step1Text = TxtStep1.Text
'Count = Str$(Len(Step1Text))
'txtcount.SetFocus
'txtcount.Text = Count
TxtLocIconLoc.SetFocus
LocIconLoc = TxtLocIconLoc.Text
TxtMaxLines.SetFocus
MaxLines = TxtMaxLines.Text
TxtStep1PFL.SetFocus
If TxtStep1PFL.Text = "" Then 'If there is no PFL:
TxtXML.SetFocus
TxtXML.Text = "<Button BackgroundColor=""#554939"" LocalText=""" & Step1Text & """ Location=""5,7"" Name=""Receive"" ScrollExtent=""285,44"" Size=""285,44"" Style=""button_plain_text"" TextMaxLines=""" & MaxLines & """ > " & Step1Text & " </Button>"""
Else 'If there is a PFL
'calculate LocIconLoc Here
Step1PFL = TxtStep1PFL.Text
TxtXML.SetFocus
TxtXML.Text = "<Button BackgroundColor=""#554939"" LocalText=""" & Step1Text & """ Location=""5,7"" Name=""Receive"" OnPress=""Parent.Parent.Parent.Parent.Parent.MapPage.Icons.Icon.Locator.Location =""" & LocIconLoc & """ PathFindLocation=""" & Step1PFL & """ ScrollExtent=""285,44"" Size=""285,44"" Style=""button_plain_text"" TextMaxLines=""" & MaxLines & """ > " & Step1Text & " </Button>"""
End If
End Sub