AskChopper.com :: Public Bug Section Go To: Public Bugs
"EZUO Script for Powerscroll Hunting. " submitted on 11/ 14 / 2002 IP: 54.221.9.6

Thanks to dweeb for submitting this bug.
;++++++++++++++++++++++++++++++++++++++++++++
;Barracon - OE (rat)
;Barracon - IS (human; pointless using it as it will detect players instead)
;Ricctor - GJ
;Semidar - IJ
;Mephistis - FJ

INITEVENTS
SET %hidden 0
SET %rep 0
SET %counter 0
SET %timer 0
SET %champ null
SET %champid null
SET %search 0
SET #SCNT2 0
SET #SCNT 0
IGNOREITEM reset

main:
GOSUB hidden
GOSUB timer
GOSUB rep
GOSUB search
GOSUB ps
GOTO main

;**** HIDDENREVEALED CHECK ****
SUB hidden
IF #CHARSTATUS =
{
IF %hidden = 1
{
EVENT sysmessage You have been revealed!
SET %hidden 0
SET %counter 1
RETURN
}
}
IF #CHARSTATUS = H
{
IF %hidden = 0
{
EVENT sysmessage You are hidden!
SET %hidden 1
SET %counter 0
SET #SCNT2 0
SET #SCNT 0
RETURN
}
}
RETURN

;**** CRIMINALWAR FLAG TIMER ****
SUB timer
IF %counter = 0
{
IF #SCNT >= 120
{
EVENT sysmessage 2 minutes is up!
SET %counter 1
RETURN
}
}
RETURN

;**** SELF REP CHECK ****
SUB rep
FINDITEM #CHARID
IF #FINDREP >= 3
{
IF %rep = 1
{
EVENT sysmessage You are a CRIMINAL!
SET %rep 0
RETURN
}
}
IF #FINDREP <= 2
{
IF %rep = 0
{
EVENT sysmessage You are now BLUE!
SET %rep 1
RETURN
}
}
RETURN

;**** FIND CHAMPION ****
SUB search
IF %search = 0
{
FINDITEM FJ
IF #FINDKIND > -1
{
SET %champid #FINDID
SET %champ Mephistis
GOSUB champ
RETURN
}
FINDITEM OE
IF #FINDKIND > -1
{
IF #FINDREP = 6
{
SET %champid #FINDID
SET %champ Barracon
GOSUB champ
RETURN
}
IGNOREITEM #FINDID
}
FINDITEM IJ
IF #FINDKIND > -1
{
SET %champid #FINDID
SET %champ Semidar
GOSUB champ
RETURN
}
FINDITEM GJ
IF #FINDKIND > -1
{
SET %champid #FINDID
SET %champ Ricctor
GOSUB champ
RETURN
}
}
IF %search = 1
{
FINDITEM %champid
IF #FINDKIND = -1
{
GOSUB deadchamp
RETURN
}
}
RETURN

;**** PS FINDER ****
SUB ps
FINDITEM TVH
IF #FINDKIND = 0
{
IF #FINDCOL = 1153
{
IGNOREITEM #FINDID
EVENT sysmessage Found a powerscroll!!!
EVENT drag #FINDID
RETURN
}
}
IGNOREITEM #FINDID
RETURN

;**** FOUND CHAMPION ****
SUB champ
SET %search 1
SET #LTARGETID #FINDID
SET #LTARGETKIND 1
EVENT sysmessage Champion %champ found!
EVENT sysmessage Champion %champ found!
EVENT sysmessage Champion %champ found!
RETURN

;**** CHAMPION DEADNOT FOUND ****
SUB deadchamp
EVENT sysmessage Champion %champ is dead!
EVENT sysmessage Champion %champ is dead!
EVENT sysmessage Champion %champ is dead!
SET %champ null
SET %champid null
SET %search 0
RETURN





All Programs (c) 2001 are property of Luth. For technical assistance, or to report errors, email Luth@AskChopper.com