Skills [4/5]

• Ertzel: So... Anyone with basic/none/limited photoshop or even paint skills want to make some money converting sprites for me?
  Today at 10:07:35 PM
• Gamma™: weaver why are you oflfine on H&H? :S
  Today at 10:04:26 PM
• Ertzel: Ya, only one try per knife, my one try failed :(
  Today at 10:00:17 PM
• LegendWeaver: is it one use?
  Today at 09:43:15 PM
• Ertzel: Wish I didnt spend my 1k+ credits to buy the stupid knife that failed at stealing Robins credits >.<
  Today at 09:42:42 PM
• Wraith: ) Kreator!
  Today at 09:06:52 PM
• Wraith: yes! you were! (in red text
  Today at 09:06:46 PM
• ToshiroHayate: Kreator!
  Today at 08:25:02 PM
• Kreator: o_0 Was I supposed to Wraith?
  Today at 08:16:02 PM
• [Pie] ICT: Don't worry.. I commented.
  Today at 07:55:08 PM
• Wraith: Ay, kreator, wtf is up with you not posting anything about my new cliffs??
  Today at 07:50:36 PM

[EO] Attaching Problem. by 314piwm
[Today at 10:21:04 PM]
Project Vertigo [2d Tile-based Side-Scrolling Engine] by Miguu
[Today at 10:03:22 PM]
Zacaras Empire (Hiring) by Ertzel
[Today at 08:43:54 PM]
custom cliff tiles by ToshiroHayate
[Today at 08:29:15 PM]
.: RPG Kingdom :. by LegendWeaver
[Today at 08:25:20 PM]
What do you think? by [Pie] ICT
[Today at 07:54:54 PM]
[Show Off] Aztec Stuff by [Pie] ICT
[Today at 07:50:07 PM]
So I herd you liek mudkipz by Kreator
[Today at 07:36:52 PM]
Haven and Hearth: Epic Screenshot Thread by Tompwnage™
[Today at 07:14:21 PM]
The Lonliest Star [RP] by DDunit
[Today at 07:09:46 PM]

• Guests: 21
• Hidden: 0
• Users: 15
• Users Online:

• Bloodmyst
• Helladen
• Back to teeming
• drifter000
• jncoblack15
• BRiM570N3
• 314piwm
• Ertzel
• RavenStar
• yaratemaster
• bunnyphantom
• Blue Fly
• LegendWeaver
• Gamma™
• Mikekan13

Non-Scripter: [4/5]
Beginner: [3/5]
Advanced Scripter: [3/5]
Pro Scripter: [2/5]
Expert: [1/5]

Index:

• Woodcutting
• Mining
• Mining

Woodcutting
Code:

In Sub JoinGame(index) above End Sub add this:

Code: [Select]

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
In Sub OnAttack(index) Add under Sub OnAttack(index) if not added:

Code: [Select]

Dim Checked
In Sub OnAttack(index) Add above of End Sub:

Code: [Select]

Checked = CheckIt(index)
If Checked = 1 Then
Call WoodcuttingMsg(index, Woodcut)
End If
End Sub
Add this total down in your main:

Code: [Select]

Sub GiveItem(index, item, value)
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = 0 Then
Call SetPlayerInvItemNum(index, SLOT, item)
Call SetPlayerInvItemValue(index, SLOT, value)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
End Sub
Add this total down in your main:

Code: [Select]

Sub CheckIt(index)
Dim WoodcuttingSpotX
Dim WoodcuttingSpotY
Dim I
Dim memX
Dim Fish
Dim WoodcuttingSpotM
I = 1
Do 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 = I
if GetPlayerMap(index) = WoodcuttingSpotM then
if WoodcuttingSpotY = Int(GetPlayerY(index) + 1) and WoodcuttingSpotX = Int(GetPlayerX(index) + 1) then
CheckIt = 1
I = 21
elseif WoodcuttingSpotY = Int(GetPlayerY(index) - 1) and WoodcuttingSpotX = Int(GetPlayerX(index) - 1) then
CheckIt = 1
I = 21
elseif WoodcuttingSpotY = Int(GetPlayerY(index) + 1) and WoodcuttingSpotX = Int(GetPlayerX(index) - 1) then
CheckIt = 1
I = 21
elseif WoodcuttingSpotY = Int(GetPlayerY(index) - 1) and WoodcuttingSpotX = Int(GetPlayerX(index) + 1) then
CheckIt = 1
I = 21
else
CheckIt = 0
I = Int(memX + 1)
end if
end if
loop
End Sub
Add this total down in your main:

Code: [Select]

Sub WoodcuttingMsg(index, wood)
Dim wclv
Dim change
Dim item
Dim val
Dim I
If wood = 1 Then
If GetPlayerWeapon = GetVar("Skills\Woodcutting.ini", I ,"weapon") Then
Call 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 Then
Call PlayerMsg(index, "You cutted some wood", 12)
Call GiveItem(index, item, val)
Call SetWoodcuttingExperience(index, GetVar("Skills\Woodcutting.ini", I ,"exp"))
Else
Call PlayerMsg(index, "You failed with cutting some wood", 12)
End If
End If
End If
End Sub
Add this total down in your main:

Code: [Select]

Sub SetWoodcuttingExperience(index, exp)
Dim wclv
Dim pexp
Dim max
Dim wcmax
wclv = 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 then
if wclv < maxlv then
Call 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 then
Call PutVar("Skills\DB.ini","GetPlayerName(index), "WoodcuttingExp", 0)
Call PutVar("Skills\DB.ini","GetPlayerName(index), "Woodcutting", maxlv)
end if
elseif Int(pexp + exp) <= max then
Call PutVar("Skills\DB.ini","GetPlayerName(index), "WoodcuttingExp", Int(pexp + exp))
end if
End Sub

INI files:

In map "Skills" on the server create the next files:
Woodcutting.ini

Code: [Select]

[1]
X=2
Y=2
MAP=23
weapon=2
item=3
val=0
[2]
X=5
Y=5
MAP=99
weapon=2
item=45
val=0
Change.ini

Code: [Select]

[Woodcutting]
1-1=2
2-1=5
1-2=0
2-2=4

max.ini

Code: [Select]

[Woodcutting]
WCMAX=2
maxlv=2
maxexp1=100
maxexp2=300

INI configuration:

Woodcutting.ini

[1]

1 is the section of which number goes from 1 to WCMAX out max.ini.

X=2

2 is the X of the tree.

Y=2

2 is the Y of the tree.

MAP=23

23 is the Map of the tree.

weapon=2

2 is the required weapon number.

item=3

3 is the item you get if you cutted the tree.

val=0

0 is the value you get, 0 for non-stackable items, 1 or higher for stackable items.

Change.ini

2-1=5

2 is the wclv the person needs to be.
1 is the WCSection (The thing from 1 to WCMAX)
5 is the change in percent like 100 (without %). Goes from 0 to 100

max.ini

WCMAX=2

2 is the max of WCSections.

maxlv=2

2 is the Max level you can reach in Woodcutting.

maxexp1=100

1 is the level, if you're lv 1 then you need to get 100 experience.


Function:
Now you can cut wood on some places.


Notes:
- You need to block the tree position.


Mining
Code:

In Sub JoinGame(index) above End Sub add this:

Code: [Select]

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

In Sub OnAttack(index) Add under Sub OnAttack(index) if not added:

Code: [Select]

Dim Checked
In Sub OnAttack(index) Add above of End Sub:

Code: [Select]

Checked = CheckIt(index)
If Checked = 1 Then
Call MiningMsg(index, Mine)
End If
End Sub
Add this total down in your main:

Code: [Select]

Sub GiveItem(index, item, value)
SLOT = 1
Do While SLOT < 24
If GetPlayerInvItemNum(index, SLOT) = 0 Then
Call SetPlayerInvItemNum(index, SLOT, item)
Call SetPlayerInvItemValue(index, SLOT, value)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
End Sub
Add this total down in your main:

Code: [Select]

Sub CheckIt(index)
Dim MiningSpotX
Dim MiningSpotY
Dim I
Dim memX
Dim MiningSpotM
I = 1
Do 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 = I
if GetPlayerMap(index) = MiningSpotM then
if MiningSpotY = Int(GetPlayerY(index) + 1) and MiningSpotX = Int(GetPlayerX(index) + 1) then
CheckIt = 1
I = 21
elseif MiningSpotY = Int(GetPlayerY(index) - 1) and MiningSpotX = Int(GetPlayerX(index) - 1) then
CheckIt = 1
I = 21
elseif MiningSpotY = Int(GetPlayerY(index) + 1) and MiningSpotX = Int(GetPlayerX(index) - 1) then
CheckIt = 1
I = 21
elseif MiningSpotY = Int(GetPlayerY(index) - 1) and MiningSpotX = Int(GetPlayerX(index) + 1) then
CheckIt = 1
I = 21
else
CheckIt = 0
I = Int(memX + 1)
end if
end if
loop
End Sub
Add this total down in your main:

Code: [Select]

Sub MiningMsg(index, stone)
Dim I
Dim Mlv
Dim change
Dim item
Dim val
If stone = 1 Then
If GetPlayerWeapon = GetVar("Skills\Mining.ini", I ,"weapon") Then
Call 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 Then
Call PlayerMsg(index, "You mining some ores", 12)
Call GiveItem(index, item, val)
Call SetMiningExperience(index, GetVar("Skills\Mining.ini", I ,"exp"))
Else
Call PlayerMsg(index, "You failed with cutting some wood", 12)
End If
End If
End If
End Sub
Add this total down in your main:

Code: [Select]

Sub SetMiningExperience(index, exp)
Dim Mlv
Dim pexp
Dim max
Dim Mmax
Mlv = 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 then
if Mlv < maxlv then
Call 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 then
Call PutVar("Skills\DB.ini","GetPlayerName(index), "MiningExp", 0)
Call PutVar("Skills\DB.ini","GetPlayerName(index), "Mining", maxlv)
end if
elseif Int(pexp + exp) <= max then
Call PutVar("Skills\DB.ini","GetPlayerName(index), "MiningExp", Int(pexp + exp))
end if
End Sub

INI files:

In map "Skills" on the server create the next files:
Mining.ini

Code: [Select]

[1]
X=2
Y=2
MAP=23
weapon=2
item=3
val=0
[2]
X=5
Y=5
MAP=99
weapon=2
item=45
val=0
Change.ini

Code: [Select]

[Mining]
1-1=2
2-1=5
1-2=0
2-2=4

max.ini

Code: [Select]

[Mining]
MMAX=2
maxlv=2
maxexp1=100
maxexp2=300

INI configuration:

Mining.ini

[1]

1 is the section of which number goes from 1 to MMAX out max.ini.

X=2

2 is the X of the rock.

Y=2

2 is the Y of the rock.

MAP=23

23 is the Map of the rock.

weapon=2

2 is the required weapon number.

item=3

3 is the item you get if you cutted the rock.

val=0

0 is the value you get, 0 for non-stackable items, 1 or higher for stackable items.

Change.ini

2-1=5

2 is the Mlv the person needs to be.
1 is the MSection (The thing from 1 to MMAX)
5 is the change in percent like 100 (without %). Goes from 0 to 100

max.ini

MMAX=2

2 is the max of MSections.

maxlv=2

2 is the Max level you can reach in Mining.

maxexp1=100

1 is the level, if you're lv 1 then you need to get 100 experience.


Function:
Now you can mine ores on some places.


Notes:
- You need to block the rock, stone position.


Mining
Code:

In Sub JoinGame(index) above End Sub add this:

Code: [Select]

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

In Sub OnAttack(index) Add under Sub OnAttack(index) if not added:

Code: [Select]

Dim Checked
In Sub OnAttack(index) Add above of End Sub:

Code: [Select]

Checked = CheckIt(index)
If Checked = 1 Then
Call FishMsg(index, Checked)
End If
End If
Add this total down in your Main:

Code: [Select]

Sub Giveitem(index, item, value)
SLOT = 1
Do While SLOT < 24
If GetPlayerInvitemNum(index, SLOT) = 0 Then
Call SetPlayerInvitemNum(index, SLOT, item)
Call SetPlayerInvitemValue(index, SLOT, value)
Call SendInventoryUpdate(index, SLOT)
SLOT = 24
End If
SLOT = SLOT+1
Loop
End Sub
Add this total down in your Main:

Code: [Select]

Sub CheckIt(index)
Credits:
The Credits go to me, Godlord.
No posting this script somewhere else without my permission.

Stephan

umm wow nice godlord!!

Soljah

Thanks. . Maybe I should use it into my tutorial. lmao.

Stephan

I updated it a little bit... If you want 2 or them all then you need to modify the Sub OnAttack yourself or wait untill I made a section which explains on how to get 2 or more skills in the attack sub...

The next new skill will be Smithing.

Stephan

Oooo I cant wait  :blob: :blob:

Soljah

For your OnAttack, is that alot of code to go through every time someone attacks? Why not make another sub, and in OnAttack just have checks to see if the player has a particular item? So like if they have a wood axe, it will detect it and call the woodcutter script?

Anna Comnena

Well I could make them subs, but subs are only needed if you use something to much and in this case I can only put the check X and Y if there is a tree in a sub well I can also add something else in subs well I am going to do it then...

Stephan

Eh.. What's "Total Down" mean? lol..
I R nub :D

Avon

Eh.. What's "Total Down" mean? lol..
I R nub :D

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?

Brodiaea

You what's cool about necro posting? Yeah... Me neither...

jackal27

You what's cool about necro posting? Yeah... Me neither...

necro-posting so thats wats it called...

Brodiaea

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?

No. xD
I just was browsing around and randomly went here and was wondering what that meant. 

Avon

Fantastic! Thanks!

Jime307

Code: [Select]

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
Should be

Code: [Select]

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
No ? You had " at the start of GetPlayerName(Index)

Btw my names Uarepoo2, But the stupid name blocker blocks poo lol

Bad Name

Lol, nice job of finding that. I wonder if it worked for anyone with that their lol.

kenny

very cool! :D

1472000

does this work for EE?

1472000

Necro post Don't do it

Hyperion

This should be a fully working version of the script, all 3 subs in their dont get error from Demon X's script editor.

Code: [Select]

Sub SetWoodcuttingExperience(index, exp)
Dim wclv
Dim pexp
Dim max
Dim wcmax
wclv = 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 Then
If wclv < maxlv Then
Call 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 Then
Call PutVar("\Skills\DB.ini", GetPlayerName(index), "WoodcuttingExp", 0)
Call PutVar("\Skills\DB.ini", GetPlayerName(index), "Woodcutting", maxlv)
End If
ElseIf Int(pexp + exp) <= max Then
Call PutVar("\Skills\DB.ini", GetPlayerName(index), "WoodcuttingExp", Int(pexp + exp))
End If
End Sub

Sub CheckIt(index)
Dim WoodcuttingSpotX
Dim WoodcuttingSpotY
Dim I
Dim memX
Dim Fish
Dim WoodcuttingSpotM
I = 1
Do 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 = I
If GetPlayerMap(index) = WoodcuttingSpotM Then
If WoodcuttingSpotY = Int(GetPlayerY(index) + 1) And WoodcuttingSpotX = Int(GetPlayerX(index) + 1) Then
CheckIt = 1
I = 21
ElseIf WoodcuttingSpotY = Int(GetPlayerY(index) - 1) And WoodcuttingSpotX = Int(GetPlayerX(index) - 1) Then
CheckIt = 1
I = 21
ElseIf WoodcuttingSpotY = Int(GetPlayerY(index) + 1) And WoodcuttingSpotX = Int(GetPlayerX(index) - 1) Then
CheckIt = 1
I = 21
ElseIf WoodcuttingSpotY = Int(GetPlayerY(index) - 1) And WoodcuttingSpotX = Int(GetPlayerX(index) + 1) Then
CheckIt = 1
I = 21
Else
CheckIt = 0
I = Int(memX + 1)
End If
End If
Loop
End Sub           

Sub WoodcuttingMsg(index, wood)
Dim wclv
Dim change
Dim item
Dim val
Dim I
If wood = 1 Then
If GetPlayerWeapon = GetVar("\Skills\Woodcutting.ini", I ,"weapon") Then
Call 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 Then
Call PlayerMsg(index, "You cutted some wood", 12)
Call GiveItem(index, item, val)
Call SetWoodcuttingExperience(index, GetVar("\Skills\Woodcutting.ini", I ,"exp"))
Else
Call PlayerMsg(index, "You failed with cutting some wood", 12)
End If
End If
End If
End Sub

kenny

I think I've tried everything that is in the post to get this script to work, but I can't seem to get it. Anybody think they could assist me, if you could I would appreciate it. Please message me.

Jayce Atkins