Official ScriptUO EasyUO Scripts > Script Snippets
Freddy Snippets
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
Go to full version