Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Scriptname CookingScript extends ObjectReference
- Import FISSFactory
- int Property isSoup Auto
- Function Cleaner()
- Cleaner = 0
- while Cleaner<=128 ;; This WHILE cleans the arrays of crap before we begin putting stuff in them.
- sOptions[Cleaner] = " "
- sSelect[Cleaner] = BlankForm
- Cleaner += 1
- endwhile
- EndFunction
- Int Property Cleaner Auto
- Int Property Count Auto
- Int Property Index Auto
- Int Property Player Auto
- Form Property BlankForm Auto
- Form Property BlankForm_2 Auto
- String[] sOptions
- Form[] sSelect
- String[] sMenu
- Form[] rRemoved
- String[] sCraft
- FormList Property FirstTierSoup Auto
- FormList Property SecondTierSoup Auto
- Int Property SSize Auto
- FormList Property ThirdTierSoup Auto
- Int Property TSize Auto
- Int Property FName Auto
- FormList Property FourthTierSoup Auto
- Int Property FSize Auto
- Int Property SName Auto
- FormList Property FirstTierMisc Auto
- Int Property FMSize Auto
- FormList Property SecondTierMisc Auto
- Int Property SMSize Auto
- FormList Property ThirdTierMisc Auto
- Int Property TMSize Auto
- FormList Property CookingFurn Auto
- FormList Property FirstTierMeat Auto
- Int Property FMMeat Auto
- FormList Property SecondTierMeat Auto
- Int Property SMMeat Auto
- FormList Property LiquidFormList Auto
- Int Property LLiquid Auto
- FormList Property EmptyBottles Auto
- Potion Property SoupTemplate Auto
- Potion Property StewTemplate Auto
- Potion Property MeatTemplate Auto
- Potion Property LiquidTemplate Auto
- Potion Property LiquidAleTemplate Auto
- Potion Property BreadTemplate Auto
- Potion Property DumplingTemplate Auto
- Potion Property SweetRollTemplate Auto
- Potion Property PieTemplate Auto
- Potion Property WaterPot Auto
- Potion Property Yeast Auto
- Potion Property FoodSalmon Auto
- Potion Property FoodLeeksGrilled Auto
- Potion Property FoodPotatoesBaked Auto
- Int Property Water Auto
- Int Property FirstTier Auto
- Int Property SecondTier Auto
- Int Property ThirdTier Auto
- GlobalVariable Property ActivatedOnce Auto
- Actor Property PlayerRef Auto
- Event OnActivate(ObjectReference akActionRef)
- if ActivatedOnce.GetValueInt()%2 == 0
- Index = 0
- while sCraft[Index] == sCraft[0]
- sOptions = new String[128]
- sSelect = new Form[128]
- sMenu = new String[128]
- rRemoved = new Form[128]
- sCraft = new String[2]
- sCraft[0] = "Yes"
- sCraft[1] = "No"
- sMenu[0] = "Soup/Stew"
- sMenu[1] = "Meats"
- sMenu[2] = "Ale/Juice/Mead"
- sMenu[3] = "Misc/Other"
- Player = ((Self as Form) as UILIB_1).ShowList("What food do you want to make?", sMenu, 0, 128)
- if sMenu[2] == sMenu[Index]
- Cleaner()
- FirstTier = 0
- SecondTier = 0
- int AllGood = 0
- if PlayerRef.GetItemCount(Yeast)>=1
- sOptions[1] = "Yeast"
- sSelect[1] = Yeast
- AllGood = 1
- endif
- if PlayerRef.GetItemCount(WaterPot)>=1
- sOptions[0] = "Water"
- sSelect[0] = WaterPot
- AllGood = 1
- endif
- if AllGood == 1
- Player = ((Self as Form) as UILIB_1).ShowList("First Tier Ingredient", sOptions, 0, 128)
- PlayerRef.RemoveItem(sSelect[Index])
- rRemoved[0] = sSelect[Index]
- endif
- while sSelect[Index] == BlankForm && AllGood == 1 ; This makes sure the user does not select a blank form that was cleaned with the Cleaner() function
- Player = ((Self as Form) as UILIB_1).ShowList("First Tier Ingredient", sOptions, 0, 128)
- PlayerRef.RemoveItem(sSelect[Index])
- rRemoved[0] = sSelect[Index]
- endWhile
- Cleaner()
- Potion AleClone = KMXPotionUtil.TempClonePotion(LiquidAleTemplate)
- Potion Juice = KMXPotionUtil.TempClonePotion(LiquidTemplate)
- Count = 0
- LLiquid = 0
- while LLiquid < LiquidFormList.GetSize()
- if PlayerRef.GetItemCount(LiquidFormList.GetAt(LLiquid))>=1
- sOptions[Count] = LiquidFormList.GetAt(LLiquid).GetName() + " (" + PlayerRef.GetItemCount(LiquidFormList.GetAt(LLiquid)) + ")"
- sSelect[Count] = LiquidFormList.GetAt(LLiquid)
- Count += 1
- endif
- LLiquid += 1
- endWhile
- if Count>=1 && AllGood == 1
- Player = ((Self as Form) as UILIB_1).ShowList("Second Tier Ingredient", sOptions, 0, 128)
- PlayerRef.RemoveItem(sSelect[Index])
- rRemoved[1] = sSelect[Index]
- endif
- while sSelect[Index] == BlankForm && Count>=1 && AllGood == 1 ; This makes sure the user does not select a blank form that was cleaned with the Cleaner() function
- Player = ((Self as Form) as UILIB_1).ShowList("Second Tier Ingredient", sOptions, 0, 128)
- PlayerRef.RemoveItem(sSelect[Index])
- rRemoved[1] = sSelect[Index]
- endWhile
- Cleaner()
- if Count == 0
- PlayerRef.AddItem(rRemoved[0])
- PlayerRef.AddItem(rRemoved[1])
- Debug.Notification("I don't have enough ingredients to make this item.")
- endif
- if Count >= 1
- if rRemoved[0] == WaterPot && (rRemoved[1] != LiquidFormList.GetAt(4) && rRemoved[1] != LiquidFormList.GetAt(3))
- Juice.SetName(rRemoved[1].GetName() + " Juice")
- PlayerRef.AddItem(Juice)
- endif
- if rRemoved[0] == Yeast && rRemoved[1] == LiquidFormList.GetAt(3)
- AleClone.SetName(rRemoved[1].GetName() + " Mead")
- PlayerRef.AddItem(AleClone)
- endif
- if rRemoved[0] == Yeast && rRemoved[1] != LiquidFormList.GetAt(3)
- AleClone.SetName(rRemoved[1].GetName() + " Ale")
- PlayerRef.AddItem(AleClone)
- endif
- endif
- Index = 2
- rRemoved[0] = BlankForm
- rRemoved[1] = BlankForm
- endif
- if sMenu[1] == sMenu[Index]
- Cleaner()
- FirstTier = 0
- SecondTier = 0
- Count = 0
- FMMeat = 0
- while FMMeat<FirstTierMeat.GetSize()
- if PlayerRef.GetItemCount(FirstTierMeat.GetAt(FMMeat))>=1
- sOptions[Count] = FirstTierMeat.GetAt(FMMeat).GetName() + " (" + PlayerRef.GetItemCount(FirstTierMeat.GetAt(FMMeat)) + ")"
- sSelect[Count] = FirstTierMeat.GetAt(FMMeat)
- Count += 1
- endif
- FMMeat += 1
- endWhile
- if Count>=1
- Player = ((Self as Form) as UILIB_1).ShowList("First Tier Ingredient", sOptions, 0, 128)
- FirstTier = 1
- rRemoved[0] = sSelect[Index]
- PlayerRef.RemoveItem(sSelect[Index])
- endif
- while sSelect[Index] == BlankForm && FirstTier == 1 ; This makes sure the user does not select a blank form that was cleaned with the Cleaner() function
- Player = ((Self as Form) as UILIB_1).ShowList("First Tier Ingredient", sOptions, 0, 128)
- FirstTier = 1
- PlayerRef.RemoveItem(sSelect[Index])
- rRemoved[0] = sSelect[Index]
- endWhile
- Cleaner()
- Count = 0
- SMMeat = 0
- while SMMeat<SecondTierMeat.GetSize()
- if PlayerRef.GetItemCount(SecondTierMeat.GetAt(SMMeat))>=1
- sOptions[Count] = SecondTierMeat.GetAt(SMMeat).GetName() + " (" + PlayerRef.GetItemCount(SecondTierMeat.GetAt(SMMeat)) + ")"
- sSelect[Count] = SecondTierMeat.GetAt(SMMeat)
- Count+=1
- endif
- SMMeat += 1
- endWhile
- if Count>=1
- Player = ((Self as Form) as UILIB_1).ShowList("Second Tier Ingredient", sOptions, 0, 128)
- SecondTier = 1
- rRemoved[1] = sSelect[Index]
- PlayerRef.RemoveItem(sSelect[Index])
- endif
- while sSelect[Index] == BlankForm && SecondTier == 1 ; This makes sure the user does not select a blank form that was cleaned with the Cleaner() function
- Player = ((Self as Form) as UILIB_1).ShowList("Second Tier Ingredient", sOptions, 0, 128)
- SecondTier = 1
- PlayerRef.RemoveItem(sSelect[Index])
- rRemoved[1] = sSelect[Index]
- endWhile
- Cleaner()
- Potion MeatClone = KMXPotionUtil.TempClonePotion(MeatTemplate)
- if SecondTier == 0
- PlayerRef.AddItem(rRemoved[0])
- PlayerRef.AddItem(rRemoved[1])
- Debug.Notification("I don't have enough ingredients to cook this meat.")
- endif
- float WeightAdder = 0
- if rRemoved[1]!=FirstTierMeat.GetAt(6) && SecondTier == 1
- MeatClone.SetName(rRemoved[1].GetName() + "ed " + rRemoved[0].GetName())
- while WeightAdder <= rRemoved[0].GetWeight()
- PlayerRef.AddItem(MeatClone)
- WeightAdder += 0.4
- endwhile
- elseif rRemoved[1]==FirstTierMeat.GetAt(6)
- PlayerRef.AddItem(FoodSalmon)
- endif
- rRemoved[0] = BlankForm
- rRemoved[1] = BlankForm
- Index = 1
- endif
- if sMenu[3] == sMenu[Index]
- Cleaner()
- FirstTier = 0
- SecondTier = 0
- ThirdTier = 0
- Count = 0
- FMSize = 0
- while FMSize<FirstTierMisc.GetSize()
- if PlayerRef.GetItemCount(FirstTierMisc.GetAt(FMSize))>=1
- sOptions[Count] = FirstTierMisc.GetAt(FMSize).GetName() + " (" + PlayerRef.GetItemCount(FirstTierMisc.GetAt(FMSize)) + ")"
- sSelect[Count] = FirstTierMisc.GetAt(FMSize)
- Count+=1
- endif
- FMSize += 1
- endWhile
- if Count>=1
- Player = ((Self as Form) as UILIB_1).ShowList("First Tier Ingredient", sOptions, 0, 128)
- FirstTier = 1
- rRemoved[0] = sSelect[Index]
- PlayerRef.RemoveItem(sSelect[Index])
- endif
- while sSelect[Index] == BlankForm && FirstTier == 1 ; This makes sure the user does not select a blank form that was cleaned with the Cleaner() function
- Player = ((Self as Form) as UILIB_1).ShowList("First Tier Ingredient", sOptions, 0, 128)
- FirstTier = 1
- PlayerRef.RemoveItem(sSelect[Index])
- rRemoved[0] = sSelect[Index]
- endWhile
- Cleaner()
- Count = 0
- SMSize = 0
- while SMSize<SecondTierMisc.GetSize()
- if PlayerRef.GetItemCount(SecondTierMisc.GetAt(SMSize))>=1
- sOptions[Count] = SecondTierMisc.GetAt(SMSize).GetName() + " (" + PlayerRef.GetItemCount(SecondTierMisc.GetAt(SMSize)) + ")"
- sSelect[Count] = SecondTierMisc.GetAt(SMSize)
- Count+=1
- endif
- SMSize += 1
- endWhile
- if Count>=1 && FirstTier == 1
- Player = ((Self as Form) as UILIB_1).ShowList("Second Tier Ingredient", sOptions, 0, 128)
- SecondTier = 1
- rRemoved[1] = sSelect[Index]
- PlayerRef.RemoveItem(sSelect[Index])
- endif
- while sSelect[Index] == BlankForm && SecondTier == 1 ; This makes sure the user does not select a blank form that was cleaned with the Cleaner() function
- Player = ((Self as Form) as UILIB_1).ShowList("Second Tier Ingredient", sOptions, 0, 128)
- SecondTier = 1
- PlayerRef.RemoveItem(sSelect[Index])
- rRemoved[1] = sSelect[Index]
- endWhile
- Cleaner()
- Count = 0
- TMSize = 0
- while TMSize<ThirdTierMisc.GetSize()
- if PlayerRef.GetItemCount(ThirdTierMisc.GetAt(TMSize))>=1
- sOptions[Count] = ThirdTierMisc.GetAt(TMSize).GetName() + " (" + PlayerRef.GetItemCount(ThirdTierMisc.GetAt(TMSize)) + ")"
- sSelect[Count] = ThirdTierMisc.GetAt(TMSize)
- Count+=1
- endif
- TMSize += 1
- endWhile
- if Count>=1
- Player = ((Self as Form) as UILIB_1).ShowList("Third Tier Ingredient", sOptions, 0, 128)
- ThirdTier = 1
- rRemoved[2] = sSelect[Index]
- PlayerRef.RemoveItem(sSelect[Index])
- endif
- while sSelect[Index] == BlankForm && ThirdTier == 1 ; This makes sure the user does not select a blank form that was cleaned with the Cleaner() function
- Player = ((Self as Form) as UILIB_1).ShowList("Third Tier Ingredient", sOptions, 0, 128)
- ThirdTier = 1
- PlayerRef.RemoveItem(sSelect[Index])
- rRemoved[2] = sSelect[Index]
- endWhile
- Cleaner()
- if rRemoved[0] == FirstTierMisc.GetAt(1) && rRemoved[1] == SecondTierMisc.GetAt(44) && rRemoved[2] == ThirdTierMisc.GetAt(4)
- PlayerRef.AddItem(SweetRollTemplate)
- endif
- if rRemoved[0] == FirstTierMisc.GetAt(1)
- if rRemoved[1] != SecondTierMisc.GetAt(1) && rRemoved[1] != SecondTierMisc.GetAt(21) && rRemoved[1] != SecondTierMisc.GetAt(44)
- if rRemoved[2] == ThirdTierMisc.GetAt(0)
- Potion PieClone = KMXPotionUtil.TempClonePotion(PieTemplate)
- PieClone.SetName(rRemoved[1].GetName() + " Pie")
- PlayerRef.AddItem(PieClone)
- endif
- endif
- endif
- if rRemoved[0] == FirstTierMisc.GetAt(0) && rRemoved[1] == SecondTierMisc.GetAt(0) && rRemoved[2] == ThirdTierMisc.GetAt(0)
- PlayerRef.AddItem(Yeast)
- elseif rRemoved[0] == FirstTierMisc.GetAt(1)
- if rRemoved[1]!=SecondTierMisc.GetAt(1) && rRemoved[1]!=SecondTierMisc.GetAt(21) && rRemoved[1]!=SecondTierMisc.GetAt(44)
- if rRemoved[2] == ThirdTierMisc.GetAt(3) || rRemoved[2] == ThirdTierMisc.GetAt(4)
- Potion DumplingClone = KMXPotionUtil.TempClonePotion(DumplingTemplate)
- DumplingClone.SetName(rRemoved[1].GetName() + " Dumpling")
- PlayerRef.AddItem(DumplingClone)
- endif
- endif
- elseif rRemoved[0] == FirstTierMisc.GetAt(1) && rRemoved[2] == ThirdTierMisc.GetAt(1)
- Potion BreadClone = KMXPotionUtil.TempClonePotion(BreadTemplate)
- BreadClone.SetName(rRemoved[1].GetName() + " Bread")
- PlayerRef.AddItem(BreadClone)
- elseif rRemoved[0] == FirstTierMisc.GetAt(2) && rRemoved[1] == SecondTierMisc.GetAt(1) && rRemoved[2] == ThirdTierMisc.GetAt(2)
- PlayerRef.AddItem(FoodLeeksGrilled)
- elseif rRemoved[0] == FirstTierMisc.GetAt(3) && rRemoved[1] == SecondTierMisc.GetAt(21) && rRemoved[2] == ThirdTierMisc.GetAt(3)
- PlayerRef.AddItem(FoodPotatoesBaked)
- endif
- if SecondTier == 0 ; Checks if you somehow are out of ingredients and resets your ingredients back from where you started
- PlayerRef.AddItem(rRemoved[0])
- Debug.Notification("I'm missing some ingredients needed to make a Misc/Other.")
- endif
- if ThirdTier == 0 ; Checks if you somehow are out of ingredients and resets your ingredients back from where you started
- PlayerRef.AddItem(rRemoved[1])
- PlayerRef.AddItem(rRemoved[2])
- Debug.Notification("I'm missing some ingredients needed to make a Misc/Other.")
- endif
- rRemoved[0] = BlankForm
- rRemoved[1] = BlankForm
- rRemoved[2] = BlankForm
- Index = 3
- endif
- if sMenu[0] == sMenu[Index] ; This starts the Soup/Stew fragment.
- rRemoved[3] = BlankForm
- FirstTier = 0
- SecondTier = 0
- ThirdTier = 0
- isSoup = 0
- Cleaner() ; This function cleans our arrays.
- if PlayerRef.GetItemCount(FirstTierSoup.GetAt(0))==0 ; Here we check if we have water in our inventory or not, water is needed to cook stew/soup.
- Water = 0
- else
- sSelect[0] = FirstTierSoup.GetAt(0)
- PlayerRef.RemoveItem(FirstTierSoup.GetAt(0))
- Water = 1
- endif
- if Water == 0
- Debug.Notification("I don't have any water to cook a Soup or Stew with.")
- endif
- Count = 0
- sSize = 0
- while sSize<SecondTierSoup.GetSize() ; Looks into the SecondTierSoup FormList and adds them to the list
- if PlayerRef.GetItemCount(SecondTierSoup.GetAt(sSize))>=1
- sOptions[Count] = SecondTierSoup.GetAt(sSize).GetName() + " (" + PlayerRef.GetItemCount(SecondTierSoup.GetAt(sSize)) + ")"
- sSelect[Count] = SecondTierSoup.GetAt(sSize)
- Count += 1
- endif
- sSize += 1
- endwhile
- if Count>=1 && Water == 1 ; If we have more than 1 ingredient, and we have water, show list.
- Player = ((Self as Form) as UILIB_1).ShowList("First Tier Ingredient", sOptions, 0, 128)
- FirstTier = 1
- PlayerRef.RemoveItem(sSelect[Index])
- rRemoved[0] = sSelect[Index]
- else
- Water = 0
- endif
- while sSelect[Index] == BlankForm && Count!=0 && Water == 1 ; This makes sure the user does not select a blank form that was cleaned with the Cleaner() function
- Player = ((Self as Form) as UILIB_1).ShowList("First Tier Ingredient", sOptions, 0, 128)
- FirstTier = 1
- PlayerRef.RemoveItem(sSelect[Index])
- rRemoved[0] = sSelect[Index]
- endWhile
- Cleaner() ; This function cleans our arrays.
- Count = 0
- tSize = 0
- while tSize<ThirdTierSoup.GetSize() ; Looks into the ThirdTierSoup FormList and adds them to the list
- if PlayerRef.GetItemCount(ThirdTierSoup.GetAt(tSize))>=1
- sOptions[Count] = ThirdTierSoup.GetAt(tSize).GetName() + " (" + PlayerRef.GetItemCount(ThirdTierSoup.GetAt(tSize)) + ")"
- sSelect[Count] = ThirdTierSoup.GetAt(tSize)
- Count += 1
- endif
- tSize += 1
- endwhile
- if Count>=1 && FirstTier == 1 ; If we have more than 1 ingredient, and we have water, show list.
- Player = ((Self as Form) as UILIB_1).ShowList("Second Tier Ingredient", sOptions, 0, 128)
- SecondTier = 1
- PlayerRef.RemoveItem(sSelect[Index])
- rRemoved[1] = sSelect[Index]
- else
- FirstTier = 0
- endif
- while sSelect[Index] == BlankForm && Count!=0 && FirstTier == 1 ; This makes sure the user does not select a blank form that was cleaned with the Cleaner() function
- Player = ((Self as Form) as UILIB_1).ShowList("Second Tier Ingredient", sOptions, 0, 128)
- SecondTier = 1
- PlayerRef.RemoveItem(sSelect[Index])
- rRemoved[1] = sSelect[Index]
- endWhile
- if sSelect[Index] == ThirdTierSoup.GetAt(35) || sSelect[Index] == ThirdTierSoup.GetAt(36) || sSelect[Index] == ThirdTierSoup.GetAt(37) || sSelect[Index] == ThirdTierSoup.GetAt(38) || sSelect[Index] == ThirdTierSoup.GetAt(39) || sSelect[Index] == ThirdTierSoup.GetAt(40) || sSelect[Index] == ThirdTierSoup.GetAt(41) || sSelect[Index] == ThirdTierSoup.GetAt(42)
- isSoup = 1
- endif
- Potion Clone = KMXPotionUtil.TempClonePotion(StewTemplate)
- Potion Clone2 = KMXPotionUtil.TempClonePotion(SoupTemplate)
- if SecondTier==1
- Clone.SetName(sSelect[Index].GetName())
- rRemoved[3] = sSelect[Index]
- endif
- Cleaner() ; This function cleans our arrays.
- Count = 0
- fSize = 0
- while fSize<FourthTierSoup.GetSize() ; Looks into the FourthTier FormList and adds them to the list
- if PlayerRef.GetItemCount(FourthTierSoup.GetAt(fSize))>=1
- sOptions[Count] = FourthTierSoup.GetAt(fSize).GetName() + " (" + PlayerRef.GetItemCount(FourthTierSoup.GetAt(fSize)) + ")"
- sSelect[Count] = FourthTierSoup.GetAt(fSize)
- Count += 1
- endif
- fSize += 1
- endwhile
- if Count>=1 && SecondTier == 1 ; If we have more than 1 ingredient, and we have water, show list.
- Player = ((Self as Form) as UILIB_1).ShowList("Third Tier Ingredient", sOptions, 0, 128)
- ThirdTier = 1
- PlayerRef.RemoveItem(sSelect[Index])
- rRemoved[2] = sSelect[Index]
- else
- SecondTier = 0
- endif
- while sSelect[Index] == BlankForm && Count!=0 && SecondTier == 1 ; This makes sure the user does not select a blank form that was cleaned with the Cleaner() function
- Player = ((Self as Form) as UILIB_1).ShowList("Third Tier Ingredient", sOptions, 0, 128)
- ThirdTier = 1
- PlayerRef.RemoveItem(sSelect[Index])
- rRemoved[2] = sSelect[Index]
- endWhile
- if SecondTier == 0 ; Checks if you somehow are out of ingredients and resets your ingredients back from where you started
- PlayerRef.AddItem(rRemoved[0])
- Debug.Notification("I'm missing some ingredients needed to make a Soup or a Stew.")
- endif
- if ThirdTier == 0 ; Checks if you somehow are out of ingredients and resets your ingredients back from where you started
- PlayerRef.AddItem(rRemoved[1])
- PlayerRef.AddItem(rRemoved[2])
- Debug.Notification("I'm missing some ingredients needed to make a Soup or a Stew.")
- endif
- if ThirdTier==1 ; This is where we name our shit, stay classy.
- if rRemoved[3] == sSelect[Index] && isSoup == 0
- Clone.SetName(sSelect[Index].GetName() + " Stew")
- elseif rRemoved[3] != sSelect[Index] && isSoup == 0
- Clone.SetName(sSelect[Index].GetName() + " " + Clone.GetName() + " Stew")
- endif
- if rRemoved[3] == sSelect[Index] && isSoup == 1
- Clone.SetName(sSelect[Index].GetName() + " Soup")
- elseif rRemoved[3] != sSelect[Index] && isSoup == 1
- Clone.SetName(sSelect[Index].GetName() + " " + Clone.GetName() + " Stew")
- endif
- if IsSoup==0
- PlayerRef.AddItem(Clone,1)
- else
- Clone2.SetName(Clone.GetName())
- PlayerRef.AddItem(Clone2,1)
- endif
- Clone.SetGoldValue(rRemoved[3].GetGoldValue() + sSelect[Index].GetGoldValue())
- Clone2.SetGoldValue(rRemoved[3].GetGoldValue() + sSelect[Index].GetGoldValue())
- endif
- Cleaner() ; This function cleans our arrays.
- rRemoved[0] = BlankForm
- rRemoved[1] = BlankForm
- rRemoved[2] = BlankForm
- endif
- Player = ((Self as Form) as UILIB_1).ShowList("Keep cooking?", sCraft, 0, 128)
- endWhile
- endif
- ActivatedOnce.SetValueInt(ActivatedOnce.GetValueInt() + 1)
- EndEvent
- Event OnListMenuClose(String asEventName, String asStringArg, Float afIndex, Form akSender)
- UILIB_1.ListMenu_Release(PlayerRef)
- Index = afIndex as int
- EndEvent
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement