EQEmulator Forums

EQEmulator Forums (https://www.eqemulator.org/forums/index.php)
-   Archive::Development (https://www.eqemulator.org/forums/forumdisplay.php?f=621)
-   -   Starting Items (https://www.eqemulator.org/forums/showthread.php?t=9566)

Scorpious2k 09-27-2003 12:34 AM

Starting Items
 
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 09-27-2003 03:49 AM

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

Regards,

krich

Myra 09-27-2003 07:00 AM

Quote:

Originally Posted by krich
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 09-27-2003 08:56 AM

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 09-27-2003 11:08 AM

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 09-28-2003 09:45 AM

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 09-29-2003 08:50 AM

Quote:

Originally Posted by 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....

What's a BBS?

Trumpcard 09-29-2003 10:20 AM

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 09-29-2003 11:00 AM

Quote:

Originally Posted by Trumpcard
We're so old Scorp....

et tu Trumpcard?

Quote:

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!

Quote:

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.

Quote:

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 09-29-2003 12:38 PM

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 09-29-2003 01:20 PM

/dev/n00b,
Quote:

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 09-29-2003 05:49 PM

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 09-30-2003 11:29 AM

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 10-01-2003 12:34 AM

Quote:

Originally Posted by 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.

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
Code:

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

above
Code:

' 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
Code:

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 10-01-2003 01:04 AM

ooops, major brain flatulence event.

DoMisc adds the spells too...

change the candle entries to look like this
Code:

' 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
Code:

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...


All times are GMT -4. The time now is 03:47 AM.

Powered by vBulletin®, Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.