Ultimate Pot Drinking Sub

[UOMaddog]

No problemo, TM! Glad I can help! You have access to contributors, so you can pull my whole script (cuz I probably missed a variable or two that you need when I cut it out of the script to post here) and take a look to see exactly how I did it. I think it works quite nicely, although you do have to be careful about what personal macros you hit when you're in the middle of chugging. For example, I found that if I hit one of my Arm Weapon 1 (2, 3, or 4) or my Equip Last Weapon macro while the script is attempting to drag the shield or weapon it can often cause the client to crash. But if you're careful, it works flawlessly! I'm gonna try to post a bit more over here instead of WinUO, but we'll see how it goes!!

[Cerveza]

There's some safety's you can put in to ensure nothing is on cursor, or nothing will be dragged on screen while your drinking.

Here's a little example that you can use to see if you have a target cursor up, or something being lifted.

Code: [Select]

sub Check_Status
if #targCurs = 1 || #lLiftedKind = 1
  return #TRUE
return #FALSE
Then you can use a switch like

if #result = #FALSE

to continue your potions.

[Hoby]

"why won't this work with my Halloween 2001 trick or treat bag and my event item dragon scrotum shield equipped?"

lol, thats funny.  dragon scrotum shield ftw!

[UOMaddog]

I did do that Cerveza!

Code: [Select]

if #targcurs = 0
   {
   blah blah blah ;(I edited this out)
      }
      if #lliftedkind = 1
         return
The issue is if it is in the process of executing the following code:

Code: [Select]

exevent drag %disarm
wait %delaybefore
set #lobjectid %pot
event macro 17
exevent dropc %dropobjectFor example, if it's on the 3rd line, it already has something on the cursor, so if you hit your EquipLast Weapon macro while it's doing that, you crash. Unless you make all your macros in EUO, there's no way to avoid it!

[Cerveza]

LOL Cool, didn't look over the script first.

There's always going to be issues with drag/drop and crashes. We just do the best we can to avoid them.

Looks like you've done about all you can.

[UOMaddog]

Yea, it just really sucks when you're in a big fight or things are getting hairy when you're fighting 1v4 at the gate and you hit a bad key and crash yourself =[

[Cerveza]

Thats why you put everything into one GI-NORMOUS script

Then you can control EVERYTHING and every keystroke 

[UOMaddog]

I think my next script will be titled Maddog UO Player Script. Basically it plays the game for you. It logs you in as soon as you get home from class or work, then recalls to yew gate and does a run through, looking for how many noobs are on. It may possibly stop to call a couple of them "GATE TRASH!" or say something along the lines of "GO BACK TO TRAM YOU PIECE OF *bleep* TAMER!" After that, it will run through despise to see if a small group of blues are trying to get some powerscrolls. Then it runs through Fire and Deceit to see if any of the SNEAKY blues are trying to sneak a spawn off. It then recalls back to your house (since nothing is going on) and looks through your armor to see if you can improve your suit at all. After swapping out piece after piece, it looks at your suit and realizes that you're right back to the suit you started with! It then recalls BACK to the gate, owns a few noobs by spamming para on idiots with no resist and a trapped box script. The script then goes afk for 10 mins at the gate, comes back and spams LOL because you were just afk at the gate for 10 mins and no one killed you. It then recalls back to your house and starts training some stupid skill like Taste ID or Forensic Eval just because C2 wrote a cool script to train it and "Hell, why not? I have every other skill already on a soulstone!" The script then gets bored, turns on the TV and watches infomercials at 2am while training skills. Eventually the script just falls asleep.

Anyone wanna help me with debugging the script?

[Hoby]

Thats too funny, thats about the exact same thing i did yesterday after i got up.

[manwinc]

Hahahahahahaha, That Is A Funny Script! Figured i'd post something similar to your chugger that I use in a Pet player script scenario, also comes in handy when not using a pet player though. Havent added a disarm Function yet though. It just reacts to certain scenarios.

If your poisoned
Cure
If Your health is below a certain point
Heal
If Stamina is below A certain point
refresh
if Dex Timer is up
Agility
if Str timer is up
Strength

Code: [Select]

Sub Pots
Finditem %2Handed_Weapons C_ , #Charid
if #Findcnt > 0
return
finditem %Weapons C_ , #charid  ; shields is included in weapons
if #findcnt > 1
Return
if #findtype in %Bow
{
event property #findid
if Balanced Notin #property
return
}
if %LLiftedid <> #lliftedid
{
set %Lobject_Timer #scnt2 + 10
set %Lliftedid #lliftedid
}
if %lobjectid <> #lobjectid
{
set %Lobject_Timer #scnt2 + 10
set %Lobjectid #lobjectid
}
if *Man_Whore_Army_Heal_Cure = -1
   {
   if C in #charstatus
      {
      Finditem %Cure_Pot C_ , #backpackid
      if #findcnt > 0 && %Lobject_Timer < #Scnt2
          {
          set #Lobjectid #findid
          event macro 17 0
          set %Lobject_Timer #scnt2 + 10
          set %Lobjectid #lobjectid
          }
      }
   set %Lowest_Health #Maxhits / 2
   if #hits < %Lowest_Health
      {
      finditem %Heal_Pot C_ , #Backpackid
      if #findcnt > 0 && %Heal_Pot_Timer < #Scnt && %Lobject_Timer < #Scnt2
         {
         set #Lobjectid #findid
         event macro 17 0
         set %Lobject_Timer #Scnt2 + 10
         set %Heal_Pot_Timer #Scnt + 12
         set %Lobjectid #lobjectid
         }
      }
}
if *Man_Whore_Army_Dex_Str = -1
   {
   if %Str_Timer < #scnt
      {
      Finditem %Str_Pot C_ , #Backpackid
      if #findcnt > 0 && %Lobject_Timer < #Scnt2
         {
         set #lobjectid #findid
         event macro 17 0
         set %Lobject_Timer #Scnt2 + 10
         set %Str_Timer #Scnt + 115
         set %Lobjectid #lobjectid
         }
      }
   If %Dex_Timer < #Scnt
      {
      Finditem %Dex_Pot C_ , #Backpackid
      if #findcnt > 0 && %Lobject_Timer < #Scnt2
         {
         set #Lobjectid #findid
         event macro 17 0
         set %Lobject_Timer #Scnt2 + 10
         set %Dex_Timer #Scnt + 115
         set %Lobjectid #lobjectid
         }
      }
   }
If *Man_Whore_Army_Refresh = -1
   {
   Finditem %Refresh_Pot C_ , #Backpackid
   if #findcnt > 0 && %Lobject_Timer < #scnt2
      {
      set #lobjectid #findid
      event macro 17 0
      set %Lobject_Timer #scnt2 + 10
      set %Lobjectid #lobjectid
      }
   }
Return

[Cerveza]

Nice, thanks for the contribution.

[_C2_]

Maddog that is private level disarm rearm stuff lol.  i shared that idea in hopes it wasn't on public boards hehe.

[manwinc]

Hmm.... Interesting. Definitely Liking this site!!! Lots of little Tricks.