My Big Castle Mod

[GBHis]

I have, as I maybe said before, a vague idea of how to do it, but it would require a lot of testing, thinking and a better knowledge of Oblivion than my current. I haven't even completed the main quest....

 

My sketch (post before this) of the script had the options you wanted. I didn't think that renaming multiple times should be used, but I put it in anyway. It's almost done... In the meantime (while you wait) you can create a letter (proof that the player owns the castle, maybe it's called a "Deed?") in the mod, along with a way to aquire it. (Finding it, butler giving it to the player, magic, A messagebox like "I've found a letter in my pocket", a merchant selling ... castles :) )

 

You should make different funny levers in the prison. Gas for making them sleep, gas for making 'em talk (disposition 100), lever for capturing new prisoners (when the old ones are... "gone")

 

EDIT: Akatosh, I post here two times daily!

 

Well, thing is, when I was looking through your mod with notepad, I discovered some minor... Bugs.

 

First. It looks like you've accidentaly hit the "Compile All". This includes all the stock scripts in your mod, thus making it far larger than it should be. It also makes your mod conflict with all fixes that fixes scripts, and that is BAD.

 

Second, looks like you've put your own script instead of mine at that book thing. You should really use my. It doesn't use variables at all, and takes up less space.

 

Third: Reznod's Mannequins. Do these work? The script looks like it doesn't fit with your mod. Sure you don't want any help?

[WarKirby3333]

I hit compile all. Oops. How can I undo that. please tell me there's a way

 

The book works and thats all that matters. I have far more important things to worry about.

 

I adapted the script for the mannequins by removing the lines that said player.getpos so that the mannequins did not teleport on top of your head as soon as you enter the room. In doing this I broke the posing function but all other aspects of the mannequins have worked in my tests although was kinda hoping to get some sort of feedback on the subject for confirmation. Could you possibly fix the posing without making the mannekins teleport?

 

How's the namescript coming?

 

Progress Report

 

I laid pathgrids in the east and west wings and also in the grand hall. I also took a few hours to look carefully at the castle and find out how many guards I'll need. I made a colour coded spreadsheet planning duty rotas and came up with a final figure of 90 Guards. It's a lot, isn't it. I'm not seeing an option to attach files to posts so if anyone wants to see the spredsheet you'll need to PM me with an email adress. I'll put in in the next version of the castle anyway.

 

I'm using 3 different guarde shifts. The early shift is on duty from 6am to 2pm. then the evening shift lasts from 2pm to 10pm. And finally the Graveyard shift is from 10pm to 6am. Every guard will have roughly the sam routine- wake up, 2 hours for breakfast. 8 hours on duty, 2 hours for dinner, 4 hours training/downtime then 8 hours to sleep.

---------------------------------------------------

 

If anyone wants to offer ideas on how to imrove the castle, please read the previos page first as it outlines my future plans. And please don't quote huge posts.

 

WarKirby

[GBHis]

We can remove the unnecessary scripts. It would be far easier if my CS was working, but you can do it yourself.

Open the CS. Choose "Load", find your mod. Mark it, do NOT press "Load". Press "Details". Find the scripts you are certain you do not need (There'll probably be a LOT.)

 

Ok, we'll leave the book. But it's lazy :)

 

If the posing worked in the original, I can probably fix it :)

But not right now. I'm on vacation atm, and I would need your mod and a working CS here. (#¤#4% DirectX, tried everything.)

The strange section was a huge list of referrences to some cell that ... didn't look like it was there.

 

90 guards? All respawning? Hey - what happens if I kill one? I'll have to hide on the roof. :)

Seriously, let me do a script for them... The player hired them? He should be allowed to kill them. The others shouldn't care, right? They do - after all - respawn :)

 

Suggestion: You could make a Finger of Pointing. When used, the player orders all the guards to kill the target. (If within castle grounds)

 

The name script is coming ok. I think it's ready for testing. Vulture and I have some minor disagreements about the names, but the script is pretty much done...

[WarKirby3333]

Once I find the unnecessary scripts how do I remove them. Do I have to do it one at a time or can I do it en masse?

 

Why does your CS not work. Have you tried re-downloading it?

 

