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
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
;==================================
; Script Name: hub-01-loot
; Author: Lord_Zero
; Version: 2rc1
; Client Tested with: 5.0.1j (Patch 12)
; EUO version tested with: 1.5 69
; Shard OSI / FS: FS
; Revision Date: May 21, 2006
; Public Release: May 21, 2006
; Global Variables Used: None
; Purpose: A packet-based looting solution.
;==================================

ignoreItem reset
event Macro 8 3
set %ls
set %lse
prestart:
event sysMessage hub-01-loot script by Lord_Zero loaded.
event sysMessage Press 'a' to add an item type to the loot list.
event sysMessage Press 's' to start looting.
event sysMessage Looting so far - %ls -

ikloop:
onHotKey A
 goto ItemAdd
onHotKey S
 goto prestart2
goto ikloop

prestart2:
key BACK
start:
findItem YFM G_2
if #findkind = -1
  goto start
set %body #findid
set #lobjectid #findid
event macro 17 0
wait 10
ignoreItem %body
gosub loot
goto start

sub loot
prior1:
findItem %ls C
if #findkind <> -1
{
  exevent drag #findid #findstack
  wait 5
  exevent dropc #backpackid
  exevent dropc #backpackid
  wait 5
  ignoreItem #findid
  goto prior1
}
return

ItemAdd:
key BACK
event sysMessage Target an item, so that it's type will be added to the loot list.
set #targcurs 1
w8fortrg:
while #targcurs = 1
goto w8fortrg
set #lobjectid #ltargetid
event Macro 17 0
set %ct #lobjecttype
ignoreItem %ct
if %ls = %lse
 set %ls %ct
else
 set %ls %ls , _ , %ct
wait 1s
event sysMessage Targeted type added, returning to the main menu.
goto prestart