Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Topics - Banshee

Pages: [1]
1
Script Debug / Script Looter Not looting brigands
« on: January 25, 2013, 05:31:43 PM »
This is my Friend Niks looter. He has since quite playing and I have not been able to contact him. I was hopping some one could show me what I am missing. I have read threw every section trying to find out why this thing will not loot brigands, murderers, or other humanoid type mobs.

 
Code: [Select]
;===================
; Script Name: NiksLooter
; Author: Nik
; Version: 3.4.1
; Client Tested with: Latest
; EUO version tested with: 1.5 Build 183
; Shard OSI / FS: FS Paradise Found
; Public Release: 13 Mar 2011
; Purpose: This loots corpses with either Grab All or Loot
; NOTE: To use LOOT you must set a loot to bag!
;       If using Claim it will claim regardless of whats left on the corpse.
;       make sure you add item types for things you want to loot to the list below.
;===================


;##############################  YOU MUST SET ME!!!!! ##############################
set %GrabBag #BACKPACKID


;##################  You can change / add to me if you want ########################
set %loot RQF_XZY_KDF_EU_POF_ZSL_SVH_ATS_HTD_HEJ_ETH_DTH_QUF_VMK_DWR_EWR_WY_FWR_DWR_GWR_DUN_UDF_DYM_QFAB_HAG_ITK_HZG_TKG_GLG    ;list of items to manualy loot.
set %knife GFR_HNF_XFR_NMH                                                      ;ItemTYPE of knife to skin with.


; UDF Fishing Net
; KDF Magical Fishing Pole

;###################################################################################
;###################################################################################
;###################################################################################
;############################                           ############################
;############################   DONT TOUCH BELOW HERE   ############################
;############################                           ############################
;###################################################################################
;###################################################################################
;###################################################################################

set #LPC 500

 menu clear
 Menu window size 205 150
 Menu show
 Menu window color $F2F2F2
 Menu Window Title NikLooter
 Menu font bgcolor $F2F2F2
 menu font color red
 menu font size 10
 menu text text3 95 29 OR
 Menu Text text1 3 3 Select One
 menu font color blue
 menu text text2 3 60 Options
 Menu font color Black
 Menu font size 18
 menu shape blah 5 20 195 35 4 7 2 red 2 black
 menu shape blah1 5 77 195 35 4 7 2 blue 2 black
 menu check grab 15 25 80 25 #FALSE Grab
 menu check loot 120 25 70 25 #FALSE Loot
 menu check skin 120 82 70 25 #FALSE Skin
 menu check Claim 15 82 90 25 #FALSE Claim
 menu check Reset 15 118 200 25 #FALSE Reset Ignores



main:

menu get grab
if #menures = -1
gosub grab

menu get loot
if #menures = -1
gosub loot

menu get Reset
if #MENURES = -1
gosub reset
wait 1
goto main:




;##################  Grab  ########################
sub Grab


finditem YFM G_2
event property #FINDID
if remains in #PROPERTY
{
ignoreitem #FINDID
return
}
if #FINDCNT > 0
{
set %jstart #JINDEX
set %grabmob #FINDID
ignoreitem #FINDID
menu get skin
     if #menures = -1
     gosub skin
grab:
set #LTARGETID %grabmob
set #LTARGETKIND 1
set #TARGCURS 0
event macro 1 0 [ga
target
event macro 22
wait 10
set %jend #jindex
for %ji %jstart %jend

{
scanjournal %ji
if You_grabbed_the_loot in #journal
  {
  ignoreitem %grabmob
  deletejournal
  }
}


menu get claim
     if #menures = -1
     gosub claim
}
return

;##################  loot  ########################
sub loot

finditem YFM G_2
event property #FINDID
if remains in #PROPERTY
{
ignoreitem #FINDID
return
}
if #FINDCNT > 0
{
set %lootmob #FINDID
set #LOBJECTID %lootmob
set #NEXTCPOSX 552
set #NEXTCPOSY 784
event macro 17 0
wait 10
loot:
gosub CheckBookCheck
gosub CorpseCheck
finditem POF_CPF_IGR_YFM C_ , %lootmob
if #FINDCNT > 0
{
exevent drag #FINDID #FINDSTACK
wait 7
exevent dropc %golddrop
wait 7
goto loot:
}
gosub CorpseCheck
finditem %loot C_ , %lootmob
if #FINDCNT > 0
{
exevent drag #FINDID #FINDSTACK
wait 7
exevent dropc %GrabBag
wait 7
goto loot:
}
menu get skin
     if #menures = -1
     gosub skin
grab:
finditem %lootmob G_2 IGR_YFM
if #FINDCNT > 0
{
set %jstart #JINDEX
event sysmessage .
set #LTARGETID %lootmob
set #LTARGETKIND 1
set #TARGCURS 0
event macro 1 0 [ga
target 2s
event macro 22
wait 10
set %jend #JINDEX
for %ji %jstart %jend
{
    scanJournal %ji
    if You_grabbed_the_loot! in #journal
        goto moveon
}
goto grab:
moveon:
ignoreitem %lootmob
menu get claim
     if #menures = -1
     gosub claim

}
}
return


sub CorpseCheck
if #findtype in CTD_DLN_CUD_UXM_CKF_JKF_TXM_ZTD_VMF_TMF_LKF_AUD_OKF_ZJF_YFM
if #CONTID = %lootmob
return
finditem * C_IGR , %lootmob
if #FINDCNT = 0
gosub loot
}
return
;##################  skin  ########################
sub skin
chooseskill forensic
if #SKILL >= 1000
{
     set #LTARGETKIND 1
     set #LTARGETID %lootmob
     event macro 13 19
     target
     event macro 22 0
     wait 10
}

finditem GFR C
if #FINDCNT > 0
{
     set #LOBJECTID #FINDID
     set #TARGCURS 0
     event macro 17
     target 2s
     set #LTARGETKIND 1
     set #LTARGETID %lootmob
     event macro 22
     wait 10
     return
}

finditem %knife C
if #FINDCNT > 0
{
     set #LOBJECTID #FINDID
     set #TARGCURS 0
     event macro 17
     target 2s
     set #LTARGETKIND 1
     set #LTARGETID %lootmob
     event macro 22
     wait 10
}
else
{
display ok No Knife Found, Pausing
Pause
}
return
;##################  claim  ########################
sub claim
     claim:
     set #TARGCURS 0
     event macro 1 0 [cl
     target 2s
     set #LTARGETID %lootmob
     set %LTARGETKIND 1
     event macro 22 0
     wait 10
     finditem %lootmob G_2
     if #FINDCNT > 0
     goto claim:
return

;##################  reset  ########################
sub reset
wait 20
ignoreitem Reset
menu set reset 0
return


;##################  CheckBook Check  ########################
sub CheckBookCheck
; CHECKBOOK CHECK
check:
finditem DYM C
if #FINDCNT > 0 && #FINDCOL = 2033
{
set %golddrop #FINDID
return
}
if #FINDCNT > 1 && #FINDCOL <> 2033
{
ignoreitem #FINDID
goto check:
}
else
set %golddrop #BACKPACKID
return

2
New member introductions / Banshee Bash about
« on: January 21, 2013, 06:43:21 PM »
I am the Banshee. Banshee goes splat when there are Roaches about.

My real name is Robert and I have been playing UO for 418 days now, with a kill level of K 41. I play a female char because if I'm going to stare at the back end of some one for 8 or more hours a day it's gong to be a girl. I love to craft and build houses. The shard I play on is Paradise Found and I have become the Staffs Guild town builder. I have built over 50 houses in the last 4 months. The shard I play on allows us to macro all skills to 120 and stat cap to 300 with the option to gold buy a 25 stat increase or cash buy a 40 stat increase.

I have tried hard to  learn how to script like you all do, but I just can't seem to wrap my head around it. I tried easyuo but it seems that non-scripters are unwelcome there.

I am a disabled person that has nothing better to do than play UO all day. I am hoping to become part of this community and maybe even get some lessons in how to script this stuff so I can make things that will work for my shard. As some of you know it is hard to get scripts for freeshards. So I wish to come, learn, befriend the people of this forum.

Pages: [1]