All pastes #745541 Raw Edit

Stuff

public text v1 · immutable
·published 2007-10-22 14:15 UTC
rendered paste body
scriptname HTFaugRECbasic1

Ref AugKit
Ref AugItem1
Ref AugItem2 
Ref AugItem3  
short Choosing
short Choice

begin onActivate
  messagebox "This Recipe makes a Basic Fire Protect Augmentation. It requires 2 Firesalts, 2 lowerclass Spoons and 1 Lions hide. Would you like to make it now?" "Yes" "No"
  set Choosing to 1
end

begin MenuMode
  if (Choosing == 1)
    set Choice to GetButtonPressed
  endif

if (Choice == 0 && Choosing ==1)
set AugKit to HTFaugKITB
set AugItem1 to LowerClassSpoon01
set AugItem2 to LionHide01
set AugItem3 to FireSalts
if HTFaugDATA.AUGskill > 14
if player.GetItemCount AugKit > 0
if player.GetItemCount AugItem1 > 1
if player.GetItemCount AugItem2 > 0
if player.GetItemCount AugItem3 > 1
player.removeitem AugItem1 2
player.removeitem AugItem2 1
player.removeitem AugItem3 2
player.additem HTFaugAUGbf 1
set HTFaugDATA.AUGskill to (HTFaugDATA.AUGskill + 2)
player.removeitem HTFaugRECB1 1
else
messagebox "You need more Firesalts" "Ok" 
set Choosing to 0
set Choice to 2
return
endif
else
messagebox "You need more Lion Hide" "Ok"
set Choosing to 0
set Choice to 2
return
endif
else
messagebox "You need more Spoons" "Ok"
set Choosing to 0
set Choice to 2
return
endif
else
messagebox "You need a Basic Aug Kit" "Ok"
set Choosing to 0
set Choice to 2
return
endif
else
messagebox "You need at least a skill of 15 in Augmentations" "Ok"
set Choosing to 0
set Choice to 2
return
endif
  elseif (Choice == 1)
  return	
endif
end

begin OnEquip

Activate player, 1

end