Evaluation ARG! ARG! ARG!

Print Thread

Evaluation ARG! ARG! ARG! #11135 15/02/03 02:44 AM
Joined: Dec 2002 Posts: 60 Scotland C Cyber_Axe OP Babel fish
OP Cyber_Axe Babel fish C Joined: Dec 2002 Posts: 60 Scotland	is there any way to stop mIRC using Evaluation brackets are least temporarily during a certain event or alias? i have created a script for reading form one text and copying info that isnt in the main text to the main text but if there is a line in a text with a bit of text such as ; [ blah blah ] it uses the [] as evaluations and messes up what it is supposed to do is there anyway to stop this?

Re: Evaluation ARG! ARG! ARG! #11136 15/02/03 02:46 AM
Joined: Dec 2002 Posts: 332 Louisiana, USA C Cheech Fjord artisan
Cheech Fjord artisan C Joined: Dec 2002 Posts: 332 Louisiana, USA	did you try using $chr(91) [ and $chr(93) ]

Re: Evaluation ARG! ARG! ARG! #11137 15/02/03 02:49 AM
Joined: Dec 2002 Posts: 60 Scotland C Cyber_Axe OP Babel fish
OP Cyber_Axe Babel fish C Joined: Dec 2002 Posts: 60 Scotland	the backets are in the text files not part of the script

Re: Evaluation ARG! ARG! ARG! #11138 15/02/03 02:56 AM
Joined: Dec 2002 Posts: 332 Louisiana, USA C Cheech Fjord artisan
Cheech Fjord artisan C Joined: Dec 2002 Posts: 332 Louisiana, USA	ic if you are using the $read in this script this might help you If the n switch is specified then the line read in will not be evaluated and will be treated as plain text. hope thats some help

Re: Evaluation ARG! ARG! ARG!

#11139 15/02/03 03:05 AM

Joined: Dec 2002

Posts: 60

Scotland

Cyber_Axe

Babel fish

Cyber_Axe

Babel fish

Joined: Dec 2002

Posts: 60

Scotland

it still dont work and ive even tried adding the t switch to all $read identifiers with no avail plus when it writes the text it removes any multiple spaces as well as the square brackets and thats removed in the $read it wasn't isnt matching some text it should be

Code:


alias cheatupdate {
  var %cs.cheat = "D:\Emulation\Arcade\Emulators\Mame 32\cheat.dat"
  var %cs.cheatu = "D:\Emulation\Arcade\Emulators\Mame 32\cheatu.dat"

  if ($exists(%cs.cheat) != $false) &amp;&amp; $&amp; 
    ($exists(%cs.cheatu) != $false) {
    var %cs.cheatulines = $lines(%cs.cheatu)
    var %cs.increase = 1

    write -i %cs.cheat

    while (%cs.increase &lt;= %cs.cheatulines) {
      if ($read(%cs.cheatu,%cs.increase) != $null) {
        if (;* iswm $read(%cs.cheatu,%cs.increase)) &amp;&amp; $&amp;
          ($read(%cs.cheat,w,$read(%cs.cheatu,%cs.increase)) == $null) {
          write %cs.cheat $read(%cs.cheatu,%cs.increase)
        }
        elseif ($read(%cs.cheat,w,* $+ $&amp;
          $+ * $+ $gettok($read(%cs.cheatu,%cs.increase),2,58) $&amp;
          $+ * $+ $gettok($read(%cs.cheatu,%cs.increase),3,58) $&amp;
          $+ * $+ $gettok($read(%cs.cheatu,%cs.increase),4,58) $&amp;
          $+ * $+ $gettok($read(%cs.cheatu,%cs.increase),5,58) $+ *) == $null) {
          write %cs.cheat $read(%cs.cheatu,%cs.increase)
        }
      }
      else { 
        write -i %cs.cheat
      }      
      inc %cs.increase
    }
  }
}

The only bit that should need to be fixed is this bit

Code:


      if ($read(%cs.cheatu,%cs.increase) != $null) {
        if (;* iswm $read(%cs.cheatu,%cs.increase)) &amp;&amp; $&amp;
          ($read(%cs.cheat,w,$read(%cs.cheatu,%cs.increase)) == $null) {
          write %cs.cheat $read(%cs.cheatu,%cs.increase)
        }
      }

Last edited by Hammer; 15/02/03 07:41 AM.

Re: Evaluation ARG! ARG! ARG!

#11140 15/02/03 06:21 AM

Joined: Dec 2002

Posts: 27

BeeBeeGun

Ameglian cow

BeeBeeGun

Ameglian cow

Joined: Dec 2002

Posts: 27

try something like :

Code:

  
var %l
while (%cs.increase &lt;= %cs.cheatulines) {
  %l = $read(%cs.cheatu,n,%cs.increase)
  if (%l != $null) {
    if (;* iswm %l) &amp;&amp; $&amp;
       ($read(%cs.cheat,w,%l) == $null) {
      write %cs.cheat %l
    }
   elseif ($read(%cs.cheat,w, $&amp;
                         * $+ $gettok(%l,2,58) $&amp;
                        $+ * $+ $gettok(%l,3,58) $&amp;
                        $+ * $+ $gettok(%l,4,58) $&amp;
                        $+ * $+ $gettok(%l,5,58) $+ *) == $null) {
    write %cs.cheat %l
     }
  }
  else {
    write -i %cs.cheat
  }
inc %cs.increase
}

Re: Evaluation ARG! ARG! ARG! #11141 15/02/03 10:59 AM
Joined: Dec 2002 Posts: 60 Scotland C Cyber_Axe OP Babel fish
OP Cyber_Axe Babel fish C Joined: Dec 2002 Posts: 60 Scotland	Thanks

Link Copied to Clipboard

Forums Scripts & Popups Evaluation ARG! ARG! ARG!