Full Version: Ressurectionxtras And Compatibility Lists
Pages: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67
let me know which "categories" of games are missing boxart. I'll see if Gilles has the time to make generic boxart for the Amiga.
QUOTE(waal @ Jan 2 2010, 03:28 PM) 
I have a big bundle of screenshots and artwork to be sorted for the Amiga. I organized a lot but I still have to rename them and to convert some. Then I must find the missing.
Tomorow night I'll upload configurations examples for Madmab.
Oh and the great news is I found a script to automate the creation of hard drive files for Winuaex. I now have around 500 cool games ready to boot. It works fine and loads fast on windows and I made a system config for Madmab's beta. With the new features he designed with Killergorilla and this stuff, the Amiga will work like a console. I'll be back to you after testing this.
But now I'm going for a sleep. I've been back to work since two days and it looks like it's been a whole month.
I got the config database and preset controller code all written up. I just need to compile and test it. It is/was fairly easy to do, just alot of typing.
I see you got that whdload script thingie going. I was gonna eventually give that a shot. You'll have to send me a sample or two so I can check it out.
Hopefully if things go well monday I'll have the next round of Winuaex stuff working.
Excellent news ! I see we're making progress. 
I tested the whdload feature and it works perfect now. First I thought the whd were zipped files but I remembered that this feature was available much later in Winuae (edit. Just read again the amiga setup thread and I forgot about the WHZ extension. Will try this.). So I copied my _whdload.hdf and some hdf games renamed to whd et voilą ! Drives were mounted automatically. Right now I'm testing these games with the same system config. I have many versions to choose from. Particularly, I have to see if the CD32 versions are worth keeping. For the moment the results are very good, games load fast and run smooth (I'll have to confirm that). It looks like a console, it's amazing.
I'll send you samples very soon with mappings, too.
I tested the whdload feature and it works perfect now. First I thought the whd were zipped files but I remembered that this feature was available much later in Winuae (edit. Just read again the amiga setup thread and I forgot about the WHZ extension. Will try this.). So I copied my _whdload.hdf and some hdf games renamed to whd et voilą ! Drives were mounted automatically. Right now I'm testing these games with the same system config. I have many versions to choose from. Particularly, I have to see if the CD32 versions are worth keeping. For the moment the results are very good, games load fast and run smooth (I'll have to confirm that). It looks like a console, it's amazing.
I'll send you samples very soon with mappings, too.
Great! Nice to see one of my favorite systems (next to the Atari 800, of course) to get some loving! 
Edit:....
I need a bigger hard drive. It's amazing how much this junk is cluttering up my Xbox. 
Looking for something to remove now..
Edit:....
I need a bigger hard drive.
It's amazing how much this junk is cluttering up my Xbox. Looking for something to remove now..
I just got done going through and checking the 1000 or so faqs I downloaded for SNES on the xbox and the only problem I've seen so far is that a few faqs have Japanese characters and the current fixed width font does not support them.
Not a huge thing and only shows up in around 3 or 4 faqs and its completely readable.
I was wonder if anyone know how to edit fonts to work in the emu? I would like to edit up a bunch load them in and see what one works best.
Progress report: Working on editing the names of the faqs to match what the rom names are, when I get bored with that am downloading all the nes faqs. I'll upload the pack when I finish the name changes.
Not a huge thing and only shows up in around 3 or 4 faqs and its completely readable.
I was wonder if anyone know how to edit fonts to work in the emu? I would like to edit up a bunch load them in and see what one works best.
Progress report: Working on editing the names of the faqs to match what the rom names are, when I get bored with that am downloading all the nes faqs. I'll upload the pack when I finish the name changes.
I'm sure all the names won't match what I have currently to what they were before, but I definitely appreciate the effort. I will rename anything that still needs to be renamed when you send it my way.
Thanks a ton for this. It's really great to see that it got finished so quickly. You'll have to let us in on your secret if you don't move on to another system yourself.
~Rx
Thanks a ton for this. It's really great to see that it got finished so quickly. You'll have to let us in on your secret if you don't move on to another system yourself.
~Rx
Well the main secret is that after I got the updated emu with fixed fixed width I didn't really have to change anything other than the names of the files 
As for downloading the files I though I had figured out a way of grabbing them all but it did not work out like I thought so now I get to go through and download them by hand, its slow but easy.
If people want to go in and remove the hard breaks so paragraphs wrap the open office scripts I was using are below. I should note that I stuck all the faqs I converted side by side with the originals in the new emu and I think I like them better in the original format.
The first is for removing excess spaces in the document.
This one is for everything else. Main thing to realize on it is it does not work very well on big faqs so you may have to break it down into smaller chunks to get it to work.
As for downloading the files I though I had figured out a way of grabbing them all but it did not work out like I thought so now I get to go through and download them by hand, its slow but easy.If people want to go in and remove the hard breaks so paragraphs wrap the open office scripts I was using are below. I should note that I stuck all the faqs I converted side by side with the originals in the new emu and I think I like them better in the original format.
The first is for removing excess spaces in the document.
CODE
Sub StripExtraSpaces
oDoc = ThisComponent
FandR = oDoc.createReplaceDescriptor
FandR.searchRegularExpression = true
FandR.setSearchString("^ *") 'Find one or more spaces at beginning of paragraph.
oDoc.ReplaceAll(FandR) 'Do it and replace with nothing.
FandR.setSearchString(" *") 'Find 2 or more spaces.
FandR.setReplaceString(" ") 'Replace with one space.
oDoc.ReplaceAll(FandR) 'Do it.
End Sub
oDoc = ThisComponent
FandR = oDoc.createReplaceDescriptor
FandR.searchRegularExpression = true
FandR.setSearchString("^ *") 'Find one or more spaces at beginning of paragraph.
oDoc.ReplaceAll(FandR) 'Do it and replace with nothing.
FandR.setSearchString(" *") 'Find 2 or more spaces.
FandR.setReplaceString(" ") 'Replace with one space.
oDoc.ReplaceAll(FandR) 'Do it.
End Sub
This one is for everything else. Main thing to realize on it is it does not work very well on big faqs so you may have to break it down into smaller chunks to get it to work.
CODE
'Version 2.2 5-6-06 John Vigor
'Converts ASCII text files, or selected text within them, by stripping out excess
'paragraph breaks. Works with items copied & pasted from the Web that contain line
'breaks such as a message in these forums.
'WARNING - Anything stored on the Clipboard will be overwritten. A copy of your
'original file will not be saved to the Clipboard if a file greater then 60K
'characters or selected text of any size and you are responsible for otherwise
'backing it up. On the other hand, your original file will not be changed unless you
'save the macro results and overwrite the original but this assumes a saved file.
'Sample processing times on a 770 MHz machine in Pages/Seconds format:
' 10/4, 20/7, 40/16, 80/34, 160/81 (1.35 Min.).
'Hint for long documents - TURN OFF AUTO-SPELLCHECKING. This will save time.
'You can control what items the program asks you about and what happens if you choose
'not to be asked about an item by editing the variables below. These variables are
'ignored if you run the macro on selected text so if you customize them and need to
'be asked about items for a particular file then simply select the entire file with
'Ctrl+A before running the macro.
'You should become familiar with how the program works before you attempt to customize
'it. It works differently if the file is less or more than 60K and when processing a
'selection.
'
Sub ASCII_Formatter_StartHere
'VARIABLES YOU CAN CHANGE.
AskShortParagraphs = True 'Show the query about keeping short paragraphs.
'Default answer if AskShortParagraphs is False.
KeepShortParagraphs = True 'HIGHLY recommended and the faster of the two methods. I
'only maintain the other method because it's needed for one option.
'--
AskShortParaLength = True 'Show a chance to adjust the program's estimate of what should
'be considered a short paragraph that will kept.
ShortDef = 20 'The minimum number of characters short of the right margin that a line
'must end to be a short paragraph. The paragraph break at the end of any short paragraph
'will be maintained.
'--
AskViewOptions = True 'Show the query about end of program Options.
'Default, if AskViewOptions is False.
GoToOptions = True 'If True the Option variables below will take control. They will
'also control if AskViewOptions is True and you choose to go to the Options.
'--
'The following values control what Options are displayed following initial file processing:
Show1stOptionSet = True 'Show the first set of Options, which are Indent All Paragraphs
'and Reduce Paragraph Spacing.
'Defaults, if Show1stOptionSet is False.
O1_1 = False 'Indent all paragraphs.
O1_2 = False 'Reduce paragraph spacing.
AskMaxParaSpacing = True 'Ask for the maximum number of blank "lines" between paragraphs.
O1_2_1 = 1 'Default, if AskMaxParaSpacing is False.
Show2ndOptionSet = True 'Options are Remove Excess Interior Spaces, Change Spaced
'Indents to Tabs and Justify All Paragraphs.
'Defaults, if Show2ndOptionset is False.
O2_1 = False 'Remove excess interior spaces.
O2_2 = False 'Change spaced indents to tabs.
O2_3 = False 'Justify text.
'--
'The following control aspects of full file, selection and/or Option processing and
'are not ignored if you process a selection:
ShowBackUpWarning = True 'Show warning that file not copied to Clipboard if over 60K.
ShowFinished = True 'Show the finished message.
PageBite = 10 'Number of pages processed at a time for selected text or a file over 60K
'characters. Seems pretty good but I haven't seriously tried to optimize it.
ViewBegin = True 'The cursor and your view are taken to the beginning of the document
'when macro ends. "False" will leave you at the end.
StripHyphens = True 'Assumes hyphens located at the right margin are editorial and do
'not seperate true hyphenated words like "half-dollar".
CheckForcedLeftMargin = True 'A VERY quick routine if spaces imitating a left margin
'don't exist. Or it will delete such a margin if they do (known to work for my version of
'ScanSoft's OCR software - the 1st line of the file will contain only a series of spaces).
StripIndents = "0" 'This controls what happens during initial file processing. The default
'value is recommended. The default ("0") is to leave all tabbed or spaced paragraph indents,
'"1" will strip spaced indents, "2" will strip tabbed ones and "3" will strip both kinds.
'If you run the macro on selected text and don't choose to go to the Options then you
'will also be asked about this. One use for this is to deal with paragraphs offset, as
'opposed to just 1st line indented, from the left margin. Normal processing will leave
'all "lines" of such paragraphs indented and followed by paragraph breaks. Stripping
'out the indents will convert these to regular paragraphs which can be edited normally
'in Writer. Running the macro on selected text after normal processing is a personal
'favorite of mine because I often scan documents with offsets which I need to edit.
MarkIt = True 'Insert the "MarkWith" character as the last character of the file to
'indicate it has been previouly processed. Allows you to run the macro again and go
'directly to the other Options without wading through the full initial file processing
'again. I do not recommend changing as it controls how the program works on a 2nd run.
MarkWith = Chr(160) 'A nonbreaking space in most fonts, which isn't seen on printing.
Override60K = False 'Setting this to True may significantly slow runtime on large files
'or selections but no seperate processing document will be used if you don't like this.
'.....................................................................................
'DO NOT EDIT BELOW HERE UNLESS YOU KNOW WHAT YOU ARE DOING.
lTime = Timer : RunTime = 0 : Skip = false : Over60K = false : ProcSel = false
PrevProc = false : IsSelect = false : ASPL = AskShortParaLength : LastSection = False
thisDoc = thisComponent : oDoc = thisDoc 'oDoc may change.
thisVC = thisDoc.CurrentController.getViewCursor : oVC = thisVC 'oVC may change.
thisText = thisDoc.Text
MarkSel = thisDoc.Text.createTextCursorByRange(thisVC)'Mark any selection.
thisFrame = thisDoc.CurrentController.getFrame()
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
FandR = thisDoc.createReplaceDescriptor() 'Find & Replace initial set up.
FandR.searchRegularExpression = true 'Use regular expressions.
If NOT thisVC.isCollapsed then IsSelect = true
If IsSelect then
a$ = "Process selected text only?"& Chr(13) & Chr(13) &"Cancel to Quit."
RunTime = RunTime + (Timer - lTime)
iAns = MsgBox(a$,3,"Text in this file has been selected.")
lTime = Timer : If iAns = 2 then End
If iAns = 6 then ProcSel = true
EndIf
If ProcSel then 'Tests for over 60K.
If Len(MarkSel.String) > 60000 OR Len(MarkSel.String) = 0 then Over60K = true
ELSEIf thisDoc.characterCount > 60000 then Over60K = true
EndIF
If Override60K then Over60K = false
If NOT Over60K then LastSection = true
If Over60K AND NOT ProcSel then MarkSel.gotoStart(false) : MarkSel.gotoEnd(true)
thisTC = thisDoc.Text.createTextCursor : thisTC.gotoEnd(false)
thisTC.goLeft(1,true) 'Get the last character. If a binding space
'then file was previously processed. Process or go to Options?
IF thisTC.String = MarkWith then 'Was file previouly processed?
PrevProc = True 'Previously processed.
Skip = SkipToOptions(Show1stOptionSet,Show2ndOptionSet)
EndIf
'++++++++++++++++++++++++++ All basic information gathered, now control program flow.
Select Case Skip
Case True 'Go directly to the options.
Select Case ProcSel 'Do we need to deal with selected text?
Case False : BackUp(thisFrame,dispatcher)
RunOptions(Show1stOptionSet,Show2ndOptionSet,FandR)
Case True : NoBackUpWarning(ShowBackUpWarning)
SetUpSelection(thisFrame,thatFrame,"Copy",dispatcher,MarkSel,IsSelect,Skip)
RunOptions(Show1stOptionSet,Show2ndOptionSet,FandR)
FinishSelection(thatFrame,MarkSel,FandR,dispatcher,MarkSel,thisVC)
End Select
Case False 'Going to do the regular file processing.
Select Case ProcSel 'Do we need to deal selected text?
Case True : NoBackUpWarning(ShowBackUpWarning)
AskShortParas(AskShortParagraphs,ShortDef,thisTC,ASPL)
AskIndents() : If CheckForcedLeftMargin then ForcedLeftMargin(thisTC,FandR)
SetUpSelection(thisFrame,thatFrame,"Copy",dispatcher,MarkSel,IsSelect,Skip)
If Over60K then
ProcessOver60K(FandR,thisVC,thisDoc,dispatcher,MarkSel,PageBite)
Else RunMainRoutines(FandR)
FinishSelection(thatFrame,MarkSel,FandR,dispatcher,MarkSel,thisVC)
EndIf
oDoc = thisDoc
AskRunOptions(AskViewOptions,Show1stOptionSet,Show2ndOptionSet,FandR)
Case False 'Normally this would be the 1st time entire file is processed.
'Won't ask about indents because most users won't care.
IF Over60K then NoBackUpWarning(ShowBackUpWarning)
If NOT Over60K then BackUp(thisFrame,dispatcher)
AskShortParas(AskShortParagraphs,ShortDef,thisTC,ASPL)
If CheckForcedLeftMargin then ForcedLeftMargin(thisTC,FandR)
If Over60K then
SetUpSelection(thisFrame,thatFrame,"Copy",dispatcher,MarkSel,IsSelect,Skip)
ProcessOver60K(FandR,thisVC,thisDoc,dispatcher,MarkSel,PageBite)
oDoc = thisDoc
Else
RunMainRoutines(FandR)
EndIf
AskRunOptions(AskViewOptions,Show1stOptionSet,Show2ndOptionSet,FandR)
End Select
End Select
'++++++++++++++++++++++++++++++
thisVC.gotoEnd(False)
If NOT PrevProc then
thisText.insertString(thisVC,MarkWith,False)
EndIf
EndMessage(ShowFinished,MarkIt)
If ViewBegin then thisVC.gotoStart(false)
End Sub
Private lTime, KeepShortParagraphs, oVC, StripHyphens, LastSection
Private oDoc, RunTime, Over60K, thisFrame, thatFrame, thisVC, PrevProc
Private StripIndents, jstify, dispatcher, ShortPara, ProcSel
Private O1_1, O1_2, O1_2_1 ,O2_1, O2_2, O2_3, AskMaxParaSpacing, GoToOptions
Function SkipToOptions(Show1stOptionSet,Show2ndOptionSet)
a$ = "Do you want to skip directly to the end of program Options?"
b$ = Chr(13) & "Cancel to quit." : RunTime = RunTime + (Timer - lTime)
iAns = MsgBox(a$ & b$,3,"This file has been previously processed.")
lTime = Timer : If iAns = 2 then End
If iAns = 7 then
SkipToOptions() = false
Else Show1stOptionSet = true : Show2ndOptionSet = true : SkipToOptions() = true
EndIf
End Function
Sub CopyOrCutIt(whichFrame,doWhich,dispatcher)
dispatcher.executeDispatch(whichFrame,".uno:" & doWhich,"",0,Array())
End Sub
Sub PasteIt(whichFrame,dispatcher)
dispatcher.executeDispatch(whichFrame,".uno:Paste","",0,Array())
End Sub
Sub BackUp(thisFrame,dispatcher) 'Back up file to clipboard.
dispatcher.executeDispatch(thisFrame,".uno:SelectAll","",0,Array())
CopyOrCutIt(thisFrame,"Copy",dispatcher)
End Sub
Sub NoBackupWarning(ShowBackUpWarning)
If NOT ShowBackUpWarning then Exit Sub
a$ = "Because you are processing selected text or the file contains more than 60K "
a$ = a$ & "characters no backup copy of your file will be stored to the clipboard!"
a$ = a$ & " Optional > Auto-spellcheck should be off." & Chr(13)
b$= "DO YOU HAVE THIS FILE BACKED UP? ('Yes' will continue - 'No' will abort.)"
c$ = String(15," ") & "NO BACKUP!" : RunTime = RunTime + (Timer - lTime)
iAns = MsgBox (a$ & b$,308,c$ & c$ & c$) : lTime = Timer
If iAns = 7 then End
End Sub
Sub SetUpSelection(thisFrame,thatFrame,doWhat,dispatcher,MarkSel,IsSelect,Skip)
oDoc = StarDesktop.loadComponentFromURL("private:factory/swriter","_blank",0,Array())
thatFrame = oDoc.CurrentController.Frame 'Get new doc frame.
oVC = oDoc.CurrentController.getViewCursor 'Set oVC to new doc.
If NOT Over60K OR Skip then
thisVC.gotoRange(MarkSel.Start,false) : thisVC.gotoRange(MarkSel.End,true)
CopyOrCutIt(thisFrame,"Copy", dispatcher) 'Then fill it
PasteIt(thatFrame,dispatcher) 'with the selection.
BackUp(thisFrame,dispatcher) 'If not big selection or are doing Options
EndIf 'then backup file to clipboard.
End Sub
Sub FinishSelection(thatFrame,MarkSel,FandR,dispatcher,MarkSel,thisVC)
dispatcher.executeDispatch(thatFrame,".uno:SelectAll","",0,Array())
CopyOrCutIt(thatFrame,"Cut",dispatcher)
thisVC.gotoRange(MarkSel.Start,false)
thisVC.gotoRange(MarkSel.End,true)
PasteIt(thisFrame,dispatcher)
oDoc.dispose : If jstify then thisVC.setPropertyValue("ParaAdjust",2)
End Sub
Sub AskShortParas(AskShortParagraphs,ShortDef,thisTC,ASPL)
thisTC.gotoStart(false)
While thisTC.isEndOfParagraph() 'Delete empty paragraphs at top of doc.
thisTC.goRight(1,true) : thisTC.String = ""
Wend
If NOT AskShortParagraphs AND NOT KeepShortParagraphs AND NOT ProcSel then Exit Sub
If NOT AskShortParagraphs AND NOT ProcSel then iAns = 6 : goto Continue
a$ = "Generally highly recommended. This saves the formatting of lists,"
b$ = " tables of contents," & Chr(13) & "indexes, etc. that are not indented."
c$ = " This is also the fastest method."
d$ = "KEEP SHORT PARAGRAPHS?"
RunTime = RunTime + (Timer - lTime)
iAns = Msgbox (a$ & b$ & c$,3,d$) : lTime = Timer
If iAns = 2 then End
If iAns = 7 then KeepShortParagraphs = false
CONTINUE:
If iAns = 6 then
KeepShortParaGraphs = true : thisVC.gotoStart(false) : thisTC.gotoStart(false)
If NOT PrevProc then
Do
If NOT thisTC.isEndOfParagraph then
thisTC.gotoEndOfParagraph(true) : cnt = cnt +1
If Len(thisTC.String) > ParaLen then ParaLen = Len(thisTC.String)
EndIf
Loop While thisTC.gotoNextParagraph(false) and cnt < 50
Else Do 'Get max length of 1st 50 paragraphs which is probably the
If NOT thisVC.isAtEndOfLine then 'original right margin.
thisVC.gotoEndOfLine(true) : cnt = cnt + 1
If (Len(thisVC.String) > ParaLen) then ParaLen = Len(thisVC.String)
EndIF
Loop While thisVC.goRight(1,false) and cnt < 50
EndIF
ShortPara = ParaLen - ShortDef 'An arbitary guess of paragraph lengths for
If ASPL OR ProcSel then 'titles, lists, etc.
a$ = "You can adjust the short paragraph length, currently set at " & ShortPara
b$ = ". This is " & ShortDef & " characters short of the estimated right margin of "
c$ = "the original document based on a sampling of up to 50 lines. 'Cancel' will "
c$ = c$ & "end the program."
RunTime = RunTime + (Timer - lTime)
ShortPara = InputBox(a$ & b$ & c$,"ADJUST SHORT PARAGRAPH LENGTH?",ShortPara)
lTime = Timer : If ShortPara = "" then End
ShortPara = Cint(ShortPara): If ShortPara < 1 then ShortPara = 1
EndIf
EndIf
End Sub
Sub AskIndents()
a$ = "0 - Remove nothing." & Chr(13) &"1 - Remove spaced indents." & Chr(13)
a$ = a$ & "2 - Remove tabbed indents. 3 - Both, or click Cancel to quit."
Query: RunTime = RunTime + (Timer - lTime)
sAns = InputBox(a$,"Fix offset paragraphs? (0, 1, 2, 3 or Cancel to quit.)","0")
lTime = Timer : If sAns = "" then End
If instr("0123",sAns) = 0 then goto Query
StripIndents = sAns
If Cint(StripIndents) > 0 AND KeepShortParagraphs then AskOffset()
End Sub
Sub AskOffset()
a$ = "If you want to convert an offset paragraph(s) to a normal one then the program "
a$ = a$ & "will not keep short paragraphs." & Chr(13) & "Is this what you want to do?"
Runtime = Runtime + (Timer - lTime)
iAns = MsgBox(a$,4,"Convert offset paragraphs?") : lTime = Timer
If iAns = 6 then KeepShortParagraphs = false
End Sub
Sub ProcessOver60K(FandR,thisVC,thisDoc,dispatcher,MarkSel,PageBite)
'View cursor to entire selection range.
thisVC.gotoRange(MarkSel.Start,false) : thisVC.gotoRange(MarkSel.End,True)
LastPage = thisVC.getPage 'Get last page of selection.
oSelTC = thisDoc.Text.CreateTextCursorByRange(thisVC.Start)
thisVC.collapseToStart : GetSel = thisVC.getPage : PageBite = PageBite - 1
Do
GetSel = GetSel + PageBite 'Get PageBite pages at a time
If GetSel < LastPage then
thisVC.jumpToPage(GetSel)'Only the view cursor can jump.
oSelTC.gotoRange(thisVC,true)
If Not oSelTC.isEndOfParagraph then
Do 'Make sure the selection ends at a blank paragraph
oSelTC.gotoNextParagraph(true)
Loop Until oSelTC.isEndOfParagraph
EndIF
Else LastSection = true : thisVC.gotoRange(MarkSel.End,false)
oSelTC.gotoRange(thisVC,true)
EndIf
thisVC.gotoRange(oSelTC,true)'Only the view cursor can capture text to copy it.
CopyOrCutIt(thisFrame,"Copy",dispatcher)
PasteIt(thatFrame,dispatcher)
RunMainRoutines(FandR)
oVC.gotoStart(false): oVC.gotoEnd(true)'Get entire selection.
CopyOrCutIt(thatFrame,"Cut",dispatcher) : PasteIt(thisFrame,dispatcher)
oSelTC.collapseToEnd
Loop While NOT LastSection
oDoc.dispose(true) : LastSection = false
End Sub
Sub RunMainRoutines(FandR)
CleanUp(FandR)
StripParagraphBreaks(FandR,StripIndents)
End Sub
Sub ForcedLeftMargin(thisTC,FandR)'Delete a forced left margin appearing
thisTC.gotoStart(false) : thisTC.gotoEndOfParagraph(true)'in some OCRed text files.
Margin$ = String(Len(thisTC.String)," ")
If Len(Margin$) > 0 then
FandR.setSearchString("^" & Margin$)
Find = oDoc.findFirst(FandR)
Do While Not IsNull(Find)'Can't use "replaceAll" because
Find.String = ""'multiple a$s in one line will be deleted.
If Find.gotoNextParagraph(false) then
Find = oDoc.findNext(Find.End,FandR)
Else Exit Do
EndIf
Loop
EndIf
End Sub
Sub CleanUp(FandR)
FandR.setSearchString("\n") 'Just in case line breaks got into the doc change
FandR.setReplaceString("\n") 'them to paragraph breaks. This will also help with
oDoc.replaceAll(FandR) 'some text copied & pasted from the web.
FandR.setSearchString(" *$") 'Delete all spaces before paragraph breaks. A must!
FandR.setReplaceString("")
oDoc.replaceAll(FandR)
End Sub
Sub StripParagraphBreaks(FandR,StripIndents)
oTC = oDoc.Text.createTextCursor
oText = oDoc.getText() : s$ = Chr(32) & Chr(9)
Const KM = "�"
If KeepShortParagraphs then
If NOT PrevProc then
FandR.setSearchString(".{" & ShortPara+1 & "}$") 'Find long paragraphs
Else
Do
oTC.gotoEndOfParagraph(false) : oVC.gotoRange(oTC,false)
oVC.gotoStartOfLine(true)
If Len(oVC.String) > ShortPara then oVC.String = oVC.String & KM
Loop While oTC.gotoNextParagraph(false)
EndIf
Else FandR.setSearchString(".*$") 'or find all non-blank ones
EndIf 'and mark them (at rear).
FandR.setReplaceString("&" & KM)
oDoc.replaceAll(FandR)
FandR.setSearchString("^ *") 'How to handle spaced indents.
If StripIndents = "0" or StripIndents = "2" then
FandR.setReplaceString(KM & "&") 'Mark them (at front).
Else FandR.setReplaceString("") 'Strip them.
EndIf
oDoc.replaceAll(FandR)
FandR.setSearchString("^\t*") 'How to handle tabbed indents.
If StripIndents = "0" or StripIndents = "1" then
FandR.setReplaceString(KM & "&") 'Mark them.
Else FandR.setReplaceString("") 'Strip them.
EndIf
oDoc.replaceAll(FandR)
If LastSection then 'Make sure correct "ending" paragraph is marked,
oTC.gotoEnd(false) 'otherwise para breaks may be added or stripped.
If NOT oTC.isStartOfParagraph then 'If last para has text then
oTC.goLeft(1,true) 'make sure it's not marked.
If oTC.String = KM then oTC.String = ""
EndIf
EndIF
oTC.gotoStart(false)
Do 'Find marked paragraph breaks and replace with a space.
Do While NOT oTC.isEndOfParagraph
oTC.gotoEndOfParagraph(true)
If Right(oTC.String,1) = KM then
oTC.collapseToEnd : oTC.goRight(1,true)
oTC.String = " " : oTC.CollapseToEnd
EndIf
Loop
Loop While oTC.gotoNextParagraph(false)
FandR.setSearchString(" " & KM & " *") 'Find space followed by marker and any
FandR.setReplaceString("\n&") 'trailing spaces which may now be in mid paragraph.
oDoc.replaceAll(FandR) 'Insert break and keep found stuff.
FandR.setSearchString("^ *" & KM) 'Find 0 or more spaces followed by marker at
FandR.setReplaceString("") 'beginning of paragraph and delete found stuff.
oDoc.replaceAll(FandR)
FandR.setSearchString(" $") 'Replace paragraph ending spaces with a break.
FandR.setReplaceString("\n")
oDoc.replaceAll(FandR)
oDoc.replaceAll(FandR)
FandR.setSearchString(KM) 'Delete remaining markers.
FandR.setReplaceString("")
oDoc.replaceAll(FandR)
FandR.setSearchString("- ") 'Hyphens found at the right margin are now
If StripHyphens then 'hyphens followed by a space. What should be done?
FandR.setReplaceString("") 'Delete all and join the word "parts". Default
Else FandR.setReplaceString("-") 'Delete the space but keep the hyphen.
EndIf
oDoc.replaceAll(FandR)
End Sub
Sub AskRunOptions(AskViewOptions,Show1stOptionSet,Show2ndOptionSet,FandR)
If NOT AskViewOptions AND NOT ProcSel then Goto Continue
a$ = Chr(13) & "Would you like to see the additional options?" & Chr(13)
Runtime = Runtime + (Timer - lTime)
iAns = MsgBox (a$,4,"MAIN FILE PROCESSING FINISHED") : lTime = Timer
If iAns = 6 then
GoToOptions = true
Else GotoOptions = false
EndIf
CONTINUE:
If GoToOptions then
EndIt = FirstOptions(Show1stOptionSet,Show2ndOptionSet,FandR)
If EndIt then Exit Sub
SecondOptions(Show2ndOptionSet,FandR)
EndIf
End Sub
Sub RunOptions(Show1stOptionSet,Show2ndOptionSet,FandR)
EndIt = FirstOptions(Show1stOptionSet,Show2ndOptionSet,FandR)
If EndIt then Exit Sub
SecondOptions(Show2ndOptionSet,FandR)
End Sub
Function FirstOptions(Show1stOptionSet,Show2ndOptionSet,FandR)
If NOT Show1stOptionSet AND NOT O1_1 AND NOT O1_2 AND NOT ProcSel then Exit Function
If NOT Show1stOptionSet AND NOT ProcSel then goto Silent1
a$ = "1. Indent all paragraphs." : b$ = Chr(13) & "2. Reduce paragraph spacing."
c$ = Chr(13) & "3. Continue to other options. 'Cancel' will end the program."
d$ = "FIRST OPTION SET - Chose by number (1, 2 or 3) or 'Cancel' to end program."
ASK: RunTime = RunTime + (Timer - lTime)
sAns = InputBox (a$ & b$ & c$,d$,"3") : lTime = Timer
Select Case sAns
Case "1" : Indent(FandR) : a$ = a$ & " COMPLETED!"
Case "2" : ReduceParaSpacing() : b$ = b$ & " COMPLETED!"
Case "3" : Exit Function
Case "" : FirstOptions() = true : Exit Function
Case Else : Goto ASK
End Select
Goto ASK
SILENT1:
If O1_1 then Indent(FandR)
If O1_2 then ReduceParaSpacing()
End Function
Sub Indent(FandR)
FandR.setSearchString("^[!-" & Chr(255) & "]"'Find paragraphs not starting with space
FandR.setReplaceString("\t&") ' or tab. Insert tab & keep what was found.
oDoc.replaceAll(FandR)
End Sub
Sub ReduceParaSpacing()
If NOT AskMaxParaSpacing AND NOT ProcSel then ParaSpacing = O1_2_1 : goto Continue
a$ = "Enter the maximum number of blank lines you want between paragraphs."
b$ = Chr(13) & "Zero is a valid entry. 'Cancel' will quit this routine."
ASK: RunTime = RunTime + (Timer - lTime)
ParaSpacing = InputBox (a$ & b$,"ALLOW HOW MANY?",1) : lTime = Timer
If ParaSpacing = "" then Exit Sub
If NOT IsNumeric(ParaSpacing) then goto Ask
ParaSpacing = Cint(ParaSpacing)
CONTINUE: oTC = oDoc.getText().createTextCursor()
oTC.goToStart(false) : bOK = true 'bOK will test for the end of the file.
While oTC.isEndOfParagraph = true and bOK = true 'Skip spacing at top.
bOK = oTC.goRight(1,false)'This will move to the next paragraph from a blank paragraph.
Wend
bOK = true
Do 'Starting at the beginning of a paragraph.
cnt = 0
While oTC.isEndOfParagraph() and bOK 'Is it also the end of a paragraph, i.e,
cnt = cnt + 1 'Count blank paragraphs. 'a blank paragraph?
If (cnt > ParaSpacing) then
oTC.goLeft(1,true) : oTC.String = "" 'Select it and delete it.
bOK = oTC.goRight(1,false) 'Go right to next paragraph.
Else
bOK = oTC.goRight(1,false) 'Move to next paragraph.
EndIf
Wend
Loop While oTC.goToNextParagraph(false) 'Another end of file check.
End Sub
Sub SecondOptions(Show2ndOptionSet,FandR)
If NOT Show2ndOptionSet AND NOT O2_1 AND NOT O2_2 AND NOT O2_2 AND NOT ProcSel then Exit Sub
If NOT Show2ndOptionSet AND NOT ProcSel then goto Silent2
a$ = "1. Replace spaced indents with tabs."
b$ = Chr(13) & "2. Remove excess interior spaces."
c$ = Chr(13) & "3. Justify text." : d$ = " 4. Run all."
e$ = "SECOND OPTION SET - Chose by number (1, 2, 3 or 4) or 'Cancel' to end program."
ASK: RunTime = RunTime + (Timer - lTime)
sAns = InputBox(a$ & b$ & c$ & d$,e$," ") : lTime = Timer
Select Case sAns
Case "" : Exit Sub
Case "1" : ReplaceSpacesB4LinesWithTab(FandR) : a$ = a$ & " COMPLETED!"
Case "2" : DeleteExcessInteriorSpaces(FandR) : b$ = b$ & " COMPLETED!"
Case "3" : Justify() : c$ = c$ & " COMPLETED!" : jstify = true
Case "4" : ReplaceSpacesB4LinesWithTab(FandR) : jstify = true
DeleteExcessInteriorSpaces(FandR)
Justify() : RunTime = Runtime + (Timer - lTime)
MsgBox "All routines finished." : lTime = Timer : Exit Sub
Case Else : Goto ASK
End Select
GoTo ASK
SILENT2:
If O2_1 then ReplaceSpacesB4LinesWithTab(FandR)
If O2_2 then DeleteExcessInteriorSpaces(FandR)
If O2_3 then Justify()
End Sub
Sub ReplaceSpacesB4LinesWithTab(FandR as Object)
MaxIndent = 10 'Any indent in excess of this will be ignored.
FandR.setSearchString("^ *") 'find any number of spaces at beginning of line
Find = oDoc.findFirst(FandR) 'replace with tab, to replace with nothing use ""
While NOT isNull(Find)
If Len(Find.String) <= MaxIndent then Find.String = Chr(9)
Find = oDoc.findNext(Find.End,FandR)
Wend
End Sub
Sub DeleteExcessInteriorSpaces(FandR as Object)
SM = Chr(165) 'Space marker.
FandR.setSearchString("^ *") 'find any number of spaces at beginning of paragraph
Find = oDoc.findFirst(FandR)
While NOT isNull(Find)
Find.String = String(Len(Find.String),SM) 'replace with placeholders
Find = oDoc.findNext(Find.End,FandR)
Wend
FandR.setSearchString(" *") 'find any number of spaces
FandR.setReplaceString(" ") 'replace with one space
oDoc.ReplaceAll(FandR) 'do it
FandR.setSearchString("^" & SM & "*") 'find any number of placeholders at beginning of line
Find = oDoc.findFirst(FandR) 'turn them back into spaces
While NOT isNull(Find)
Find.String = String(Len(Find.String)," ")
Find = oDoc.findNext(Find.End,FandR)
Wend
End Sub
Sub Justify()
oTC = oDoc.Text.CreateTextCursor()
oTC.gotoEnd(true)
oTC.setPropertyValue("ParaAdjust",2)
End Sub
Sub EndMessage(ShowFinished,MarkIt)
If NOT ShowFinished then Exit Sub
a$ = "Your original document was saved to the Clipboard and can be retrieved from "
b$ = "there if you do not like the macro results. "
RunTime = RunTime + (Timer - lTime)
c$ = "Total processing time was "& RunTime &" Second(s) or "& RunTime/60 &" Minute(s)."
d$ = "If you want to use the normal end of program options run this macro "
d$ = d$ & "again on the file or a selection. "
If MarkIt then
e$ = "A previously processed marker has been inserted as the last file character. "
EndIf
If NOT Over60K then
MsgBox (a$ & b$ & e$ & Chr(13) & c$,0,"FINISHED!")
Else MsgBox (d$ & e$ & Chr(13) & Chr(13) & c$,0,"FINISHED!")
EndIf
End Sub
'Version 2.2 5-6-06
Sub Macro1
End Sub
'Converts ASCII text files, or selected text within them, by stripping out excess
'paragraph breaks. Works with items copied & pasted from the Web that contain line
'breaks such as a message in these forums.
'WARNING - Anything stored on the Clipboard will be overwritten. A copy of your
'original file will not be saved to the Clipboard if a file greater then 60K
'characters or selected text of any size and you are responsible for otherwise
'backing it up. On the other hand, your original file will not be changed unless you
'save the macro results and overwrite the original but this assumes a saved file.
'Sample processing times on a 770 MHz machine in Pages/Seconds format:
' 10/4, 20/7, 40/16, 80/34, 160/81 (1.35 Min.).
'Hint for long documents - TURN OFF AUTO-SPELLCHECKING. This will save time.
'You can control what items the program asks you about and what happens if you choose
'not to be asked about an item by editing the variables below. These variables are
'ignored if you run the macro on selected text so if you customize them and need to
'be asked about items for a particular file then simply select the entire file with
'Ctrl+A before running the macro.
'You should become familiar with how the program works before you attempt to customize
'it. It works differently if the file is less or more than 60K and when processing a
'selection.
'
Sub ASCII_Formatter_StartHere
'VARIABLES YOU CAN CHANGE.
AskShortParagraphs = True 'Show the query about keeping short paragraphs.
'Default answer if AskShortParagraphs is False.
KeepShortParagraphs = True 'HIGHLY recommended and the faster of the two methods. I
'only maintain the other method because it's needed for one option.
'--
AskShortParaLength = True 'Show a chance to adjust the program's estimate of what should
'be considered a short paragraph that will kept.
ShortDef = 20 'The minimum number of characters short of the right margin that a line
'must end to be a short paragraph. The paragraph break at the end of any short paragraph
'will be maintained.
'--
AskViewOptions = True 'Show the query about end of program Options.
'Default, if AskViewOptions is False.
GoToOptions = True 'If True the Option variables below will take control. They will
'also control if AskViewOptions is True and you choose to go to the Options.
'--
'The following values control what Options are displayed following initial file processing:
Show1stOptionSet = True 'Show the first set of Options, which are Indent All Paragraphs
'and Reduce Paragraph Spacing.
'Defaults, if Show1stOptionSet is False.
O1_1 = False 'Indent all paragraphs.
O1_2 = False 'Reduce paragraph spacing.
AskMaxParaSpacing = True 'Ask for the maximum number of blank "lines" between paragraphs.
O1_2_1 = 1 'Default, if AskMaxParaSpacing is False.
Show2ndOptionSet = True 'Options are Remove Excess Interior Spaces, Change Spaced
'Indents to Tabs and Justify All Paragraphs.
'Defaults, if Show2ndOptionset is False.
O2_1 = False 'Remove excess interior spaces.
O2_2 = False 'Change spaced indents to tabs.
O2_3 = False 'Justify text.
'--
'The following control aspects of full file, selection and/or Option processing and
'are not ignored if you process a selection:
ShowBackUpWarning = True 'Show warning that file not copied to Clipboard if over 60K.
ShowFinished = True 'Show the finished message.
PageBite = 10 'Number of pages processed at a time for selected text or a file over 60K
'characters. Seems pretty good but I haven't seriously tried to optimize it.
ViewBegin = True 'The cursor and your view are taken to the beginning of the document
'when macro ends. "False" will leave you at the end.
StripHyphens = True 'Assumes hyphens located at the right margin are editorial and do
'not seperate true hyphenated words like "half-dollar".
CheckForcedLeftMargin = True 'A VERY quick routine if spaces imitating a left margin
'don't exist. Or it will delete such a margin if they do (known to work for my version of
'ScanSoft's OCR software - the 1st line of the file will contain only a series of spaces).
StripIndents = "0" 'This controls what happens during initial file processing. The default
'value is recommended. The default ("0") is to leave all tabbed or spaced paragraph indents,
'"1" will strip spaced indents, "2" will strip tabbed ones and "3" will strip both kinds.
'If you run the macro on selected text and don't choose to go to the Options then you
'will also be asked about this. One use for this is to deal with paragraphs offset, as
'opposed to just 1st line indented, from the left margin. Normal processing will leave
'all "lines" of such paragraphs indented and followed by paragraph breaks. Stripping
'out the indents will convert these to regular paragraphs which can be edited normally
'in Writer. Running the macro on selected text after normal processing is a personal
'favorite of mine because I often scan documents with offsets which I need to edit.
MarkIt = True 'Insert the "MarkWith" character as the last character of the file to
'indicate it has been previouly processed. Allows you to run the macro again and go
'directly to the other Options without wading through the full initial file processing
'again. I do not recommend changing as it controls how the program works on a 2nd run.
MarkWith = Chr(160) 'A nonbreaking space in most fonts, which isn't seen on printing.
Override60K = False 'Setting this to True may significantly slow runtime on large files
'or selections but no seperate processing document will be used if you don't like this.
'.....................................................................................
'DO NOT EDIT BELOW HERE UNLESS YOU KNOW WHAT YOU ARE DOING.
lTime = Timer : RunTime = 0 : Skip = false : Over60K = false : ProcSel = false
PrevProc = false : IsSelect = false : ASPL = AskShortParaLength : LastSection = False
thisDoc = thisComponent : oDoc = thisDoc 'oDoc may change.
thisVC = thisDoc.CurrentController.getViewCursor : oVC = thisVC 'oVC may change.
thisText = thisDoc.Text
MarkSel = thisDoc.Text.createTextCursorByRange(thisVC)'Mark any selection.
thisFrame = thisDoc.CurrentController.getFrame()
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
FandR = thisDoc.createReplaceDescriptor() 'Find & Replace initial set up.
FandR.searchRegularExpression = true 'Use regular expressions.
If NOT thisVC.isCollapsed then IsSelect = true
If IsSelect then
a$ = "Process selected text only?"& Chr(13) & Chr(13) &"Cancel to Quit."
RunTime = RunTime + (Timer - lTime)
iAns = MsgBox(a$,3,"Text in this file has been selected.")
lTime = Timer : If iAns = 2 then End
If iAns = 6 then ProcSel = true
EndIf
If ProcSel then 'Tests for over 60K.
If Len(MarkSel.String) > 60000 OR Len(MarkSel.String) = 0 then Over60K = true
ELSEIf thisDoc.characterCount > 60000 then Over60K = true
EndIF
If Override60K then Over60K = false
If NOT Over60K then LastSection = true
If Over60K AND NOT ProcSel then MarkSel.gotoStart(false) : MarkSel.gotoEnd(true)
thisTC = thisDoc.Text.createTextCursor : thisTC.gotoEnd(false)
thisTC.goLeft(1,true) 'Get the last character. If a binding space
'then file was previously processed. Process or go to Options?
IF thisTC.String = MarkWith then 'Was file previouly processed?
PrevProc = True 'Previously processed.
Skip = SkipToOptions(Show1stOptionSet,Show2ndOptionSet)
EndIf
'++++++++++++++++++++++++++ All basic information gathered, now control program flow.
Select Case Skip
Case True 'Go directly to the options.
Select Case ProcSel 'Do we need to deal with selected text?
Case False : BackUp(thisFrame,dispatcher)
RunOptions(Show1stOptionSet,Show2ndOptionSet,FandR)
Case True : NoBackUpWarning(ShowBackUpWarning)
SetUpSelection(thisFrame,thatFrame,"Copy",dispatcher,MarkSel,IsSelect,Skip)
RunOptions(Show1stOptionSet,Show2ndOptionSet,FandR)
FinishSelection(thatFrame,MarkSel,FandR,dispatcher,MarkSel,thisVC)
End Select
Case False 'Going to do the regular file processing.
Select Case ProcSel 'Do we need to deal selected text?
Case True : NoBackUpWarning(ShowBackUpWarning)
AskShortParas(AskShortParagraphs,ShortDef,thisTC,ASPL)
AskIndents() : If CheckForcedLeftMargin then ForcedLeftMargin(thisTC,FandR)
SetUpSelection(thisFrame,thatFrame,"Copy",dispatcher,MarkSel,IsSelect,Skip)
If Over60K then
ProcessOver60K(FandR,thisVC,thisDoc,dispatcher,MarkSel,PageBite)
Else RunMainRoutines(FandR)
FinishSelection(thatFrame,MarkSel,FandR,dispatcher,MarkSel,thisVC)
EndIf
oDoc = thisDoc
AskRunOptions(AskViewOptions,Show1stOptionSet,Show2ndOptionSet,FandR)
Case False 'Normally this would be the 1st time entire file is processed.
'Won't ask about indents because most users won't care.
IF Over60K then NoBackUpWarning(ShowBackUpWarning)
If NOT Over60K then BackUp(thisFrame,dispatcher)
AskShortParas(AskShortParagraphs,ShortDef,thisTC,ASPL)
If CheckForcedLeftMargin then ForcedLeftMargin(thisTC,FandR)
If Over60K then
SetUpSelection(thisFrame,thatFrame,"Copy",dispatcher,MarkSel,IsSelect,Skip)
ProcessOver60K(FandR,thisVC,thisDoc,dispatcher,MarkSel,PageBite)
oDoc = thisDoc
Else
RunMainRoutines(FandR)
EndIf
AskRunOptions(AskViewOptions,Show1stOptionSet,Show2ndOptionSet,FandR)
End Select
End Select
'++++++++++++++++++++++++++++++
thisVC.gotoEnd(False)
If NOT PrevProc then
thisText.insertString(thisVC,MarkWith,False)
EndIf
EndMessage(ShowFinished,MarkIt)
If ViewBegin then thisVC.gotoStart(false)
End Sub
Private lTime, KeepShortParagraphs, oVC, StripHyphens, LastSection
Private oDoc, RunTime, Over60K, thisFrame, thatFrame, thisVC, PrevProc
Private StripIndents, jstify, dispatcher, ShortPara, ProcSel
Private O1_1, O1_2, O1_2_1 ,O2_1, O2_2, O2_3, AskMaxParaSpacing, GoToOptions
Function SkipToOptions(Show1stOptionSet,Show2ndOptionSet)
a$ = "Do you want to skip directly to the end of program Options?"
b$ = Chr(13) & "Cancel to quit." : RunTime = RunTime + (Timer - lTime)
iAns = MsgBox(a$ & b$,3,"This file has been previously processed.")
lTime = Timer : If iAns = 2 then End
If iAns = 7 then
SkipToOptions() = false
Else Show1stOptionSet = true : Show2ndOptionSet = true : SkipToOptions() = true
EndIf
End Function
Sub CopyOrCutIt(whichFrame,doWhich,dispatcher)
dispatcher.executeDispatch(whichFrame,".uno:" & doWhich,"",0,Array())
End Sub
Sub PasteIt(whichFrame,dispatcher)
dispatcher.executeDispatch(whichFrame,".uno:Paste","",0,Array())
End Sub
Sub BackUp(thisFrame,dispatcher) 'Back up file to clipboard.
dispatcher.executeDispatch(thisFrame,".uno:SelectAll","",0,Array())
CopyOrCutIt(thisFrame,"Copy",dispatcher)
End Sub
Sub NoBackupWarning(ShowBackUpWarning)
If NOT ShowBackUpWarning then Exit Sub
a$ = "Because you are processing selected text or the file contains more than 60K "
a$ = a$ & "characters no backup copy of your file will be stored to the clipboard!"
a$ = a$ & " Optional > Auto-spellcheck should be off." & Chr(13)
b$= "DO YOU HAVE THIS FILE BACKED UP? ('Yes' will continue - 'No' will abort.)"
c$ = String(15," ") & "NO BACKUP!" : RunTime = RunTime + (Timer - lTime)
iAns = MsgBox (a$ & b$,308,c$ & c$ & c$) : lTime = Timer
If iAns = 7 then End
End Sub
Sub SetUpSelection(thisFrame,thatFrame,doWhat,dispatcher,MarkSel,IsSelect,Skip)
oDoc = StarDesktop.loadComponentFromURL("private:factory/swriter","_blank",0,Array())
thatFrame = oDoc.CurrentController.Frame 'Get new doc frame.
oVC = oDoc.CurrentController.getViewCursor 'Set oVC to new doc.
If NOT Over60K OR Skip then
thisVC.gotoRange(MarkSel.Start,false) : thisVC.gotoRange(MarkSel.End,true)
CopyOrCutIt(thisFrame,"Copy", dispatcher) 'Then fill it
PasteIt(thatFrame,dispatcher) 'with the selection.
BackUp(thisFrame,dispatcher) 'If not big selection or are doing Options
EndIf 'then backup file to clipboard.
End Sub
Sub FinishSelection(thatFrame,MarkSel,FandR,dispatcher,MarkSel,thisVC)
dispatcher.executeDispatch(thatFrame,".uno:SelectAll","",0,Array())
CopyOrCutIt(thatFrame,"Cut",dispatcher)
thisVC.gotoRange(MarkSel.Start,false)
thisVC.gotoRange(MarkSel.End,true)
PasteIt(thisFrame,dispatcher)
oDoc.dispose : If jstify then thisVC.setPropertyValue("ParaAdjust",2)
End Sub
Sub AskShortParas(AskShortParagraphs,ShortDef,thisTC,ASPL)
thisTC.gotoStart(false)
While thisTC.isEndOfParagraph() 'Delete empty paragraphs at top of doc.
thisTC.goRight(1,true) : thisTC.String = ""
Wend
If NOT AskShortParagraphs AND NOT KeepShortParagraphs AND NOT ProcSel then Exit Sub
If NOT AskShortParagraphs AND NOT ProcSel then iAns = 6 : goto Continue
a$ = "Generally highly recommended. This saves the formatting of lists,"
b$ = " tables of contents," & Chr(13) & "indexes, etc. that are not indented."
c$ = " This is also the fastest method."
d$ = "KEEP SHORT PARAGRAPHS?"
RunTime = RunTime + (Timer - lTime)
iAns = Msgbox (a$ & b$ & c$,3,d$) : lTime = Timer
If iAns = 2 then End
If iAns = 7 then KeepShortParagraphs = false
CONTINUE:
If iAns = 6 then
KeepShortParaGraphs = true : thisVC.gotoStart(false) : thisTC.gotoStart(false)
If NOT PrevProc then
Do
If NOT thisTC.isEndOfParagraph then
thisTC.gotoEndOfParagraph(true) : cnt = cnt +1
If Len(thisTC.String) > ParaLen then ParaLen = Len(thisTC.String)
EndIf
Loop While thisTC.gotoNextParagraph(false) and cnt < 50
Else Do 'Get max length of 1st 50 paragraphs which is probably the
If NOT thisVC.isAtEndOfLine then 'original right margin.
thisVC.gotoEndOfLine(true) : cnt = cnt + 1
If (Len(thisVC.String) > ParaLen) then ParaLen = Len(thisVC.String)
EndIF
Loop While thisVC.goRight(1,false) and cnt < 50
EndIF
ShortPara = ParaLen - ShortDef 'An arbitary guess of paragraph lengths for
If ASPL OR ProcSel then 'titles, lists, etc.
a$ = "You can adjust the short paragraph length, currently set at " & ShortPara
b$ = ". This is " & ShortDef & " characters short of the estimated right margin of "
c$ = "the original document based on a sampling of up to 50 lines. 'Cancel' will "
c$ = c$ & "end the program."
RunTime = RunTime + (Timer - lTime)
ShortPara = InputBox(a$ & b$ & c$,"ADJUST SHORT PARAGRAPH LENGTH?",ShortPara)
lTime = Timer : If ShortPara = "" then End
ShortPara = Cint(ShortPara): If ShortPara < 1 then ShortPara = 1
EndIf
EndIf
End Sub
Sub AskIndents()
a$ = "0 - Remove nothing." & Chr(13) &"1 - Remove spaced indents." & Chr(13)
a$ = a$ & "2 - Remove tabbed indents. 3 - Both, or click Cancel to quit."
Query: RunTime = RunTime + (Timer - lTime)
sAns = InputBox(a$,"Fix offset paragraphs? (0, 1, 2, 3 or Cancel to quit.)","0")
lTime = Timer : If sAns = "" then End
If instr("0123",sAns) = 0 then goto Query
StripIndents = sAns
If Cint(StripIndents) > 0 AND KeepShortParagraphs then AskOffset()
End Sub
Sub AskOffset()
a$ = "If you want to convert an offset paragraph(s) to a normal one then the program "
a$ = a$ & "will not keep short paragraphs." & Chr(13) & "Is this what you want to do?"
Runtime = Runtime + (Timer - lTime)
iAns = MsgBox(a$,4,"Convert offset paragraphs?") : lTime = Timer
If iAns = 6 then KeepShortParagraphs = false
End Sub
Sub ProcessOver60K(FandR,thisVC,thisDoc,dispatcher,MarkSel,PageBite)
'View cursor to entire selection range.
thisVC.gotoRange(MarkSel.Start,false) : thisVC.gotoRange(MarkSel.End,True)
LastPage = thisVC.getPage 'Get last page of selection.
oSelTC = thisDoc.Text.CreateTextCursorByRange(thisVC.Start)
thisVC.collapseToStart : GetSel = thisVC.getPage : PageBite = PageBite - 1
Do
GetSel = GetSel + PageBite 'Get PageBite pages at a time
If GetSel < LastPage then
thisVC.jumpToPage(GetSel)'Only the view cursor can jump.
oSelTC.gotoRange(thisVC,true)
If Not oSelTC.isEndOfParagraph then
Do 'Make sure the selection ends at a blank paragraph
oSelTC.gotoNextParagraph(true)
Loop Until oSelTC.isEndOfParagraph
EndIF
Else LastSection = true : thisVC.gotoRange(MarkSel.End,false)
oSelTC.gotoRange(thisVC,true)
EndIf
thisVC.gotoRange(oSelTC,true)'Only the view cursor can capture text to copy it.
CopyOrCutIt(thisFrame,"Copy",dispatcher)
PasteIt(thatFrame,dispatcher)
RunMainRoutines(FandR)
oVC.gotoStart(false): oVC.gotoEnd(true)'Get entire selection.
CopyOrCutIt(thatFrame,"Cut",dispatcher) : PasteIt(thisFrame,dispatcher)
oSelTC.collapseToEnd
Loop While NOT LastSection
oDoc.dispose(true) : LastSection = false
End Sub
Sub RunMainRoutines(FandR)
CleanUp(FandR)
StripParagraphBreaks(FandR,StripIndents)
End Sub
Sub ForcedLeftMargin(thisTC,FandR)'Delete a forced left margin appearing
thisTC.gotoStart(false) : thisTC.gotoEndOfParagraph(true)'in some OCRed text files.
Margin$ = String(Len(thisTC.String)," ")
If Len(Margin$) > 0 then
FandR.setSearchString("^" & Margin$)
Find = oDoc.findFirst(FandR)
Do While Not IsNull(Find)'Can't use "replaceAll" because
Find.String = ""'multiple a$s in one line will be deleted.
If Find.gotoNextParagraph(false) then
Find = oDoc.findNext(Find.End,FandR)
Else Exit Do
EndIf
Loop
EndIf
End Sub
Sub CleanUp(FandR)
FandR.setSearchString("\n") 'Just in case line breaks got into the doc change
FandR.setReplaceString("\n") 'them to paragraph breaks. This will also help with
oDoc.replaceAll(FandR) 'some text copied & pasted from the web.
FandR.setSearchString(" *$") 'Delete all spaces before paragraph breaks. A must!
FandR.setReplaceString("")
oDoc.replaceAll(FandR)
End Sub
Sub StripParagraphBreaks(FandR,StripIndents)
oTC = oDoc.Text.createTextCursor
oText = oDoc.getText() : s$ = Chr(32) & Chr(9)
Const KM = "�"
If KeepShortParagraphs then
If NOT PrevProc then
FandR.setSearchString(".{" & ShortPara+1 & "}$") 'Find long paragraphs
Else
Do
oTC.gotoEndOfParagraph(false) : oVC.gotoRange(oTC,false)
oVC.gotoStartOfLine(true)
If Len(oVC.String) > ShortPara then oVC.String = oVC.String & KM
Loop While oTC.gotoNextParagraph(false)
EndIf
Else FandR.setSearchString(".*$") 'or find all non-blank ones
EndIf 'and mark them (at rear).
FandR.setReplaceString("&" & KM)
oDoc.replaceAll(FandR)
FandR.setSearchString("^ *") 'How to handle spaced indents.
If StripIndents = "0" or StripIndents = "2" then
FandR.setReplaceString(KM & "&") 'Mark them (at front).
Else FandR.setReplaceString("") 'Strip them.
EndIf
oDoc.replaceAll(FandR)
FandR.setSearchString("^\t*") 'How to handle tabbed indents.
If StripIndents = "0" or StripIndents = "1" then
FandR.setReplaceString(KM & "&") 'Mark them.
Else FandR.setReplaceString("") 'Strip them.
EndIf
oDoc.replaceAll(FandR)
If LastSection then 'Make sure correct "ending" paragraph is marked,
oTC.gotoEnd(false) 'otherwise para breaks may be added or stripped.
If NOT oTC.isStartOfParagraph then 'If last para has text then
oTC.goLeft(1,true) 'make sure it's not marked.
If oTC.String = KM then oTC.String = ""
EndIf
EndIF
oTC.gotoStart(false)
Do 'Find marked paragraph breaks and replace with a space.
Do While NOT oTC.isEndOfParagraph
oTC.gotoEndOfParagraph(true)
If Right(oTC.String,1) = KM then
oTC.collapseToEnd : oTC.goRight(1,true)
oTC.String = " " : oTC.CollapseToEnd
EndIf
Loop
Loop While oTC.gotoNextParagraph(false)
FandR.setSearchString(" " & KM & " *") 'Find space followed by marker and any
FandR.setReplaceString("\n&") 'trailing spaces which may now be in mid paragraph.
oDoc.replaceAll(FandR) 'Insert break and keep found stuff.
FandR.setSearchString("^ *" & KM) 'Find 0 or more spaces followed by marker at
FandR.setReplaceString("") 'beginning of paragraph and delete found stuff.
oDoc.replaceAll(FandR)
FandR.setSearchString(" $") 'Replace paragraph ending spaces with a break.
FandR.setReplaceString("\n")
oDoc.replaceAll(FandR)
oDoc.replaceAll(FandR)
FandR.setSearchString(KM) 'Delete remaining markers.
FandR.setReplaceString("")
oDoc.replaceAll(FandR)
FandR.setSearchString("- ") 'Hyphens found at the right margin are now
If StripHyphens then 'hyphens followed by a space. What should be done?
FandR.setReplaceString("") 'Delete all and join the word "parts". Default
Else FandR.setReplaceString("-") 'Delete the space but keep the hyphen.
EndIf
oDoc.replaceAll(FandR)
End Sub
Sub AskRunOptions(AskViewOptions,Show1stOptionSet,Show2ndOptionSet,FandR)
If NOT AskViewOptions AND NOT ProcSel then Goto Continue
a$ = Chr(13) & "Would you like to see the additional options?" & Chr(13)
Runtime = Runtime + (Timer - lTime)
iAns = MsgBox (a$,4,"MAIN FILE PROCESSING FINISHED") : lTime = Timer
If iAns = 6 then
GoToOptions = true
Else GotoOptions = false
EndIf
CONTINUE:
If GoToOptions then
EndIt = FirstOptions(Show1stOptionSet,Show2ndOptionSet,FandR)
If EndIt then Exit Sub
SecondOptions(Show2ndOptionSet,FandR)
EndIf
End Sub
Sub RunOptions(Show1stOptionSet,Show2ndOptionSet,FandR)
EndIt = FirstOptions(Show1stOptionSet,Show2ndOptionSet,FandR)
If EndIt then Exit Sub
SecondOptions(Show2ndOptionSet,FandR)
End Sub
Function FirstOptions(Show1stOptionSet,Show2ndOptionSet,FandR)
If NOT Show1stOptionSet AND NOT O1_1 AND NOT O1_2 AND NOT ProcSel then Exit Function
If NOT Show1stOptionSet AND NOT ProcSel then goto Silent1
a$ = "1. Indent all paragraphs." : b$ = Chr(13) & "2. Reduce paragraph spacing."
c$ = Chr(13) & "3. Continue to other options. 'Cancel' will end the program."
d$ = "FIRST OPTION SET - Chose by number (1, 2 or 3) or 'Cancel' to end program."
ASK: RunTime = RunTime + (Timer - lTime)
sAns = InputBox (a$ & b$ & c$,d$,"3") : lTime = Timer
Select Case sAns
Case "1" : Indent(FandR) : a$ = a$ & " COMPLETED!"
Case "2" : ReduceParaSpacing() : b$ = b$ & " COMPLETED!"
Case "3" : Exit Function
Case "" : FirstOptions() = true : Exit Function
Case Else : Goto ASK
End Select
Goto ASK
SILENT1:
If O1_1 then Indent(FandR)
If O1_2 then ReduceParaSpacing()
End Function
Sub Indent(FandR)
FandR.setSearchString("^[!-" & Chr(255) & "]"'Find paragraphs not starting with space
FandR.setReplaceString("\t&") ' or tab. Insert tab & keep what was found.
oDoc.replaceAll(FandR)
End Sub
Sub ReduceParaSpacing()
If NOT AskMaxParaSpacing AND NOT ProcSel then ParaSpacing = O1_2_1 : goto Continue
a$ = "Enter the maximum number of blank lines you want between paragraphs."
b$ = Chr(13) & "Zero is a valid entry. 'Cancel' will quit this routine."
ASK: RunTime = RunTime + (Timer - lTime)
ParaSpacing = InputBox (a$ & b$,"ALLOW HOW MANY?",1) : lTime = Timer
If ParaSpacing = "" then Exit Sub
If NOT IsNumeric(ParaSpacing) then goto Ask
ParaSpacing = Cint(ParaSpacing)
CONTINUE: oTC = oDoc.getText().createTextCursor()
oTC.goToStart(false) : bOK = true 'bOK will test for the end of the file.
While oTC.isEndOfParagraph = true and bOK = true 'Skip spacing at top.
bOK = oTC.goRight(1,false)'This will move to the next paragraph from a blank paragraph.
Wend
bOK = true
Do 'Starting at the beginning of a paragraph.
cnt = 0
While oTC.isEndOfParagraph() and bOK 'Is it also the end of a paragraph, i.e,
cnt = cnt + 1 'Count blank paragraphs. 'a blank paragraph?
If (cnt > ParaSpacing) then
oTC.goLeft(1,true) : oTC.String = "" 'Select it and delete it.
bOK = oTC.goRight(1,false) 'Go right to next paragraph.
Else
bOK = oTC.goRight(1,false) 'Move to next paragraph.
EndIf
Wend
Loop While oTC.goToNextParagraph(false) 'Another end of file check.
End Sub
Sub SecondOptions(Show2ndOptionSet,FandR)
If NOT Show2ndOptionSet AND NOT O2_1 AND NOT O2_2 AND NOT O2_2 AND NOT ProcSel then Exit Sub
If NOT Show2ndOptionSet AND NOT ProcSel then goto Silent2
a$ = "1. Replace spaced indents with tabs."
b$ = Chr(13) & "2. Remove excess interior spaces."
c$ = Chr(13) & "3. Justify text." : d$ = " 4. Run all."
e$ = "SECOND OPTION SET - Chose by number (1, 2, 3 or 4) or 'Cancel' to end program."
ASK: RunTime = RunTime + (Timer - lTime)
sAns = InputBox(a$ & b$ & c$ & d$,e$," ") : lTime = Timer
Select Case sAns
Case "" : Exit Sub
Case "1" : ReplaceSpacesB4LinesWithTab(FandR) : a$ = a$ & " COMPLETED!"
Case "2" : DeleteExcessInteriorSpaces(FandR) : b$ = b$ & " COMPLETED!"
Case "3" : Justify() : c$ = c$ & " COMPLETED!" : jstify = true
Case "4" : ReplaceSpacesB4LinesWithTab(FandR) : jstify = true
DeleteExcessInteriorSpaces(FandR)
Justify() : RunTime = Runtime + (Timer - lTime)
MsgBox "All routines finished." : lTime = Timer : Exit Sub
Case Else : Goto ASK
End Select
GoTo ASK
SILENT2:
If O2_1 then ReplaceSpacesB4LinesWithTab(FandR)
If O2_2 then DeleteExcessInteriorSpaces(FandR)
If O2_3 then Justify()
End Sub
Sub ReplaceSpacesB4LinesWithTab(FandR as Object)
MaxIndent = 10 'Any indent in excess of this will be ignored.
FandR.setSearchString("^ *") 'find any number of spaces at beginning of line
Find = oDoc.findFirst(FandR) 'replace with tab, to replace with nothing use ""
While NOT isNull(Find)
If Len(Find.String) <= MaxIndent then Find.String = Chr(9)
Find = oDoc.findNext(Find.End,FandR)
Wend
End Sub
Sub DeleteExcessInteriorSpaces(FandR as Object)
SM = Chr(165) 'Space marker.
FandR.setSearchString("^ *") 'find any number of spaces at beginning of paragraph
Find = oDoc.findFirst(FandR)
While NOT isNull(Find)
Find.String = String(Len(Find.String),SM) 'replace with placeholders
Find = oDoc.findNext(Find.End,FandR)
Wend
FandR.setSearchString(" *") 'find any number of spaces
FandR.setReplaceString(" ") 'replace with one space
oDoc.ReplaceAll(FandR) 'do it
FandR.setSearchString("^" & SM & "*") 'find any number of placeholders at beginning of line
Find = oDoc.findFirst(FandR) 'turn them back into spaces
While NOT isNull(Find)
Find.String = String(Len(Find.String)," ")
Find = oDoc.findNext(Find.End,FandR)
Wend
End Sub
Sub Justify()
oTC = oDoc.Text.CreateTextCursor()
oTC.gotoEnd(true)
oTC.setPropertyValue("ParaAdjust",2)
End Sub
Sub EndMessage(ShowFinished,MarkIt)
If NOT ShowFinished then Exit Sub
a$ = "Your original document was saved to the Clipboard and can be retrieved from "
b$ = "there if you do not like the macro results. "
RunTime = RunTime + (Timer - lTime)
c$ = "Total processing time was "& RunTime &" Second(s) or "& RunTime/60 &" Minute(s)."
d$ = "If you want to use the normal end of program options run this macro "
d$ = d$ & "again on the file or a selection. "
If MarkIt then
e$ = "A previously processed marker has been inserted as the last file character. "
EndIf
If NOT Over60K then
MsgBox (a$ & b$ & e$ & Chr(13) & c$,0,"FINISHED!")
Else MsgBox (d$ & e$ & Chr(13) & Chr(13) & c$,0,"FINISHED!")
EndIf
End Sub
'Version 2.2 5-6-06
Sub Macro1
End Sub
Wow dude. That's a lot of info. I couldn't have coded that.
Hauling ass too since you got all 1000 of those faqs so quick. I like your style.
I've just spent a few hours touching up the SEGA SG-1000 artwork. The boxes were pretty beat up, but they look great now. I'm going to go through the Game Gear shortly. Other than that I'm just waiting on dnyce to get me his upgraded NES artwork pack so I can go through those and touch them up and I'm pretty much done with a majority of the boxart touching up I think.
Hauling ass too since you got all 1000 of those faqs so quick. I like your style.
I've just spent a few hours touching up the SEGA SG-1000 artwork. The boxes were pretty beat up, but they look great now. I'm going to go through the Game Gear shortly. Other than that I'm just waiting on dnyce to get me his upgraded NES artwork pack so I can go through those and touch them up and I'm pretty much done with a majority of the boxart touching up I think.
SHOW ME THE GAMEBOY ADVANCE VIDEOS!!!!!!!
QUOTE(madmab @ Jan 3 2010, 08:36 AM)
Great! Nice to see one of my favorite systems (next to the Atari 800, of course) to get some loving!
Edit:....
I need a bigger hard drive.
It's amazing how much this junk is cluttering up my Xbox. Looking for something to remove now..
Something must be broken in the beta because I can't swap disk anymore for any game I try.
For example Lionheart, Lost Vikings, Passengers on the wind. Try this last one and see how the two disks are inserted in the config and the workbench should load and then display the two disks icons on the desktop but now the system always asks for the first disk. If I press cancel, I've got a recoverable alert which probably means hardware failure for an Amiga. This bug happen whatever the system file is, DOS or custom. I suppose it's related to the previous df0:???? bug.
QUOTE(waal @ Jan 3 2010, 08:27 PM)
Something must be broken in the beta because I can't swap disk anymore for any game I try.
For example Lionheart, Lost Vikings, Passengers on the wind. Try this last one and see how the two disks are inserted in the config and the workbench should load and then display the two disks icons on the desktop but now the system always asks for the first disk. If I press cancel, I've got a recoverable alert which probably means hardware failure for an Amiga. This bug happen whatever the system file is, DOS or custom. I suppose it's related to the previous df0:???? bug.
The reason it is happening is because the files within the zip are greater than 42 characters and the first 42 characters of each filename is exactly the same. X-port's code got around this by adding a random directory name for every file it unzipped. I originally removed this because of it's potential to "fill up" the utility drive (drive Z:), thus increasing the chances of the emu locking up if the utility drive got full while using the emulator.
With console based emu's this was not really an issue but when I started converting computer based emu's then it becomes a problem for the above mentioned reason. So once again (
) I just redid the unzip code to revert it back to the old style. So now it works properly. Maybe in the future I'll put in some #define for computer based emu's to activate this feature, thus eliminating the possibility of console based emu's filling up the Z: drive. Usually this is no big deal, but when you get into the console based systems with larger ROMS ( Genesis, SNES, GBA ) then it can be easy to see how the utility drive can be filled up pretty quickly.
I'll send it to you when I get a chance. Unfortunately I had already added in the auto config and preset controller and have not tested it. So I cannot send it just yet...
Man..... MG and other sites have a lot of nerve putting watermarks all over pictures. And they're usually right over a tough spot to fix..... 
Game Gear has been a nightmare with those and the beat up boxes. Fortunately for this system and all the others I've done I've managed to get rid of about 98% of all stickers, watermarks and crummy boxes. Thankfully, nobody is going to have stupid watermarks on their boxes when this is finally done anymore.
I'm about halfway through with Game Gear. It looks like we're in the same boat with that system as we were in with Game Boy and Genesis, in that about half the images are not anywhere near the quality of the standard on newer/more popular systems.
After I get through with that, I'm going to consider moving on with NES even though dnyce hasn't gotten his upgrade pack to me yet. Maybe I'll find something else to take up the time before then, but the NES boxart is pretty important and it's being treated just about last as far as the artwork goes now.
Later,
~Rx
Game Gear has been a nightmare with those and the beat up boxes. Fortunately for this system and all the others I've done I've managed to get rid of about 98% of all stickers, watermarks and crummy boxes. Thankfully, nobody is going to have stupid watermarks on their boxes when this is finally done anymore.
I'm about halfway through with Game Gear. It looks like we're in the same boat with that system as we were in with Game Boy and Genesis, in that about half the images are not anywhere near the quality of the standard on newer/more popular systems.
After I get through with that, I'm going to consider moving on with NES even though dnyce hasn't gotten his upgrade pack to me yet. Maybe I'll find something else to take up the time before then, but the NES boxart is pretty important and it's being treated just about last as far as the artwork goes now.
Later,
~Rx
QUOTE(waal @ Jan 3 2010, 12:21 AM)
Excellent news ! I see we're making progress.
I tested the whdload feature and it works perfect now. First I thought the whd were zipped files but I remembered that this feature was available much later in Winuae (edit. Just read again the amiga setup thread and I forgot about the WHZ extension. Will try this.). So I copied my _whdload.hdf and some hdf games renamed to whd et voilą ! Drives were mounted automatically. Right now I'm testing these games with the same system config. I have many versions to choose from. Particularly, I have to see if the CD32 versions are worth keeping. For the moment the results are very good, games load fast and run smooth (I'll have to confirm that). It looks like a console, it's amazing.
I'll send you samples very soon with mappings, too.
Great to see all this progress with the Amiga!
waal, what exactly is the _whdload.hdf? (I know what WHDLoad is)
QUOTE(bigby @ Jan 4 2010, 09:19 PM)
Great to see all this progress with the Amiga!
waal, what exactly is the _whdload.hdf? (I know what WHDLoad is)
Pretty much just simplifies the process for the end user so they can concentrate on playing the games and not worry about mounting stuff.
One more emu completely knocked down.
I believe I have the best possible artwork now for the Sega Master System, Game Gear and Sega SG-1000. I've also done over 100 hours work touching up the best boxes i could find. There are still a few watermarks here and there where I thought it was too dangerous for me to mess around with trying to remove them, but it's really only the very obscure games that this happened on. Most of the stickers and tears, rips and bends are removed from all the images too.
This system has been done for quite a while as far as videos and synopsis is concerned, so barring any new developments at the romhacking site I do believe we can put another nail in this coffin.
Got about 5 emulators left that need some serious work still, and they're all much smaller than the Gameboy library. After that it's on to Arcade vids and various other Xtras where usable.
Later,
~Rx
I believe I have the best possible artwork now for the Sega Master System, Game Gear and Sega SG-1000. I've also done over 100 hours work touching up the best boxes i could find. There are still a few watermarks here and there where I thought it was too dangerous for me to mess around with trying to remove them, but it's really only the very obscure games that this happened on. Most of the stickers and tears, rips and bends are removed from all the images too.
This system has been done for quite a while as far as videos and synopsis is concerned, so barring any new developments at the romhacking site I do believe we can put another nail in this coffin.
Got about 5 emulators left that need some serious work still, and they're all much smaller than the Gameboy library. After that it's on to Arcade vids and various other Xtras where usable.
Later,
~Rx
I want to generate some interest in here.
I also want to show anybody who thinks I've been bullshitting about what's been done that it has been.
I will release 2 packs for any system that the majority wants.
Today is Janurary 5th.
By Friday, the 8th, I will consider any suggestion that anyone has made in this thread as a vote on the ballot.
On Friday, the ballot will be put out, and anyone who participates in a 24 hour period will have two votes for what they want.
Hopefully we don't get responses from the Usual Suspects and we can get some new blood in here.
Happy voting,
~Rx
Disclaimers: Sets that are not close to complete will be commented on as to why they're not on the ballot. There is tons of stuff ready or damn near close to ready right now, so it shouldn't come up too often. Just don't ask for PSX, N64, Intellivision and any of the computer based emulators, as well as NES artwork since it's behind schedule now. Anything else is pretty much fair game as far as XPORT emus are concerned.
I also want to show anybody who thinks I've been bullshitting about what's been done that it has been.
I will release 2 packs for any system that the majority wants.
Today is Janurary 5th.
By Friday, the 8th, I will consider any suggestion that anyone has made in this thread as a vote on the ballot.
On Friday, the ballot will be put out, and anyone who participates in a 24 hour period will have two votes for what they want.
Hopefully we don't get responses from the Usual Suspects and we can get some new blood in here.
Happy voting,
~Rx
Disclaimers: Sets that are not close to complete will be commented on as to why they're not on the ballot. There is tons of stuff ready or damn near close to ready right now, so it shouldn't come up too often. Just don't ask for PSX, N64, Intellivision and any of the computer based emulators, as well as NES artwork since it's behind schedule now. Anything else is pretty much fair game as far as XPORT emus are concerned.
madmab, what exactly is the contents of the _whdload.hdf. Is it like:
C folder - WHDLoad, setpatch, execute, assign .etc
Devs folder - kickstarts folder - kick roms
S folder - startup-sequence, whdload.key, whdload.prefs
Is it possible you could send me the hdf? (without the kickstarts and whdload.key, of course)
C folder - WHDLoad, setpatch, execute, assign .etc
Devs folder - kickstarts folder - kick roms
S folder - startup-sequence, whdload.key, whdload.prefs
Is it possible you could send me the hdf? (without the kickstarts and whdload.key, of course)
I'd love to have a go with the genesis pack.. 
Or snes.
Someone really needs to add commandline launching of snes9xbox into znexbox (so that all of the snes and its extras can be in one place - the few roms needing snes9xbox could then be launched from zsnexbox)
Or snes.
Someone really needs to add commandline launching of snes9xbox into znexbox (so that all of the snes and its extras can be in one place - the few roms needing snes9xbox could then be launched from zsnexbox)
Long time lurker here, just registered today to say THANK YOU for all the time, effort and energy the team has put into this project.
The thought of having such a polished and organized system for enjoying these classic games is very exciting. It's great that the detailed work of many volunteers will be able to be shared with and enjoyed by all.
Thanks again and congrats on approaching the finish line!
ps. Regarding the vote, SNES and Sega Genesis.
The thought of having such a polished and organized system for enjoying these classic games is very exciting. It's great that the detailed work of many volunteers will be able to be shared with and enjoyed by all.
Thanks again and congrats on approaching the finish line!
ps. Regarding the vote, SNES and Sega Genesis.
QUOTE(pkbunghole @ Jan 5 2010, 11:38 AM)
I'd love to have a go with the genesis pack..
Or snes.
Someone really needs to add commandline launching of snes9xbox into znexbox (so that all of the snes and its extras can be in one place - the few roms needing snes9xbox could then be launched from zsnexbox)
Hey everyone,
I just wanted to clear up some possible confusion because I don't believe I was clear about what I meant by two packs. An artwork pack is one pack. A video pack is another pack. A FAQ or Manual pack would be others. I didn't mean that I'd put two whole systems together early.
I'm working hard to make that start happening on March 15, and I'm not looking to create myself an insane amount of double work here this close to the finish line.
I shouldn't have made it so confusing, so let's make it simple now. I'll put out one artwork and video pack for the system of the communities choice.
The only caveat is that I likely will not be keeping track of what is new from this upload to the officially planned March release, so, decide on your own if you want to download and try them out now, wait until the official release since there will likely be a few more games included, or just do them both. You probably wouldn't be missing much at all at this point if you just downloaded the one I put up after we decide.
Genesis and SNES were the two I figure will get the most votes, but I thought that PCE might make it too depending on the crowd. Realize that I will not be releasing an alternate ZSNESXBox artwork pack at this point in time if we go with SNES. This is just a teaser to keep interest up and we'll just stay with the XPORT emus for now.
So... anyone who's voted so far, I thank you. To anyone who has voted in a PM I ask that you put your vote out here to be counted. I hope to hear from more of you about this. I'm really excited that it's this close to launch time.
Here's to 2010.... The year of the ressurection.
~Rx
Someone really needs to add commandline launching of snes9xbox into znexbox (so that all of the snes and its extras can be in one place - the few roms needing snes9xbox could then be launched from zsnexbox)
Yes. I agree 100%. That would be very cool. Make it work kind of like the PSX emulator where it will load one or the other core. I'm sure it's much harder than the PSX setup since they're totally different emus..... but maybe not????
The problem is, it would require someone with knowledge of NES's emulator to make it happen. I got pretty good at surfing MAME code a few years back once, but I just couldn't wrap my head around XPORT's code (I really didn't try much because I was so wrapped up in arcades at the time). All I'm trying to say is that it wouldn't be something that madmab could do easily or quickly, or would even be remotely interested in learning. He'd basically have to relearn how somebody else coded another emulator differently from scratch.
I've been asking NES for about half a year to provide the ability to choose the media directories, but I know he's really busy with FBL and probably a lot more real life stuff than I've got going on right now so it hasn't happened yet. My hand's are tied... Nobody else I can ask to do it, and I'm way to busy with my project to learn how to do it in my spare time (what spare time? ). I've just become spoiled because Madmab has made 98% of the things I've asked for come true with the XPORT setup.
Any coders out there interested??? Anybody???? Anyone????
Long time reader, first time poster. That's I'm trying to make happen here.
Lots to be excited about now. Good things coming soon.
Let's breathe some life into the scene again. It's been too quiet around here for too long guys.
So.... who's got good video recording equipment so they can make a video of their own setup with this stuff in action for everyone else to witness?
I just wanted to clear up some possible confusion because I don't believe I was clear about what I meant by two packs. An artwork pack is one pack. A video pack is another pack. A FAQ or Manual pack would be others. I didn't mean that I'd put two whole systems together early.
I'm working hard to make that start happening on March 15, and I'm not looking to create myself an insane amount of double work here this close to the finish line.
I shouldn't have made it so confusing, so let's make it simple now. I'll put out one artwork and video pack for the system of the communities choice.
The only caveat is that I likely will not be keeping track of what is new from this upload to the officially planned March release, so, decide on your own if you want to download and try them out now, wait until the official release since there will likely be a few more games included, or just do them both. You probably wouldn't be missing much at all at this point if you just downloaded the one I put up after we decide.
Genesis and SNES were the two I figure will get the most votes, but I thought that PCE might make it too depending on the crowd. Realize that I will not be releasing an alternate ZSNESXBox artwork pack at this point in time if we go with SNES. This is just a teaser to keep interest up and we'll just stay with the XPORT emus for now.
So... anyone who's voted so far, I thank you. To anyone who has voted in a PM I ask that you put your vote out here to be counted. I hope to hear from more of you about this. I'm really excited that it's this close to launch time.
Here's to 2010.... The year of the ressurection.
~Rx
QUOTE(pkbunghole @ Jan 5 2010, 10:38 AM)
Someone really needs to add commandline launching of snes9xbox into znexbox (so that all of the snes and its extras can be in one place - the few roms needing snes9xbox could then be launched from zsnexbox)
Yes. I agree 100%. That would be very cool. Make it work kind of like the PSX emulator where it will load one or the other core. I'm sure it's much harder than the PSX setup since they're totally different emus..... but maybe not????
The problem is, it would require someone with knowledge of NES's emulator to make it happen. I got pretty good at surfing MAME code a few years back once, but I just couldn't wrap my head around XPORT's code (I really didn't try much because I was so wrapped up in arcades at the time). All I'm trying to say is that it wouldn't be something that madmab could do easily or quickly, or would even be remotely interested in learning. He'd basically have to relearn how somebody else coded another emulator differently from scratch.
I've been asking NES for about half a year to provide the ability to choose the media directories, but I know he's really busy with FBL and probably a lot more real life stuff than I've got going on right now so it hasn't happened yet. My hand's are tied... Nobody else I can ask to do it, and I'm way to busy with my project to learn how to do it in my spare time (what spare time?
). I've just become spoiled because Madmab has made 98% of the things I've asked for come true with the XPORT setup.Any coders out there interested??? Anybody???? Anyone????
QUOTE
Long time lurker here, just registered today to say THANK YOU for all the time, effort and energy the team has put into this project.
The thought of having such a polished and organized system for enjoying these classic games is very exciting. It's great that the detailed work of many volunteers will be able to be shared with and enjoyed by all.
Thanks again and congrats on approaching the finish line!
ps. Regarding the vote, SNES and Sega Genesis.
The thought of having such a polished and organized system for enjoying these classic games is very exciting. It's great that the detailed work of many volunteers will be able to be shared with and enjoyed by all.
Thanks again and congrats on approaching the finish line!
ps. Regarding the vote, SNES and Sega Genesis.
Long time reader, first time poster. That's I'm trying to make happen here.
Lots to be excited about now. Good things coming soon.
Let's breathe some life into the scene again. It's been too quiet around here for too long guys.
So.... who's got good video recording equipment so they can make a video of their own setup with this stuff in action for everyone else to witness?
I have a chance today to get a NeoGenesis video with extras ! No promises but im 99% sure i can get a 5 mins vid made and uploaded. Someone else can put it on youtube os some shit like that if you want.
Oh cool. Sounds good man.
BTW... to everyone.... cbagy's videos haven't made it into the Xtras set yet, so if you all choose Genesis, it will be much lower quality than the final release on a lot of videos.
BTW... to everyone.... cbagy's videos haven't made it into the Xtras set yet, so if you all choose Genesis, it will be much lower quality than the final release on a lot of videos.
QUOTE(madmab @ Jan 6 2010, 06:39 AM)
That's an interesting idea. Problem is zsnesxbox will exit back to the dash and not snes9xbox.
Well im not a programmer, but I would have thought as long as you have the source to both emus (and i believe they are both available?) it could be done relatively easily? instead of having the alternate core just 'end' when you quit, have it load 'default.xbe'
I realise people were upset at him for doing so, but Britneys Pairs recently added launching for games using Nes's Final Burn 1.1 core into CoinOPS and it worked really nicely (same UI mappings as CoinOPS, auto selected SD/HD depending on users CoinOPS settings etc) so it is definately a do-able thing
I'm not upset at BP for doing that since I hear that NES was done working on it. (I could be mistaken about that, but that's what I thought I read). BP's a guy like me who adds something good to his project when he sees it. If money was involved, it'd be a different story, but then again I'm sure the data would be protected if it were. In the end it's better for the entire community to bring everything together. I'm cool with the WHY, it's just that I'm sure the HOW was an ugly thing. Too bad there's so much drama surrounding such a great project, but that's the way it is.
I bet I get a bit of drama from HS or TCP or mobygame$ somebody else someday about the use of their boxart and stripping out all their watermarks, but since I've put in easily 500 hours or more touching up other boxes that were never touched up, I'm not going to let it get to me. I may get some crap from emum0vies too about the videos, but I'm prepared to offer them my work when I'm done since we will have pretty much filled in ALL of their gaps over the last year. It's not as if I'll have a choice in the matter. Once the videos are out there, you can't very well put the shit back in the horse, can ya?
Anyways... Like I said above about SNES, I believe it could be done, but merging the two systems together would probably be quite a bit harder than doing it the way that the PSX loads different core since they're two entirely different emulators. It would probably require some collaboration between two people who know enough about how each emulator works since there is nobody around that seems to know how both operate.
I bet I get a bit of drama from HS or TCP or mobygame$ somebody else someday about the use of their boxart and stripping out all their watermarks, but since I've put in easily 500 hours or more touching up other boxes that were never touched up, I'm not going to let it get to me. I may get some crap from emum0vies too about the videos, but I'm prepared to offer them my work when I'm done since we will have pretty much filled in ALL of their gaps over the last year. It's not as if I'll have a choice in the matter. Once the videos are out there, you can't very well put the shit back in the horse, can ya?
Anyways... Like I said above about SNES, I believe it could be done, but merging the two systems together would probably be quite a bit harder than doing it the way that the PSX loads different core since they're two entirely different emulators. It would probably require some collaboration between two people who know enough about how each emulator works since there is nobody around that seems to know how both operate.
Hi, Remember me...?
Rx,
If people choose SNES video's, I suppose I can give you my 80 or so re-edited ones.... They are not "all" done and I was still deciding if I was going to completely re-do some of them.
I can send them your way some time soon. (that is, if mega-upload doesn't give me crap.
)
Rx,
If people choose SNES video's, I suppose I can give you my 80 or so re-edited ones.... They are not "all" done and I was still deciding if I was going to completely re-do some of them.
I can send them your way some time soon. (that is, if mega-upload doesn't give me crap.
)
Yeah getting that idea to work would require modifying the zsnesxbox code so that it loads "default.xbe" on exit, etc. And then re-compiling it. This is assuming that it "exits" the emulator when the user finishes playing a game that was called from the "command line".
MM? & cbagy - Sure thing. If you guys wanna get me what you've done if the emu you've been working on is fine. I'll get whatever you've done in there. BTW... Frank just sent me 19 more GBA videos, so we're probably between 130 and 140 left for that system. Also, if pCe doesn't get back to me I'll need somebody to do one more TG16 video as well.
madmab - Any way you could get the ZSNESXBox core to launch in your emu, since it's probably not likely we'll ever get somebody to do it the other way around? I'm just wondering because what you said in that post made it sound easier than I thought it would be.
I have been keeping track of compatibility lists for both systems, although they'd need to be completed. Maybe we could then have the emu auto-load using the correct core for compatibility????
I know you're plate is full man. Just throwing that out there.
madmab - Any way you could get the ZSNESXBox core to launch in your emu, since it's probably not likely we'll ever get somebody to do it the other way around? I'm just wondering because what you said in that post made it sound easier than I thought it would be.
I have been keeping track of compatibility lists for both systems, although they'd need to be completed. Maybe we could then have the emu auto-load using the correct core for compatibility????
I know you're plate is full man. Just throwing that out there.
Not sure. Nes6502's code is quite different from X-ports, and I certainly will not do it without his blessing/approval.
Just glanced at his code and it looks like it is setup in such a way that it can be told which XBE to run on exit. So it should be possible to do. Assuming it is ok with him.
There are other complications, though, like getting it to return to the same directory/game that the user had last selected.
Just glanced at his code and it looks like it is setup in such a way that it can be told which XBE to run on exit. So it should be possible to do. Assuming it is ok with him.
There are other complications, though, like getting it to return to the same directory/game that the user had last selected.
Interesting.... Maybe if that mystery was cracked, it would be possible to do the same thing when auto-loading from XBMC. I hate that when it goes back to XBMC it takes you back to the main menu instead of the directory you were looking at .CUT files.
You're a lot nicer than me Madmab.
You're a lot nicer than me Madmab.
New emuload video for NeoGenesis MadMab Edition.
Built for my revised skin really. Available in SD or HD/Widescreen.
Features scrolling background and animated Sega logo.
4 seconds quick splash. It won't hang around onscreen too long.
I did compress them to less than 1mb, but theres no need as @ 5000kbps
it still only produces .xmv @ 2.3mb. So it won't break the bank.
SD = http://www.mediafire.com/?lyi3zjm2chv
HD/Wide = http://www.mediafire.com/?ujdxjz2izuz
Built for my revised skin really. Available in SD or HD/Widescreen.
Features scrolling background and animated Sega logo.
4 seconds quick splash. It won't hang around onscreen too long.
I did compress them to less than 1mb, but theres no need as @ 5000kbps
it still only produces .xmv @ 2.3mb. So it won't break the bank.
SD = http://www.mediafire.com/?lyi3zjm2chv
HD/Wide = http://www.mediafire.com/?ujdxjz2izuz
Beauty
FWIW if the user does not really feel like waiting for the intro video to finish, as it is now pressing "B" will exit it out. An inadvertant "feature" carried over from the media browser.
QUOTE(cbagy @ Jan 8 2010, 04:04 PM)
New emuload video for NeoGenesis MadMab Edition.
Built for my revised skin really. Available in SD or HD/Widescreen.
Features scrolling background and animated Sega logo.
4 seconds quick splash. It won't hang around onscreen too long.
I did compress them to less than 1mb, but theres no need as @ 5000kbps
it still only produces .xmv @ 2.3mb. So it won't break the bank.
SD = http://www.mediafire.com/?lyi3zjm2chv
HD/Wide = http://www.mediafire.com/?ujdxjz2izuz
Hope the rest of the skin looks this awesome!
They say that "beauty in in the eye of the beholder".
QUOTE(cbagy @ Jan 9 2010, 01:58 AM)
They say that "beauty in in the eye of the beholder".
nope
mmmmmmm popcorn
Well iv'e thought about it for a bit now and i must confess, i haven't a clue what your talkng about.
Have you ?
Have you ?
QUOTE(cbagy @ Jan 9 2010, 03:55 AM)
Well iv'e thought about it for a bit now and i must confess, i haven't a clue what your talkng about.
Have you ?
I don't know, just joking around :-P
Hey, do you have any screens on the skin your making? or is it not that far along yet?
ha lol. Im with you now. Firstly i have to say that you should always check out the official skin by Giles9999. Now if you don't use video previews then my skins aren't ideal for you. No branding, no wasted space, no animation in skin, no useless artwork taking up space. Its built for speed and functionallity. I build my stuff heavily influenced by the HQ arttwork and HQ video's content. Screenshot only users can use my skins no problem but areas that would be high colour will have missing parts (where video chould be). They can be easily modded to suit the end user. That's the beauty of this skin engine. As long as the skin author doesn't merge the images and leaves them as true dynamic sprites then the combinations are only limited to your imagination.
To answer your question, yes the skin is finished, has been for months but now its going through a face lift as other features are being added to the xbe. The minimum requirements to run this skin as i designed it would require the end user to have a nice HQ screenshot pack (Title recommended) HQ video previews and at least HQ Box Artwork. Although im still working with some sprites at the minute (and full HD FBL skin also simultaneously) i will put some of my template graphics in place and take one of my famous quality pictures for you later.
PS. I only work in 720p (HD) so anything i do make for 480 (SD) is generally a watered down, poor relative of the HD version. There are plenty of purpose built, lovely 480 (SD) skins, available from user on these boards. That is of course if your genuinely interested.
To answer your question, yes the skin is finished, has been for months but now its going through a face lift as other features are being added to the xbe. The minimum requirements to run this skin as i designed it would require the end user to have a nice HQ screenshot pack (Title recommended) HQ video previews and at least HQ Box Artwork. Although im still working with some sprites at the minute (and full HD FBL skin also simultaneously) i will put some of my template graphics in place and take one of my famous quality pictures for you later.
PS. I only work in 720p (HD) so anything i do make for 480 (SD) is generally a watered down, poor relative of the HD version. There are plenty of purpose built, lovely 480 (SD) skins, available from user on these boards. That is of course if your genuinely interested.
QUOTE(madmab @ Jan 6 2010, 11:19 PM)
Yeah getting that idea to work would require modifying the zsnesxbox code so that it loads "default.xbe" on exit, etc. And then re-compiling it. This is assuming that it "exits" the emulator when the user finishes playing a game that was called from the "command line".
i don't have the exact list of games that runs only on sne9xbox and not on zsnexbox, i think of:
- starfox 2 plays great in snes9xbox
- equinox (excellent 3d iso puzzle game, sequel of solstice) freeze in zsnexbox when you grab an apple (runs great in snes9xbox)
- stunt race fx runs better in snes9xbox but it is a bad game
- wich other games run better in snes9xbox? (in all the case the sound is A LOT better in zsnexbox)
QUOTE(gilles9999 @ Jan 10 2010, 12:32 PM)
i don't have the exact list of games that runs only on sne9xbox and not on zsnexbox, i think of:
- starfox 2 plays great in snes9xbox
- equinox (excellent 3d iso puzzle game, sequel of solstice) freeze in zsnexbox when you grab an apple (runs great in snes9xbox)
- stunt race fx runs better in snes9xbox but it is a bad game
- wich other games run better in snes9xbox? (in all the case the sound is A LOT better in zsnexbox)
I don't know if it's just me. But Mario Kart always freezes if I hit something on the track in ZSnex..
QUOTE(Pulsemasta @ Jan 10 2010, 12:37 PM)
I don't know if it's just me. But Mario Kart always freezes if I hit something on the track in ZSnex..
it is you
i use the (u) rom (i always use (u) roms, 60hz is ALWAYS better) and it plays perfect in zsnexbox (i have finished all the cups on it)
QUOTE(gilles9999 @ Jan 10 2010, 05:32 AM)
i don't have the exact list of games that runs only on sne9xbox and not on zsnexbox
I do....
Check my SNES spreadsheet.
Eh RessX and the gang. Are all these links to these super charged skins and eye candy going to be packaged together? I am completely lost as to where to look to find what I been missing out on...I've been trying to keep up here n there but it has been a LONG while and so many different threads like likklebears skins are awesome. Are those going to get the dynamic skin treatment? And like cbagys sega genesis intro video? And everything else I've been reading on and forgot to download into my super xbox folder. Otherwise, when this project is finished, will everything be organized and packaged to their respective emulator? Should I bother downloading anything I see in these threads? Thanks
-Dnyce
-Dnyce
Wow dnyce... that's a loaded post.
Let me ask you first, if you'd like to help some of that come about?
I do plan on having as many skins as we have available provided with the emulators, but I haven't even gotten to that point yet. There's just been too much other work to do that I haven't been able to really keep up on it.
I don't know if they'll get the dynamic skin treatment. Gotta find somebody who would want to do it and either knows or can figure out how to make it happen.
If you ever go and work on something like this, zip it up and send it my way and I'll get them added.
Later,
~Rx
Let me ask you first, if you'd like to help some of that come about?
I do plan on having as many skins as we have available provided with the emulators, but I haven't even gotten to that point yet. There's just been too much other work to do that I haven't been able to really keep up on it.
I don't know if they'll get the dynamic skin treatment. Gotta find somebody who would want to do it and either knows or can figure out how to make it happen.
If you ever go and work on something like this, zip it up and send it my way and I'll get them added.
Later,
~Rx
Was going to upload my skins in a few days now im getting bored with them again. They won't set your world on fire but they are a different option.
@ Rx. I have discovered i only have 480+ .wmv Genesis video's left. Ive uploaded them anyway and im about to start another mad encoding session tomorrow as im back in the video mood (bored with skins again now).
I do have the first batch i made on one of my xbox's (150 +) but alas they are in xmv format and im not even going down that road.
All in all, doing the math, i wasn't that far away with the missing ones added. I have had 3 weeks away from them, but as i say im in the mood now.
@ Rx. I have discovered i only have 480+ .wmv Genesis video's left. Ive uploaded them anyway and im about to start another mad encoding session tomorrow as im back in the video mood (bored with skins again now).
I do have the first batch i made on one of my xbox's (150 +) but alas they are in xmv format and im not even going down that road.
All in all, doing the math, i wasn't that far away with the missing ones added. I have had 3 weeks away from them, but as i say im in the mood now.
Think you can get them done by March 1st?
i'll only be on an up for 10 days to 2 weeks at a time, with a down patch in between, so 7 weeks left means probably 2 - 3 hardcore sessions. Maybe, just maybe. What vids i lost at work were games that required playing which takes soooo long to get through them. Even had a colleague helping. So it was a disasterous loss. All i can say is now im bored with skins i can turn my attention to them and of course posting here and elsewhere to wind folk up ! lol.
madmab,
Would it be possible for you to add ROM specific controller set ups to your versions of the emulators? Genesis in particular... Genesis controls were so awkward on some games and with a 4 button set up you can fix most to be enjoyable... the only problem is game to game you have to change it all back.
just a thought
Would it be possible for you to add ROM specific controller set ups to your versions of the emulators? Genesis in particular... Genesis controls were so awkward on some games and with a 4 button set up you can fix most to be enjoyable... the only problem is game to game you have to change it all back.
just a thought
QUOTE
Genesis controls were so awkward on some games and with a 4 button set up you can fix most to be enjoyable... the only problem is game to game you have to change it all back.
uhh... you should already be able to customize controls specifically for every game.
This is a "lo-fi" version of our main content. To view the full version with more information, formatting and images, please click here.