Version 3.5.1 uploaded includes Frneo's code to craft pens. I do not have a scribe with tinkering to test the code, so please try out the new version and provide feedback.

Thanks,

JaF

Hi JaF, thx for trying out my code, I was really happy to see it in such a great script...

However, I was taking a look at my code, and I saw several flaws in it. Like I said, I wrote it kind of in a hurry...

For example, if you would run out of scrolls, the script would go into a loop making pens until your resource container was full...

Same thing would happen if your secure was full of books...

Anyways, I re-wrote some of the code, and improved it a little bit, and also fixed these issues.

So here goes the fixed version of the code.

First of all, you should change "sub button2" back to it's original form, my code won't use it anymore.

sub button2
set #menubutton n/a
menu delete status
menu window color white
menu text status 40 245 PAUSED
while #menubutton = n/a
  wait 10
gosub #menubutton
return

What I did change was "sub getpen". It should be changed to this:
sub getpen
if #menubutton <> n/a
   gosub #menubutton
menu delete status
menu text status 40 245 Getting Pen
finditem pbg C_ , %resource
if #findcnt < 1
   {
   if %tinker = #true
      {
      menu delete status
      menu text status 40 245 Making Pens
      gosub frneopen
      return
      }
   menu delete status
   menu text status 40 245 Out of Pens
   set #menubutton button2
   event ExMsg #charID 3 0 GET MORE PENS and hit RESUME
   return
   }
Exevent Drag #findid
Wait 10
Exevent Dropc #BACKPACKID
wait 10
finditem pbg C_ , #BACKPACKID
wait 10
while #findcnt < 3
       {
       finditem pbg C_ , %resource
          if #findcnt < 1
          {
           menu delete status
           menu text status 40 245 Out of Pens
           set #menubutton button2
           event ExMsg #charID 3 0 GET MORE PENS and hit RESUME
           return
          }
       Exevent Drag #findid
    wait 10
    Exevent Dropc #BACKPACKID
    wait 10
       }
set #menubutton BUTTON4
return

And also, I redid the rest of the code in accordance to these changes, so the previous version I posted here should also be deleted. This is the new version of the code, and should be inserted anywhere in the script:

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++
sub frneopen
namespace push
namespace local frneopen
set !ingots ENK
set !tinker JTL
set !pen PBG
finditem !ingots C_ , %resource
if #findcnt < 1
   {
   namespace pop
   return
   }
if #findstack > 30
   {
   exevent drag #findid 30
   wait 20
   exevent dropc #backpackid
   wait 20
   }
if #findstack <= 30
   {
   exevent drag #findid #findstack
   wait 20
   exevent dropc #backpackid
   wait 20
   }
finditem !tinker C_ , #backpackid
if #findcnt < 1
   {
   namespace pop
   return
   }
if #findcnt = 1
   {
   finditem !ingots C_ , #backpackid
   if #findcnt < 1
      {
      namespace pop
      return
      }
   finditem !tinker C_ , #backpackid
   set #lobjectid #findid
   event macro 17
   wait 25
   gosub frneowait generic_gump
   }
frneotinker:
finditem !tinker C_ , #backpackid
if #findcnt < 2
   {
   finditem !ingots C_ , #backpackid
   if #findcnt < 1
      {
      namespace pop
      return
      }
   set !clickx #contposx + 30
   set !clicky #contposy + 130
   click !clickx !clicky f
   gosub frneowait generic_gump
   set !clickx #contposx + 235
   set !clicky #contposy + 130
   click !clickx !clicky f
   gosub frneowait generic_gump
   goto frneotinker
   }
finditem !tinker C_ , #backpackid
set #lobjectid #findid
event macro 17
wait 25
gosub frneowait generic_gump
frneopen:
finditem !ingots C_ , #backpackid
if #findcnt < 1
   {
   namespace pop
   return
   }
finditem !pen C_ , #backpackid
if #findcnt < 4
{
finditem !ingots C_ , #backpackid
if #findcnt < 1
   {
   namespace pop
   return
   }
set !clickx #contposx + 30
set !clicky #contposy + 130
click !clickx !clicky f
gosub frneowait generic_gump
set !clickx #contposx + 385
set !clicky #contposy + 270
click !clickx !clicky f
gosub frneowait generic_gump
set !clickx #contposx + 385
set !clicky #contposy + 270
click !clickx !clicky f
gosub frneowait generic_gump
set !clickx #contposx + 235
set !clicky #contposy + 110
click !clickx !clicky f
gosub frneowait generic_gump
goto frneopen
}
finditem !ingots C_ , #backpackid
exevent drag #findid #findstack
wait 20
exevent dropc %resource
wait 20
namespace pop
return

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++
sub frneowait
namespace push
namespace local frneowait
wait 10
set !timeout #SCNT
waitforgump:
if #contname = %1
{
namespace pop
return
}
if #SCNT > !timeout + 5
{
finditem JTL C_ , #backpackid
set #lobjectid #findid
event macro 17
wait 25
namespace pop
return
}
goto waitforgump
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++

