ChrisWR

egh , alright , thats what i was afraid of , thnx erwin

Ok , ive tried installing visual basic 6 over and over on linux distro Ubuntu 11.04, with no luck no matter what i do. So i did some searching and came across Real Basic, the (cross platform vb6). Im just wondering if anyone has any experience using this program , if so , can i use it to work with my client and server code on eclipse origins? :confused:

~~Does anyone know if its possible to install Visual Basic 6 Enterprise edition on a linux system? I have a laptop running Ubuntu 11.04 and i tried using wine but it wont seem to work….. If anyone knows if this is possible, any help or maybe a link to a how-to would be wonderful. thanks in advance! :cheesy:~~ Well im sorry i even posted this , i had to go to wine configuration and set the setup.exe to run as "windows me" XD

umm yep , i think i got it all correct….. ``` Sub SetPlayerExp(ByVal Index As Long, ByVal EXP As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).EXP = EXP ' Error handler Exit Sub errorhandler: HandleError "SetPlayerExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub 'proficiencies 'sword Function GetPlayerSwords(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerSwords = Player(Index).Swords ' Error handler Exit Function errorhandler: HandleError "GetPlayerSwords", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerSwords(ByVal Index As Long, ByVal Swords As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).Swords = Swords ' Error handler Exit Sub errorhandler: HandleError "SetPlayerSwords", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Function GetPlayerSwordsExp(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerSwordsExp = Player(Index).SwordsExp ' Error handler Exit Function errorhandler: HandleError "GetPlayerSwordsExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerSwordsExp(ByVal Index As Long, ByVal SwordsExp As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).SwordsExp = SwordsExp ' Error handler Exit Sub errorhandler: HandleError "SetPlayerSwordsExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ' axes Function GetPlayerAxes(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerAxes = Player(Index).Axes ' Error handler Exit Function errorhandler: HandleError "GetPlayerAxes", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerAxes(ByVal Index As Long, ByVal Axes As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).Axes = Axes ' Error handler Exit Sub errorhandler: HandleError "SetPlayerAxes", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Function GetPlayerAxesExp(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerAxesExp = Player(Index).AxesExp ' Error handler Exit Function errorhandler: HandleError "GetPlayerAxesExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerAxesExp(ByVal Index As Long, ByVal AxesExp As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).AxesExp = AxesExp ' Error handler Exit Sub errorhandler: HandleError "SetPlayerAxesExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ' bows Function GetPlayerBows(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerBows = Player(Index).Bows ' Error handler Exit Function errorhandler: HandleError "GetPlayerBows", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerBows(ByVal Index As Long, ByVal Bows As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).Bows = Bows ' Error handler Exit Sub errorhandler: HandleError "SetPlayerBows", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Function GetPlayerBowsExp(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerBowsExp = Player(Index).BowsExp ' Error handler Exit Function errorhandler: HandleError "GetPlayerBowsExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerBowsExp(ByVal Index As Long, ByVal BowsExp As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).BowsExp = BowsExp ' Error handler Exit Sub errorhandler: HandleError "SetPlayerBowsExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ' pistols Function GetPlayerPistols(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerPistols = Player(Index).Pistols ' Error handler Exit Function errorhandler: HandleError "GetPlayerPistols", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerPistols(ByVal Index As Long, ByVal Pistols As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).Pistols = Pistols ' Error handler Exit Sub errorhandler: HandleError "SetPlayerPistols", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Function GetPlayerPistolsExp(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerPistolsExp = Player(Index).PistolsExp ' Error handler Exit Function errorhandler: HandleError "GetPlayerPistolsExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerPistolsExp(ByVal Index As Long, ByVal PistolsExp As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).PistolsExp = PistolsExp ' Error handler Exit Sub errorhandler: HandleError "SetPlayerPistolsExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ' daggers Function GetPlayerDaggers(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerDaggers = Player(Index).daggers ' Error handler Exit Function errorhandler: HandleError "GetPlayerdaggers", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerDaggers(ByVal Index As Long, ByVal daggers As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).daggers = daggers ' Error handler Exit Sub errorhandler: HandleError "SetPlayerDaggers", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Function GetPlayerDaggersExp(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerDaggersExp = Player(Index).DaggersExp ' Error handler Exit Function errorhandler: HandleError "GetPlayerDaggersExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerDaggersExp(ByVal Index As Long, ByVal DaggersExp As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).DaggersExp = DaggersExp ' Error handler Exit Sub errorhandler: HandleError "SetPlayerDaggersExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ' maces Function GetPlayerMaces(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerMaces = Player(Index).Maces ' Error handler Exit Function errorhandler: HandleError "GetPlayerMaces", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerMaces(ByVal Index As Long, ByVal Maces As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).Maces = Maces ' Error handler Exit Sub errorhandler: HandleError "SetPlayerMaces", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Function GetPlayerMacesExp(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerMacesExp = Player(Index).MacesExp ' Error handler Exit Function errorhandler: HandleError "GetPlayerMacesExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerMacesExp(ByVal Index As Long, ByVal MacesExp As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).MacesExp = MacesExp ' Error handler Exit Sub errorhandler: HandleError "SetPlayerMacesExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ' Scythes Function GetPlayerScythes(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerScythes = Player(Index).Scythes ' Error handler Exit Function errorhandler: HandleError "GetPlayerScythes", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerScythes(ByVal Index As Long, ByVal Scythes As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).Scythes = Scythes ' Error handler Exit Sub errorhandler: HandleError "SetPlayerscythes", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Function GetPlayerScythesExp(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerScythesExp = Player(Index).ScythesExp ' Error handler Exit Function errorhandler: HandleError "GetPlayerScythesExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerScythesExp(ByVal Index As Long, ByVal ScythesExp As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).ScythesExp = ScythesExp ' Error handler Exit Sub errorhandler: HandleError "SetPlayerScythesExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ' staffs Function GetPlayerStaffs(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerStaffs = Player(Index).Staffs ' Error handler Exit Function errorhandler: HandleError "GetPlayerStaffs", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerStaffs(ByVal Index As Long, ByVal Staffs As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).Staffs = Staffs ' Error handler Exit Sub errorhandler: HandleError "SetPlayerStaffs", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Function GetPlayerStaffsExp(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerStaffsExp = Player(Index).StaffsExp ' Error handler Exit Function errorhandler: HandleError "GetPlayerStaffsExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerStaffsExp(ByVal Index As Long, ByVal StaffsExp As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).StaffsExp = StaffsExp ' Error handler Exit Sub errorhandler: HandleError "SetPlayerStaffsExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ' claws Function GetPlayerClaws(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerClaws = Player(Index).Claws ' Error handler Exit Function errorhandler: HandleError "GetPlayerClaws", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerClaws(ByVal Index As Long, ByVal Claws As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).Claws = Claws ' Error handler Exit Sub errorhandler: HandleError "SetPlayerClaws", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Function GetPlayerClawsExp(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerClawsExp = Player(Index).ClawsExp ' Error handler Exit Function errorhandler: HandleError "GetPlayerClawsExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerClawsExp(ByVal Index As Long, ByVal ClawsExp As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).ClawsExp = ClawsExp ' Error handler Exit Sub errorhandler: HandleError "SetPlayerClawsExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ' clubs Function GetPlayerClubs(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerClubs = Player(Index).Clubs ' Error handler Exit Function errorhandler: HandleError "GetPlayerClubs", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerClubs(ByVal Index As Long, ByVal Clubs As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).Clubs = Clubs ' Error handler Exit Sub errorhandler: HandleError "SetPlayerClubs", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Function GetPlayerClubsExp(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerClubsExp = Player(Index).ClubsExp ' Error handler Exit Function errorhandler: HandleError "GetPlayerClubsExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerClubsExp(ByVal Index As Long, ByVal ClubsExp As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).ClubsExp = ClubsExp ' Error handler Exit Sub errorhandler: HandleError "SetPlayerClubsExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ' hammers Function GetPlayerHammers(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerHammers = Player(Index).Hammers ' Error handler Exit Function errorhandler: HandleError "GetPlayerHammers", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerHammers(ByVal Index As Long, ByVal Hammers As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).Hammers = Hammers ' Error handler Exit Sub errorhandler: HandleError "SetPlayerHammers", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Function GetPlayerHammersExp(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerHammersExp = Player(Index).HammersExp ' Error handler Exit Function errorhandler: HandleError "GetPlayerHammersExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerHammersExp(ByVal Index As Long, ByVal HammersExp As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).HammersExp = HammersExp ' Error handler Exit Sub errorhandler: HandleError "SetPlayerHammersExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ' launchers Function GetPlayerLaunchers(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerLaunchers = Player(Index).Launchers ' Error handler Exit Function errorhandler: HandleError "GetPlayerLaunchers", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerLaunchers(ByVal Index As Long, ByVal Launchers As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).Launchers = Launchers ' Error handler Exit Sub errorhandler: HandleError "SetPlayerLaunchers", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Function GetPlayerLaunchersExp(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerLaunchersExp = Player(Index).LaunchersExp ' Error handler Exit Function errorhandler: HandleError "GetPlayerLaunchersExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerLaunchersExp(ByVal Index As Long, ByVal LaunchersExp As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).LaunchersExp = LaunchersExp ' Error handler Exit Sub errorhandler: HandleError "SetPlayerLaunchersExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ' Slings Function GetPlayerSlings(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerSlings = Player(Index).Slings ' Error handler Exit Function errorhandler: HandleError "GetPlayerSlings", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerSlings(ByVal Index As Long, ByVal Slings As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).Slings = Slings ' Error handler Exit Sub errorhandler: HandleError "SetPlayerSlings", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Function GetPlayerSlingsExp(ByVal Index As Long) As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Function GetPlayerSlingsExp = Player(Index).SlingsExp ' Error handler Exit Function errorhandler: HandleError "GetPlayerSlingsExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Function End Function Sub SetPlayerSlingsExp(ByVal Index As Long, ByVal SlingsExp As Long) ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If Index > MAX_PLAYERS Then Exit Sub Player(Index).SlingsExp = SlingsExp ' Error handler Exit Sub errorhandler: HandleError "SetPlayerSlingsExp", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ' end proficiencies ```

