Posted by: icelus
« on: March 11, 2006, 09:32:37 PM »Well, this one's done.
.tp2 code:
revised .d code:
.tp2 code:
Code: [Select]
/////\\\\\/////\\\\\/////\\\\\/////\\\\\/////\\\\\/////\\\\\
/////\\\\\/////\\\\\/////\\\\\/////\\\\\/////\\\\\/////\\\\\
///// \\\\\
///// Edie, the Merchant League Applicant \\\\\
///// \\\\\
/////\\\\\/////\\\\\/////\\\\\/////\\\\\/////\\\\\/////\\\\\
/////\\\\\/////\\\\\/////\\\\\/////\\\\\/////\\\\\/////\\\\\
BEGIN ~Edie, the Merchant League Applicant~
COPY_EXISTING EDIE.CRE OVERRIDE
WRITE_ASCII 0x2cc ~UBEDIE~ #8
WRITE_ASCII 0x280 ~Edie~
BUT_ONLY_IF_IT_CHANGES
COMPILE ~bg1ub/edie/ubedie.d~
<<<<<<<< .../bg1ub/ub_ar0128.baf
IF
Global("UB_EDIE_SPAWN","GLOBAL",0)
!Exists("Edie")
!Dead("Edie")
THEN
RESPONSE #100
CreateCreature("EDIE",[1102.917],4)
SetGlobal("UB_EDIE_SPAWN","GLOBAL",1)
END
>>>>>>>>
EXTEND_BOTTOM AR0128.BCS ~.../bg1ub/ub_ar0128.baf~
revised .d code:
Code: [Select]
BEGIN ~UBEDIE~
IF ~NumTimesTalkedTo(0)~ THEN BEGIN Greeting
SAY ~You have to pass a big test to get into the Merchants' League around here so I've been studying and studying but it just doesn't seem to sink in. Being merchants, I don't think they're too concerned about honesty and integrity, though. If you've got a potion or something that would bump up my intelligence or wisdom for the next little bit, I'd greatly appreciate it.~
IF ~~ THEN REPLY ~Sure, why not? I was never fond of tests, myself. I'll see what I can do to help.~ DO ~SetGlobal("HelpUBEdie","GLOBAL",1)~ JOURNAL ~The young Edie has asked for my assistance in cheating on Baldur's Gate's Merchants' League's dreaded entrance examination. It would admittedly be less than honorable but perhaps a little bit of intelligence- or wisdom-influencing potion might do the trick...~ EXIT
IF ~~ THEN REPLY ~I'm not going to help you cheat on a test!~ GOTO NoThanks
IF ~PartyHasItem("POTN29")~ THEN REPLY ~Here, I have a Potion of Genius. Would that help?~ GOTO Genius
IF ~PartyHasItem("POTN37")~ THEN REPLY ~Here, I have a Potion of Mind Focusing. Would that help?~ GOTO Focusing
IF ~PartyHasItem("POTN43")~ THEN REPLY ~Here, I have a Potion of Insight. Would that help?~ GOTO Insight
IF ~~ THEN REPLY ~No, I won't help you. I hope you fail your test.~ GOTO Rude
END
IF ~Global("HelpUBEdie","GLOBAL",1)~ THEN BEGIN Return
SAY ~Well, hello again. I hope that you have returned with something special for me...~
IF ~~ THEN REPLY ~Actually, I've decided that I am not comfortable helping you cheat on a test. My apologies.~ GOTO NoThanks
IF ~~ THEN REPLY ~Forget it. I won't help you, and I hope you fail.~ GOTO Rude
IF ~PartyHasItem("POTN29")~ THEN REPLY ~Here, I have a Potion of Genius. Would that help?~ GOTO Genius
IF ~PartyHasItem("POTN37")~ THEN REPLY ~Here, I have a Potion of Mind Focusing. Would that help?~ GOTO Focusing
IF ~PartyHasItem("POTN43")~ THEN REPLY ~Here, I have a Potion of Insight. Would that help?~ GOTO Insight
IF ~!PartyHasItem("POTN29")
!PartyHasItem("POTN37")
!PartyHasItem("POTN43")~ THEN REPLY ~No, not yet. I will keep looking, though.~ EXIT
END
IF ~~ THEN BEGIN Genius
SAY ~Yes, I think it just might! Thanks so much! Here's 50 gp. I'll let you know how it turns out.~
IF ~~ THEN DO ~AddexperienceParty(500)
GivePartyGold(500)
TakePartyItem("POTN29")
SetGlobalTimer("UBEdie","GLOBAL",ONE_DAY)
SetGlobal("HelpUBEdie","GLOBAL",2)
SetGlobal("GaveUBEdiePotion","GLOBAL",1)~ EXIT
END
IF ~~ THEN BEGIN Focusing
SAY ~Yes, I think it just might! Thanks so much! Here's 50 gp. I'll let you know how it turns out.~
IF ~~ THEN DO ~AddexperienceParty(500)
GivePartyGold(500)
TakePartyItem("POTN37")
SetGlobalTimer("UBEdie","GLOBAL",ONE_DAY)
SetGlobal("HelpUBEdie","GLOBAL",2)
SetGlobal("GaveUBEdiePotion","GLOBAL",1)~ EXIT
END
IF ~~ THEN BEGIN Insight
SAY ~Yes, I think it just might! Thanks so much! Here's 50 gp. I'll let you know how it turns out. The test is in one day.~
IF ~~ THEN DO ~AddexperienceParty(500)
GivePartyGold(500)
TakePartyItem("POTN43")
SetGlobalTimer("UBEdie","GLOBAL",ONE_DAY)
SetGlobal("HelpUBEdie","GLOBAL",2)
SetGlobal("GaveUBEdiePotion","GLOBAL",1)~ EXIT
END
IF ~Global("GaveUBEdiePotion","GLOBAL",1)
!GlobalTimerExpired("UBEdie","GLOBAL")~ THEN BEGIN Waiting
SAY #15175 /* ~Please be quiet. I'm trying to study.~ */
IF ~~ THEN DO ~~ EXIT
END
IF ~Global("DenyUBEdieHelp","GLOBAL",1)~ THEN BEGIN Waiting
SAY #15175 /* ~Please be quiet. I'm trying to study.~ */
IF ~~ THEN DO ~~ EXIT
END
IF ~GlobalTimerExpired("UBEdie","GLOBAL")~ THEN BEGIN 5 // from:
SAY ~What a weird test... The entire point of it was to get people to cheat like that. "Seize every possible advantage," the instructors said afterwards. When I told them you gave that to me for only 50 gp, they passed me with flying colors! Capitalism is so strange. Oh, well. I really should be getting home now. Thank you again for your help.~
IF ~~ THEN DO ~SetGlobal("GaveUBEdiePotion","GLOBAL",2) EscapeArea()~ EXIT
END
IF ~StateCheck(Myself,8192)~ THEN BEGIN Charmed
SAY #15178 /* ~I hate tests...~ */
IF ~~ THEN DO ~~ EXIT
END
IF ~~ THEN BEGIN Rude
SAY ~There's no need for that kind of attitude. I will just go study somewhere else.~
IF ~~ THEN DO ~SetGlobal("DenyUBEdieHelp","GLOBAL",1) EscapeArea()~ EXIT
END
IF ~~ THEN BEGIN NoThanks
SAY ~Well, thanks for nothing, I suppose. Now, if you'll excuse, I have more studying to do, and less time in which to do it, thanks to you.~
IF ~~ THEN DO ~SetGlobal("DenyUBEdieHelp","GLOBAL",1)~ EXIT
END