VitinhooxD
Members-
Posts
1365 -
Joined
-
Last visited
Never
Content Type
Profiles
Forums
Calendar
Everything posted by VitinhooxD
-
ok thanks ice cream tuesday .
-
Hello eclipse.I was wonderring : could someone make or give me a tutorial of how to make a sidescrolling cliff?I just run out of ideas and don't know how can i make a good one . Thanks
-
Yeah , i already debugged it thanks
-
Put it into a scripted tile
-
@Sealbreaker: > no, sound good to me…. i actually just found the lag and the flying-to-top bug... but if you fixed it.... cool =) > > do you already know, when you are goin to release it? ( i know, this question just suckz.....^-^) great question :D i don't think it sucks.I was going to ask the same :P EDIT : MrMiguu Congratz for being a Developer :D
-
Hm thanks Bobosk i'll try to debug it
-
Yeah i created the function GetPlayer2ndJobLvl(index) , and i'm using the inventory script that are with Barons quest and skill scripts. i didn't debbuged with player msg.
-
Hello Eclipse.I'm Stuck with a sub of my game someone can help me?Here is it Please read over the script ``` Sub MakeRecipe(index , job , recipe) Dim x Dim takecount Dim item Dim num Dim give Dim value Dim chance Dim exp Dim giveexp Dim lvl Dim needtool Dim weapon weapon = Int(GetPlayerInvItemNum(index , Int(GetPlayerWeaponSlot(index)))) 'I tested if Int and it doesn't worked chance = GetVar("Skills\" & job & ".ini" , ""& recipe , "Chance") lvl = GetPlayer2ndJobLvl(index) exp = Int(GetVar("Accounts\" & GetPlayerName(index) & ".ini" , "SecondJob" , "Exp")) 'I tested if Int and it doesn't worked giveexp = GetVar("Skills\" & job & ".ini" , ""& recipe , "GivenExp") x = Int(1) 'I tested if Int and it doesn't worked takecount = GetVar("Skills\" & job & ".ini" , ""& recipe , "TakeCount") 'I tested if Int and it doesn't worked needtool = GetVar("Skills\" & job & ".ini" , ""& recipe , "NeedTool") If GetPlayer2ndJobLvl(index) < Int(GetVar("Skills\" & job & ".ini" , ""& recipe , "LvlNeed")) Then Call CustomMenuClose(index) Call BattleMsg(index , "You need to be in level " & Int(GetVar("Skills\" & job & ".ini" , ""& recipe , "LvlNeed")) & " in " & job & " to make " & recipe & " here!" , 12 , 0) Exit Sub End If If Int(weapon) Int(needtool) Then Call CustomMenuClose(index) Call BattleMsg(index , "You need to get the right tool to make " & recipe & " here!" , 12 , 0) Exit Sub End If If PercentRand(index , Chance) = false Then Call CustomMenuClose(Index) Call BattleMsg(index , "You failed to make a " & recipe & " please try again!" , 12 , 0) Exit Sub End If 'i tested all the vars that are below this text with int and doesn't worked give = GetVar("Skills\" & job & ".ini" , ""& recipe , "GiveItem") value = GetVar("Skills\" & job & ".ini" , ""& recipe , "GiveValue") Do While Int(x)
-
Whats the error?
-
lol.. ``` ' Executes when a player presses the CONTROL key. Sub OnAttack(Index, Damage) Dim Target Dim Itm Dim WepAtk Dim Str Dim Max Dim Min Dim Avg Dim LowAvg Dim HiAvg Dim Hit Itm = Int(GetPlayerInvItemNum(index , Int(GetPlayerWeaponSlot(index)))) WepAtk = GetVar("Weapons.ini", "" & Itm , "WepATK") Str = GetPlayerSTR(Index) / 2 Max = (WepAtk, Str) * 3 Min = 1 Avg = (WepAtk, Str) LowAvg = (WepAtk, Str) / 2 HiAvg = (WepAtk, Str) * 2 Hit = Rand(1, 6) If Int(GetPlayerTarget(Index)) > 0 Then Target = GetPlayerTarget(Index) Call DamagePlayer(Index, Target, Rand(1, Max)) End If Else Target = GetPlayerTargetNPC(Index) If Hit = 1 Then Call DamageNPC(Index, Target, Rand(1, Str)) End If If Hit = 2 Then Call DamageNPC(Index, Target, Rand(1, Str)) End If If Hit = 3 Then Call DamageNPC(Index, Target, Rand(LowAvg, Avg)) End If If Hit = 4 Then Call DamageNPC(Index, Target, Rand(LowAvg, HiAvg)) End If If Hit = 5 Then Call DamageNPC(Index, Target, Rand(Avg, HiAvg)) End If If Hit = 6 Then Call DamageNPC(Index, Target, Rand(HiAvg, Max)) End If End Sub ```try now²
-
``` ' Executes when a player presses the CONTROL key. Sub OnAttack(Index, Damage) Dim Target Dim Itm Dim WepAtk Dim Str Dim Max Dim Min Dim Avg Dim LowAvg Dim HiAvg Dim Hit Itm = Int(GetPlayerInvItemNum(index , Int(GetPlayerWeaponSlot(index)))) WepAtk = GetVar("Weapons.ini", "" & Itm , "WepATK") Str = GetPlayerSTR(Index) /2 Max = (WepAtk, Str) *3 Min = 1 Avg = (WepAtk, Str) LowAvg = (WepAtk, Str) /2 HiAvg = (WepAtk, Str) *2 Hit = Rand(1, 6) If Int(GetPlayerTarget(Index)) > 0 Then Target = GetPlayerTarget(Index) Call DamagePlayer(Index, Target, Rand(1, Max)) End If Else Target = GetPlayerTargetNPC(Index) If Hit = 1 Then Call DamageNPC(Index, Target, Rand(1, Str)) End If If Hit = 2 Then Call DamageNPC(Index, Target, Rand(1, Str)) End If If Hit = 3 Then Call DamageNPC(Index, Target, Rand(LowAvg, Avg)) End If If Hit = 4 Then Call DamageNPC(Index, Target, Rand(LowAvg, HiAvg)) End If If Hit = 5 Then Call DamageNPC(Index, Target, Rand(Avg, HiAvg)) End If If Hit = 6 Then Call DamageNPC(Index, Target, Rand(HiAvg, Max)) End If End Sub ```try now
-
@ 1st question : it is Int(GetPlayerInvItemNum(index , Int(GetPlayerWeaponSlot(index)))) @ second you can do something like this Dim ItemNum Dim WepAtk ItemNum = Int(GetPlayerInvItemNum(index , Int(GetPlayerWeaponSlot(index)))) WepAtk = Int(GetVar("Weapons.ini" , ""& ItemNum , "WepATK"))
-
Good Luck³ Marsh! Get Well soon!
-
Is there something worng with this?
VitinhooxD replied to VitinhooxD's topic in Programming Questions
ok i 'll try un-int this line , thanks Bobosk -
Is there something worng with this?
VitinhooxD replied to VitinhooxD's topic in Programming Questions
yeah , the error could be more specific =( -
Is there something worng with this?
VitinhooxD replied to VitinhooxD's topic in Programming Questions
same error =( -
Is there something worng with this?
VitinhooxD replied to VitinhooxD's topic in Programming Questions
yeah 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 -
Is there something worng with this?
VitinhooxD replied to VitinhooxD's topic in Programming Questions
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 ```