diff --git a/P3D/Content/Data/Scripts/frontier/shops/juice/calc.dat b/P3D/Content/Data/Scripts/frontier/shops/juice/calc.dat new file mode 100644 index 000000000..1fd89a0c7 --- /dev/null +++ b/P3D/Content/Data/Scripts/frontier/shops/juice/calc.dat @@ -0,0 +1,44 @@ +version=2 +:if:)>=)> + @storage.set(string,drink,)>) + @storage.set(integer,value,()>+)>)*4) + :if:= + @storage.set(integer,value,)>*4) + :endif +:else + @storage.set(string,drink,shake) + @storage.set(integer,value,()>+)>)*6) + + :select: + :when:2057 + :if:=2058 + @storage.set(string,drink,soda) + @storage.set(integer,value,) + :endif + :when:2058 + :if:=2057 + @storage.set(string,drink,soda) + @storage.set(integer,value,) + :endif + :when:2059 + :if:=2064 + @storage.set(string,drink,soda) + @storage.set(integer,value,) + :endif + :when:2064 + :if:=2059 + @storage.set(string,drink,soda) + @storage.set(integer,value,) + :endif + :when:2065 + :if:=2066 + @storage.set(string,drink,soup) + @storage.set(integer,value,0) + :endif + :when:2066 + :if:=2065 + @storage.set(string,drink,soup) + @storage.set(integer,value,0) + :endif + :endwhen +:endif \ No newline at end of file diff --git a/P3D/Content/Data/Scripts/frontier/shops/juice/custom.dat b/P3D/Content/Data/Scripts/frontier/shops/juice/custom.dat new file mode 100644 index 000000000..5db2d5eb7 --- /dev/null +++ b/P3D/Content/Data/Scripts/frontier/shops/juice/custom.dat @@ -0,0 +1,40 @@ +version=2 +@text.show(Welcome to the Juice Shoppe!*I can help you make your own custom drinks free of charge!*All you have to do is provide the berries!*Would you like to begin?) +@Options.show(Yes,No) + :when:No + @text.show(Come again soon!) + :end +:endwhen + +@text.show(Please select your first berry.) +@item.select(plants,2000-2066) +:if:=-1 + @text.show(Come again soon!) + :end +:endif +@storage.set(integer,berry1,) + +@text.show(Please select your second berry.) +@item.select(plants,2000-2066) +:if:=-1 + @text.show(Come again soon!) + :end +:endif +@storage.set(integer,berry2,) + +@storage.set(string,drink,fail) +@storage.set(integer,value,-1) + +@script.start(frontier\shops\juice\calc) + +@text.show(Which Pokemon is this drink for?) +@pokemon.select +:if:=-1 + @text.show(Come again soon!) + :end +:endif + +@script.start(frontier\shops\juice\give) + +@text.show(Come again soon!) +:end \ No newline at end of file diff --git a/P3D/Content/Data/Scripts/frontier/shops/juice/daily.dat b/P3D/Content/Data/Scripts/frontier/shops/juice/daily.dat new file mode 100644 index 000000000..66a170884 --- /dev/null +++ b/P3D/Content/Data/Scripts/frontier/shops/juice/daily.dat @@ -0,0 +1,118 @@ +version=2 +:if:=false + @register.registertime(dailyjuicecalc,1,day) + @storage.set(integer,juicecount,0) + :while:6> + @register.unregister(juicetype,str) + @register.unregister(juiceval,int) + @register.unregister(juicedesc,int) + @register.unregister(solddailyjuice) + + @storage.set(integer,berry1,) + @storage.set(integer,berry2,) + @storage.set(string,drink,fail) + @storage.set(integer,value,-1) + @script.start(frontier\shops\juice\calc) + + @register.register(juicetype,str,) + @register.register(juiceval,int,) + + :select: + :when:fail + @text.show(something went wrong please try again later) + :endscript + :when:purple + @register.register(juicedesc,str,Purple Juice /4 BP) + @register.register(juicecost,int,/4) + :when:red + @register.register(juicedesc,str,Red Juice /4 BP) + @register.register(juicecost,int,/4) + :when:yellow + @register.register(juicedesc,str,Yellow Juice /4 BP) + @register.register(juicecost,int,/4) + :when:blue + @register.register(juicedesc,str,Blue Juice /4 BP) + @register.register(juicecost,int,/4) + :when:green + @register.register(juicedesc,str,Green Juice /4 BP) + @register.register(juicecost,int,/4) + :when:pink + @register.register(juicedesc,str,Pink Juice /4 BP) + @register.register(juicecost,int,/4) + :when:shake + @register.register(juicedesc,str,Colorful Shake /6 BP) + @register.register(juicecost,int,/6) + :when:soda + :select: + :when:1;2;3 + @register.register(juicedesc,str,Rare Soda 10* BP) + @register.register(juicecost,int,(1+)*10) + :when:4;5 + @register.register(juicedesc,str,Ultra Rare Soda 10* BP) + @register.register(juicecost,int,(1+)*10) + :endwhen + :when:soup + @register.register(juicedesc,str,Perilous Soup 20 BP) + @register.register(juicecost,int,20) + :endwhen + + @storage.set(integer,juicecount,+1) + :endwhile +:endif + +@storage.set(string,drink,fail) +@storage.set(integer,value,-1) + +@storage.set(integer,juicecount,0) +@storage.set(string,juiceselect,) +:while:6> + :if:)>=false + @storage.set(string,juiceselect,)>,) + :endif + @storage.set(integer,juicecount,+1) +:endwhile +@storage.set(string,juiceselect,Exit) + +@text.show(Welcome to the Juice Shoppe!*Please take a look at our daily specials!) +@options.show() + :when:Exit + @text.show(Come again soon!) + :endscript + :when: + @storage.set(string,drink,) + @storage.set(integer,value,) + @storage.set(integer,select,0) + :when: + @storage.set(string,drink,) + @storage.set(integer,value,) + @storage.set(integer,select,1) + :when: + @storage.set(string,drink,) + @storage.set(integer,value,) + @storage.set(integer,select,2) + :when: + @storage.set(string,drink,) + @storage.set(integer,value,) + @storage.set(integer,select,3) + :when: + @storage.set(string,drink,) + @storage.set(integer,value,) + @storage.set(integer,select,4) + :when: + @storage.set(string,drink,) + @storage.set(integer,value,) + @storage.set(integer,select,5) +:endwhen + +@text.show(Which Pokemon is this drink for?) +@pokemon.select +:if:=-1 + @text.show(Come again soon!) + :end +:endif + +@script.start(frontier\shops\juice\give) +@player.addbp(-) +@register.register(solddailyjuice) + +:end diff --git a/P3D/Content/Data/Scripts/frontier/shops/juice/give.dat b/P3D/Content/Data/Scripts/frontier/shops/juice/give.dat new file mode 100644 index 000000000..bda35643f --- /dev/null +++ b/P3D/Content/Data/Scripts/frontier/shops/juice/give.dat @@ -0,0 +1,95 @@ +version=2 +:select: + :when:fail + @text.show(something went wrong please try again later) + :endscript + :when:purple + @text.show(Give this Purple Juice to your )>?) + @Options.show(Yes,No) + :when:No + @text.show(Come again soon!) + :endscript + :endwhen + @pokemon.addfriendship(,4) + @pokemon.addev(,hp,) + @pokemon.calcstats() + :when:red + @text.show(Give this Red Juice to your )>?) + @Options.show(Yes,No) + :when:No + @text.show(Come again soon!) + :endscript + :endwhen + @pokemon.addfriendship(,4) + @pokemon.addev(,atk,) + @pokemon.calcstats() + :when:yellow + @text.show(Give this Yellow Juice to your )>?) + @Options.show(Yes,No) + :when:No + @text.show(Come again soon!) + :endscript + :endwhen + @pokemon.addfriendship(,4) + @pokemon.addev(,def,) + @pokemon.calcstats() + :when:blue + @text.show(Give this Blue Juice to your )>?) + @Options.show(Yes,No) + :when:No + @text.show(Come again soon!) + :endscript + :endwhen + @pokemon.addfriendship(,4) + @pokemon.addev(,spatk,) + @pokemon.calcstats() + :when:green + @text.show(Give this Green Juice to your )>?) + @Options.show(Yes,No) + :when:No + @text.show(Come again soon!) + :endscript + :endwhen + @pokemon.addfriendship(,4) + @pokemon.addev(,spdef,) + @pokemon.calcstats() + :when:pink + @text.show(Give this Pink Juice to your )>?) + @Options.show(Yes,No) + :when:No + @text.show(Come again soon!) + :endscript + :endwhen + @pokemon.addfriendship(,4) + @pokemon.addev(,speed,) + @pokemon.calcstats() + :when:shake + @text.show(Give this Colorful Shake to your )>?) + @Options.show(Yes,No) + :when:No + @text.show(Come again soon!) + :endscript + :endwhen + @pokemon.addfriendship(,) + :when:soda + :select: + :when:1;2;3 + @text.show(Give this Rare Soda to your )>?) + :when:4;5 + @text.show(Give this Ultra Rare Soda to your )>?) + :endwhen + @Options.show(Yes,No) + :when:No + @text.show(Come again soon!) + :endscript + :endwhen + @pokemon.addlevel(,) + :when:soup + @text.show(Give this Perilous Soup to your )>?) + @Options.show(Yes,No) + :when:No + @text.show(Come again soon!) + :endscript + :endwhen + @pokemon.setallevs(,0,0,0,0,0,0) +:endwhen \ No newline at end of file diff --git a/P3D/P3D.vbproj b/P3D/P3D.vbproj index 3fe5bebc7..6fb07c337 100644 --- a/P3D/P3D.vbproj +++ b/P3D/P3D.vbproj @@ -29309,6 +29309,18 @@ PreserveNewest + + PreserveNewest + + + PreserveNewest + + + PreserveNewest + + + PreserveNewest + PreserveNewest