View Full Version : Cooking exp Calculator
Cazax
11-23-2008, 04:40 PM
My first VB program :)
it does only support F2P foods.
hope you like it -
jakeyboy29
11-23-2008, 04:41 PM
You need to cook: 479705 Meat
working :D well done
Enchanted
11-23-2008, 04:48 PM
Runtime error "6" overflow.
When I put xp 0 - designated level 99.
Cazax
11-23-2008, 04:58 PM
Runtime error "6" overflow.
When I put xp 0 - designated level 99.
Works perfectly for me :confused:
gimillii1592
11-23-2008, 05:56 PM
Cool...ty
This is very helpful :]
jakeyboy29
11-23-2008, 06:08 PM
works great. no errors. maybe make a fighting one?
gimillii1592
11-24-2008, 06:07 AM
make a hunter one please
:]
or ill make that
lol
gimillii1592
11-24-2008, 06:08 AM
how about posting the source code?
that would be nice :]
Enchanted
11-24-2008, 10:03 AM
^ Double post ftl?..
Well, I tried again and it worked fine :)
This is just a suggestion but maybe make one with all the levels(that you want in.. :rolleyes:)
Best of luck, 3NCH4NT3D.
Laimonas171
12-17-2008, 09:47 PM
Source please. now it's useless app. i wanna see method of level/exp calculating.. u using case function? or whaT?
Cazax
12-20-2008, 06:41 PM
Ok, here is the sourcre:
Public Function Floor(value As Double)
Floor = CDbl(CLng(value - 0.5))
End Function
Public Function experience(ByVal lvl As Integer)
Dim a As Long
Dim x As Integer
For x = 1 To lvl
a = a + Int(x + 300 * (2 ^ (x / 7)))
Next x
experience = Floor(a / 4)
End Function
Private Sub Command1_Click()
Dim EXP As Integer
Dim a As Long
Dim x As Integer
Select Case Combo1.Text
Case "Meat": EXP = 30
Case "Chicken": EXP = 30
Case "Crayfish": EXP = 30
Case "Shrimps": EXP = 30
Case "Anchovy": EXP = 30
Case "Bread": EXP = 40
Case "Sardine": EXP = 40
Case "Herring": EXP = 50
Case "Redberry Pie": EXP = 78
Case "Trout": EXP = 70
Case "Meat Pie": EXP = 110
Case "Pike": EXP = 80
Case "Stew": EXP = 117
Case "Salmon": EXP = 90
Case "Apple Pie": EXP = 130
Case "Tuna": EXP = 100
Case "Pizza": EXP = 143
Case "Wine": EXP = 200
Case "Cake": EXP = 180
Case "Lobster": EXP = 120
Case "Meat Pizza": EXP = 169
Case "Swordfish": EXP = 140
Case "Chocolate Cake": EXP = 210
Case "Anchovy Pizza": EXP = 182
End Select
Text3.Text = "You need to cook: " + Str(Round(((experience(Text2.Text) - Text1.Text) / EXP))) + " " + Combo1.Text
End Sub
Feel free to leech.
Cant you make this in SCAR aswell??
Imho GJ btw.
I am currently making a program that will work for all skills, should take about 1 or 2 weeks (I have a life and Construction isnt helping me alot..)
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.