:O does that go in the getplayernextlevel function or after? cause i got it after otherwise im sure i got that all, i do have 13 types of weapons though Here my playerrec: ``` Private Type PlayerRec ' Account Login As String * ACCOUNT_LENGTH Password As String * NAME_LENGTH ' General Name As String * ACCOUNT_LENGTH Sex As Byte Class As Long Sprite As Long Level As Byte exp As Long Access As Byte PK As Byte ' Vitals Vital(1 To Vitals.Vital_Count - 1) As Long ' Stats Stat(1 To Stats.Stat_Count - 1) As Byte POINTS As Long ' Worn equipment Equipment(1 To Equipment.Equipment_Count - 1) As Long ' Inventory Inv(1 To MAX_INV) As PlayerInvRec Spell(1 To MAX_PLAYER_SPELLS) As Long ' Hotbar Hotbar(1 To MAX_HOTBAR) As HotbarRec ' Position Map As Long x As Byte y As Byte Dir As Byte PlayerQuest(1 To MAX_QUESTS) As PlayerQuestRec ' Proficiencies Swords As Byte ' sw Axes As Byte ' ax Bows As Byte ' bw Pistols As Byte ' ps Daggers As Byte ' dg Maces As Byte ' mc Scythes As Byte ' sy Staffs As Byte ' st Claws As Byte ' cw Clubs As Byte ' cl Hammers As Byte ' hm Launchers As Byte ' lc Slings As Byte ' sl SwordsExp As Long AxesExp As Long BowsExp As Long PistolsExp As Long DaggersExp As Long MacesExp As Long ScythesExp As Long StaffsExp As Long ClawsExp As Long ClubsExp As Long HammersExp As Long LaunchersExp As Long SlingsExp As Long End Type ``` heres my itemrec: ``` Private Type ItemRec Name As String * NAME_LENGTH Desc As String * 255 Sound As String * NAME_LENGTH Pic As Long Type As Byte Data1 As Long Data2 As Long Data3 As Long ClassReq As Long AccessReq As Long LevelReq As Long Mastery As Byte price As Long Add_Stat(1 To Stats.Stat_Count - 1) As Byte Rarity As Byte Speed As Long Handed As Long BindType As Byte Stat_Req(1 To Stats.Stat_Count - 1) As Byte Animation As Long Paperdoll As Long AddHP As Long AddMP As Long AddEXP As Long CastSpell As Long instaCast As Byte ProjecTile As ProjectileRec ' Proficiencies Swords As Long Axes As Long Bows As Long Pistols As Long Daggers As Long Maces As Long Scythes As Long Staffs As Long Claws As Long Clubs As Long Hammers As Long Launchers As Long Slings As Long SwordsExp As Long AxesExp As Long BowsExp As Long PistolsExp As Long DaggersExp As Long MacesExp As Long ScythesExp As Long StaffsExp As Long ClawsExp As Long ClubsExp As Long HammersExp As Long LaunchersExp As Long SlingsExp As Long End Type ``` and heres my getplayernextlevel (and the code i added "after" it): ``` Function GetPlayerNextLevel(ByVal Index As Long) As Long GetPlayerNextLevel = (50 / 3) * ((GetPlayerLevel(Index) + 1) ^ 3 - (6 * (GetPlayerLevel(Index) + 1) ^ 2) + 17 * (GetPlayerLevel(Index) + 1) - 12) End Function ' Proficeicies '*************************************** ' Swords Skill Level '*************************************** Function GetPlayerSwords(ByVal Index As Long) As Long If Index > MAX_PLAYERS Then Exit Function GetPlayerSwords = Player(Index).Swords End Function Function SetPlayerSwords(ByVal Index As Long, ByVal Swords As Long) SetPlayerSwords = False If Swords > MAX_SKILL_LEVEL Then Exit Function Player(Index).Swords = Swords SetPlayerSwords = True End Function Function GetPlayerSwordsExp(ByVal Index As Long) As Long GetPlayerSwordsExp = Player(Index).SwordsExp End Function Sub SetPlayerSwordsExp(ByVal Index As Long, ByVal SwordsExp As Long) Player(Index).SwordsExp = SwordsExp SendEXP Index If GetPlayerSwordsExp(Index) >= GetPlayerNextSwordsLevel(Index) Then SwordsLevelUp Index End Sub Public Function GetPlayerNextSwordsLevel(ByVal Index As Long) As Long GetPlayerNextSwordsLevel = (50 / 3) * ((GetPlayerSwords(Index) + 1) ^ 3 - (6 * (GetPlayerSwords(Index) + 1) ^ 2) + 17 * (GetPlayerSwords(Index) + 1) - 12) End Function ' axes skill level Function GetPlayerAxes(ByVal Index As Long) As Long If Index > MAX_PLAYERS Then Exit Function GetPlayerAxes = Player(Index).Axes End Function Function SetPlayerAxes(ByVal Index As Long, ByVal Axes As Long) SetPlayerAxes = False If Axes > MAX_SKILL_LEVEL Then Exit Function Player(Index).Axes = Axes SetPlayerAxes = True End Function Function GetPlayerAxesExp(ByVal Index As Long) As Long GetPlayerAxesExp = Player(Index).AxesExp End Function Sub SetPlayerAxesExp(ByVal Index As Long, ByVal AxesExp As Long) Player(Index).AxesExp = AxesExp SendEXP Index If GetPlayerAxesExp(Index) >= GetPlayerNextAxesLevel(Index) Then AxesLevelUp Index End Sub Public Function GetPlayerNextAxesLevel(ByVal Index As Long) As Long GetPlayerNextAxesLevel = (50 / 3) * ((GetPlayerAxes(Index) + 1) ^ 3 - (6 * (GetPlayerAxes(Index) + 1) ^ 2) + 17 * (GetPlayerAxes(Index) + 1) - 12) End Function 'Bows Function GetPlayerBows(ByVal Index As Long) As Long If Index > MAX_PLAYERS Then Exit Function GetPlayerBows = Player(Index).Bows End Function Function SetPlayerBows(ByVal Index As Long, ByVal Bows As Long) SetPlayerBows = False If Bows > MAX_SKILL_LEVEL Then Exit Function Player(Index).Bows = Bows SetPlayerBows = True End Function Function GetPlayerBowsExp(ByVal Index As Long) As Long GetPlayerBowsExp = Player(Index).BowsExp End Function Sub SetPlayerBowsExp(ByVal Index As Long, ByVal BowsExp As Long) Player(Index).BowsExp = BowsExp SendEXP Index If GetPlayerBowsExp(Index) >= GetPlayerNextBowsLevel(Index) Then BowsLevelUp Index End Sub Public Function GetPlayerNextBowsLevel(ByVal Index As Long) As Long GetPlayerNextBowsLevel = (50 / 3) * ((GetPlayerBows(Index) + 1) ^ 3 - (6 * (GetPlayerBows(Index) + 1) ^ 2) + 17 * (GetPlayerBows(Index) + 1) - 12) End Function ' Pistols Function GetPlayerPistols(ByVal Index As Long) As Long If Index > MAX_PLAYERS Then Exit Function GetPlayerPistols = Player(Index).Pistols End Function Function SetPlayerPistols(ByVal Index As Long, ByVal Pistols As Long) SetPlayerPistols = False If Pistols > MAX_SKILL_LEVEL Then Exit Function Player(Index).Pistols = Pistols SetPlayerPistols = True End Function Function GetPlayerPistolsExp(ByVal Index As Long) As Long GetPlayerPistolsExp = Player(Index).PistolsExp End Function Sub SetPlayerPistolsExp(ByVal Index As Long, ByVal PistolsExp As Long) Player(Index).PistolsExp = PistolsExp SendEXP Index If GetPlayerPistolsExp(Index) >= GetPlayerNextPistolsLevel(Index) Then PistolsLevelUp Index End Sub Public Function GetPlayerNextPistolsLevel(ByVal Index As Long) As Long GetPlayerNextPistolsLevel = (50 / 3) * ((GetPlayerPistols(Index) + 1) ^ 3 - (6 * (GetPlayerPistols(Index) + 1) ^ 2) + 17 * (GetPlayerPistols(Index) + 1) - 12) End Function ' Daggers Function GetPlayerDaggers(ByVal Index As Long) As Long If Index > MAX_PLAYERS Then Exit Function GetPlayerDaggers = Player(Index).Daggers End Function Function SetPlayerDaggers(ByVal Index As Long, ByVal Daggers As Long) SetPlayerDaggers = False If Daggers > MAX_SKILL_LEVEL Then Exit Function Player(Index).Daggers = Daggers SetPlayerDaggers = True End Function Function GetPlayerDaggersExp(ByVal Index As Long) As Long GetPlayerDaggersExp = Player(Index).DaggersExp End Function Sub SetPlayerDaggersExp(ByVal Index As Long, ByVal DaggersExp As Long) Player(Index).DaggersExp = DaggersExp SendEXP Index If GetPlayerDaggersExp(Index) >= GetPlayerNextDaggersLevel(Index) Then DaggersLevelUp Index End Sub Public Function GetPlayerNextDaggersLevel(ByVal Index As Long) As Long GetPlayerNextDaggersLevel = (50 / 3) * ((GetPlayerDaggers(Index) + 1) ^ 3 - (6 * (GetPlayerDaggers(Index) + 1) ^ 2) + 17 * (GetPlayerDaggers(Index) + 1) - 12) End Function ' Maces Function GetPlayerMaces(ByVal Index As Long) As Long If Index > MAX_PLAYERS Then Exit Function GetPlayerMaces = Player(Index).Maces End Function Function SetPlayerMaces(ByVal Index As Long, ByVal Maces As Long) SetPlayerMaces = False If Maces > MAX_SKILL_LEVEL Then Exit Function Player(Index).Maces = Maces SetPlayerMaces = True End Function Function GetPlayerMacesExp(ByVal Index As Long) As Long GetPlayerMacesExp = Player(Index).MacesExp End Function Sub SetPlayerMacesExp(ByVal Index As Long, ByVal MacesExp As Long) Player(Index).MacesExp = MacesExp SendEXP Index If GetPlayerMacesExp(Index) >= GetPlayerNextMacesLevel(Index) Then MacesLevelUp Index End Sub Public Function GetPlayerNextMacesLevel(ByVal Index As Long) As Long GetPlayerNextMacesLevel = (50 / 3) * ((GetPlayerMaces(Index) + 1) ^ 3 - (6 * (GetPlayerMaces(Index) + 1) ^ 2) + 17 * (GetPlayerMaces(Index) + 1) - 12) End Function ' Scythes Function GetPlayerScythes(ByVal Index As Long) As Long If Index > MAX_PLAYERS Then Exit Function GetPlayerScythes = Player(Index).Scythes End Function Function SetPlayerScythes(ByVal Index As Long, ByVal Scythes As Long) SetPlayerScythes = False If Scythes > MAX_SKILL_LEVEL Then Exit Function Player(Index).Scythes = Scythes SetPlayerScythes = True End Function Function GetPlayerScythesExp(ByVal Index As Long) As Long GetPlayerScythesExp = Player(Index).ScythesExp End Function Sub SetPlayerScythesExp(ByVal Index As Long, ByVal ScythesExp As Long) Player(Index).ScythesExp = ScythesExp SendEXP Index If GetPlayerScythesExp(Index) >= GetPlayerNextScythesLevel(Index) Then ScythesLevelUp Index End Sub Public Function GetPlayerNextScythesLevel(ByVal Index As Long) As Long GetPlayerNextScythesLevel = (50 / 3) * ((GetPlayerScythes(Index) + 1) ^ 3 - (6 * (GetPlayerScythes(Index) + 1) ^ 2) + 17 * (GetPlayerScythes(Index) + 1) - 12) End Function ' Staffs Function GetPlayerStaffs(ByVal Index As Long) As Long If Index > MAX_PLAYERS Then Exit Function GetPlayerStaffs = Player(Index).Staffs End Function Function SetPlayerStaffs(ByVal Index As Long, ByVal Staffs As Long) SetPlayerStaffs = False If Staffs > MAX_SKILL_LEVEL Then Exit Function Player(Index).Staffs = Staffs SetPlayerStaffs = True End Function Function GetPlayerStaffsExp(ByVal Index As Long) As Long GetPlayerStaffsExp = Player(Index).StaffsExp End Function Sub SetPlayerStaffsExp(ByVal Index As Long, ByVal StaffsExp As Long) Player(Index).StaffsExp = StaffsExp SendEXP Index If GetPlayerStaffsExp(Index) >= GetPlayerNextStaffsLevel(Index) Then StaffsLevelUp Index End Sub Public Function GetPlayerNextStaffsLevel(ByVal Index As Long) As Long GetPlayerNextStaffsLevel = (50 / 3) * ((GetPlayerStaffs(Index) + 1) ^ 3 - (6 * (GetPlayerStaffs(Index) + 1) ^ 2) + 17 * (GetPlayerStaffs(Index) + 1) - 12) End Function ' Claws Function GetPlayerClaws(ByVal Index As Long) As Long If Index > MAX_PLAYERS Then Exit Function GetPlayerClaws = Player(Index).Claws End Function Function SetPlayerClaws(ByVal Index As Long, ByVal Claws As Long) SetPlayerClaws = False If Claws > MAX_SKILL_LEVEL Then Exit Function Player(Index).Claws = Claws SetPlayerClaws = True End Function Function GetPlayerClawsExp(ByVal Index As Long) As Long GetPlayerClawsExp = Player(Index).ClawsExp End Function Sub SetPlayerClawsExp(ByVal Index As Long, ByVal ClawsExp As Long) Player(Index).ClawsExp = ClawsExp SendEXP Index If GetPlayerClawsExp(Index) >= GetPlayerNextClawsLevel(Index) Then ClawsLevelUp Index End Sub Public Function GetPlayerNextClawsLevel(ByVal Index As Long) As Long GetPlayerNextClawsLevel = (50 / 3) * ((GetPlayerClaws(Index) + 1) ^ 3 - (6 * (GetPlayerClaws(Index) + 1) ^ 2) + 17 * (GetPlayerClaws(Index) + 1) - 12) End Function ' Clubs Function GetPlayerClubs(ByVal Index As Long) As Long If Index > MAX_PLAYERS Then Exit Function GetPlayerClubs = Player(Index).Clubs End Function Function SetPlayerClubs(ByVal Index As Long, ByVal Clubs As Long) SetPlayerClubs = False If Clubs > MAX_SKILL_LEVEL Then Exit Function Player(Index).Clubs = Clubs SetPlayerClubs = True End Function Function GetPlayerClubsExp(ByVal Index As Long) As Long GetPlayerClubsExp = Player(Index).ClubsExp End Function Sub SetPlayerClubsExp(ByVal Index As Long, ByVal ClubsExp As Long) Player(Index).ClubsExp = ClubsExp SendEXP Index If GetPlayerClubsExp(Index) >= GetPlayerNextClubsLevel(Index) Then ClubsLevelUp Index End Sub Public Function GetPlayerNextClubsLevel(ByVal Index As Long) As Long GetPlayerNextClubsLevel = (50 / 3) * ((GetPlayerClubs(Index) + 1) ^ 3 - (6 * (GetPlayerClubs(Index) + 1) ^ 2) + 17 * (GetPlayerClubs(Index) + 1) - 12) End Function ' Hammers Function GetPlayerHammers(ByVal Index As Long) As Long If Index > MAX_PLAYERS Then Exit Function GetPlayerHammers = Player(Index).Hammers End Function Function SetPlayerHammers(ByVal Index As Long, ByVal Hammers As Long) SetPlayerHammers = False If Hammers > MAX_SKILL_LEVEL Then Exit Function Player(Index).Hammers = Hammers SetPlayerHammers = True End Function Function GetPlayerHammersExp(ByVal Index As Long) As Long GetPlayerHammersExp = Player(Index).HammersExp End Function Sub SetPlayerHammersExp(ByVal Index As Long, ByVal HammersExp As Long) Player(Index).HammersExp = HammersExp SendEXP Index If GetPlayerHammersExp(Index) >= GetPlayerNextHammersLevel(Index) Then HammersLevelUp Index End Sub Public Function GetPlayerNextHammersLevel(ByVal Index As Long) As Long GetPlayerNextHammersLevel = (50 / 3) * ((GetPlayerHammers(Index) + 1) ^ 3 - (6 * (GetPlayerHammers(Index) + 1) ^ 2) + 17 * (GetPlayerHammers(Index) + 1) - 12) End Function ' Launchers Function GetPlayerLaunchers(ByVal Index As Long) As Long If Index > MAX_PLAYERS Then Exit Function GetPlayerLaunchers = Player(Index).Launchers End Function Function SetPlayerLaunchers(ByVal Index As Long, ByVal Launchers As Long) SetPlayerLaunchers = False If Launchers > MAX_SKILL_LEVEL Then Exit Function Player(Index).Launchers = Launchers SetPlayerLaunchers = True End Function Function GetPlayerLaunchersExp(ByVal Index As Long) As Long GetPlayerLaunchersExp = Player(Index).LaunchersExp End Function Sub SetPlayerLaunchersExp(ByVal Index As Long, ByVal LaunchersExp As Long) Player(Index).LaunchersExp = LaunchersExp SendEXP Index If GetPlayerLaunchersExp(Index) >= GetPlayerNextLaunchersLevel(Index) Then LaunchersLevelUp Index End Sub Public Function GetPlayerNextLaunchersLevel(ByVal Index As Long) As Long GetPlayerNextLaunchersLevel = (50 / 3) * ((GetPlayerLaunchers(Index) + 1) ^ 3 - (6 * (GetPlayerLaunchers(Index) + 1) ^ 2) + 17 * (GetPlayerLaunchers(Index) + 1) - 12) End Function ' Slings Function GetPlayerSlings(ByVal Index As Long) As Long If Index > MAX_PLAYERS Then Exit Function GetPlayerSlings = Player(Index).Slings End Function Function SetPlayerSlings(ByVal Index As Long, ByVal Slings As Long) SetPlayerSlings = False If Slings > MAX_SKILL_LEVEL Then Exit Function Player(Index).Slings = Slings SetPlayerSlings = True End Function Function GetPlayerSlingsExp(ByVal Index As Long) As Long GetPlayerSlingsExp = Player(Index).SlingsExp End Function Sub SetPlayerSlingsExp(ByVal Index As Long, ByVal SlingsExp As Long) Player(Index).SlingsExp = SlingsExp SendEXP Index If GetPlayerSlingsExp(Index) >= GetPlayerNextSlingsLevel(Index) Then SlingsLevelUp Index End Sub Public Function GetPlayerNextSlingsLevel(ByVal Index As Long) As Long GetPlayerNextSlingsLevel = (50 / 3) * ((GetPlayerSlings(Index) + 1) ^ 3 - (6 * (GetPlayerSlings(Index) + 1) ^ 2) + 17 * (GetPlayerSlings(Index) + 1) - 12) End Function ' end of proficiencies!!!!!!!!!!!!!!!!!!!!!!!!! ```