A list of references to a nonexistant cell? I'll look into that. Where was this list?

 

I agree, you should be able to kill your own guards. I don't have the slightest clue how to do that but if you can, please do. I'm not sure if the guards should respawn. I might eventually give them names and it would counteract immersion to have them respawn.

 

Hiding on the roof wouldn't save you anyway. They would follow. All the guards will be Lv30 with the captain being Lv50 and having his own private room.

 

I planned to add a battle to the arena where you slaughter defenceless condemned prisoners. Yknow, to relieve stress and satisfy the urge to kill stuff. So you wouldn't need to take it out on your guards.

 

The finger of pointing sounds like a cool idea. could anyone do that?

 

If you have disagreements about some names, why not just expand the list to accommodate both your wishes. More choice is always a good thing.

 

I had a single report of armor disappearing from a mannekin so if there are bugs in the mannekins it is urgent that they be fixed quickly.

 

WarKirby

 

PS: I moved the future plans for the castle to the start of the thread so that everyone can see them. I love the edit button!

[GBHis]

Undoing stuff: Press "Delete" on your keyboard. A little I should come up next to the item you deleted. You can select multiple scripts by clicking on a script while holding shift, then clicking on another script. Everything between will be marked. To remove one in the middle of your selected items, hold ctrl and click it. When done, load your mod, then save it. The scripts should be gone the next time you load it. This work for all other changes. (Terrain may be the only one that doesn't. I don't know.)

 

CS: As I said, I tried everything. I'm running w2k sp 4, DirectX 9.c (This is the one that doesn't work) 1,2 ghz processor. NVidia GeForce 3 (2, or 4)

 

Referrences: Just in the beginning of the mod. :)

 

I could do the "loyal" guards. In some weeks, when I'm home again ;)

 

Finger of Pointing. Could do that, but I'll need some time digging the scripting wiki...

 

Names: Cause that would make the script much larger. And the selection menu more *does "tidy" mean "unclean"?*.

Let's try to get it working before expanding what doesn't work :)

Have you tried the one I sent you? (By e-mail)

Put it on a letter and place it somewhere near the castle. (where you can see the doors.)

Pick the letter up. The rest should be self-explanatory. Please post any error messages you might get.

 

Sorry, I don't think I can get around to fixing it. The only way to do it was that I hacked something together, uploaded it for testing, got the feedback and so on. Would take a lot of time.

[WarKirby3333]

Apparently Vulture didn't know I had uploaded v1.3

 

In case anyone else hasn't upgraded to 1.3 yet, download it here

 

http://www.tessource.net/files/cache/5742.html

 

I will always upload future updates to that page, replacing the previous version. 1.4 will be released in a day or two assuming I get that script from GBHis. It will also add pathgrids so that companion NPC's won't have problems moving around.

 

I will be adding the guards in v1.5 which will be a week or two from now. There is only a small problem. I'm still not exactly sure how to make NPC's do somewhat more advanced behaviour like attacking chain dolls, punchbags and the like. Also how to make them spar and how to have the guards relieve one another of duty.

 

I've seen the default guards do this. Guard A goes up to Guard B and says "I'm your replacement" then Guard B goes off duty and Guard A takes over. How do I do that. As I will be duplicating guards a lot to save time I need all the AI packages there from the start. This means I can't really start on the guards until I find that stuff out.

 

Any help is greatly appreciated

 

WarKirby

[WarKirby3333]

I pathed the whole castle. Yay.

 

Now I just need the revised version of the namescript and v1.4 will be uploaded

[WarKirby3333]

I haven't recieved any reply form GBHis yet. The problem is that I'm going on a camping holiday for about a week tomorrow, and I almost certainly won't have internet access during that time. That means I will have to release v1.4 tonite. Which means I need that script working in the next 6 hours of everyone will have to wait a week to be able to name the castle.

 

The problem is that when I choose to rename the castle, the dialog box disappears and nothing happens. I will post the script below. If anyone can fix it quickly please post here. I will check this topic every 10 mins from now until I cannot stay awake any longer.

 

Scriptname NameTheCastle

; Script by GBHis. Drop me a line at [email protected] if you intend to use this in your script.

short page

short renamedone

short renameit

short ihavetheletter

short castlename

