Yoko

All sides of Injection
It is currently 2018-09-21 10:51:56

All times are UTC+02:00




Post new topic  Reply to topic  [ 1 post ] 
Author Message
 Post subject: Gump Handling
PostPosted: 2013-04-25 15:41:25 
Offline

Joined: 2012-09-10 20:18:54
Posts: 14
; ; Gump
; ; Wait Gump Serial
# # Wait a gump checking for it's serial
; ; Wait Gump ID
# # Wait a gump checking for it's gumpid
; ; Wait Gump Text
# # Wait a gump checking for it's text
; ; Wait Gump Command
# # Wait a gump checking for it's Command
; ; In Gump Text
# # Returns the position of the gump's text that contains the text
; ; In Gump Command
# # Returns the position of the gump's command that contains the text
; ; Gump Text Count
# # Count how many 'command' options are texts
; ; Gump Button Count
# # Count how many 'command' options are buttons
; ; Click Gump Command
# # Click the x and y positions of a button in the 'command' options of a gump, checking if it is a button
; ; Click Gump Button
# # Click the x and y positinos of a button just counting buttons, that means 1 is the first button and not the first 'command' option
; ; Close Gump
# # Right click the gump x and y positions (+10 to avoid clicking in rounded corners) to close it



; 99.45 - Gump ; {
; 99.45.00 - Wait Gump Serial ; {
# serial = gump serial
# timeout = maximum time to wait
Sub WaitGumpSerial(serial,timeout)
Repeat
Wait(100)
If Not CheckWorldSave() Then
timeout=timeout-0.1
End If
Until (UO.LastGump('replyed')==0 And UO.LastGump('serial')==serial) Or timeout<=0
Wait(500)
Ping()
End Sub
; ; }
; 99.45.05 - Wait Gump ID ; {
# gumpid = gump id
# timeout = maximum time to wait
Sub WaitGumpID(gumpid,timeout)
Repeat
Wait(100)
If Not CheckWorldSave() Then
timeout=timeout-0.1
End If
Until (UO.LastGump('replyed')==0 And UO.LastGump('gumpid')==gumpid) Or timeout<=0
Wait(500)
Ping()
End Sub
; ; }
; 99.45.10 - Wait Gump Text ; {
# text = text in the gump text
# position = text position in the gump
# timeout = maximum time to wait
Sub WaitGumpText(text,position,timeout)
Repeat
Wait(100)
If Not CheckWorldSave() Then
timeout=timeout-0.1
End If
Until (UO.LastGump('replyed')==0 And InText(text,UO.LastGump('text',position))) Or timeout<=0
Wait(500)
Ping()
End Sub
; ; }
; 99.45.15 - Wait Gump Command ; {
# command = text in the gump command
# position = command position in the gump
# timeout = maximum time to wait
Sub WaitGumpCommand(command,position,timeout)
Repeat
Wait(100)
If Not CheckWorldSave() Then
timeout=timeout-0.1
End If
Until (UO.LastGump('replyed')==0 And InText(command,UO.LastGump('command',position))) Or timeout<=0
Wait(500)
Ping()
End Sub
; ; }
; 99.45.20 - In Gump Text ; {
# text = text in the gump texts
Sub InGumpText(text)
var loop=0
While UO.LastGump('text',loop)<>'N/A'
If InText(text,UO.LastGump('text',loop)) Then
return loop
End If
loop=loop+1
WEnd
return -1
End Sub
; ; }
; 99.45.25 - In Gump Command ; {
# command = text in the gump commands
Sub InGumpCommand(command)
var loop=0
While UO.LastGump('command',loop)<>'N/A'
If InText(command,UO.LastGump('command',loop)) Then
return loop
End If
loop=loop+1
WEnd
return -1
End Sub
; ; }
; 99.45.30 - Gump Text Count ; {
# none
Sub GumpTextCount()
var loop=0
var count=0
While UO.LastGump('command',loop)<>'N/A'
If Left(UO.LastGump('command',loop),3)=='ext' Then
count=count+1
End If
loop=loop+1
WEnd
return count
End Sub
; ; }
; 99.45.35 - Gump Button Count ; {
# none
Sub GumpButtonCount()
var loop=0
var count=0
While UO.LastGump('command',loop)<>'N/A'
If Left(UO.LastGump('command',loop),3)=='utton' Then
count=count+1
End If
loop=loop+1
WEnd
return count
End Sub
; ; }
; 99.45.40 - Click Gump Command ; {
# position = command position in the gump
Sub ClickGumpCommand(position)
position=position-1
If UO.LastGump('command',position)<>'N/A' Then
If GetWord(UO.LastGump('command',position),1)=='utton' Then
UO.LClick(val(GetWord(UO.LastGump('command',position),2))+UO.LastGump('x'),val(GetWord(UO.LastGump('command',position),3))+UO.LastGump('y'))
End If
return -1
End If
return 0
End Sub
; ; }
; 99.45.45 - Click Gump Button ; {
# button = button count in command in the gump
Sub ClickGumpButton(button)
var position=0
var count=0
While UO.LastGump('command',position)<>'N/A' And count<button
If Left(UO.LastGump('command',position),3)=='utton' Then
count=count+1
End If
position=position+1
WEnd
return ClickGumpCommand(position)
End Sub
; ; }
; 99.45.50 - Close Gump ; {
# none
Sub CloseGump()
If UO.LastGump('replyed')==0 Then
UO.RClick(UO.LastGump('x')+10,UO.LastGump('y')+10)
End If
End Sub
; ; }
; ; }


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 1 post ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 2 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited