Starting Items

[Scorpious2k]

If you are having trouble with players getting starting items...

I wrote this quick & dirty program in quickBASIc that cenerates all combinations based on tables in it, and creates an sql file that can be sourced into the db. It isn't perfect, but the results can be editted if you want to try for perfect, and the tables are modifiable. Rubs with QBASIC or quickBASIC.

[code]
DECLARE SUB doMisc ()
DECLARE SUB doNote ()
DECLARE SUB doWeapon ()
DECLARE SUB doForAll ()
OPTION BASE 1
' ======================================
' sql entry text
' ======================================
DATA "INSERT INTO starting_items VALUES ("

' ======================================
' starting cities by race
' race,zone
' ======================================

' 1 - Human, Freeport*, Qeynos*
DATA 1,1
DATA 1,2
DATA 1,8
DATA 1,9
DATA 1,10

' 2 - Barbarian, Halas
DATA 2,29

' 3 - Erudite,Erudin
DATA 3,24

' 4 - Wood Elf,Kelethin (Greater Faydark)
DATA 4,54

' 5 - High Elf,Felwithe*
DATA 5,61
DATA 5,62

' 6 - Dark Elf,Neriak*
DATA 6,40
DATA 6,41
DATA 6,42

' 7 - Half Elf,Qeynos*, Freeport*, Kelethin
DATA 7,1
DATA 7,2
DATA 7,8
DATA 7,9
DATA 7,10
DATA 7,54

' 8 - Dwarf,Kaladim*
DATA 8,60
DATA 8,67

' 9 - Troll,Grobb
DATA 9,52

' 10 - Ogre,Oggok
DATA 10,49

' 11 - Halfling,Rivervale
DATA 11,19

' 12 - Gnome,Ak

[krich]

You're a genius (with good timing). I'm going to use this.

Regards,

krich

[Myra]

You're a genius (with good timing). I'm going to use this.

Regards,

krich

Actuly he's off one or two IQ points, and he scored very low in humility.

[Scorpious2k]

Thanks Krich, glad to help.

As for Myra (who happens to be my daughter)... note to self: never tell the kids test scores.

And re humility... read my sig. :-)

[devn00b]

lol gotta love it when yer kids start to bag on you on message boards =P.

my mom used to log into my BBS way back when and do that. used to make peeps LoL

[Scorpious2k]

Tell me about it!

They take the programming "miracles" I pull off for granted too. I guess they're spoiled. The last one, Myra pointed out, took 3 days to fix. She commented it took longer than usual and asked was that because I was getting OLD. <sigh>

BTW, I ran a fidonet BBS back in the old days and was one of the local network hubs for echo distribution....

[Myra]

Tell me about it!

They take the programming "miracles" I pull off for granted too. I guess they're spoiled. The last one, Myra pointed out, took 3 days to fix. She commented it took longer than usual and asked was that because I was getting OLD. <sigh>

BTW, I ran a fidonet BBS back in the old days and was one of the local network hubs for echo distribution....
What's a BBS?

[Trumpcard]

We're so old Scorp....

BBS is Bulletin Board System... Imagine it as a website with a phone line hooked to it. You had to dial it up and connect to it.

I havent heard Fidonet in years....

I remember getting excited when I upgraded my 300 baud modem to 1200, I could download an entire floppy disk in less than 6 hours! Zmodem was a gift from god... Any protocal that would support 'resumes'...

So few of the kids here know the joy in beating a text game...

I can type 100 wpm with 2 fingers thanks to Zork !

[Scorpious2k]

We're so old Scorp....

et tu Trumpcard?

I remember getting excited when I upgraded my 300 baud modem to 1200

me too... filled a full screen in about a minute! That thing flew!

Zmodem was a gift from god... Any protocal that would support 'resumes'...

I used Binkleyterm as my frontend... it had Janus protocal :-)

and this was on OS/2, so I had it packing and unpacking mail as the download progressed.

So few of the kids here know the joy in beating a text game...

and you should see them roll their eyes when I start "back in my day..." LOL

[devn00b]

