SUBSIM Radio Room Forums



SUBSIM: The Web's #1 resource for all submarine & naval simulations since 1997

Go Back   SUBSIM Radio Room Forums > Silent Hunter 3 - 4 - 5 > SH4 Mods Workshop
Forget password? Reset here

Reply
 
Thread Tools Display Modes
Old 07-31-09, 12:15 PM   #31
karamazovnew
The Old Man
 
Join Date: Mar 2009
Location: Bucharest, Romania
Posts: 1,403
Downloads: 151
Uploads: 0


Default

Holy mama.... I bet you didn't do that by hand. Do you by any chance still have the code for entering the data into a table? Would be veeery useful . Right now I have to enter all of the data by hand and it's quite annoying. Also, when I move a menu group, I don't need to update just that item, but all of the items, since the Zone line's X and Y position is absolute . Maybe a tool to update the file automatically...But for the moment, that's beyond me. It took me one day to write this macro to renumber the items (hsie's tool didn't work for me for some reason). It's for a simple form with one button (btnRenumber) and one text box (txtPage). It renumbers the items on a page (as long as the item is in the correct page ofc).

Private Sub btnRenumber_Click()
Dim iItem As Integer
Dim myRange As Range
If txtPage.Value = vbNullString Then
MsgBox "You must enter the Menu Page"
ElseIf Application.Documents.Count < 1 Then
MsgBox "No document Opened"
Else
iItem = 1
Set myRange = ActiveDocument.Range(Start:=0, End:=ActiveDocument.Content.End)
myRange.Select
With Selection.Find
.Forward = True
.Wrap = wdFindStop
.Text = "[" + txtPage.Value + " I"
Do While .Execute
Selection.Extend
Selection.Extend
Selection.Extend
Selection.TypeText Text:="[" + UCase(txtPage.Value) + " I" + CStr(iItem) + "]"
iItem = iItem + 1
Set myRange = ActiveDocument.Range(Start:=Selection.End, End:=ActiveDocument.Content.End)
myRange.Select
Loop
End With
End If
End Sub


Come to think of it, I don't understand why there was never a tool to visually mod the interface. VB has plugins to view DDS and TGA, a piece of code could make a table with all the items and parameters in the menu.ini file, then show them. Appying the inverse formulas might allow you to drag/move items. There are maximum 200 items on a page so that shouldn't crash the pc. The Display line might be an issue, but... Actually forget it, it might take longer to do it than to mod the file by hand .
karamazovnew is offline   Reply With Quote
Old 07-04-10, 04:35 PM   #32
JoeCorrado
Weps
 
Join Date: Apr 2005
Location: Illinois
Posts: 366
Downloads: 176
Uploads: 5
Default

Bumped again- two years later.
__________________
=============



My Game starts with GFO - Keepin' it real as it needs to be!
JoeCorrado is offline   Reply With Quote
Old 09-03-13, 11:15 PM   #33
JoeCorrado
Weps
 
Join Date: Apr 2005
Location: Illinois
Posts: 366
Downloads: 176
Uploads: 5
Default

And bumped once again... just 3 years later. Good to see so many of the old die hard companions still here and active after all this time.

Since I am back to SH4 again and because after a long break I forget so much stuff, this was the thread I looked up as a place to start again. Old mods disappear, my favorite home brewed mods get lost and I need to start from scratch.

This thread is where so much enjoyment (outside of the actual game play) got their beginnings. This thread never gets old for me. Hope some other mad scientist gamers get a chance to read through and feel the satisfaction of successfully creating their first mod.
__________________
=============



My Game starts with GFO - Keepin' it real as it needs to be!
JoeCorrado is offline   Reply With Quote
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump


All times are GMT -5. The time now is 06:11 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright © 1995- 2024 Subsim®
"Subsim" is a registered trademark, all rights reserved.