Location Randomizer

*location_randomizer

mov %hanyo1,0

;templocation1
if %pyramid>0 mov %hanyo1,%hanyo1+1:mov $templocation1,"Pyramid":skip 5
if %portnatalia>1 mov %hanyo1,%hanyo1+1:mov $templocation1,"Natalia":skip 4
if %undinesspring>0 mov %hanyo1,%hanyo1+1:mov $templocation1,"Spring":skip 3
if %svillage>0 mov %hanyo1,%hanyo1+1:mov $templocation1,"SVillage":skip 2
if %goldport>0 mov %hanyo1,%hanyo1+1:mov $templocation1,"Gold Port"

;templocation2
if %pyramid>0 && $templocation1!="Pyramid" mov %hanyo1,%hanyo1+1:mov $templocation2,"Pyramid":skip 5
if %portnatalia>1 && $templocation1!="Natalia" mov %hanyo1,%hanyo1+1:mov $templocation2,"Natalia":skip 4
if %undinesspring>0 && $templocation1!="Spring" mov %hanyo1,%hanyo1+1:mov $templocation2,"Spring":skip 3
if %svillage>0 && $templocation1!="SVillage" mov %hanyo1,%hanyo1+1:mov $templocation2,"SVillage":skip 2
if %goldport>0 && $templocation1!="Gold Port" mov %hanyo1,%hanyo1+1:mov $templocation2,"Gold Port"

;templocation3
if %pyramid>0 && $templocation1!="Pyramid" && $templocation2!="Pyramid" mov %hanyo1,%hanyo1+1:mov $templocation3,"Pyramid":skip 5
if %portnatalia>1 && $templocation1!="Natalia" && $templocation2!="Natalia" mov %hanyo1,%hanyo1+1:mov $templocation3,"Natalia":skip 4
if %undinesspring>0 && $templocation1!="Spring" && $templocation2!="Spring" mov %hanyo1,%hanyo1+1:mov $templocation3,"Spring":skip 3
if %svillage>0 && $templocation1!="SVillage" && $templocation2!="SVillage" mov %hanyo1,%hanyo1+1:mov $templocation3,"SVillage":skip 2
if %goldport>0 && $templocation1!="Gold Port" && $templocation2!="Gold Port" mov %hanyo1,%hanyo1+1:mov $templocation3,"Gold Port"

;templocation4
if %pyramid>0 && $templocation1!="Pyramid" && $templocation2!="Pyramid" && $templocation3!="Pyramid" mov %hanyo1,%hanyo1+1:mov $templocation4,"Pyramid":skip 5
if %portnatalia>1 && $templocation1!="Natalia" && $templocation2!="Natalia" && $templocation3!="Natalia" mov %hanyo1,%hanyo1+1:mov $templocation4,"Natalia":skip 4
if %undinesspring>0 && $templocation1!="Spring" && $templocation2!="Spring" && $templocation3!="Spring" mov %hanyo1,%hanyo1+1:mov $templocation4,"Spring":skip 3
if %svillage>0 && $templocation1!="SVillage" && $templocation2!="SVillage" && $templocation3!="SVillage" mov %hanyo1,%hanyo1+1:mov $templocation4,"SVillage":skip 2
if %goldport>0 && $templocation1!="Gold Port" && $templocation2!="Gold Port" && $templocation3!="Gold Port" mov %hanyo1,%hanyo1+1:mov $templocation4,"Gold Port"

;templocation5
if %pyramid>0 && $templocation1!="Pyramid" && $templocation2!="Pyramid" && $templocation3!="Pyramid" && $templocation4!="Pyramid" mov %hanyo1,%hanyo1+1:mov $templocation5,"Pyramid":skip 5
if %portnatalia>1 && $templocation1!="Natalia" && $templocation2!="Natalia" && $templocation3!="Natalia" && $templocation4!="Natalia" mov %hanyo1,%hanyo1+1:mov $templocation5,"Natalia":skip 4
if %undinesspring>0 && $templocation1!="Spring" && $templocation2!="Spring" && $templocation3!="Spring" && $templocation4!="Spring" mov %hanyo1,%hanyo1+1:mov $templocation5,"Spring":skip 3
if %svillage>0 && $templocation1!="SVillage" && $templocation2!="SVillage" && $templocation3!="SVillage" && $templocation4!="SVillage" mov %hanyo1,%hanyo1+1:mov $templocation5,"SVillage":skip 2
if %goldport>0 && $templocation1!="Gold Port" && $templocation2!="Gold Port" && $templocation3!="Gold Port" && $templocation4!="Gold Port" mov %hanyo1,%hanyo1+1:mov $templocation5,"Gold Port"

if %hanyo1<1 return

rnd2 %ransu,1,%hanyo1
if %ransu=1 mov $Eventlocation,$templocation1:return
if %ransu=2 mov $Eventlocation,$templocation2:return
if %ransu=3 mov $Eventlocation,$templocation3:return
if %ransu=4 mov $Eventlocation,$templocation4:return
if %ransu=5 mov $Eventlocation,$templocation5:return
return