Official ScriptUO EasyUO Scripts > Script Snippets

Freddy Snippets

<< < (2/7) > >>

freddy:
Scan for specific skills on items:

Kind of not finished, but kinda is


--- Code: --- set #lpc 1000
  gosub scan_skill IRVCDTD magery_
  if #result <> #true
  display #result
  pause
;--------------------------------------------------------------
;--------------------------------------------------------------
sub scan_skill
  set #lpc 1000
  set %jewel 1
  set %item %1
  set %skill %2
  gosub separate_string2 %2 _
  for %n 1 %t_num
  {
    finditem %item C_ , #charid
    if  #findkind <> -1
    {
      set %skill . %item
      set %skillLvl . %item
      for %n 1 %t_num
      {
        event property #findid
        if %return . %n in #property && %item <> %weapon
        {
          set !temp_string #property
          str pos !temp_string %return . %n
          set %dthis #strres - 1
          str del !temp_string 1 %dthis
          set !temp_string #strres
          str pos #strres $
          set %del_this #strres - 1
          str left !temp_string %del_this
          set !temp_string #strres
          str pos !temp_string +
          str del !temp_string 1 #strres
          set !temp_string #strres
          set %skilllvl . %item %skilllvl . %item , !temp_string , _
          set %skill . %item %skill . %item , %return . %n , _
          set %total %total + 1
          set %scan #true
        }
      }
      if %scan = #true
        return !temp_string
    }
  }
return #false
;--------------------------------------------------------------
;--------------------------------------------------------------
sub separate_string2
  set %i 0
  set %t_num 0
  str Count %1 %2
  for %i 1 #strres
  {
    set %var %2
    str len %1
    set %length #strres
    str pos %1 %var
    set %del #strres - 1
    str left %1 %del %length
    set %return . %i #strres
    set %del1 %del + 1
    str del %1 1 %del1
    set %1 #strres
    set %t_num %t_num + 1
  }

return
;-------------------------------------------------------------
;-------------------------------------------------------------
--- End code ---

freddy:
Take  hard dirt from one container, make it soft with endless decanter, then move soft dirt to another container


--- Code: ---set %hard_container GTEQGUD
set %soft_container     PKEQGUD

finditem QLI C_ , %hard_container
for %u 1 #findcnt
{
  finditem QLI C_ , %hard_container
  exevent drag #findid
  wait 12
  exevent dropc #backpackid
  wait 12
  set %no #findid
  finditem VBM C_ , #backpackid
  set #lobjectid #findid
  for %i 1 2
  {
    set #ltargetkind 1
    event macro 17 0
    wait 1s
    set #ltargetid %no
    event macro 22 0
    wait 30
  }
  exevent drag %no
  wait 12
  exevent dropc %soft_container
  wait 15
}
halt


--- End code ---

freddy:
grab bowl of soft dirt from container, grab seed from another container, place planed bowl in another container


--- Code: ---set %bowl_container PKEQGUD
set %seed_container DALUGUD
set %plant_container GTEQGUD


finditem QLI C_ , %bowlcontainer
for %u 1 #findcnt
{
  finditem QLI C_ , %bowl_container
  exevent drag #findid #findstack
  wait 12
  exevent dropc #backpackid
  wait 12
  set %bowl #findid
  finditem PDF C_ , %seed_container
  if #findkind = -1
  {
    display out of seeds
    halt
  }
  exevent drag #findid 1
  wait 12
  exevent dropc #backpackid
  wait 12
  finditem pdf C_ , #backpackid
  set #lobjectid #findid
  wait 12
  event macro 17 0
  set #ltargetkind 1
  set #ltargetid %bowl
  wait 15
  event macro 22 0
  wait 12
  exevent drag %bowl
  wait 12
  exevent dropc %plant_container
  wait 12
}
halt

--- End code ---

freddy:
lock planted bowls down after breaking crate

--- Code: ---finditem QLI G_2
for #findindex 1 #findcnt
{
event property #findid
if locked notin #property
{
 event macro 3 0 i wish to secure this
 set #ltargetid #findid
 set #ltargetkind 1
 target
 wait 10
 event macro 22 0
}
}
halt
--- End code ---

freddy:
Spam messages in gen chat and yelling and will display the journal entry of whoever says your name

You need to type your character name. #charname wont work since a lot of ppl use titles (i do) and your global chat tag. Those are the numbers that appear in the < > before your name


--- Code: ---set %chat_tag 500000
set %charname freddy ;Type char name, #charname wont work if you use a title
set %msgdelay 75
;--------------------------------------------------------------
;--------------------------------------------------------------
set %comma , ;for gen chat
set %yell !  ;to yell
set %timer1 #scnt
set %car %charname , :
loop:
if #scnt >= %timer1
{
msg %yell , #spc ,  Selling blah $
wait 15
msg %comma , #spc , selling mace and sheild 10m $
set %timer1 #scnt + %msgdelay
wait 2s
}
gosub journal2 %charname %chat_tag %car
if #result <> #false
{
 display #result
}
goto loop
;--------------------------------------------------------------
;--------------------------------------------------------------
sub journal2
  set %timer #scnt
  While #true
  {
    set %_jindex #jindex
    if #jindex >= %_jindex
    {
      scanjournal %_jindex
      if %1 in #journal &&  %2 notin #journal && %3 notin #journal
        return #journal
      return #false
    }
  }
return ;should never get this far
;--------------------------------------------------------------
;--------------------------------------------------------------

--- End code ---

Navigation

[0] Message Index

[#] Next page

[*] Previous page