k, kinda noobie at this so bare with me XD so i need to make a new case (case 7) and the true statement will be in that one, all the other cases i make false for picproficiencies?

ok do i add that to case 1,2,3,4,5,and 6?

Hey guys ive been searching for a while and i have no clue what to do but i want to add the proficiencies/skill system in my game , but i have no room on my main gui. Can someone redirect me to a link that will tell me how to make a button , above the skills, inv, char, buttons, that will open a new pop up that i can put all my proficiencies and skills exp bars into? Any help will be great , thanks. :cheesy:

Yep i got a label called lblProjectilePic I make a copy of all my files and imported the uploaded form work and it works fine , so i tried to find out what was different but i cant seem to find a single thing that the uploaded form work has that i dont I havent lost any other work by using the uploaded form work , im just kinda noobish at vb6 still and would like to know what causes this kinda problem

~~Quick question…. so i add "Dim Item1 As Long, Item2, Result" after "setbuffer = nothing" in modhandledata->sub handleuseitem or modplayer->sub useitem im using eo2.0 and i checked in modplayer and cant find the setbuffer = nothing in that module except for the sub playerwarp and im sure thats not it is it?~~ i think i found it out cause im not getting any compile errors or any errors at all , but idk how to use this recipe, i made a recipe that wood chips and metal peices would make a ragged axe , but when i double click on the recipe nothing happens , i also recognized its not saving whatever i put in cmbCToolReq box , any ideas?

Hey Captain, im getting a complile error: method or data member not found. It points to frmEditor_Item Line "lblProjectilePic.Caption = "Pic: " & scrlProjectilePic.Value" And highlights ".Caption =" Any ideas what to do to fix this?

hmm he just went offline , ill get him to post if the setting dpi works for him or not whenever he gets on again

k , ill have to redownload it , but while thats downloading , i was wondering why it would only be effecting him and not me or any of the others

I havent done any editing to the frmMain , but i added transformation spell, admin nametags, party level system, and alatars quest system , i think thats about all the modifications we have on our client and server

Yep , just double checked that and everythings there. When im in vb6 i can see everything , but when i run the game nothings there (neither of the scrollbars, labels, or the buffer settings framework)