Freddy Snippets

[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: [Select]

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


[freddy]

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

Code: [Select]

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




[freddy]

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

Code: [Select]

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
        }
      }

[freddy]

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

Code: [Select]

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
;--------------------------------------------------------------
;--------------------------------------------------------------

[freddy]

Scan for specific skills on items:

Kind of not finished, but kinda is

Code: [Select]

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
;-------------------------------------------------------------
;-------------------------------------------------------------

[freddy]

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

Code: [Select]

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



[freddy]

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

Code: [Select]

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


[freddy]

lock planted bowls down after breaking crate

Code: [Select]

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

[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: [Select]

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
;--------------------------------------------------------------
;--------------------------------------------------------------


[freddy]

Spam Watch

Displays the last 3 things in your journal in very big letters. Has a box where you can talk in game. I use this when i spam to sell stuff and want to watch movies or whatever

Code: [Select]

;update 26july2015
;removed underscores from chat window
menu Clear
menu Window Title Spam Watch
menu Window Color BtnFace
menu Window Size 977 71
menu Font Transparent #true
menu Font Align Right
menu Shape EUOShape1 -28 -4 1009 169 3 7 1 Black 7 White
menu Font Name MS Sans Serif
menu Font Size 16
menu Font Style
menu Font Transparent #false
menu Font Align Left
menu Font BGColor White
menu Edit jtalk 860 20 109
menu Button talk 860 44 109 21 o k
menu Show 421 270
set #menubutton n/a
set %newmsg
set %omsg
set  %omsg1

set %jindex #jindex
set %t 1
loop:
if #menubutton = talk
{
  menu get jtalk
  msg #menures $
  set #menubutton n/a
  menu delete jtalk
  menu Edit jtalk 860 20 109
}
if #jindex <> %jindex
{
  scanjournal #jindex
  if %msg = #journal
    goto loop
  if you_see in #journal
    goto loop
  if *yes = #true
    menu Font Color Red
  else
    menu Font Color black
    set %sep_smsg #journal , #spc , _
  gosub separate_string %sep_smsg _
  for %i 1 %t_num
  {
   set %newmsg %newmsg , #spc , %return . %i
  }

;  set %newMsg #journal
  menu delete journal3
  menu Text journal3 8 44  %newMSG
  menu Font Color black
  menu delete journal2
  menu Text journal2 8 20 %omsg
  menu delete journal1
  menu Text journal1 8 0 %omsg1
  set %omsg1 %omsg
  set %omsg %newmsg
  set %msg #journal
  set %newmsg
  if *yes = #true
    set *yes #false
}
goto loop
;-------------------------------------------------------------
;-------------------------------------------------------------
sub separate_string
  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
;----------------------------------------------------------------------
;----------------------------------------------------------------------



[freddy]

Claim bless deeds from cleanup officer

Code: [Select]

set %times 8
set %cleanup KMLPL
for %i 1 %times
{
   set #lobjectid %cleanup
   event macro 17 0
   wait 1s
   for %u 1 21
   {
    set %clickx #contposx + 302
    set %clicky #contposy + 343
    click %clickx %clicky
   }
   set %clickx #contposx + 41
   set %clicky #contposy + 206
   click %clickx %clicky
wait 20
   set %clickx #contposx + 300
   set %clicky #contposy + 234
   click %clickx %clicky
   wait 10
}
halt

[freddy]

I  use a variation of this in nearly every script I write.

Purpose: Separates a string into multiple, separate strings.

Usage: gosub separate_string this^is^a^test^string^ ^
returns:
%return1 this
%return2 is
%return3 a
%return4 test
%return5 string
%t_num 5

 Example strings:

  gosub separate_string 1280x800x x ;string, divider
    returns %return1 (1280) and %return2 (800)

  gosub separate_string this^is^a^string^ ^ ;string, divider

    returns %return1 (this) %return2 (is) %return3 (a) %return4 (string)


The %t_num variable tells you how many strings were created

Code: [Select]

;-------------------------------------------------------------
;-------------------------------------------------------------
sub separate_string
  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
;----------------------------------------------------------------------
;----------------------------------------------------------------------


[freddy]

[freddy]

Scan items in a container without opening it. (event property)

gosub scan_pack %containerid

returns number of items in container via #result

Code: [Select]

;Freddy winuo.net
sub scan_pack
  set #lpc 1000
  namespace push
  namespace local dura_check
  set !item %1
  set !dura contents:
  event property !item
  if !dura in #property
  {
    set !temp_string #property
    str pos !temp_string contents:
    set !delete_this #strres + 8
    str del !temp_string 1 !delete_this
    set !temp_string #strres
    str pos !temp_string /
    set !t_del #strres - 1
    str left !temp_string !t_del
    set !temp_string #strres
    str del !temp_string 1 1
    set !temp_string #strres
    namespace push
    set #lpc 10
    return !temp_string
  }
return #false