VitinhooxD

great technique…I recieved 1 and 2 , there a error in Int(job) PS: you putted two "2" i changed the last to 3

sorry same error =(

Great but now the error is Type mismatch "string" on line 19 gere is the sub ``` Sub JobMode1(index , job , mode) Dim needtool Dim give Dim givevalue Dim giveexp Dim needtoup Dim lvl Dim exp Dim skillaction Dim succed Dim chance Dim rnd Dim succedmsg succedmsg = GetVar("Skills\" & job & ".ini" , ""& mode , "SuccedMsg") chance = Int(GetVar("Skills\" & job & ".ini" , ""& mode , "Chance")) skillaction = GetVar("Skills\" & job & ".ini" , "Info" , "SkillAction") succed = GetVar("Skills\" & job & ".ini" , "Info" , "Succed") lvl = Int(GetVar("Accounts\" & GetPlayerName(index) & ".ini" , "FirstJob" , "Level")) needtoup = Int(GetVar("jobexp.ini" , "Exp" , ""& lvl)) exp = Int(GetVar("Accounts\" & GetPlayerName(index) & ".ini" , "FirstJob" , "Exp")) needtool = Int( GetVar("Skills\" & job & ".ini" , ""& mode , "NeedTool")) give = Int(GetVar("Skills\" & job & ".ini" , ""& mode , "GiveNum")) givevalue = Int(GetVar("Skills\" & job & ".ini" , ""& mode , "GiveValue")) giveexp = Int(GetVar("Skills\" & job & ".ini" , ""& mode , "GiveExp")) If GetPlayer1stJob(index) = Int(job) Then If GetPlayerInvItemNum(index , GetPlayerWeaponSlot(index)) = needtool Then rnd = Rand(Chance , 1) Select Case rnd Case 1 Call BattleMsg(index , " & succedmsg & " , GREEN , 1 ) Call Give_Currency(index , ""& give , ""& givevalue ) If exp = "" Then Call PutVar("Accounts\" & GetPlayerName(index) & ".ini" , "FirstJob" , "Exp" , ""& giveexp) Call BattleMsg(index , "You gained " & giveexp & " in " & job & " ! " , 2 , 1 ) Else exp = Int(exp) + giveexp Call PutVar("Accounts\" & GetPlayerName(index) & ".ini" , "FirstJob" , "Exp" , ""& exp) Call BattleMsg(index , "You gained " & giveexp & " in " & job & " ! " , 2 , 1 ) If Int(exp) >= Int(needtoup) Then Call PutVar("Accounts\" & GetPlayerName(index) & ".ini" , "FirstJob" , "Level" , Int(lvl) + 1) Call BattleMsg(index , "You are in level " & lvl & " in " & job & " ! " , 2 , 1 ) End If End If Case Else 'nothing lol End Select Else Call BattleMsg(index , "You need te right tool to " & skillaction & " here , please search/buy it!" , 12 , 0) End If Else Call BattleMsg(index , "You need to do " & job & " to " & skillaction & " here ! " , 12 ,1 ) End If End Sub ``` +X

no i'll try this , thanks Admiral! EDIT: the first sub worked but now this one is not working: ``` Sub JobMode1(index , job , mode) Dim needtool Dim give Dim givevalue Dim giveexp Dim needtoup Dim lvl Dim exp Dim skillaction Dim succed Dim chance Dim rnd Dim succedmsg succedmsg = GetVar("Skills\" & job & ".ini" , ""& mode , "SuccedMsg") chance = GetVar("Skills\" & job & ".ini" , ""& mode , "Chance") skillaction = GetVar("Skills\" & job & ".ini" , "Info" , "SkillAction") succed = GetVar("Skills\" & job & ".ini" , "Info" , "Succed") lvl = GetVar("Accounts\" & GetPlayerName(index) & ".ini" , "FirstJob" , "Level") needtoup = GetVar("jobexp.ini" , "Exp" , ""& lvl) exp = GetVar("Accounts\" & GetPlayerName(index) & ".ini" , "FirstJob" , "Exp") needtool = GetVar("Skills\" & job & ".ini" , ""& mode , "NeedTool") give = GetVar("Skills\" & job & ".ini" , ""& mode , "GiveNum") givevalue = GetVar("Skills\" & job & ".ini" , ""& mode , "GiveValue") giveexp = GetVar("Skills\" & job & ".ini" , ""& mode , "GiveExp") If GetPlayer1stJob(index) = Int(job) Then If GetPlayerInvItemNum(index , GetPlayerWeaponSlot(index)) = needtool Then rnd = Rand(Chance , 1) Select Case rnd Case 1 Call BattleMsg(index , " & succedmsg & " , GREEN , 1 ) Call Give_Currency(index , ""& give , ""& givevalue ) If exp = "" Then Call PutVar("Accounts\" & GetPlayerName(index) & ".ini" , "FirstJob" , "Exp" , ""& giveexp) Call BattleMsg(index , "You gained " & giveexp & " in " & job & " ! " , 2 , 1 ) Else exp = Int(exp) + giveexp Call PutVar("Accounts\" & GetPlayerName(index) & ".ini" , "FirstJob" , "Exp" , ""& exp) Call BattleMsg(index , "You gained " & giveexp & " in " & job & " ! " , 2 , 1 ) If Int(exp) >= Int(needtoup) Then Call PutVar("Accounts\" & GetPlayerName(index) & ".ini" , "FirstJob" , "Level" , Int(lvl) + 1) Call BattleMsg(index , "You are in level " & lvl & " in " & job & " ! " , 2 , 1 ) End If End If Case Else 'nothing lol End Select Else Call BattleMsg(index , "You need te right tool to " & skillaction & " here , please search/buy it!" , 12 , 0) End If Else Call BattleMsg(index , "You need to do " & job & " to " & skillaction & " here ! " , 12 ,1 ) End If End Sub ``` Whats wrong?

Hello Eclipse!I'm having trouble with this script: ``` Sub SetPlayer1stJob(index , profession) Call PutVar("Accounts\" & GetPlayerName(index) & ".ini" , "Jobs" , "FirstJob" , ""& profession) Call PutVar("Accounts\" & GetPlayerName(index) & ".ini" , "FirstJob" , "Level" , "0") Call PutVar("Accounts\" & GetPlayerName(index) & ".ini" , "FirstJob" , "Exp" , "0") Call PlayerMsg(index , "You now can do " & profession & " ! " ,12) End Sub ``` It should put what there is write here : Call SetPlayer1stJob(index , **profession** ) in a ini file , but it put "" … Could someone help me?

MrMiguu , great mod to EE2.8 very useful , congratulations!

Yeah! Blood pm me when you finish the spawn

@Ridrik: > Anyways I think i'm out of the project. I don't think I can help you with anything since you do not even update me on what you are doing. i'm agree what you are doing blood?

lol use another server ..

Blood , whtas the problem with what you are doing?

Sorry =X… So , you can help me with this bug?

ok i'll update EDIT : uptaded and i attached the picture nedded to run the script

Blood , what do you think about the pet status script?

The pet status/sheet would be something like this

whres pet lvl exp and def?

WTF???Why ??Comon stay in teh project!

I think its better we talk in the Ridrik site , in teh chat , i'll be there.

ok , soo Blood do you agree?

Blood tell me the exact pos of all the vars to i post the Pet Status Script EDIT : add sorry for double post

not it will not , it will be like this [vitinhoo] blah=1 lol=0 [Ridrik] blah=0 lol=1 etc…

@Bloodmyst: > Ontop of that They go in 1 ini not Into your accoutn Folder, They go into pets.ini > [PlayerName] > Vars Wood it be GetVar("Pets.ini" & GetPlayerName(index) & , "varhere" ) ?

Ridrik , its only a idea … Blood what are the correct pos of the vars? i need the str def , level , exp , hp , name

lol you can do better?So do it

Marsh , in the source version there's the movement bug…

Admiral , i have the newest version of EE 2.8 ( the posted in this topic ) but custom menus txt bug isn't fixed , i think there's a error in teh source..