Tweet
gosub showEUOMenu1
gosub Inizialize
gosub MenuLoop
halt
sub MenuLoop
while #true
{
menuloopstart:
menu Get InLista
if #menures <> %ItemCurrent && #menures <> 0
{
set %ItemCurrent #menures
gosub string exp %itemproperty . %ItemCurrent $ CurrentArray
set %CurrentArrayCnt #result - 1
menu delete Corrente
menu List Create Corrente 228 32 205 233
for %k 1 %CurrentArrayCnt
{
menu List Add Corrente %CurrentArray . %k
}
}
if #menubutton = CLOSED
{
set #menubutton N/A
halt
}
if #menubutton = AGGIUNGIITEM
{
set #menubutton N/A
Event ExMsg #charid 3 33 Scegliere l'item da aggiungere...
set #ltargetkind 1
set #targcurs 1
while #targcurs = 1
{
wait 1
onhotkey ESC
{
goto menuloopstart
}
}
gosub GetProperty #ltargetid
set %ItemCnt %ItemCnt + 1
set %itemproperty . %ItemCnt #result
str pos #result $
set #strres #strres - 1
str left #result #strres
menu List Add InLista #strres
menu Text OggettiCnt 8 8 Oggetti nella lista: %ItemCnt
menu List Select Inlista %ItemCnt
}
if #menubutton = SACCA
{
set #menubutton N/A
Event ExMsg #charid 3 63 Scegliere la sacca conetenete gli oggetti
set #ltargetkind 1
set #targcurs 1
while #targcurs = 1
{
wait 1
onhotkey ESC
{
goto menuloopstart
}
}
set #lobjectid #ltargetid
Event Macro 17 0
wait 12
finditem * C_ , #contid
while #findkind <> -1 && #findindex <= #findcnt
{
gosub GetProperty #findid
set %ItemCnt %ItemCnt + 1
set %itemproperty . %ItemCnt #result
str pos #result $
set #strres #strres - 1
str left #result #strres
menu List Add InLista #strres
menu Text OggettiCnt 8 8 Oggetti nella lista: %ItemCnt
set #findindex #findindex + 1
}
menu List Select Inlista %ItemCnt
}
if #menubutton = STAMPA
{
set #menubutton N/A
menu get NomeFile
set %file #menures
gosub showEUOMenu2
gosub open 1 %file
gosub wipe 1
gosub write 1 %separator
for %i 1 %ItemCnt
{
gosub write 1 Lotto , #SPC , numero , #SPC , %i
gosub write 1 #dot
gosub string exp %itemproperty . %i $ StringArray
set %StringArrayCnt #result - 1
for %j 1 %StringArrayCnt
{
gosub write 1 %StringArray . %j
}
gosub write 1 #dot
gosub write 1 Base:
gosub write 1 Rilanci:
gosub write 1 Instant , #SPC , Win:
gosub write 1 %separator
menu set Completi Scritti %i di %ItemCnt oggetti
}
gosub dump 1
set %ItemCnt 0
gosub showEUOMenu1
}
if #menubutton = APRI
{
set #menubutton N/A
menu get NomeFile
execute #menures
}
}
return
sub Inizialize
if 1_5 notin #euover
{
display ok Questo script funziona solo con EasyUO 1.5!
halt
}
if exec notin #opts
{
display ok Non hai abilitato l'exec dalle funzioni!
halt
}
set #menubutton N/A
set %ItemCurrent 0
set %ItemCnt 0
set %Separator +------------------------------+
return
;==================
;**
;* @name GetProperty
;* @ver 1.0 15May05
;* @author Boydon
;* @purpose Get the #property of a given item tring to avoid errors, null values and
;* unexpected values.
;* @params %1 req Id of the item you want to EP
;* @returns #property of %1
;* @dependencies
;* @example gosub GetProperty #findid
;* tis is the standard call and will EP #findid
;* @status Fully tested and working
sub GetProperty
if %0 < 1 || %1 = N/A
{
display ok Wrong use of Sub GetProperty: some required arguments are missing!
+$Script will be halted.
halt
}
nameSpace Push
nameSpace Local GetProperty , #time , #random , #scnt2
__boy_gp_loop1:
event property %1
set !Property1 #property
event property %1
set !Property2 #property
event property %1
set !Property3 #property
if ! ( !Property1 = !Property2 && !Property2 = !Property3 )
goto __boy_gp_loop1
nameSpace Clear
nameSpace Pop
return #property
;--------- EasyUO Menu Designer Code Begin ---------
sub showEUOMenu1
menu Clear
menu Window Title Boydon UOD Auction Maker
menu Window Color BtnFace
menu Window Size 440 361
menu Font Transparent #true
menu Font Align Right
menu Font Name MS Sans Serif
menu Font Size 8
menu Font Style
menu Font Color WindowText
menu Font Transparent #false
menu Font Align Left
menu Text OggettiCnt 8 8 Oggetti nella lista: 0
menu Text Ultimo 228 8 Oggetto corrente
menu Button AggiungiItem 8 280 155 29 Aggiungi un oggetto alla lista
menu Button Stampa 12 320 125 29 Stampa la lista
menu Font BGColor Window
menu Edit NomeFile 276 324 155 Asta.txt
menu Font BGColor BtnFace
menu Button Apri 144 320 126 29 Apri la lista
menu Button Sacca 172 280 263 29 Aggiungi alla lista tutti gli oggetti in un contenitore
menu Font BGColor Window
menu List Create InLista 8 32 205 233
menu Font BGColor Menu
menu List Create Corrente 228 32 205 233
menu Show 750 25
return
sub showEUOMenu2
menu Clear
menu Window Title Boydon UOD Auction Maker
menu Window Color BtnFace
menu Window Size 352 25
menu Font Transparent #true
menu Font Align Right
menu Font Name MS Sans Serif
menu Font Size 8
menu Font Style
menu Font Color WindowText
menu Font Transparent #false
menu Font Align Left
menu Text Completi 8 8 Scritti 0 di 0 items
menu Show 750 25
return
;--------- EasyUO Menu Designer Code End ---------
;==================================
; Script Name: filesubs.txt (import version)
; Author: Kal In Ex
; Version: 1.00
; Client Tested with: 4.0.5b
; EUO version tested with: 1.42.009b
; Shard OSI / FS: OSI
; Revision Date: November 16, 2004
; Public Release: November 16, 2004
; Global Variables Used:
; Purpose: writing to files in EUO
; Copyright 2004 Kal In Ex
;==================================
; subs open, GetOSFileCmd, wipe, fwipe, write and dump
; are all a part of filesubs.txt only use this script
; in its entirety and do not modify it!
sub open ; <identifier> <filename>
namespace push
namespace local _filebuffers
set !_filename %1 , _filename
set !_buffer %1 , _buffer
set !_dirop %1 , _dirop
set ! . !_filename %2
set ! . !_buffer
set ! . !_dirop >>
if !_filecmd = n/a
{
gosub GetOSFileCmd 1
set !_filecmd %1
}
namespace pop
return
;==================
;**
;* @name GetOSFileCmd
;* @ver 1.0 9May04
;* @author Roadkill
;* @purpose check the OS and set @%1 to cmd.exe or command.exe if win98/2000xp
;* @params %1 the varname to hold the return command
;* @returns @%1 and #result hold cmd.exe for win2k and xp, or command.exe for 98/me
;* @example call rksubs.txt GetOSFileCmd filecmd
;* @status done
sub GetOSFileCmd
str Left #osver 1
set % . %1 cmd.exe
if #strRes = 1
set % . %1 command.com
return % . %1
;==================
sub wipe ; <identifier>
namespace push
namespace local _filebuffers
set !_buffer %1 , _buffer
set !_dirop %1 , _dirop
set ! . !_buffer
set ! . !_dirop >
namespace pop
return
sub fwipe ; <identifier>
namespace push
namespace local _filebuffers
set !_filename %1 , _filename
set !_buffer %1 , _buffer
set ! . !_buffer
execute !_filecmd type > ! . !_filename
namespace pop
return
sub write ; <identifier> <text> <text> <text...>
namespace push
namespace local _filebuffers
if %0 > 2
{
for !_ 3 %0
{
set %2 %2 , #spc , % . !_
}
}
set !_filename %1 , _filename
set !_buffer %1 , _buffer
set !_dirop %1 , _dirop
str len ! . !_buffer
set !_ #strres
str len %2
if !_ + #strres >= 1900
{
execute !_filecmd /c ! . !_buffer >> ! . !_filename
set ! . !_buffer
}
str len ! . !_buffer
if #strres = 0 || ! . !_dirop = >
set ! . !_buffer echo , #spc , %2 , #spc , ! . !_dirop , #spc , ! . !_filename
else
set ! . !_buffer ! . !_buffer , #spc , && , #spc , echo , #spc , %2 , #spc , ! . !_dirop , #spc , ! . !_filename
set ! . !_dirop >>
namespace pop
return
sub dump ; <identifier>
namespace push
namespace local _filebuffers
set !_filename %1 , _filename
set !_buffer %1 , _buffer
str len ! . !_buffer
if #strres > 0
{
execute !_filecmd /c ! . !_buffer
set ! . !_buffer
}
namespace pop
return
;==================================
; end of filesubs.txt
;==================================
;==================================
; Script Name: Gravisoft's String Implode/Explode SUB
; Author: Gravix
; Version: 1.1
; Client Tested with: 4.0.6a
; EUO version tested with: 1.42.009F
; Shard OSI / FS: Both
; Revision Date: 1/19/04
; Public Release: 1/01/04
; Global Variables Used: None
; Purpose: Implode: Take an array and link into a string separated by a value/char
; Explode: Take a string and break into array based on dividers
;==================================
;SUB string exp %str %div %arry
;SUB string imp %arry %div
SUB string
SET !lpc #LPC
SET #LPC 500
IF %1 = exp
{
SET !c 0
SET !s %2
break:
IF %3 in !s
{
SET !c !c + 1
STR POS !s %3
SET !p0 #STRRES
SET !p1 !p0 - 1
STR LEFT !s !p1
SET % . %4 , !c #STRRES
STR DEL !s 1 !p0
SET !s #STRRES
GOTO break
}
ELSE
{
SET !c !c + 1
SET % . %4 , !c !s
SET #LPC !lpc
RETURN !c
}
}
IF %1 = imp
{
SET !p 0
SET !t
build:
SET !p !p + 1
SET !p3 %2 , !p
IF % . !p3 <> N/A
{
SET !t !t , %3 , % . !p3
GOTO build
}
ELSE
{
STR LEN %3
STR DEL !t 1 #STRRES
SET #LPC !lpc
RETURN #STRRES
}
}
RETURN #FALSE
sub GetProperty
if %0 < 1 || %1 = N/A
{
display ok Wrong use of Sub GetProperty: some required arguments are missing!
+$Script will be halted.
halt
}
nameSpace Push
nameSpace Local GetProperty , #time , #random , #scnt2
__boy_gp_loop1:
event property %1
set !Property1 #property
event property %1
set !Property2 #property
event property %1
set !Property3 #property
if ! ( !Property1 = !Property2 && !Property2 = !Property3 )
goto __boy_gp_loop1
nameSpace Clear
nameSpace Pop
return #property
Commenta