I used to run a WWiV 4.22 modded to hell bbs, man those where the days. i had a 300baud modem...i dont even want to think of that thing...was as big as a laptop and 3x as heavy.

my savior was Ymodem-G. Faster than Zmodem (no CRC32 checks).
lol i remember reading posts that took 20mins to download because somone was too long winded.

Remeber when that 10meg hdd was huge? i still have my 10meg MFM drive, i use it to hold my front door open. its like 15lbs and 4-5 modern hdd's thick.

[Memener]

/dev/n00b,
i use it to hold my front door open. its like 15lbs and 4-5 modern hdd's thick.


lol yea i rember that the HD wight like 5 pounds. I bought a old computer from a handme down store for $15. I didnt have an old 9 pin VGA monitor so i just took it apart. The disks in the HD were almost the size of a CD...


LOL i know this is off topic but i love talking about old computers

[kai_shadowbane]

one small change for those that couldn't get it to work in qbasic
(I kept getting a compile error dealing with the quantity string)

' ======================================
' slots 1-3 - Milk, bread cakes, tome of order and discord
' everyone gets these
' item #,quantity
' ======================================

DATA 9990,20
DATA 9991,20
DATA 18700,1
DATA -1,-1 ' end table

Change this last line to:

DATA -1,-1
'end table

[krich]

Looks like the section starting with line 412 should have 9979 as the item number for a "worn candle" rather than 18710 which is a human pally note, i think.

Regards,

krich

[Scorpious2k]

Looks like the section starting with line 412 should have 9979 as the item number for a "worn candle" rather than 18710 which is a human pally note, i think.

Changed. Also I have a couple of others. I think you'll end up with multiple candles in some cases. So I suggest first off moving the line

' Misc. Items - Candle of the Plaguebringers
DATA 0, 0, 201, 0, 9982

above

' Misc. items - Worn candle
DATA 0, 0, 212, 0, 9979
DATA 0, 0, 208, 0, 9979
DATA 2, 0, 0, 0, 9979

rather than below it. Then change DoMisc to read

SUB doMisc
flag% = 1
z = 1
WHILE misc(z, 5) > 0 AND flag% > 0
IF (misc(z, 1) = 0 OR misc(z, 1) = rac) THEN
IF (misc(z, 2) = 0 OR misc(z, 2) = cla) THEN
IF (misc(z, 3) = 0 OR misc(z, 3) = diety(dty)) THEN
IF (misc(z, 4) = 0 OR misc(z, 4) = cty) THEN
PRINT #1, txt; count; ","; rac; ","; cla; ","; diety(dty); ",";
PRINT #1, cty; ","; misc(z, 5); ",1,0);"
count = count + 1
flag% = 0
END IF
END IF
END IF
END IF
z = z + 1
WEND
END SUB


This makes the candle moved be selected first if it is appropriate and causes DoMisc to only select one item instead of going thru the whole table possibly selecting multiple.

I guess you noticed I really like tables and use them a lot :-)

[Scorpious2k]

ooops, major brain flatulence event.

DoMisc adds the spells too...

change the candle entries to look like this

' Misc. Items - Candle of the Plaguebringers
DATA 0, 0, 201, -1, 9982

' Misc. items - Worn candle
DATA 0, 0, 212, -1, 9979
DATA 0, 0, 208, -1, 9979
DATA 2, 0, 0, -1, 9979


and DoMisc to this

SUB doMisc
flag% = 1
z = 1
WHILE misc(z, 5) > 0 AND flag% >= 0
IF (misc(z, 1) = 0 OR misc(z, 1) = rac) THEN
IF (misc(z, 2) = 0 OR misc(z, 2) = cla) THEN
IF (misc(z, 3) = 0 OR misc(z, 3) = diety(dty)) THEN
IF (misc(z, 4) < 1 OR misc(z, 4) = cty) THEN
PRINT #1, txt; count; ","; rac; ","; cla; ","; diety(dty); ",";
PRINT #1, cty; ","; misc(z, 5); ",1,0);"
count = count + 1
flag% = misc(z, 4)
END IF
END IF
END IF
END IF
z = z + 1
WEND
END SUB


that should work...