Starting Items

Scorpious2k · #15 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) &lt; 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...