All pastes #926436 Raw Edit

Unbenannt

public text v1 · immutable
·published 2008-03-03 18:31 UTC
rendered paste body
function SetupReciepe takes integer iFirstItemType,integer iSecondItemType,integer iThirdItemType,integer iFourthItemType,integer iResultItemType returns nothing
	set udg_Rezept_Item1[udg_Rezept_anzahl]=iFirstItemType
	set udg_Rezept_Item2[udg_Rezept_anzahl]=iSecondItemType
	set udg_Rezept_Item3[udg_Rezept_anzahl]=iThirdItemType
	set udg_Rezept_Item4[udg_Rezept_anzahl]=iFourthItemType
	set udg_Rezept_Item5[udg_Rezept_anzahl]=iResultItemType
	set udg_Rezept_lange[udg_Rezept_anzahl]=4
	if(iFirstItemType ==0)then
		set udg_Rezept_lange[udg_Rezept_anzahl]=udg_Rezept_lange[udg_Rezept_anzahl]-1
	endif
	if(iSecondItemType==0)then
		set udg_Rezept_lange[udg_Rezept_anzahl]=udg_Rezept_lange[udg_Rezept_anzahl]-1
	endif
	if(iThirdItemType ==0)then
		set udg_Rezept_lange[udg_Rezept_anzahl]=udg_Rezept_lange[udg_Rezept_anzahl]-1
	endif
	if(iFourthItemType==0)then
		set udg_Rezept_lange[udg_Rezept_anzahl]=udg_Rezept_lange[udg_Rezept_anzahl]-1
	endif
	set udg_Rezept_anzahl=udg_Rezept_anzahl+1
	set udg_Rezept_menge=udg_Rezept_anzahl
endfunction

function Trig_Rezepte_Actions takes nothing returns nothing
	set udg_Rezept_anzahl=1
	call SetupReciepe('I02I','I02K','I02E',     0,'I02H') //Recipe
                         //part1, part2, part3, part3, item
endfunction

function InitTrig_Rezepte takes nothing returns nothing
	set gg_trg_Rezepte=CreateTrigger()
	call TriggerRegisterTimerEventSingle(gg_trg_Rezepte,.01)
	call TriggerAddAction(gg_trg_Rezepte,function Trig_Rezepte_Actions)
endfunction