Official ScriptUO EasyUO Scripts > Script Snippets

Freddy Snippets

(1/7) > >>

freddy:
This thread will contain various snippets of code that I use regularly.  This is mainly so i don't lose them, but some of yall might find them useful too.

Each snippet will be a new post.

freddy:
Fill Plant bowls with dirt:

container 1 contains fertile dirt and plant bowls.

container 2 holds filled bowls.


--- Code: ---set %bowl_container
set %filled_container


finditem dgi C_ , %bowl_container
if #findkind <> -1
{
  for #findindex 1 #findcnt
  {
    finditem DGI C_ , %bowl_container
    exevent drag #findid #findstack
    wait 12
    exevent dropc #backpackid
    wait 12
    set %no #findid
    finditem NZF C_ , %bowl_container
    exevent drag #findid 20
    wait 12
    exevent dropc #backpackid
    wait 12
    finditem NZF C_ , #backpackid
    set #ltargetid #findid
    set #lobjectid %no
    event macro 17 0
    wait 1s
    event macro 22 0
    wait 1s
    finditem QLI C_ , #backpackid
    exevent drag #findid #findstack
    wait 12
    exevent dropc %filled_container
    wait 12
  }
}
halt

--- End code ---

freddy:
Find all guilds of everyone around you: (does not work with gargs)


--- Code: ---set %finalguild #spc
repeat
  set #lpc 1000
loop:
  finditem AU_XU_IS_HS G_20
  if #findkind <> -1
  {
    if #findrep = 1
    {
      event property #findid
      if [ notin #property
      {
        ignoreitem #findid
        goto loop
      }
      set %string #property
      str len %string
      set !length #strres
      STR POS %String [
      set %guild #strres
      STR DEL %string 1 %guild
      set %guildname #strres
      str len %guildname
      set %end #strres
      str pos %guildname ]
      set %stringtodelete #strres
      str del %guildname %stringtodelete %end
      set %temp_store #strres
      if %temp_store notin %finalguild || %finalguild = N/A
        set %finalguild %finalguild , %temp_store , _ ,
    }
    ignoreitem #findid
  }
until #findid = x
if %finalguild = #spc
  set %finalguild No , #spc , Guild ,

display %finalguild
if %finalguild = #charname
  set %finalguild none
halt



--- End code ---

freddy:
Fill char with x amount of gold from gold stacks in bank < chosen number

--- Code: ---finditem pof C_ , %bankid
      if #findkind <> -1
      {
        for #findindex 1 #findcnt
        {
          if #gold >= 5000
            return
          set %get 5000 - #gold
          if #findstack < %get
            set %dragthis #findstack
          else
            set %dragthis %get
          exevent drag #findid %dragthis
          wait 12
          exevent dropc #backpackid
          wait 12
        }
      }
--- End code ---

freddy:
Scan durability of everything equipped on character. !dura_cur = current durability, !dura_max = max durability, %prop = name of current item


--- Code: ---set %dura_warn 5
set %remove_armor_on_warn  #true
gosub scan_armor
halt

;--------------------------------------------------------------
;--------------------------------------------------------------
sub scan_armor
  set #lpc 1000
  finditem * C_ , #charid
  for #findindex 1 #findcnt
  {
    gosub scan_dura #findid
    if #result = #true && !dura_max <> N/A
    {
      event property #findid
      set %temp_sid #property
      str pos %temp_sid $
      set %del #strres - 1
      str left %temp_sid %del
      set %prop #strres
      set %slash /
     ; menu list add durabox %prop , #spc , !dura_cur , %slash , !dura_max
     display %prop !dura_cur %slash !dura_max
      if !dura_cur <= %dura_warn
      {
        if %remove_armor_on_warn = #true
        {
          wait 10
          exevent drag #findid #findstack
          wait 10
          exevent dropc #backpackid
          wait 10
        }
      }
    }
  }
  set #lpc 20
  set %problem 0
return
;--------------------------------------------------------------
;--------------------------------------------------------------
sub scan_dura
  namespace push
  namespace local dura_check
  set !item %1
  set !dura durability
  event property !item
  if !dura in #property
  {
    set !temp_string #property
    str pos !temp_string durability
    set !delete_this #strres + 10
    str del !temp_string 1 !delete_this
    set !temp_string #strres
    str len !temp_string
    set !delete_this #strres - 1
    str left !temp_string !delete_this
    set !temp_string #strres
    wait 1
    str pos !temp_string /
    set !delete_this #strres - 1
    str left !temp_string !delete_this
    set !dura_cur #strres
    wait 1
    str pos !temp_string /
    set !delete_this #strres - 1
    str right !temp_string !delete_this
    set !dura_max #strres
    namespace push
    return #true
  }
return #false
;--------------------------------------------------------------
;--------------------------------------------------------------
--- End code ---

Navigation

[0] Message Index

[#] Next page