Excelsior

Code: Select all

gosub Checkmate
set %char `
set %speech 1

menu edit txt 600 %ycoord 500 [World MSG Press ' To Send]
menu edit txt2 10 %ycoord 500 [Guild MSG Press ' To Send]
while #true
{
  gosub scan
  gosub sendtxt
  gosub sendtxt2
}


sub sendtxt
  menu get txt
  str pos #menures %char
  if #strres = 0
    return
  set %a #strres
  str len #menures
  set %b #strres
  if %a = %b
  {
    set %b %b - 1
    str left #menures %b
    msg [c #strres $
    menu set txt
  }
return

sub sendtxt2
  menu get txt2
  str pos #menures %char
  if #strres = 0
    return
  set %a #strres
  str len #menures
  set %b #strres
  if %a = %b
  {
    set %b %b - 1
    str left #menures %b
    msg [g #strres $
    menu set txt2
  }
return

sub checkmate
  gosub menuBody
  set %jEntry #jIndex
  set %listIndex 0
return

sub scan
  mainLoop:
if ( %jEntry < #jIndex || %jEntry = N/A )
{
  set %scanLine #jIndex - %jEntry
  scanJournal %scanLine
  set %journal #journal
  menu get filter_spam
  set *filterSpam #menuRes
  menu get filter_spells
  set *filterSpells #menuRes
  menu get chat_only
  set *chatOnly #menuRes
  menu get filter_spotting
  set *filterSpotting #menuRes
  if *filterSpells = #true
  {
    str pos %journal : 1
    str del %journal 1 #strRes
    set %spellCheckStr #strRes
  }

  if shouts in %journal || chat in %journal || impurities in %journal || [ in %journal && you_see notin %journal
  {
    set %lastEntry %journal
    str count %journal _
    while #strRes > 0
    {
      str pos %journal _
      set %underscorePos #strRes
      str del %journal #strRes 1
      str ins #strRes #spc %underscorePos
      set %journal #strRes
      str count %journal _
    }
    set %listIndex %listIndex + 1
    gosub time
    set %line_ . %listIndex %time , #spc , %journal
    menu list add journal %line_ . %listIndex
    menu list select journal %listIndex
  }
  set %jEntry %jEntry + 1
}
if #menuButton <> NONE
{
  gosub #menuButton
  set #menuButton NONE
}
;goto mainLoop
return

  }
  gosub time
  set %listIndex %listIndex + 1
  set %line_ . %listIndex %time , #spc , SAVING , #SPC , DONE
  menu list add journal %line_ . %listIndex
  menu list select journal %listIndex
  set %jEntry %jEntry + 1
return

sub left
  if %width > 300
  {
    gosub menuBody -100 0
  }
  gosub rewriteList
return

sub right
  if %width < 1200
  {
    gosub menuBody 100 0
  }
  gosub rewriteList
return

sub rewriteList
  menu list clear journal
  for %restoreList_i 1 %listIndex
  {
      menu list add journal %line_ . %restoreList_i
  }
  menu list select journal %listIndex
return

sub closed
  stop
return

sub time
  set %time #time
  str ins %time : 5
  str ins #strRes : 3
  set %time [ , #strRes , ]
return

sub menuBody
  menu Clear
  menu Font Name Times New Roman
  menu Window title Dragon Hide's Excelsior Journal
  menu Window color black
  menu Font Name Verdana
  menu Font color red
  menu Font bgcolor black

  menu Font size 10
  if %width = N/A
  {
     set %width 1200
  }
  if %height = N/A
  {
     set %height 205
  }
  set %yCoordinate 5
  if %0 > 0
  {
    set %width %width + %1
  }
  menu list create journal 5 %yCoordinate %width %height

  menu Font Name Times New Roman
  set %yCoordinate %yCoordinate + %height
  set %yCoordinate %yCoordinate + 5

  menu Font Align right
  menu button WORLD 800 214 100 20 WORLD
  menu button guild 200 214 100 20 GUILD

  menu Font color Red
  set %yCoordinate %yCoordinate + 20

  set %ycoord %yCoordinate

  set %yCoordinate %yCoordinate + 25
  set %windowSize %width + 10
  menu Window Size %windowSize %yCoordinate
  menu Show
  set #menuButton NONE
return

Code: Select all

Never mind, it highlights the text as a command, but for some reason when you hit Enter it's almost like an incorrect key is being pressed. This is because there is another key bound to enter for this source. With a little effort, this could be solved.

Code: Select all

 set #menuButton NONE

Code: Select all

%line_ . %listIndex %time , #spc , SAVING , #SPC , DONE

Code: Select all

%line_ . %listIndex %time , #spc , %SAVING , #SPC , %DONE