NObama's Harpsichord Filler

[NObama]

NObama's Harpsichord Filler

-Automated Setup
-Have a bag of music rolls in your backpack
-Stand next to a placed harpsichord
-Press play & follow instructions

This one is pretty simple, so I doubt anyone will have questions.

Code: [Select]

;============================================
; Script Name: NObama's Harpsichord Filler
; Author: NObama
; Version: 0.99
; Client Tested with: 5.0.1h 60
; EUO version tested with: 1.5
; Shard OSI / FS:  FS (Alexandria) / OSI OK
; Revision Date:  01-Feb-14
; Public Release: 02-Feb-14
; Global variables:  none
; Purpose: Fills a harpsichord from a bag of music rolls.
;============================================
_Main:
display Target your bag of music
    set #TARGCURS 1
    repeat
    until #TARGCURS = 0
    set %musicbag #LTARGETID
    set #LOBJECTID #LTARGETID
    event macro 17 0 ; last object, open container
    wait 20
display Target your placed Harpsicord
    set #TARGCURS 1
    repeat
    until #TARGCURS = 0
    set %harpsicord #LTARGETID
    wait 20
repeat
    finditem NTCB C_ , %musicbag
    if #findcnt > 0
       {
       set #LOBJECTID #FINDID
       event macro 17 0
       set #LTARGETID %harpsicord
       event macro 22 0
       wait 20
       }
    ignoreitem #findid
until #findcnt = 0
display The remaining music rolls are duplicates!
halt


[gimlet]

Cool!

[Endless Night]

Congratulations your Script has been moved to the script library
(if you dont think the section is appropriate please pm me)
Thank you for your submission



(Nobamma when are you going to learn how to use for x=1 #findcnt   instead of repeated finditem/ignoreitems....  works either-way just nit picking)

[NObama]

=P

[gimlet]

If it works - don't knock it! heheheheheehe
Grats!