Forums Scripts & Popups [Request] Script for Star-Fury Online Game!

on *:text:*:#: {
  if ($regex($1-5,/^\Q $+ $me \E\(\d:\d\) (\d+) (\d+) \d/)) {
    var %roidhits = $ceil($calc($regml(1) / 10))
    var %landhits = $ceil($calc($regml(2) / $iif(($regml(2) > 200),10,20)))
    msg $chan %roidhits hits to Roid Kill; %landhits hits to Land kill
  }
}

; text received
on *:text:*:#: {

  ; nick is op 
  if ($nick isop $chan) {

    ; check for text matching "<EmpireName> <SectorName> <Asteroids> <Land> <Networth> <?Alliance?>" and capture values "Asteroids" and "Land"
    ; text format: <word> <(digit:digit)> <number with possible commas> <number with possible commas> <number with at least one comma> <possibly some text in square brackets>
    if ($regex($1-,/^\S+ \(\d:\d\) ([\d\54]+) ([\d\54]+) [\d\54]+\54\d+(?:\s\[.+\])?$/)) {

      ; set the captured values "Asteroids" and "Land", with the possible commas removed, into variables 
      var %r = $remove($regml(1),$chr(44)), %l = $remove($regml(2),$chr(44)), %r.hits = 0, %l.hits = 0

      ; calculate asteroids remaining per hit - count required no. of hits
      while (%r > 0) {
        dec %r $iif((%r > 100),$calc($v1 * 0.1),10)
        inc %r.hits
      }

      ; calculate land remaining per hit - count required no. of hits
      while (%l > 0) {
        dec %l $iif((%l > 200),$calc($v1 * 0.1),20)
        inc %l.hits
      }

      ; output result to the channel
      msg $chan %r.hits hits to Roid kill; %l.hits hits to Land kill
    }
  }
}

on *:text:*:#: {
  if ($nick isop $chan) {
    if ($regex($1-,/ \(\d:\d\) ([\d\54]*\d+) ([\d\54]*\d+) [\d\54]+?\54\d{3}(?: \[.+\])?$/)) {
      var %r = $remove($regml(1),$chr(44)), %l = $remove($regml(2),$chr(44)), %r.hits = 0, %l.hits = 0
      while (%r > 0) { dec %r $iif((%r > 100),$calc(%r * 0.1),10) | inc %r.hits }
      while (%l > 0) { dec %l $iif((%l > 200),$calc(%l * 0.1),20) | inc %l.hits }
      
      msg $chan %r.hits hits to Roid kill; %l.hits hits to Land kill
    }
  }
}

on *:text:*:#: {
  if ($nick isop $chan) {
    if ($regex($1-,/ \(\d:\d\) ([\d\54]*\d+) ([\d\54]*\d+) [\d\54]+?\54\d{3}(?: \[.+\])?$/)) {
      var %r = $remove($regml(1),$chr(44)), %l = $remove($regml(2),$chr(44)), %r.hits = 0, %l.hits = 0
      while (%r > 0) { dec %r $iif((%r > 100),$calc(%r * 0.1),10) | inc %r.hits }
      while (%l > 0) { dec %l $iif((%l > 200),$calc(%l * 0.1),20) | inc %l.hits }

      msg $chan 4 %r.hits 11 Roid Hits /\4 %l.hits 11 Land Hits
    }
  }
} 

msg $chan 3 $1 $2 4 %r.hits 12 Roid Hits |4 %l.hits 12 Land Hits

on *:text:*:#: {
  if ($nick isop $chan) {
    if ($regex($1-,/^(.+) (\(\d:\d\)) ([\d\54]*\d+) ([\d\54]*\d+) [\d\54]+?\54\d{3}(?: \[.+\])?$/)) {
      var %empire = $regml(1), %sector = $regml(2), %r = $remove($regml(3),$chr(44)), %l = $remove($regml(4),$chr(44))
      var %r.hits = 0, %l.hits = 0
      while (%r > 0) { dec %r $iif((%r > 100),$calc(%r * 0.1),10) | inc %r.hits }
      while (%l > 0) { dec %l $iif((%l > 200),$calc(%l * 0.1),20) | inc %l.hits }

      msg $chan %empire %sector %r.hits Roid Hits %l.hits Land Hits
      msg $chan 03 $+ %empire %sector 04 $+ %r.hits 03Roid Hits 04 $+ %l.hits 03Land Hits
    }
  }
}