And last, I added a "switch code" for the tinker option. So, if you want to use the tinker option, you should add this to the very beginning of the script:

set %tinker #true ; can be changed to #false if you don't want to craft pens

So, I guess the issues I could think of are all covered in this new code... If any bugs should still appear, I'd be more than happy to try and help fix them...

Sorry for the inconvenience of having to change the code again...

And thanks again for giving it a try...

Cheers!

EDIT 08/01: Added a security code to the gumpwait sub to avoid endless loops, in case something weird happens while you're crafting and you lose your gump... Also fixed some flaws in case for some reason you ran out of ingots in the middle of crafting....

EDIT 08/02: Used namespace to avoid any possible issues with var names...

I will play with this and get back to you! Thanks for submitting!!

Thanks for trying it out. I hope you find it useful...

hehe,  I used this trick so much it isn't even funny but i heard they just fixed it in a recent patch.  can anyone confirm that or not?  there are actually about 10 or so really good spots to trap the satyrs olong the diagonal walls if you have two characters.  never found a spot where you could do it with one spot.  this was great for finishing ninjitsu or bushido when hitting a horse.

Thc for the submission, i just hope it still works!

I saw a guy training up magery today using the Satyr Trick, so my guess is it still works.

I haven't used the trick myself in the last couple of weeks, so I don't know if there have been any changes in it.

However, last time I used it, I was under the impression that it was taking me the same amount of time to get the skill up by 0.1 as it would take if I weren't discorded.
If this proves to be right, then the only upside of using this trick would be to use lower skilled moves to get the skill up. For example, magery, you would use spells that are faster to cast and use less mana.

Hi guys. I wanted to share with you something that has made my life A LOT easier when training up some skills. You all remember the satyr trick right?

If you don't know it, this is what I'm talking about:
Taken from uoguide.com
    Go into Twisted Weald, find a satyr and pull up its gump.
    Attack it by double clicking its gump in war mode and it will attempt to use discordance on you.
    Let it follow you around until you have been discorded. You will know this because you will see all of your skills drop.
    Then quickly get through the moongate to leave Twisted Weald.
    When attacking it I recommend you get to the exit as quickly as possible as it will try to provoke other creatures in the area onto you. With lowered skills you definitely don't want a Cu Sidhe attacking you; even a Pixie can be hard to kill if you're young. If they do target you, they must either be killed or you must leave the server and come back.
    Once you leave via the moongate the satyr will loose interest in attacking you. However, you are still discorded and you can re-enter without fear of it attacking you; this will NOT however stop critters that may have been provoked onto you from attacking you. This is when an invisibility spell or a pixie swatter with weapon skill comes in handy.
    Now as long as you stay close to the satyr you will stay discorded until it respawns. Making use of the Alt-Left Click combination to follow the satry around is helpful.

It takes a while to get the hang of it and may several tries before getting it down.

Unlike other debuffs, no icon indicator will appear in the buff/debuff gump while a character is Discorded.
Well, there's a way to "enhance" this trick, getting the satyr stuck, so that you can just stay put, and never have to follow him around anymore.
You will need a friend or second account to pull this off (it can be done solo, but it's easier to have someone there)

So, the first thing you should do is have a friend (or a second account) stand exactly at (1) in the pic below. Now have your toon (2) attack the satyr.


Once the Satyr starts attacking you, you should run to the spot shown in the picture below. Also be sure you're not in war mode as to not attack the satyr again.


Once the satyr gets to the spot just North of you (shown below) you should invis yourself (or have your friend invis you).



As soon as you're invisible, the satyr will forget to attack you (as long as you don't attack him again). Now you should quickly run past the satyr and stand right North of him, like shown in the picture below. Your friend (or second account) just has to stay put at the same spot since the beginning.


After a little while (a few seconds) the Satyr will want to move. Since he is blocked from the West (by your friend) and from the North (by you), and also, there's a rock blocking him from the East, he will have no choice but to move 1 square to the South. Once he does this, you should also move 1 square to the south. See pic below.


Ok, now you're done! The Satyr will be stuck there, and as long as you don't move, he won't be able to get out of that exact spot. Your friend (or second account) is free to go, as you will be blocking the Satyr's passage by yourself now.


Now you can perform the Satyr trick until you get discorded, invis yourself, and stand there training up your skill without having to follow the Satyr around.

I don't know if many of you know about this, I've just recently found out about this by accident when I started playing again after all these years away from UO.

Hope you find this useful.

If anything isn't clear enough, please ask here, and I'll try my best to make it clearer.

Thank you guys... You're too nice!

Thx a lot for the welcome