Non-Scripter: [4/5]Beginner: [3/5]Advanced Scripter: [3/5]Pro Scripter: [2/5]Expert: [1/5]
If GetVar("Skills\DB.ini", GetPlayerName(Index), "Woodcutting") = "0" Then Call PutVar("Skills\DB.ini", GetPlayerName(Index), "WoodcuttingExp", "0") Call PutVar("Skills\DB.ini", GetPlayerName(Index), "Woodcutting", "1")End If
Dim Checked
Checked = CheckIt(index)If Checked = 1 ThenCall WoodcuttingMsg(index, Woodcut)End IfEnd Sub
Sub GiveItem(index, item, value)SLOT = 1Do While SLOT < 24If GetPlayerInvItemNum(index, SLOT) = 0 ThenCall SetPlayerInvItemNum(index, SLOT, item)Call SetPlayerInvItemValue(index, SLOT, value)Call SendInventoryUpdate(index, SLOT)SLOT = 24End IfSLOT = SLOT+1LoopEnd Sub
Sub CheckIt(index)Dim WoodcuttingSpotXDim WoodcuttingSpotYDim IDim memXDim FishDim WoodcuttingSpotMI = 1Do While I <= GetVar("Skills\Woodcutting.ini", I ,"items")WoodcuttingSpotX = GetVar("Skills\Woodcutting.ini", I ,"X")WoodcuttingSpotY = GetVar("Skills\Woodcutting.ini", I ,"Y")WoodcuttingSpotM = GetVar("Skills\Woodcutting.ini", I ,"MAP")memX = Iif GetPlayerMap(index) = WoodcuttingSpotM thenif WoodcuttingSpotY = Int(GetPlayerY(index) + 1) and WoodcuttingSpotX = Int(GetPlayerX(index) + 1) thenCheckIt = 1I = 21elseif WoodcuttingSpotY = Int(GetPlayerY(index) - 1) and WoodcuttingSpotX = Int(GetPlayerX(index) - 1) thenCheckIt = 1I = 21elseif WoodcuttingSpotY = Int(GetPlayerY(index) + 1) and WoodcuttingSpotX = Int(GetPlayerX(index) - 1) thenCheckIt = 1I = 21elseif WoodcuttingSpotY = Int(GetPlayerY(index) - 1) and WoodcuttingSpotX = Int(GetPlayerX(index) + 1) thenCheckIt = 1I = 21elseCheckIt = 0I = Int(memX + 1)end ifend ifloopEnd Sub
Sub WoodcuttingMsg(index, wood)Dim wclvDim changeDim itemDim valDim IIf wood = 1 ThenIf GetPlayerWeapon = GetVar("Skills\Woodcutting.ini", I ,"weapon") ThenCall PlayerMsg(index, "You started with cutting some wood", 12)I = Rand(1, 10000)wclv = GetVar("Skills\DB.ini","GetPlayerName(index), "Woodcutting")change = GetVar("Skills\Change.ini", "Woodcutting", wclv & "-" & I)change = mid(change, 1, 3) & "00"max = GetVar("Skills\max.ini", "Woodcutting", "WCMAX")item = GetVar("Skills\Woodcutting.ini", I ,"item")val = GetVar("Skills\Woodcutting.ini", I ,"val")If I >= change ThenCall PlayerMsg(index, "You cutted some wood", 12)Call GiveItem(index, item, val)Call SetWoodcuttingExperience(index, GetVar("Skills\Woodcutting.ini", I ,"exp"))ElseCall PlayerMsg(index, "You failed with cutting some wood", 12)End IfEnd IfEnd IfEnd Sub
Sub SetWoodcuttingExperience(index, exp)Dim wclvDim pexpDim maxDim wcmaxwclv = GetVar("Skills\DB.ini","GetPlayerName(index), "Woodcutting")wcmax = GetVar("Skills\max.ini", "Woodcutting", "maxlv")pexp = GetVar("Skills\DB.ini","GetPlayerName(index), "WoodcuttingExp")max = GetVar("Skills\max.ini", "Woodcutting", "maxexp" & wclv)if Int(pexp + exp) > max thenif wclv < maxlv thenCall PutVar("Skills\DB.ini","GetPlayerName(index), "WoodcuttingExp", Int(exp - Int(max - pexp)))Call PutVar("Skills\DB.ini","GetPlayerName(index), "Woodcutting", Int(wclv + 1))Call PlayerMsg(index, "You gained a woodcutting level", 12)elseif wclv = maxlv thenCall PutVar("Skills\DB.ini","GetPlayerName(index), "WoodcuttingExp", 0)Call PutVar("Skills\DB.ini","GetPlayerName(index), "Woodcutting", maxlv)end ifelseif Int(pexp + exp) <= max thenCall PutVar("Skills\DB.ini","GetPlayerName(index), "WoodcuttingExp", Int(pexp + exp))end ifEnd Sub
[1]X=2Y=2MAP=23weapon=2item=3val=0[2]X=5Y=5MAP=99weapon=2item=45val=0
[Woodcutting]1-1=22-1=51-2=02-2=4
[Woodcutting]WCMAX=2maxlv=2maxexp1=100maxexp2=300
[1]
X=2
Y=2
MAP=23
weapon=2
item=3
val=0
2-1=5
WCMAX=2
maxlv=2
maxexp1=100
If GetVar("Skills\DB.ini","GetPlayerName(index), "Mining") = 0 Then Call PutVar("Skills\DB.ini","GetPlayerName(index), "MiningExp", 0)Call PutVar("Skills\DB.ini","GetPlayerName(index), "Mining", 1)End If
Checked = CheckIt(index)If Checked = 1 ThenCall MiningMsg(index, Mine)End IfEnd Sub
Sub CheckIt(index)Dim MiningSpotXDim MiningSpotYDim IDim memXDim MiningSpotMI = 1Do While I <= GetVar("Skills\Mining.ini", I ,"items")MiningSpotX = GetVar("Skills\Mining.ini", I ,"X")MiningSpotY = GetVar("Skills\Mining.ini", I ,"Y")MiningSpotM = GetVar("Skills\Mining.ini", I ,"MAP")memX = Iif GetPlayerMap(index) = MiningSpotM thenif MiningSpotY = Int(GetPlayerY(index) + 1) and MiningSpotX = Int(GetPlayerX(index) + 1) thenCheckIt = 1I = 21elseif MiningSpotY = Int(GetPlayerY(index) - 1) and MiningSpotX = Int(GetPlayerX(index) - 1) thenCheckIt = 1I = 21elseif MiningSpotY = Int(GetPlayerY(index) + 1) and MiningSpotX = Int(GetPlayerX(index) - 1) thenCheckIt = 1I = 21elseif MiningSpotY = Int(GetPlayerY(index) - 1) and MiningSpotX = Int(GetPlayerX(index) + 1) thenCheckIt = 1I = 21elseCheckIt = 0I = Int(memX + 1)end ifend ifloopEnd Sub
Sub MiningMsg(index, stone)Dim IDim MlvDim changeDim itemDim valIf stone = 1 ThenIf GetPlayerWeapon = GetVar("Skills\Mining.ini", I ,"weapon") ThenCall PlayerMsg(index, "You started with mining some ores", 12)I = Rand(1, 10000)Mlv = GetVar("Skills\DB.ini","GetPlayerName(index), "Mining")change = GetVar("Skills\Change.ini", "Mining", Mlv & "-" & I)change = mid(change, 1, 3) & "00"max = GetVar("Skills\max.ini", "Mining", "MMAX")item = GetVar("Skills\Mining.ini", I ,"item")val = GetVar("Skills\Mining.ini", I ,"val")If I >= change ThenCall PlayerMsg(index, "You mining some ores", 12)Call GiveItem(index, item, val)Call SetMiningExperience(index, GetVar("Skills\Mining.ini", I ,"exp"))ElseCall PlayerMsg(index, "You failed with cutting some wood", 12)End IfEnd IfEnd IfEnd Sub
Sub SetMiningExperience(index, exp)Dim MlvDim pexpDim maxDim MmaxMlv = GetVar("Skills\DB.ini","GetPlayerName(index), "Mining")Mmax = GetVar("Skills\max.ini", "Mining", "maxlv")pexp = GetVar("Skills\DB.ini","GetPlayerName(index), "MiningExp")max = GetVar("Skills\max.ini", "Mining", "maxexp" & Mlv)if Int(pexp + exp) > max thenif Mlv < maxlv thenCall PutVar("Skills\DB.ini","GetPlayerName(index), "MiningExp", Int(exp - Int(max - pexp)))Call PutVar("Skills\DB.ini","GetPlayerName(index), "Mining", Int(Mlv + 1))Call PlayerMsg(index, "You gained a Mining level", 12)elseif Mlv = maxlv thenCall PutVar("Skills\DB.ini","GetPlayerName(index), "MiningExp", 0)Call PutVar("Skills\DB.ini","GetPlayerName(index), "Mining", maxlv)end ifelseif Int(pexp + exp) <= max thenCall PutVar("Skills\DB.ini","GetPlayerName(index), "MiningExp", Int(pexp + exp))end ifEnd Sub
[Mining]1-1=22-1=51-2=02-2=4
[Mining]MMAX=2maxlv=2maxexp1=100maxexp2=300
MMAX=2
Checked = CheckIt(index)If Checked = 1 ThenCall FishMsg(index, Checked)End IfEnd If
Sub Giveitem(index, item, value)SLOT = 1Do While SLOT < 24If GetPlayerInvitemNum(index, SLOT) = 0 ThenCall SetPlayerInvitemNum(index, SLOT, item)Call SetPlayerInvitemValue(index, SLOT, value)Call SendInventoryUpdate(index, SLOT)SLOT = 24End IfSLOT = SLOT+1LoopEnd Sub
Sub CheckIt(index)
Eh.. What's "Total Down" mean? lol..I R nub :D
You what's cool about necro posting? Yeah... Me neither...
I think it means at the bottom of the main text...I think.but man did u check the date before you posted ur post?
If GetVar("Skills\DB.ini","GetPlayerName(index), "Woodcutting") = 0 Then Call PutVar("Skills\DB.ini","GetPlayerName(index), "WoodcuttingExp", 0)Call PutVar("Skills\DB.ini","GetPlayerName(index), "Woodcutting", 1)End If
If GetVar("Skills\DB.ini",GetPlayerName(index), "Woodcutting") = 0 Then Call PutVar("Skills\DB.ini",GetPlayerName(index), "WoodcuttingExp", 0)Call PutVar("Skills\DB.ini",GetPlayerName(index), "Woodcutting", 1)End If
Sub SetWoodcuttingExperience(index, exp)Dim wclvDim pexpDim maxDim wcmaxwclv = GetVar("\Skills\DB.ini", GetPlayerName(index), "Woodcutting")wcmax = GetVar("\Skills\max.ini", "Woodcutting", "maxlv")pexp = GetVar("\Skills\DB.ini", GetPlayerName(index), "WoodcuttingExp")max = GetVar("\Skills\max.ini", "Woodcutting", "maxexp" & wclv)If Int(pexp + exp) > max ThenIf wclv < maxlv ThenCall PutVar("\Skills\DB.ini", GetPlayerName(index), "WoodcuttingExp", Int(exp - Int(max - pexp)))Call PutVar("\Skills\DB.ini", GetPlayerName(index), "Woodcutting", Int(wclv + 1))Call PlayerMsg(index, "You gained a woodcutting level", 12)ElseIf wclv = maxlv ThenCall PutVar("\Skills\DB.ini", GetPlayerName(index), "WoodcuttingExp", 0)Call PutVar("\Skills\DB.ini", GetPlayerName(index), "Woodcutting", maxlv)End IfElseIf Int(pexp + exp) <= max ThenCall PutVar("\Skills\DB.ini", GetPlayerName(index), "WoodcuttingExp", Int(pexp + exp))End IfEnd Sub Sub CheckIt(index)Dim WoodcuttingSpotXDim WoodcuttingSpotYDim IDim memXDim FishDim WoodcuttingSpotMI = 1Do While I <= GetVar("Skills\Woodcutting.ini", I ,"items")WoodcuttingSpotX = GetVar("Skills\Woodcutting.ini", I ,"X")WoodcuttingSpotY = GetVar("Skills\Woodcutting.ini", I ,"Y")WoodcuttingSpotM = GetVar("Skills\Woodcutting.ini", I ,"MAP")memX = IIf GetPlayerMap(index) = WoodcuttingSpotM ThenIf WoodcuttingSpotY = Int(GetPlayerY(index) + 1) And WoodcuttingSpotX = Int(GetPlayerX(index) + 1) ThenCheckIt = 1I = 21ElseIf WoodcuttingSpotY = Int(GetPlayerY(index) - 1) And WoodcuttingSpotX = Int(GetPlayerX(index) - 1) ThenCheckIt = 1I = 21ElseIf WoodcuttingSpotY = Int(GetPlayerY(index) + 1) And WoodcuttingSpotX = Int(GetPlayerX(index) - 1) ThenCheckIt = 1I = 21ElseIf WoodcuttingSpotY = Int(GetPlayerY(index) - 1) And WoodcuttingSpotX = Int(GetPlayerX(index) + 1) ThenCheckIt = 1I = 21ElseCheckIt = 0I = Int(memX + 1)End IfEnd IfLoopEnd Sub Sub WoodcuttingMsg(index, wood)Dim wclvDim changeDim itemDim valDim IIf wood = 1 ThenIf GetPlayerWeapon = GetVar("\Skills\Woodcutting.ini", I ,"weapon") ThenCall PlayerMsg(index, "You started with cutting some wood", 12)I = Rand(1, 10000)wclv = GetVar("\Skills\DB.ini",GetPlayerName(index), "Woodcutting")change = GetVar("\Skills\Change.ini", "Woodcutting", wclv & "-" & I)change = mid(change, 1, 3) & "00"max = GetVar("\Skills\max.ini", "Woodcutting", "WCMAX")item = GetVar("\Skills\Woodcutting.ini", I ,"item")val = GetVar("\Skills\Woodcutting.ini", I ,"val")If I >= change ThenCall PlayerMsg(index, "You cutted some wood", 12)Call GiveItem(index, item, val)Call SetWoodcuttingExperience(index, GetVar("\Skills\Woodcutting.ini", I ,"exp"))ElseCall PlayerMsg(index, "You failed with cutting some wood", 12)End IfEnd IfEnd IfEnd Sub