my $auction = 0; sub auction { my ($name) = @_; if ($name eq 'a_timer') { $world->EnableTimer('a_timer', 0); $world->ResetTimer('a_timer'); $world->setstatus('Ready'); } else { my $a = $world->GetTriggerInfo($name,101); my $b = $world->GetTriggerInfo($name,102); my $c = $world->GetTriggerInfo($name,103); if ($name eq 'a_new') { $b =~ s/,//g; $b =~ s/for //; $world->setstatus('Auction: (0) '.$b.' for '.$a); $auction = $b; $world->EnableTimer('a_timer', 0); $world->ResetTimer('a_timer'); } elsif ($name eq 'a_bid') { $a =~ s/,//g; $a =~ s/for //; $world->setstatus('Auction: (0) '.$a.' for '.$b); $auction = $a; } elsif ($name eq 'a_once') { if ($b eq '(bid not received yet)') { $world->setstatus('Auction: (1) '.$auction.' for '.$a); } else { $b =~ s/,//g; $b =~ s/for //; $world->setstatus('Auction: (1) '.$b.' for '.$a); } } elsif ($name eq 'a_twice') { if ($b eq '(bid not received yet)') { $world->setstatus('Auction: (2) '.$auction.' for '.$a); } else { $b =~ s/,//g; $b =~ s/for //; $world->setstatus('Auction: (2) '.$b.' for '.$a); } } elsif ($name eq 'a_sale') { $c =~ s/,//g; $c =~ s/for //; $world->setstatus('Auction: (S) '.$c.' for '.$a.' to '.$b); $auction=0; #$world->EnableTimer('a_timer', 1); } elsif ($name eq 'a_nosale') { $world->setstatus('Auction: (X) '.$auction.' for '.$a); $auction=0; #$world->EnableTimer('a_timer', 1); } else { } } } sub infobar { # My RoD Prompt: !!prompt!! %h:%H:%m:%M:%v:%V:%g:%w:%a:%u:%A:%f !!prompt!!&w%l # What it looks like: !!prompt!! 1356:1356:877:877:640:640:1,773,029:818:971:H:Y:297 !!prompt!! # Reol's Prompt: <1635:1635h 933m 1000a 640mv> |H|Y| <110,854,542> # Regex for trigger: ^!!prompt!! (\d+:\d+:\d+:\d+:\d+:\d+:.+?:\d+:\d+:\d+:.*?:.*?) !!prompt!!$ my ($name) = @_; @prompt = split(/:/, $world->GetTriggerInfo($name,101)); $world->InfoClear(); $world->InfoBackground('#000000'); $world->InfoFont('Courier New', 14, 1); $world->InfoColour('#FFFFFF');$world->Info('Reol: '); # This line can be deleted if don't want to see name. $world->InfoColour('white');$world->Info('<'); # Seperator $world->InfoColour('#00FF00');$world->Info($prompt[0]); # Current HP $world->InfoColour('#00FF00');$world->Info(':'); # HP Seperator $world->InfoColour('#00FF00');$world->Info($prompt[1]); # Max HP $world->InfoColour('#00FF00');$world->Info('h '); # HP Label $world->InfoColour('#FF0000');$world->Info($prompt[2]); # Current Mana $world->InfoColour('#FF0000');$world->Info('m '); # Mana Label $world->InfoColour('#FFFAFA');$world->Info($prompt[8]); # Current Align $world->InfoColour('#FFFAFA');$world->Info('a '); # Align Label $world->InfoColour('#00FFFF');$world->Info($prompt[4]); # Current Moves $world->InfoColour('#00FFFF');$world->Info('mv '); # Moves Label $world->InfoColour('white');$world->Info('> '); # Seperator $world->InfoColour('#FFFF00');$world->Info('|'); # Seperator $world->InfoColour('#FF1493');$world->Info($prompt[10]); # IHS Indicator $world->InfoColour('#FFFF00');$world->Info('|'); # Seperator $world->InfoColour('#00FFFF');$world->Info($prompt[11]); # Fly Indicator $world->InfoColour('#FFFF00');$world->Info('| '); # Seperator $world->InfoColour('white');$world->Info('<'); # Seperator $world->InfoColour('#FFFF00');$world->Info($prompt[6]); # Current Gold $world->InfoColour('#FFFF00');$world->Info(''); # Gold Label (empty) $world->InfoColour('white');$world->Info('>'); # Seperator }