short renamecount

short constants

short temp

short maxrenames

 

Begin OnAdd player

IF (constants != 1)

; We will only do this ONCE. Constants + stats here.

SetCellOwnership MycastleGrandHall

SetCellOwnership MycastleWestWing

SetCellOwnership MycastleEastWing

SetCellOwnership MycastleUpperLevel

SetCellOwnership MycastleLowerLevel

SetCellOwnership MycastleArena

SetCellOwnership MycastleInnerSanctum

; SetCellOwnership MycastleGarden

set temp to (GetPCMiscStat 15)+1 ; How many houses has the player got?

modpcmiscstat 15 temp ; Well, now he has one more

set maxrenames to -1 ;Renames allowed. -1 = Unlimited. Zer0 means .. zero :=)

set constants to 1

ENDIF

set IHaveTheLetter to 1

End ; OnAdd

 

 

Begin GameMode

 

IF (IHaveTheLetter == 1 && maxrenames != renamecount)

messagebox "I have just recovered the letter. Maybe I should give the castle a new name?", "No, I like it as it is.", "Yes, I should give it a new name immediately!"

set renameit to GetButtonPressed

set page to renameit

set renamedone to 0

set Ihavetheletter to 0

ENDIF

 

IF (renameit == 1 && renamedone != 1 && page != 0)

; Large Keyboard here!

IF (page == 1)

messagebox "-=(PLEASE CHOOSE A NAME BELOW. PAGE: 1)=-","Castle Mynaroth","Lockplace Castle","Autumn Grove","Blackwater","Stonebridge Castle","-=(Next Page)=-"

set temp to GetButtonPressed

ELSE

set temp to 7

ENDIF

IF (temp == 7)

set page to 0

messagebox "-=(PLEASE CHOOSE A NAME BELOW. PAGE: 2)=-","-=(Last Page)=-","Longpoint Castle","Shadowflame Manor","Castle Glamis","Galcian Castle","Blacksky","Stronghold of DOOM","-=(Next Page)=-"

set temp to GetButtonPressed

IF (temp == 0)

set page to 1

ELSEIF (temp == 7)

set page to 3

ELSE

; Name chosen from page 2

set page to 0

set castlename to temp + 4

set renamedone to 1

IF (renamecount != -1)

set renamecount to renamecount + 1

ENDIF

ENDIF

 

IF (page == 3)

messagebox "-=(PLEASE CHOOSE A NAME BELOW. PAGE: 3)=-","-=(Last Page)=-","Bog Caramnis","Veritas Keep","Castle Faust","Home","Castle Ardor"

set temp to GetButtonPressed

IF (temp == 0)

set page to 2

ELSE

; Name chosen from page 3

set page to 0

set castlename to temp + 10

set renamedone to 1

IF (renamecount != -1)

set renamecount to renamecount + 1

ENDIF

ENDIF

ENDIF

ELSE

; Name chosen from page 1

set castlename to temp

set renamedone to 1

set page to 0

IF (renamecount != -1)

set renamecount to renamecount + 1

ENDIF

ENDIF

ENDIF

 

; CastleName Table

; 0.Castle Mynaroth

; 1.Lockplace Castle

; 2.Autumn Grove (didnt c that until now)

; 3.Blackwater

; 4.Stonebridge Castle

; 5.Longpoint Castle

; 6.Shadowflame Manor

; 7.Castle Glamis

; 8.Galcian Castle

; 9.Blacksky

; 10.Stronghold of DOOM

; 11.Bog Caramnis

; 12.Veritas Keep

; 13.Castle Faust

; 14.Home

; 15.Castle Ardor

 

; ******************** Rename Block

IF (renameit == 1 && renamedone == 1 && castlename == 0)

SetCellFullName MycastleGrandHall " Castle Mynaroth Grand Hall"

SetCellFullName MycastleWestWing "Castle Mynaroth West Wing"

SetCellFullName MycastleEastWing "Castle Mynaroth East Wing"

SetCellFullName MycastleUpperLevel "Castle Mynaroth Upper Level"

SetCellFullName MycastleLowerLevel "Castle Mynaroth Lower Level"

SetCellFullName MycastleArena "The Castle Mynaroth Arena"

