View Single Post
  #7  
Old 01-03-2015, 05:50 PM
c0ncrete's Avatar
c0ncrete
Dragon
 
Join Date: Dec 2009
Posts: 719
Default

here's what you'd see if you were to use the -cW switches to check for simple stuff like syntax errors in your scripts (this is what it spat out at me in notepad++). they're not always easy to find manually when you have a large amount of nested statements.


test script contents
Code:
Quest File for Steppes - Captain_Vahl

sub EVENT_SAY{
    if($text=~/hail/i){               
        plugin::DiaWind("Hello {gold}$name~! Do you come with {r}news~ from {gold}Deevan~? [I have news>");
    }
    if($text=~/news/i){               
        plugin::DiaWind("Wonderful , now give it to me!");
    }
    elsif($text=~/news/i) && $ulevel < 35) {               
        plugin::DiaWind("Begone {g}$class~ you waste my {r}time~!!!");
    }

sub EVENT_ITEM { 
    if(plugin::check_handin(\%itemcount, 1270 => 1) && $ulevel > 34) { # Note to Captain Vahl
        plugin::DiaWind("Wonderful , Just what Ive been {y}waiting~ for! [Why have you been waiting>");
    }
    if($test=~/waiting/i){
        plugin::DiaWind("These are the {g}battle plans~ from {gold}Deevan~ Himself! I must look them over , for the meantime seek to earn the {y}favor~ of my Advisors. Speak to me again when you have done all they {r}require~");
    }
}

sub EVENT_SPAWN {
    plugin::SetMobColor(quest::ChooseRandom(0..255), quest::ChooseRandom(0..255), quest::ChooseRandom(0..255));
}
console output
Code:
NPP_EXEC: "perl [check syntax]"
NPP_SAVE: C:\Users\*****\Desktop\Captain_Vahl.pl
perl -cW "C:\Users\*****\Desktop\Captain_Vahl.pl"
Process started >>>
syntax error at C:\Users\*****\Desktop\Captain_Vahl.pl line 3, near "Captain_Vahl

sub EVENT_SAY"
Missing right curly or square bracket at C:\Users\*****\Desktop\Captain_Vahl.pl line 27, at end of line
C:\Users\*****\Desktop\Captain_Vahl.pl had compilation errors.
<<< Process finished. (Exit code 255)
================ READY ================
__________________
I muck about @ The Forge.
say(rand 99>49?'try '.('0x'.join '',map{unpack 'H*',chr rand 256}1..2):'incoherent nonsense')while our $Noport=1;
Reply With Quote