Author Topic: Stocking Vendor Script Help  (Read 2947 times)

0 Members and 1 Guest are viewing this topic.

Offline RupTopic starter

  • Jr. Member
  • **
  • Posts: 42
  • Activity:
    0%
  • Reputation Power: 1
  • Rup has no influence.
  • Respect: +11
  • Referrals: 0
    • View Profile
Stocking Vendor Script Help
« on: October 25, 2015, 10:20:15 AM »
0
So, I have taken a script that stocked scrolls on a vendor and cut most of it out to where it will stock in this case Granite stacks,
My problem is this if i do commodity deeds, it puts the item exactly where i tell it,  But since i switched it over to stacks it just drops the stack anywhere in the vendors pack.
this is for uo shard
Here is the script
Thanks Pendragon

                          ; Script Name: PS Sorter
; Author: Mystre
; Version: 2.0
; Client Tested with: 6.0.6.1
; EUO version tested with: EUOX 1.5 ver 132
; Shard OSI / FS: OSI
; Public Release:02-21-08
; Purpose: This script will sort all power scrolls in a given bag or box
; Instructions: Put all scrolls in one bag
; get 6 bags to put sorted scrolls into hit play.
;
; Global Vars: *Source,*bag 1-6
;
; V2.0 - Streamlined Code , Reads Scroll LVL 110/115 Prices acordingly
; Set Prices Below
;====================================;

set %wait 20
set %howMany 50

gosub TargetSelect  Source Source
event macro 17 0
wait %wait
Display yesno Do you need to update target bags?
if #dispres = yes
{
gosub TargetSelect  Bag  1st ;1 (1)
}
display yesno Stocking a Vendor?
;------------------------------------
loop:
;------   Melee Skills    ; Position        1 Price
gosub   main   Verite       15   65   *bag    45000

Display ok All Done!
STOP

sub main
event SysMessage %1
finditem BVI C_ , *source

while #findkind  <> -1
{
finditem BVI C_ , *source

event property #findid
;======

{
event drag #findid
wait %wait
msg %howmany $
wait %wait
exevent dropc %4 %2 %3
if #dispres = yes
{
wait 10
msg %5 $
}
}
}

ignoreitem reset
return

sub TargetSelect
   set !msg Please , #spc , target , #spc , %2 , #spc , bag
   display ok !Msg
   Set #targcurs 1
   Repeat
     wait 1
   until #targcurs <> 1
   set * . %1 #LTargetID
Return

« Last Edit: October 30, 2015, 10:07:05 PM by Rup »

Tags: