Threaded Mode | Linear Mode

Khaos · 03-14-2016 05:44 AM

Try this and give me the errors if it gives any:

Code:

[EVENTS e_repair]

ON=@ContextMenuRequest

src.addcontextentry 111,3000089

ON=@ContextMenuSelect

If <argn>==111    // Repair

 If (<Src.Distance> > 3)

  Src.SMsg Too far away from the Vendor

  Return 1

 EndIf

 Src.SMsg Target the weapon or armor you want to repair.

 Src.TargetF fRepair

 Return 1

EndIf

[Function fRepair]

If (<ArgO.Distance> > 5)

 Src.SMsg You cannot reach the vendor.

 Return 1

EndIf

If !(<ArgO.IsWeapon>) || !(<ArgO.IsArmor>)

 Src.SMsg You can only repair weapons and armor.

 Return 1

EndIf

If (<ArgO.More1> == <ArgO.More1L>)

 Src.SMsg This item is already in full repair.

 Return 1

EndIf

dLocal.Cost=<Eval (((<ArgO.More1H>-<ArgO.More1L>)*<ArgO.Tag0.Repair>) +1)>

If (<Src.Gold> < <dLocal.Cost>)

 Src.SMsg You don't have <dLocal.Cost> gold to repair this.

 Return 1

Else

 ArgO.More1L=<ArgO.More1H>

 Src.Gold -= <dLocal.Cost>

 ArgO.Update

 Return 1

EndIf

Threaded Mode \| Linear Mode LINK
Author	Message