SetCellFullName MycastleInnerSanctum "Castle Mynaroth Inner Sanctum"

; SetCellFullName MycastleGarden "Gardens of Castle Mynaroth"

set renameit to 0

set renamedone to 0

ENDIF

; ******************** Rename Block

IF (renameit == 1 && renamedone == 1 && castlename == 1)

SetCellFullName MycastleGrandHall "Lockplace Castle Grand Hall"

SetCellFullName MycastleWestWing "Lockplace Castle West Wing"

SetCellFullName MycastleEastWing "Lockplace Castle East Wing"

SetCellFullName MycastleUpperLevel "Lockplace Castle Upper Level"

SetCellFullName MycastleLowerLevel "Lockplace Castle Lower Level"

SetCellFullName MycastleArena "Lockplace Castle Arena"

SetCellFullName MycastleInnerSanctum "Lockplace Castle Inner Sanctum"

; SetCellFullName MycastleGarden "Gardens of Lockplace Castle"

set renameit to 0

set renamedone to 0

ENDIF

; ******************** Rename Block

IF (renameit == 1 && renamedone == 1 && castlename == 2)

SetCellFullName MycastleGrandHall "Autumn Grove Grand Hall"

SetCellFullName MycastleWestWing "Autumn Grove West Wing"

SetCellFullName MycastleEastWing "Autumn Grove East Wing"

SetCellFullName MycastleUpperLevel "Autumn Grove Upper Level"

SetCellFullName MycastleLowerLevel "Autumn Grove Lower Level"

SetCellFullName MycastleArena "Autumn Grove Arena"

SetCellFullName MycastleInnerSanctum "Autumn Grove Inner Sanctum"

; SetCellFullName MycastleGarden "Gardens of Autumn Grove"

set renameit to 0

set renamedone to 0

ENDIF

; ******************** Rename Block

IF (renameit == 1 && renamedone == 1 && castlename == 3)

SetCellFullName MycastleGrandHall "Blackwater Grand Hall"

SetCellFullName MycastleWestWing "Blackwater West Wing"

SetCellFullName MycastleEastWing "Blackwater East Wing"

SetCellFullName MycastleUpperLevel "Blackwater Upper Level"

SetCellFullName MycastleLowerLevel "Blackwater Lower Level"

SetCellFullName MycastleArena "Blackwater Arena"

SetCellFullName MycastleInnerSanctum "Blackwater Inner Sanctum"

; SetCellFullName MycastleGarden "Gardens of Blackwater"

set renameit to 0

set renamedone to 0

ENDIF

; ******************** Rename Block

IF (renameit == 1 && renamedone == 1 && castlename == 4)

SetCellFullName MycastleGrandHall "Stonebridge Castle Grand Hall"

SetCellFullName MycastleWestWing "Stonebridge Castle West Wing"

SetCellFullName MycastleEastWing "Stonebridge Castle East Wing"

SetCellFullName MycastleUpperLevel "Stonebridge Castle Upper Level"

SetCellFullName MycastleLowerLevel "Stonebridge Castle Lower Level"

SetCellFullName MycastleArena "Stonebridge Castle Arena"

SetCellFullName MycastleInnerSanctum "Stonebridge Castle Inner Sanctum"

; SetCellFullName MycastleGarden "Gardens of Stonebridge Castle"

set renameit to 0

set renamedone to 0

ENDIF

; ******************** Rename Block

IF (renameit == 1 && renamedone == 1 && castlename == 5)

SetCellFullName MycastleGrandHall "Longpoint Castle Grand Hall"

SetCellFullName MycastleWestWing "Longpoint Castle West Wing"

SetCellFullName MycastleEastWing "Longpoint Castle East Wing"

SetCellFullName MycastleUpperLevel "Longpoint Castle Upper Level"

SetCellFullName MycastleLowerLevel "Longpoint Castle Lower Level"

SetCellFullName MycastleArena "Longpoint Castle Arena"

SetCellFullName MycastleInnerSanctum "Longpoint Castle Inner Sanctum"

; SetCellFullName MycastleGarden "Gardens of Longpoint Castle"

set renameit to 0

set renamedone to 0

ENDIF

; ******************** Rename Block

