Left eval help

Post » Tue Aug 12, 2014 9:58 am

you probably won't be able to find it... but it's had me scratching my head for awhile now and it couldn't hurt to ask
this is a targeted global
it throws the error around the same time as the first messagebox...

Spoiler

begin fal_conquesthandler;=============================	;ID CORRELATIONS FOR - fal_cw_id - GLOBAL;1 = EAST CITY;2 = NORTH CITY;3 = SOUTH CITY;4 = WEST CITY;5 = FAR NORTH FORT;6 = NORTH FORT;7 = EAST VILLAGE;8 = SOUTH VILLAGE;9 = WEST VILLAGE;10 = EAST MINE;11 = NORTH MINE;12 = WEST MINE;13 = NORTH INN;14 = NORTH TEMPLE;15 = SOUTH TEMPLE;16 = SOUTH FARM;17 = EAST LUMBER CAMP;18 = WEST WAREHOUSE;=============================	;GLOBAL VARIABLES;fal_cw_id							-	explained above- simple identifier ;fal_cw_locationsupdate			-	updates location who's id is supplied ( -1 loss / +1 acquire );fal_cw_resourcesupdate		-	adds resources of location whose id is supplied;============================= 	;BASIC VARIABLESfloat turntimerfloat savepos float updatedelayfloat myxfloat myyfloat myzshort stateshort tempAshort tempBshort tempCshort onisleshort updateshort foodreqshort foodtrackershort wincountershort locationsowned;=============================	;CONQUEST MANAGERif ( state == -100 )	;RESET	set myx to 0	set myy to 0	set myz to 0	set savepos to 0	set updatedelay to 0	set temp to 0	set onisle to 0	set update to 0	set wincounter to 0	set foodtracker to 0	set locationsowned to 0	set turntimer to 0	set state to 0	player->removeitem fal_cw_journal 1	removeitem fal_locations_total 100	removeitem fal_resources_1 9999	removeitem fal_resources_2 9999	removeitem fal_resources_3 9999	removeitem fal_resources_4 9999	removeitem fal_resources_5 9999	removeitem fal_locations_1 5	removeitem fal_locations_2 5	removeitem fal_locations_3 5	removeitem fal_locations_4 5	removeitem fal_locations_5 5	removeitem fal_locations_6 5	removeitem fal_locations_7 5	removeitem fal_locations_8 5	removeitem fal_locations_9 5	removeitem fal_locations_10 5	removeitem fal_locations_11 5	removeitem fal_locations_12 5	removeitem fal_locations_13 5	removeitem fal_locations_14 5	removeitem fal_locations_15 5	removeitem fal_locations_16 5	removeitem fal_locations_17 5	removeitem fal_locations_18 5	stopscript fal_conquesthandler	returnendifif ( wincounter >= 5 )	set turntimer to ( turntimer + getsecondspassed )	if ( turntimer > 3.5 )		if ( state == 1 )			messagebox"VICTORY REPORT"			if ( menumode == 0 )				set state to -100			endif		endif	elseif ( turntimer > 2 )		if ( state == -1 )			player->position -194817 344781 28 220			set state to 1 		endif	endif	return	endifif ( foodtracker >= 4 )	set turntimer to ( turntimer + getsecondspassed )	if ( turntimer > 3.5 )		if ( state == 1 )			messagebox"LOSS REPORT"			if ( menumode == 0 )				set state to -100			endif		endif	elseif ( turntimer > 2 )		if ( state == -1 )			player->position -194817 344781 28 220			set state to 1 		endif	endif	return	endifif ( ScriptRunning, fal_battlehandler == 1 )	returnendifif ( state == 0 )	set turntimer to 0	player->position -199910 354755 123 180	messagebox"Directly in front of you lies your initial foothold into the Isle of War. Good luck ^PCClass..."	;set update to 1	;set onisle to 1	set state to -10	returnendifif ( cellchanged == 1 )	if ( GetPCCell "Castle Wars" == 0 )		set onisle to -1	endif	;set update to 1	set locationsowned to 0endifif ( menumode == 0 )	if ( update == 1 )		if ( getitemcount fal_locations_1 >= 1 )			set locationsowned to ( locationsowned + 1 )		endif		if ( getitemcount fal_locations_2 >= 1 )			set locationsowned to ( locationsowned + 1 )		endif		if ( getitemcount fal_locations_3 >= 1 )			set locationsowned to ( locationsowned + 1 )		endif		if ( getitemcount fal_locations_4 >= 1 )			set locationsowned to ( locationsowned + 1 )		endif		if ( getitemcount fal_locations_5 >= 1 )			set locationsowned to ( locationsowned + 1 )		endif		if ( getitemcount fal_locations_6 >= 1 )			set locationsowned to ( locationsowned + 1 )		endif		if ( getitemcount fal_locations_7 >= 1 )			set locationsowned to ( locationsowned + 1 )		endif		if ( getitemcount fal_locations_8 >= 1 )			set locationsowned to ( locationsowned + 1 )		endif		if ( getitemcount fal_locations_9 >= 1 )			set locationsowned to ( locationsowned + 1 )		endif		if ( getitemcount fal_locations_10 >= 1 )			set locationsowned to ( locationsowned + 1 )		endif		if ( getitemcount fal_locations_11 >= 1 )			set locationsowned to ( locationsowned + 1 )		endif		if ( getitemcount fal_locations_12 >= 1 )			set locationsowned to ( locationsowned + 1 )		endif		if ( getitemcount fal_locations_13 >= 1 )			set locationsowned to ( locationsowned + 1 )		endif		if ( getitemcount fal_locations_14 >= 1 )			set locationsowned to ( locationsowned + 1 )		endif		if ( getitemcount fal_locations_15 >= 1 )			set locationsowned to ( locationsowned + 1 )		endif		if ( getitemcount fal_locations_16 >= 1 )			set locationsowned to ( locationsowned + 1 )		endif		if ( getitemcount fal_locations_17 >= 1 )			set locationsowned to ( locationsowned + 1 )		endif		if ( getitemcount fal_locations_18 >= 1 )			set locationsowned to  ( locationsowned + 1 )		endif		set update to -1	endifendifif ( update == -1 )	set updatedelay to ( updatedelay + getsecondspassed )	if ( getitemcount fal_locations_total > locationsowned )		removeitem fal_locations_total 1	elseif ( getitemcount fal_locations_total < locationsowned )		additem fal_locations_total 1	endif	if ( updatedelay > 1 )		if ( locationsowned >= 12 )			if ( wincounter == -1 )				messagebox"You your empire has expanded to include most of the Isle of War. If you can sustain it, your conquest may very well be successful ^PCName"				set wincounter to 0			endif		else			set wincounter to -1		endif		set foodreq to ( ( locationsowned * 4 ) - ( locationsowned / fal_difficulty ) )		set updatedelay to 0		set update to 0	endifendifif ( onisle == 1 )	set savepos to ( savepos + getsecondspassed )	if ( savepos > 5 )		set myx to ( player->getpos x )		set myy to ( player->getpos y )		set myz to ( player->getpos z )		set savepos to 0	endifelseif ( onisle == -1 )	player->setpos x myx	player->setpos y myy	player->setpos z myz	messagebox"Nothing but vast oceans stretch in all directions, I should turn back"	set savepos to -5	set onisle to 1endifif ( turntimer < 150 ) 	;if ( wincounter < 5 )	;elseif ( foodtracker < 4 )		set turntimer to ( turntimer + getsecondspassed )		if ( turntimer > 149 )			if ( update == 0 )				set update to 1			endif		endif	;endif	;endifelseif ( turntimer >= 150 )	set fal_cw_turn to ( fal_cw_turn + 1 )	if ( wincounter != -1 )		if ( getitemcount "fal_resources_1" >= foodreq )			set wincounter to ( wincounter + 1 )			set foodtracker to 0			set tempA to ( wincounter - 6 )			set tempB to ( getitemcount fal_resources_1 )			removeitem "fal_resources_1" foodreq			set tempC to ( getitemcount fal_resources_1 )			;messagebox"TURN ( ^fal_cw_turn ) |Locations under the control of your empire ( %g ) |Turns until victory ( %g ) |Empire food levels ( %g - > %g )"locationsowned tempA tempB tempC		else			set tempB to ( getitemcount "fal_resources_1" )			removeitem "fal_resources_1" foodreq			set foodtracker to ( foodtracker + 1 )			set tempA to ( 4 - foodtracker )			;messagebox"TURN ( ^fal_cw_turn ) |Locations under the control of your empire ( %g ) |Turns until starvation ( %g ) |Empire food levels ( %g - > starving )"locationsowned tempA tempB		endif	else		if ( getitemcount "fal_resources_1" >= foodreq )			set foodtracker to 0			set tempB to ( getitemcount fal_resources_1 )			removeitem "fal_resources_1" foodreq			set tempC to ( getitemcount fal_resources_1 )			;messagebox"TURN ( ^fal_cw_turn ) |Locations under the control of your empire ( %g ) |Turns until victory ( n/a ) |Empire food levels ( %g - > %g )"locationsowned tempB tempC		else			set tempB to ( getitemcount "fal_resources_1" )			removeitem "fal_resources_1" foodreq			set foodtracker to ( foodtracker + 1 )			set tempA to ( 4 - foodtracker )			;messagebox"TURN ( ^fal_cw_turn ) |Locations under the control of your empire ( %g ) |Turns until starvation ( %g ) |Empire food levels ( %g - > starving )"locationsowned tempA tempB		endif	endif	set turntimer to 0endif;=============================



