Check-in [f235f7790c]
Overview
SHA1:f235f7790cc762562fb1e14e98a47b8bbd8bf790
Date: 2015-07-08 20:20:34
User: spaskalev
Comment:Added hub-01-loot, working since 2006 :)
Timelines: family | ancestors | descendants | both | trunk
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2015-07-08
20:28
[fe5e42d573] Leaf: somewhat improved taming script :) from 4/16/2012 (user: spaskalev, tags: trunk)
20:20
[f235f7790c] Added hub-01-loot, working since 2006 :) (user: spaskalev, tags: trunk)
20:14
[9298325394] initial empty check-in (user: spaskalev, tags: trunk)
Changes

Added hub-01-loot.euo version [70ef75ea3c].

            1  +;==================================
            2  +; Script Name: hub-01-loot
            3  +; Author: Lord_Zero
            4  +; Version: 2rc1
            5  +; Client Tested with: 5.0.1j (Patch 12)
            6  +; EUO version tested with: 1.5 69
            7  +; Shard OSI / FS: FS
            8  +; Revision Date: May 21, 2006
            9  +; Public Release: May 21, 2006
           10  +; Global Variables Used: None
           11  +; Purpose: A packet-based looting solution.
           12  +;==================================
           13  +
           14  +ignoreItem reset
           15  +event Macro 8 3
           16  +set %ls
           17  +set %lse
           18  +prestart:
           19  +event sysMessage hub-01-loot script by Lord_Zero loaded.
           20  +event sysMessage Press 'a' to add an item type to the loot list.
           21  +event sysMessage Press 's' to start looting.
           22  +event sysMessage Looting so far - %ls -
           23  +
           24  +ikloop:
           25  +onHotKey A
           26  + goto ItemAdd
           27  +onHotKey S
           28  + goto prestart2
           29  +goto ikloop
           30  +
           31  +prestart2:
           32  +key BACK
           33  +start:
           34  +findItem YFM G_2
           35  +if #findkind = -1
           36  +  goto start
           37  +set %body #findid
           38  +set #lobjectid #findid
           39  +event macro 17 0
           40  +wait 10
           41  +ignoreItem %body
           42  +gosub loot
           43  +goto start
           44  +
           45  +sub loot
           46  +prior1:
           47  +findItem %ls C
           48  +if #findkind <> -1
           49  +{
           50  +  exevent drag #findid #findstack
           51  +  wait 5
           52  +  exevent dropc #backpackid
           53  +  exevent dropc #backpackid
           54  +  wait 5
           55  +  ignoreItem #findid
           56  +  goto prior1
           57  +}
           58  +return
           59  +
           60  +ItemAdd:
           61  +key BACK
           62  +event sysMessage Target an item, so that it's type will be added to the loot list.
           63  +set #targcurs 1
           64  +w8fortrg:
           65  +while #targcurs = 1
           66  +goto w8fortrg
           67  +set #lobjectid #ltargetid
           68  +event Macro 17 0
           69  +set %ct #lobjecttype
           70  +ignoreItem %ct
           71  +if %ls = %lse
           72  + set %ls %ct
           73  +else
           74  + set %ls %ls , _ , %ct
           75  +wait 1s
           76  +event sysMessage Targeted type added, returning to the main menu.
           77  +goto prestart