IF (renameit == 1 && renamedone == 1 && castlename == 6)

SetCellFullName MycastleGrandHall "Shadowflame Manor Grand Hall"

SetCellFullName MycastleWestWing "Shadowflame Manor West Wing"

SetCellFullName MycastleEastWing "Shadowflame Manor East Wing"

SetCellFullName MycastleUpperLevel "Shadowflame Manor Upper Level"

SetCellFullName MycastleLowerLevel "Shadowflame Manor Lower Level"

SetCellFullName MycastleArena "Shadowflame Manor Arena"

SetCellFullName MycastleInnerSanctum "Shadowflame Manor Inner Sanctum"

; SetCellFullName MycastleGarden "Gardens of Shadowflame Manor"

set renameit to 0

set renamedone to 0

ENDIF

; ******************** Rename Block

IF (renameit == 1 && renamedone == 1 && castlename == 7)

SetCellFullName MycastleGrandHall "Castle Glamis Grand Hall"

SetCellFullName MycastleWestWing "Castle Glamis West Wing"

SetCellFullName MycastleEastWing "Castle Glamis East Wing"

SetCellFullName MycastleUpperLevel "Castle Glamis Upper Level"

SetCellFullName MycastleLowerLevel "Castle Glamis Lower Level"

SetCellFullName MycastleArena "Castle Glamis Arena"

SetCellFullName MycastleInnerSanctum "Castle Glamis Inner Sanctum"

; SetCellFullName MycastleGarden "Gardens of Castle Glamis"

set renameit to 0

set renamedone to 0

ENDIF

; ******************** Rename Block

IF (renameit == 1 && renamedone == 1 && castlename == 8)

SetCellFullName MycastleGrandHall "Galcian Castle Grand Hall"

SetCellFullName MycastleWestWing "Galcian Castle West Wing"

SetCellFullName MycastleEastWing "Galcian Castle East Wing"

SetCellFullName MycastleUpperLevel "Galcian Castle Upper Level"

SetCellFullName MycastleLowerLevel "Galcian Castle Lower Level"

SetCellFullName MycastleArena "Galcian Castle Arena"

SetCellFullName MycastleInnerSanctum "Galcian Castle Inner Sanctum"

; SetCellFullName MycastleGarden "Gardens of Galcian Castle"

set renameit to 0

set renamedone to 0

ENDIF

; ******************** Rename Block

IF (renameit == 1 && renamedone == 1 && castlename == 9)

SetCellFullName MycastleGrandHall "Blacksky Grand Hall"

SetCellFullName MycastleWestWing "Blacksky West Wing"

SetCellFullName MycastleEastWing "Blacksky East Wing"

SetCellFullName MycastleUpperLevel "Blacksky Upper Level"

SetCellFullName MycastleLowerLevel "Blacksky Lower Level"

SetCellFullName MycastleArena "Blacksky Arena"

SetCellFullName MycastleInnerSanctum "Blacksky Inner Sanctum"

; SetCellFullName MycastleGarden "Gardens of Blacksky"

set renameit to 0

set renamedone to 0

ENDIF

; ******************** Rename Block

IF (renameit == 1 && renamedone == 1 && castlename == 10)

SetCellFullName MycastleGrandHall "Stronghold of DOOM Grand Hall"

SetCellFullName MycastleWestWing "Stronghold of DOOM West Wing"

SetCellFullName MycastleEastWing "Stronghold of DOOM East Wing"

SetCellFullName MycastleUpperLevel "Stronghold of DOOM Upper Level"

SetCellFullName MycastleLowerLevel "Stronghold of DOOM Lower Level"

SetCellFullName MycastleArena "Stronghold of DOOM Arena"

SetCellFullName MycastleInnerSanctum "Stronghold of DOOM Inner Sanctum"

; SetCellFullName MycastleGarden "Gardens of Stronghold of DOOM"

set renameit to 0

set renamedone to 0

ENDIF

; ******************** Rename Block

IF (renameit == 1 && renamedone == 1 && castlename == 11)

SetCellFullName MycastleGrandHall "Bog Caramnis Grand Hall"

SetCellFullName MycastleWestWing "Bog Caramnis West Wing"

SetCellFullName MycastleEastWing "Bog Caramnis East Wing"

SetCellFullName MycastleUpperLevel "Bog Caramnis Upper Level"

SetCellFullName MycastleLowerLevel "Bog Caramnis Lower Level"

SetCellFullName MycastleArena "Bog Caramnis Arena"

SetCellFullName MycastleInnerSanctum "Bog Caramnis Inner Sanctum"

; SetCellFullName MycastleGarden "Gardens of Bog Caramnis"

set renameit to 0

set renamedone to 0

ENDIF

; ******************** Rename Block

IF (renameit == 1 && renamedone == 1 && castlename == 12)

SetCellFullName MycastleGrandHall "Veritas Keep Grand Hall"

SetCellFullName MycastleWestWing "Veritas Keep West Wing"

SetCellFullName MycastleEastWing "Veritas Keep East Wing"

SetCellFullName MycastleUpperLevel "Veritas Keep Upper Level"

SetCellFullName MycastleLowerLevel "Veritas Keep Lower Level"

SetCellFullName MycastleArena "Veritas Keep Arena"

SetCellFullName MycastleInnerSanctum "Veritas Keep Inner Sanctum"

; SetCellFullName MycastleGarden "Gardens of Veritas Keep"

set renameit to 0

set renamedone to 0

ENDIF

; ******************** Rename Block

IF (renameit == 1 && renamedone == 1 && castlename == 13)

SetCellFullName MycastleGrandHall "Castle Faust Grand Hall"

SetCellFullName MycastleWestWing "Castle Faust West Wing"

SetCellFullName MycastleEastWing "Castle Faust East Wing"

SetCellFullName MycastleUpperLevel "Castle Faust Upper Level"

SetCellFullName MycastleLowerLevel "Castle Faust Lower Level"

SetCellFullName MycastleArena "Castle Faust Arena"

SetCellFullName MycastleInnerSanctum "Castle Faust Inner Sanctum"

; SetCellFullName MycastleGarden "Gardens of Castle Faust"

set renameit to 0

set renamedone to 0

ENDIF

; ******************** Rename Block

IF (renameit == 1 && renamedone == 1 && castlename == 14)

SetCellFullName MycastleGrandHall "Home Grand Hall"

SetCellFullName MycastleWestWing "My Home West Wing"

SetCellFullName MycastleEastWing "My Home East Wing"

SetCellFullName MycastleUpperLevel "My Home, Upper Level"

SetCellFullName MycastleLowerLevel "My Home, Lower Level"

SetCellFullName MycastleArena "Arena of My Home"

SetCellFullName MycastleInnerSanctum "My Home, Inner Sanctum"

; SetCellFullName MycastleGarden "Gardens of My Home"

set renameit to 0

set renamedone to 0

ENDIF

; ******************** Rename Block

IF (renameit == 1 && renamedone == 1 && castlename == 15)

SetCellFullName MycastleGrandHall "Castle Ardor Grand Hall"

SetCellFullName MycastleWestWing "Castle Ardor West Wing"

SetCellFullName MycastleEastWing "Castle Ardor East Wing"

SetCellFullName MycastleUpperLevel "Castle Ardor Upper Level"

SetCellFullName MycastleLowerLevel "Castle Ardor Lower Level"

SetCellFullName MycastleArena "Castle Ardor Arena"

SetCellFullName MycastleInnerSanctum "Castle Ardor Inner Sanctum"

; SetCellFullName MycastleGarden "Gardens of Castle Ardor"

set renameit to 0

set renamedone to 0

ENDIF

 

If anyone can help please post IMMEDIATELY. Time is of the essence.

 

WarKirby

[Vagrant0]

It's already too late, and that's a large script to debug without knowing where it's shutting down. My first thought is that you need to detect if menumode is not active before moving to the next stage. If this isn't the case, you might want to chop that script down to two results, with an associated message (instead of a cell change). Then try to see what the problem is and how the solution can be applied to that script. Havn't had too good of results with message boxes myself, so I'm afraid I can't be of much help as to the specifics.

[WarKirby3333]

Well, times up and i need to go. If anyone could make the script work so I could add it a soon as I come back tough, that would be great.

 

Should be back around monday

 

WarKirby