Created: 3 months ago on 04/11/2025, 02:34:55 AM
FileType: Razor Enhanced (PHP)
Size: 1620
Description: Trains Camping and removes campfires to avoid the 5 limit
from System.Collections.Generic import List
from System import Int32
import sys
KINDLING_ID = 0x0DE1
CAMPFIRE_ID = 0x0DE3
if Player.GetRealSkillValue("Camping") < 50:
Player.HeadMessage(1100, "Skill too low, buy from NPC")
sys.exit(99)
campFireFilter = Items.Filter()
campFireFilter.Enabled = True
campFireFilter.RangeMin = 0
campFireFilter.RangeMax = 2
campFireFilter.Graphics = List[Int32](CAMPFIRE_ID) # Campfire
while Player.Connected and Player.GetRealSkillValue("Camping") < Player.GetSkillCap("Camping"):
if not Items.FindByID(KINDLING_ID, -1, Player.Backpack.Serial, True):
Player.HeadMessage(38, "No kindling found in backpack.")
sys.exit(99)
if not Timer.Check("CAMPFIRE_COOLDOWN"):
Items.UseItemByID(KINDLING_ID, -1)
Timer.Create("CAMPFIRE_COOLDOWN", 1000)
Misc.Pause(250)
campFires = Items.ApplyFilter(campFireFilter)
if not campFires or len(campFires) < 1:
Misc.Pause(250)
continue
for campFire in campFires:
Items.MoveOnGround(campFire.Serial, 1, campFire.Position.X + 1, campFire.Position.Y, campFire.Position.Z)
Misc.Pause(650)
Misc.Pause(250)
Player.HeadMessage(85, "Skill maxed")