VitinhooxD
-
Posts
1365 -
Joined
-
Last visited
Never
Content Type
Profiles
Forums
Calendar
Posts posted by VitinhooxD
-
-
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. -
@Owen:
> this is why you should ignore Kreators quotes in your sig. Come on man, your game is already big!
@Antidote:
> Yeah, I suggest continuing with your own style until you find something YOU're satisfied with. If people start playing the game and they really don't like it, then consider changing it, but because of the nature of people on these forums, you're never going to be able to satisfy everyone. Keep up with the work that you're doing, and don't let people *cough*Hippoman*cough* deter you from your dream.
Very well said.I think that Lostica is already big too , cause i can see in the screens , info foruns etc that MrMiguu have put a lot of great work in Lostica.MrMiguu you i think you really should continue with your GFX style.A lot of people like then.
VitinhooxD -
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) <= Int(takecount)
item = GetVar("Skills\" & job & ".ini" , ""& recipe , "Item" & Int(x))
num = GetVar("Skills\" & job & ".ini" , ""& recipe , "Value"& Int(x))
'I have those functions
If F_Check_Take(index , item , num) Then
If PercentRand(index , Chance) = true Then
Call Take_Item(index , item , num)
Else
Call AlertJob(index)
Exit Sub
End If
End If
x = x + 1
Loop
Call Give_Currency(index , give , value)
If Int(exp) = "" Then
Call PutVar("Accounts\" & GetPlayerName(index) & ".ini" , "SecondJob" , "Exp" , ""& giveexp)
Else
exp = Int(exp) + giveexp
Call PutVar("Accounts\" & GetPlayerName(index) & ".ini" , "SecondJob" , "Exp" , ""& exp)
End If
If Int(exp) >= Int(GetVar("Skills\jobexp.ini" , "Exp" , ""& GetPlayer2ndJobLvl(index))) Then
Call PutVar("Accounts\" & GetPlayerName(index) & ".ini" , "SecondJob" , "Level" , ""& lvl + 1)
End If
Call CustomMenuClose(index)
Call CustomMenuShow(index , "Congratulations" , "/GUI/CUSTOM/Confirm.gif" , 1)
Call CustomMenuLabel(index , 140 , "You made a " & recipe & " and now have " & exp & " in " & job & " ! " , 0 , 50 , 12 , 0 , 2 , 400 , 200)
End Sub
'This script is not for personal use
'You musn't use this script in your game
'2009 Sunshine development studios.All rights reserved
```
Thanks for reading -
MrMiguu you are the god.Thanks for this amazin uptade!
-
What he said?
-
Wow its looking pretty nice the game.Good luck
And thanks for putting me in debugg artist :D -
Thanks for the news AfterDawn
-
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")) -
lol , but i don't have certain.i'll ask him ok?
-
He has a 3 months old soon and has a job i don't think he's 17
-
Hippoman i think he is 23 years old , but don't certain
-
Good Luck³ Marsh!
Get Well soon! -
Wow can't wait for the new release :P
EDIT : Miguu when teh char die i can't attack or talk to npcs and if i press down i came back to the top of the map =( -
Please don't triple post.Respect the rules.
You could edit your main post with what you said… -
Eheheheh , looking good without or with the old stuff :D
-
Bug i really liked the new login menu!Great Job!
-
Oh sorry =X uptading!
-
[….::::ResBak Online Scripting News::::.....]
Legend :
Not Started
Finishing
Done
Quest System
Custom Menus
The Core
Some Details to implement the core
Guild System
Custom Menus
Guild Status
Guild Leveling , with donation system
Inviting and deleting players
Guild Wars
See what guild members are on and off
Mail System
CustomMenu
The Script
Buddy List
Custom Menus
The list
Profession system
Custom Menus
The Script
Uptaded :P
Profession system is goind to be awesome :D -
ok i 'll try un-int this line , thanks Bobosk
-
yeah , the error could be more specific =(
-
same error =(
There's anything wrong with this?
in Programming Questions
Posted