VitinhooxD
-
Posts
1365 -
Joined
-
Last visited
Never
Content Type
Profiles
Forums
Calendar
Posts posted by VitinhooxD
-
-
Yeah , i'll try that thanks!
EDIT: Made some fix but now the error is Subscript out of range line 29
```
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 rand
Dim succedmsg
Call PlayerMsg(Index, "1", WHITE)
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")
Call PlayerMsg(Index, "2", WHITE)
If GetPlayer1stJob(index) = Trim(job) Then
Call PlayerMsg(Index, "3", WHITE)
If GetPlayerInvItemNum(index , GetPlayerWeaponSlot(index)) = needtool Then
rand = Rand(Chance , 1)
Select Case rand
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 = exp + giveexp
Call PutVar("Accounts\" & GetPlayerName(index) & ".ini" , "FirstJob" , "Exp" , ""& exp)
Call BattleMsg(index , "You gained " & giveexp & " in " & job & " ! " , 2 , 1 )
If exp >= 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
End Select
Else
Call BattleMsg(index , "You need te right tool to " & skillaction & " here , please search/buy it!" , 12 , 0)
End If
Else
Call PlayerMsg(Index, "4", WHITE)
Call BattleMsg(index , "You need to do " & job & " to " & skillaction & " here ! " , 12 ,1 )
End If
End Sub
``` -
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!
-
Lol i'm more busy than anyone xD , making GFX and scripts !PS: Buggy , do you have the custom menu txt bug fixed?
-
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
Is there something worng with this?
in Programming Questions
Posted
EDIT: current 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 rand
Dim succedmsg
Call PlayerMsg(Index, "1", WHITE)
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 = GetVar("Accounts\" & GetPlayerName(index) & ".ini" , "FirstJob" , "Level")
needtoup = Int(GetVar("jobexp.ini" , "Exp" , ""& lvl))
exp = 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"))
Call PlayerMsg(Index, "2", WHITE)
If GetPlayer1stJob(index) = job Then
Call PlayerMsg(Index, "3", WHITE)
If GetPlayerInvItemNum(index , GetPlayerWeaponSlot(index)) = needtool Then
rand = Rand(Chance , 1)
Select Case rand
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 = exp + giveexp
Call PutVar("Accounts\" & GetPlayerName(index) & ".ini" , "FirstJob" , "Exp" , ""& exp)
Call BattleMsg(index , "You gained " & giveexp & " in " & job & " ! " , 2 , 1 )
If exp >= 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
End Select
Else
Call BattleMsg(index , "You need te right tool to " & skillaction & " here , please search/buy it!" , 12 , 0)
End If
Else
Call PlayerMsg(Index, "4", WHITE)
Call BattleMsg(index , "You need to do " & job & " to " & skillaction & " here ! " , 12 ,1 )
End If
End Sub
```
Current error type mysmatch line 20