New features: While with multiple parameters

[Kaspy]

Now while allows multiple parameters in the same way that if/elsif/else




r8859

[kangtuji]

So... replace the whole block

Code: Select all

	##########################################
	# while statement: while (foo <= bar) as label
	} elsif ($line =~ /^while\s/) {
		my ($first, $cond, $last, $label) = $line =~ /^while\s+\(\s*"?(.*?)"?\s+([<>=!]+?)\s+"?(.*?)"?\s*\)\s+as\s+(.*)/;
		if (!defined $first || !defined $cond || !defined $last || !defined $label) {$self->{error} = "$errtpl: syntax error in while statement"}
		else {
			my $pfirst = parseCmd($first, $self); my $plast = parseCmd($last, $self);
			if (defined $self->{error}) {$self->{error} = "$errtpl: $self->{error}"; return}
			unless (defined $pfirst && defined $plast) {$self->{error} = "$errtpl: either '$first' or '$last' has failed"}
			elsif (!cmpr($pfirst, $cond, $plast)) {$self->{line} = $self->{label}->{"end ".$label}}
			$self->{line}++
		}
		$self->{timeout} = 0
	##########################################

with new code

Code: Select all

 	##########################################
 	# while statement: while (foo <= bar) as label
 	} elsif ($line =~ /^while\s/) {
-		my ($first, $cond, $last, $label) = $line =~ /^while\s+\(\s*"?(.*?)"?\s+([<>=!]+?)\s+"?(.*?)"?\s*\)\s+as\s+(.*)/;
-		if (!defined $first || !defined $cond || !defined $last || !defined $label) {$self->{error} = "$errtpl: syntax error in while statement"}
-		else {
-			my $pfirst = parseCmd($first, $self); my $plast = parseCmd($last, $self);
-			if (defined $self->{error}) {$self->{error} = "$errtpl: $self->{error}"; return}
-			unless (defined $pfirst && defined $plast) {$self->{error} = "$errtpl: either '$first' or '$last' has failed"}
-			elsif (!cmpr($pfirst, $cond, $plast)) {$self->{line} = $self->{label}->{"end ".$label}}
-			$self->{line}++
-		}
+		my ($text, $label) = $line =~ /^while\s+\(\s*(.*)\s*\)\s+as\s+(.*)/;
+		my $text = parseCmd($text, $self);
+		if (defined $self->{error}) {$self->{error} = "$errtpl: $self->{error}"; return}
+		my $savetxt = particle($text, $self, $errtpl);
+		if (!multi($savetxt, $self, $errtpl)) {
+			$self->{line} = $self->{label}->{"end ".$label};
+		}
+		$self->{line}++;
 		$self->{timeout} = 0
 	##########################################
 	# pop value from variable: $var = [$list]

Or should I replace all that - lines with + lines ?
Sorry, never update throught the web before, after all those times, I still need lot learning ...



On other unrelated note,
Did the macro already support "multiple class" that threated as OR ?

[Kaspy]

Use SVN: http://openkore.com/index.php/TortoiseSVN_Guide

I do not understand the second question

[c4c1n6kr3m1]

ente ngapain bro, tinggal download aja susah susah.
replace (-)line with (+)line
for every job except novice you can use this

Code: Select all

eval $::char->{jobID} > 0

for swordman = 1, Merchant = 5 ( look inside src\globals.pm ), you can use this way

Code: Select all

eval $::char->{jobID} =~ /^1|5$/

i guess...

[kangtuji]

ente ngapain bro, tinggal download aja susah susah.
replace (-)line with (+)line
for every job except novice you can use this

Code: Select all

eval $::char->{jobID} > 0

for swordman = 1, Merchant = 5 ( look inside src\globals.pm ), you can use this way

Code: Select all

eval $::char->{jobID} =~ /^1|5$/

i guess...

Bukan tinggal donglot bang, tapi ane gagal paham ... belom nyampe otak ane.
When I tries download the whole Script.pm (only Script.pm), it gives me error, so I revert back to the old version

I guess that eval could work...
A lil question, what does "^" and "$" on that regex means, thanks