

Good news from Dev too! I think the Shining scene will only get stronger over the next few months

« previous next » |
Posts: 837
LoggedPosts: 142
LoggedPosts: 1,129
LoggedPosts: 142
LoggedPosts: 1,129
LoggedPosts: 142
LoggedPosts: 142
LoggedFunction Equipment_Check( PlayerName$ , WeaponNumber )
Select PlayerName$
Case "bowie" Name = bowie : Prom0 = sdmn : Prom1 = hero : Prom2 = 0
Case "sarah" Name = sarah : Prom0 = prst : Prom1 = vicr : Prom2 = mmnk
Case "chester" Name = chester : Prom0 = knte : Prom1 = pldn : Prom2 = pgnt
Case "jaha" Name = jaha : Prom0 = warr : Prom1 = gldt : Prom2 = brn
Case "kazin" Name = kazin : Prom0 = mage : Prom1 = wiz : Prom2 = sorc
Case "slade" Name = slade : Prom0 = thif : Prom1 = ninj : Prom2 = 0
Case "kiwi" Name = kiwi : Prom0 = tort : Prom1 = mnst : Prom2 = 0
Case "peter" Name = peter : Prom0 = phnk : Prom1 = phnx : Prom2 = 0
Case "may" Name = may : Prom0 = rngr : Prom1 = bwnt : Prom2 = 0
Case "gerhalt" Name = gerhalt : Prom0 = wfmn : Prom1 = wfbr : Prom2 = 0
Case "luke" Name = luke : Prom0 = bdmn : Prom1 = bdbt : Prom2 = 0
Case "rohde" Name = rohde : Prom0 = brgn : Prom1 = brgn : Prom2 = brgn
Case "rick" Name = rick : Prom0 = knte : Prom1 = pldn : Prom2 = pgnt
Case "elric" Name = elric : Prom0 = achr : Prom1 = snip : Prom2 = brgn
Case "eric" Name = eric : Prom0 = knte : Prom1 = pldn : Prom2 = pgnt
Case "karna" Name = karna : Prom0 = prst : Prom1 = vicr : Prom2 = mmnk
Case "randolf" Name = randolf : Prom0 = warr : Prom1 = gldt : Prom2 = brn
Case "tyrin" Name = tyrin : Prom0 = mage : Prom1 = wiz : Prom2 = sorc
Case "janet" Name = janet : Prom0 = achr : Prom1 = snip : Prom2 = brgn
Case "higgins" Name = higgins : Prom0 = pldn : Prom1 = pldn : Prom2 = pldn
Case "taya" Name = taya : Prom0 = sorc : Prom1 = sorc : Prom2 = sorc
Case "skreech" Name = skreech : Prom0 = 0 : Prom1 = 0 : Prom2 = 0
Case "frayja" Name = frayja : Prom0 = vicr : Prom1 = vicr : Prom2 = vicr
Case "jaro" Name = jaro : Prom0 = pgnt : Prom1 = pgnt : Prom2 = pgnt
Case "gyan" Name = gyan : Prom0 = gldt : Prom1 = gldt : Prom2 = gldt
Case "sheela" Name = sheela : Prom0 = mmnk : Prom1 = mmnk : Prom2 = mmnk
Case "zynk" Name = zynk : Prom0 = rbt : Prom1 = rbt : Prom2 = rbt
Case "claude" Name = claude : Prom0 = glm : Prom1 = glm : Prom2 = glm
Case "chaz" Name = chaz : Prom0 = wiz : Prom1 = wiz : Prom2 = wiz
Case "lemon" Name = lemon : Prom0 = brn : Prom1 = brn : Prom2 = brn
End Select
For T = 1 To 7
Select Warray ( Name , 1 )
Case -1
If Prom0 <> 0
If ( Weapon_Data ( WeaponNumber , ( 6 + T )) = Prom0 )
Return True
EndIf
EndIf
Case 0
If Prom0 <> 0
If ( Weapon_Data ( WeaponNumber , ( 6 + T )) = Prom0 )
Return True
EndIf
EndIf
Case 1
If Prom1 <> 0
If ( Weapon_Data ( WeaponNumber , ( 6 + T )) = Prom1 )
Return True
EndIf
EndIf
Case 2
If Prom2 <> 0
If ( Weapon_Data ( WeaponNumber , ( 6 + T )) = Prom2 )
Return True
EndIf
EndIf
End Select
Next
Return False
End Function
Posts: 142
LoggedPosts: 1,129
LoggedPosts: 142
LoggedPosts: 1,129
LoggedPosts: 837
LoggedPosts: 142
LoggedPosts: 1,208
LoggedPosts: 837
Logged