there is another half to the script, however I'm 100% sure it has nothing to do with the left eval... but here

Spoiler

;=============================	;UPDATE GAME STATUS BLOCK	;1 		adds location	;-1 	removes location	;2		check location	;-2		reset all locationsif ( fal_cw_locationsupdate == 1 )	if ( fal_cw_id == 1 )		if ( getitemcount fal_locations_1 < 1 )			additem fal_locations_1 1		else			messagebox"ERROR 404: location already owned"		endif	elseif ( fal_cw_id == 2 )		if ( getitemcount fal_locations_2 < 1 )			additem fal_locations_2 1		else			messagebox"ERROR 404: location already owned"		endif	elseif ( fal_cw_id == 3 )		if ( getitemcount fal_locations_3 < 1 )			additem fal_locations_3 1		else			messagebox"ERROR 404: location already owned"		endif	elseif ( fal_cw_id == 4 )		if ( getitemcount fal_locations_4 < 1 )			additem fal_locations_4 1		else			messagebox"ERROR 404: location already owned"		endif	elseif ( fal_cw_id == 5 )		if ( getitemcount fal_locations_5 < 1 )			additem fal_locations_5 1		else			messagebox"ERROR 404: location already owned"		endif	elseif ( fal_cw_id == 6 )		if ( getitemcount fal_locations_6 < 1 )			additem fal_locations_6 1		else			messagebox"ERROR 404: location already owned"		endif	elseif ( fal_cw_id == 7 )		if ( getitemcount fal_locations_7 < 1 )			additem fal_locations_7 1		else			messagebox"ERROR 404: location already owned"		endif	elseif ( fal_cw_id == 8 )		if ( getitemcount fal_locations_8 < 1 )			additem fal_locations_8 1		else			messagebox"ERROR 404: location already owned"		endif	elseif ( fal_cw_id == 9 )		if ( getitemcount fal_locations_9 < 1 )			additem fal_locations_9 1		else			messagebox"ERROR 404: location already owned"		endif	elseif ( fal_cw_id == 10 )		if ( getitemcount fal_locations_10 < 1 )			additem fal_locations_10 1		else			messagebox"ERROR 404: location already owned"		endif	elseif ( fal_cw_id == 11 )		if ( getitemcount fal_locations_11 < 1 )			additem fal_locations_11 1		else			messagebox"ERROR 404: location already owned"		endif	elseif ( fal_cw_id == 12 )		if ( getitemcount fal_locations_12 < 1 )			additem fal_locations_12 1		else			messagebox"ERROR 404: location already owned"		endif	elseif ( fal_cw_id == 13 )		if ( getitemcount fal_locations_13 < 1 )			additem fal_locations_13 1		else			messagebox"ERROR 404: location already owned"		endif	elseif ( fal_cw_id == 14 )		if ( getitemcount fal_locations_14 < 1 )			additem fal_locations_14 1		else			messagebox"ERROR 404: location already owned"		endif	elseif ( fal_cw_id == 15 )		if ( getitemcount fal_locations_15 < 1 )			additem fal_locations_15 1		else			messagebox"ERROR 404: location already owned"		endif	elseif ( fal_cw_id == 16 )		if ( getitemcount fal_locations_16 < 1 )			additem fal_locations_16 1		else			messagebox"ERROR 404: location already owned"		endif	elseif ( fal_cw_id == 17 )		if ( getitemcount fal_locations_17 < 1 )			additem fal_locations_17 1		else			messagebox"ERROR 404: location already owned"		endif	elseif ( fal_cw_id == 18 )		if ( getitemcount fal_locations_18 < 1 )			additem fal_locations_18 1		else			messagebox"ERROR 404: location already owned"		endif	endif	set fal_cw_locationsupdate to 0elseif ( fal_cw_locationsupdate == -1 )	if ( fal_cw_id == 1 )		if ( getitemcount fal_locations_1 >= 1 )			removeitem fal_locations_1 10		else			messagebox"ERROR 404: you do not own this location to begin with"		endif	elseif ( fal_cw_id == 2 )		if ( getitemcount fal_locations_2 >= 1 )			removeitem fal_locations_2 10		else			messagebox"ERROR 404: you do not own this location to begin with"		endif	elseif ( fal_cw_id == 3 )		if ( getitemcount fal_locations_3 >= 1 )			removeitem fal_locations_3 10		else			messagebox"ERROR 404: you do not own this location to begin with"		endif	elseif ( fal_cw_id == 4 )		if ( getitemcount fal_locations_4 >= 1 )			removeitem fal_locations_4 10		else			messagebox"ERROR 404: you do not own this location to begin with"		endif	elseif ( fal_cw_id == 5 )		if ( getitemcount fal_locations_5 >= 1 )			removeitem fal_locations_5 10		else			messagebox"ERROR 404: you do not own this location to begin with"		endif	elseif ( fal_cw_id == 6 )		if ( getitemcount fal_locations_6 >= 1 )			removeitem fal_locations_6 10		else			messagebox"ERROR 404: you do not own this location to begin with"		endif	elseif ( fal_cw_id == 7 )		if ( getitemcount fal_locations_7 >= 1 )			removeitem fal_locations_7 10		else			messagebox"ERROR 404: you do not own this location to begin with"		endif	elseif ( fal_cw_id == 8 )		if ( getitemcount fal_locations_8 >= 1 )			removeitem fal_locations_8 10		else			messagebox"ERROR 404: you do not own this location to begin with"		endif	elseif ( fal_cw_id == 9 )		if ( getitemcount fal_locations_9 >= 1 )			removeitem fal_locations_9 10		else			messagebox"ERROR 404: you do not own this location to begin with"		endif	elseif ( fal_cw_id == 10 )		if ( getitemcount fal_locations_10 >= 1 )			removeitem fal_locations_10 10		else			messagebox"ERROR 404: you do not own this location to begin with"		endif	elseif ( fal_cw_id == 11 )		if ( getitemcount fal_locations_11 >= 1 )			removeitem fal_locations_11 10		else			messagebox"ERROR 404: you do not own this location to begin with"		endif	elseif ( fal_cw_id == 12 )		if ( getitemcount fal_locations_12 >= 1 )			removeitem fal_locations_12 10		else			messagebox"ERROR 404: you do not own this location to begin with"		endif	elseif ( fal_cw_id == 13 )		if ( getitemcount fal_locations_13 >= 1 )			removeitem fal_locations_13 10		else			messagebox"ERROR 404: you do not own this location to begin with"		endif	elseif ( fal_cw_id == 14 )		if ( getitemcount fal_locations_14 >= 1 )			removeitem fal_locations_14 10		else			messagebox"ERROR 404: you do not own this location to begin with"		endif	elseif ( fal_cw_id == 15 )		if ( getitemcount fal_locations_15 >= 1 )			removeitem fal_locations_15 10		else			messagebox"ERROR 404: you do not own this location to begin with"		endif	elseif ( fal_cw_id == 16 )		if ( getitemcount fal_locations_16 >= 1 )			removeitem fal_locations_16 10		else			messagebox"ERROR 404: you do not own this location to begin with"		endif	elseif ( fal_cw_id == 17 )		if ( getitemcount fal_locations_17 >= 1 )			removeitem fal_locations_17 10		else			messagebox"ERROR 404: you do not own this location to begin with"		endif	elseif ( fal_cw_id == 18 )		if ( getitemcount fal_locations_18 >= 1 )			removeitem fal_locations_18 10		else			messagebox"ERROR 404: you do not own this location to begin with"		endif	endif	set fal_cw_locationsupdate to 0elseif ( fal_cw_locationsupdate == 2 )	if ( fal_cw_id == 1 )		if ( getitemcount fal_locations_1 >= 1 )			player->additem fal_confirmtoken 1		else			player->additem fal_failuretoken 1		endif	elseif ( fal_cw_id == 2 )		if ( getitemcount fal_locations_2 >= 1 )			player->additem fal_confirmtoken 1			messagebox"owned via cq"		else			player->additem fal_failuretoken 1			messagebox"not owned via cq"		endif	elseif ( fal_cw_id == 3 )		if ( getitemcount fal_locations_3 >= 1 )			player->additem fal_confirmtoken 1		else			player->additem fal_failuretoken 1		endif	elseif ( fal_cw_id == 4 )		if ( getitemcount fal_locations_4 >= 1 )			player->additem fal_confirmtoken 1		else			player->additem fal_failuretoken 1		endif	elseif ( fal_cw_id == 5 )		if ( getitemcount fal_locations_5 >= 1 )			player->additem fal_confirmtoken 1		else			player->additem fal_failuretoken 1		endif	elseif ( fal_cw_id == 6 )		if ( getitemcount fal_locations_6 >= 1 )			player->additem fal_confirmtoken 1		else			player->additem fal_failuretoken 1		endif	elseif ( fal_cw_id == 7 )		if ( getitemcount fal_locations_7 >= 1 )			player->additem fal_confirmtoken 1		else			player->additem fal_failuretoken 1		endif	elseif ( fal_cw_id == 8 )		if ( getitemcount fal_locations_8 >= 1 )			player->additem fal_confirmtoken 1		else			player->additem fal_failuretoken 1		endif	elseif ( fal_cw_id == 9 )		if ( getitemcount fal_locations_9 >= 1 )			player->additem fal_confirmtoken 1		else			player->additem fal_failuretoken 1		endif	elseif ( fal_cw_id == 10 )		if ( getitemcount fal_locations_10 >= 1 )			player->additem fal_confirmtoken 1		else			player->additem fal_failuretoken 1		endif	elseif ( fal_cw_id == 11 )		if ( getitemcount fal_locations_11 >= 1 )			player->additem fal_confirmtoken 1		else			player->additem fal_failuretoken 1		endif	elseif ( fal_cw_id == 12 )		if ( getitemcount fal_locations_12 >= 1 )			player->additem fal_confirmtoken 1		else			player->additem fal_failuretoken 1		endif	elseif ( fal_cw_id == 13 )		if ( getitemcount fal_locations_13 >= 1 )			player->additem fal_confirmtoken 1		else			player->additem fal_failuretoken 1		endif	elseif ( fal_cw_id == 14 )		if ( getitemcount fal_locations_14 >= 1 )			player->additem fal_confirmtoken 1		else			player->additem fal_failuretoken 1		endif	elseif ( fal_cw_id == 15 )		if ( getitemcount fal_locations_15 >= 1 )			player->additem fal_confirmtoken 1		else			player->additem fal_failuretoken 1		endif	elseif ( fal_cw_id == 16 )		if ( getitemcount fal_locations_16 >= 1 )			player->additem fal_confirmtoken 1		else			player->additem fal_failuretoken 1		endif	elseif ( fal_cw_id == 17 )		if ( getitemcount fal_locations_17 >= 1 )			player->additem fal_confirmtoken 1		else			player->additem fal_failuretoken 1		endif	elseif ( fal_cw_id == 18 )		if ( getitemcount fal_locations_18 >= 1 )			player->additem fal_confirmtoken 1		else			player->additem fal_failuretoken 1		endif	endif	set fal_cw_locationsupdate to 0elseif ( fal_cw_locationsupdate == -2 )	if ( getitemcount fal_locations_1 >= 1 )		removeitem fal_locations_1 10	endif	if ( getitemcount fal_locations_2 >= 1 )		removeitem fal_locations_2 10	endif	if ( getitemcount fal_locations_3 >= 1 )		removeitem fal_locations_3 10	endif	if ( getitemcount fal_locations_4 >= 1 )		removeitem fal_locations_4 10	endif	if ( getitemcount fal_locations_5 >= 1 )		removeitem fal_locations_5 10	endif	if ( getitemcount fal_locations_6 >= 1 )		removeitem fal_locations_6 10	endif	if ( getitemcount fal_locations_7 >= 1 )		removeitem fal_locations_7 10	endif	if ( getitemcount fal_locations_8 >= 1 )		removeitem fal_locations_8 10	endif	if ( getitemcount fal_locations_9 >= 1 )		removeitem fal_locations_9 10	endif	if ( getitemcount fal_locations_10 >= 1 )		removeitem fal_locations_10 10	endif	if ( getitemcount fal_locations_11 >= 1 )		removeitem fal_locations_11 10	endif	if ( getitemcount fal_locations_12 >= 1 )		removeitem fal_locations_12 10	endif	if ( getitemcount fal_locations_13 >= 1 )		removeitem fal_locations_13 10	endif	if ( getitemcount fal_locations_14 >= 1 )		removeitem fal_locations_14 10	endif	if ( getitemcount fal_locations_15 >= 1 )		removeitem fal_locations_15 10	endif	if ( getitemcount fal_locations_16 >= 1 )		removeitem fal_locations_16 10	endif	if ( getitemcount fal_locations_17 >= 1 )		removeitem fal_locations_17 10	endif	if ( getitemcount fal_locations_18 >= 1 )		removeitem fal_locations_18 10	endif	set fal_cw_locationsupdate to 0endif;=============================	;TRACK RESOURCESif ( fal_cw_resourcesupdate >= 1 )	if ( fal_cw_id == 1 )		additem fal_resources_5 4		additem fal_resources_4 5		additem fal_resources_2 4		additem fal_resources_3 5		additem fal_resources_1 4	elseif ( fal_cw_id == 2 )		additem fal_resources_5 6		additem fal_resources_4 4		additem fal_resources_2 4		additem fal_resources_3 4		additem fal_resources_1 4	elseif ( fal_cw_id == 3 )		additem fal_resources_5 4		additem fal_resources_4 4		additem fal_resources_2 4		additem fal_resources_3 6		additem fal_resources_1 4	elseif ( fal_cw_id == 4 )		additem fal_resources_5 4		additem fal_resources_4 4		additem fal_resources_2 5		additem fal_resources_3 4		additem fal_resources_1 4	elseif ( fal_cw_id == 5 )		additem fal_resources_5 4		additem fal_resources_4 5		additem fal_resources_2 4		additem fal_resources_3 4		additem fal_resources_1 4	elseif ( fal_cw_id == 6 )		additem fal_resources_2 5	elseif ( fal_cw_id == 7 )		additem fal_resources_4 6		additem fal_resources_3 5	elseif ( fal_cw_id == 8 )		additem fal_resources_3 8		additem fal_resources_2 4	elseif ( fal_cw_id == 9 )		additem fal_resources_4 8		additem fal_resources_2 6	elseif ( fal_cw_id == 10 )		additem fal_resources_5 8	elseif ( fal_cw_id == 11 )		additem fal_resources_5 8	elseif ( fal_cw_id == 12 )		additem fal_resources_5 8	elseif ( fal_cw_id == 13 )		additem fal_resources_1 5		additem fal_resources_2 2	elseif ( fal_cw_id == 14 )		additem fal_resources_4 8		additem fal_resources_2 2	elseif ( fal_cw_id == 15 )		additem fal_resources_4 8		additem fal_resources_2 2	elseif ( fal_cw_id == 16 )		additem fal_resources_1 10	elseif ( fal_cw_id == 17 )		additem fal_resources_3 8	elseif ( fal_cw_id == 18 )		additem fal_resources_1 8		additem fal_resources_2 4	endif	set fal_cw_resourcesupdate to ( fal_cw_resourcesupdate - 1 )elseif ( fal_cw_resourcesupdate == -1 )	;unused as of yetendifend

Regards,
Falador

EDIT: forgot variable declarations, fixed

User avatar
^_^
 
Posts: 3394
Joined: Thu May 31, 2007 12:01 am

Return to III - Morrowind