Post by Tazco on Nov 2, 2010 23:07:03 GMT -5
Remember these are for use with RC standard 1.25 and above.
PvP shop script
Here is a pvp shop script, should allow you to buy items based on your pvp points. You would need to change items and dialog textures, since it uses screens to display for the player giving them a look at the item, and stats.
Dialog textures would be similar to this.
Here is the script.
Basic check to go in your level up. this will give a spell based on your level. Could add attributes to it to if you wanted.
And another one.
This was used manly for testing purposes. It will display the amount of stats, for items you are wearing.
PvP shop script
Here is a pvp shop script, should allow you to buy items based on your pvp points. You would need to change items and dialog textures, since it uses screens to display for the player giving them a look at the item, and stats.
Dialog textures would be similar to this.
Here is the script.
[size=4]
; Strictly Pvp Online
; Date/Time: 5:30:32 PM on 9/20/2009
; By Tazco on NADDAZ
;NOTE
; works do not mess with any execting code
Function Main()
Player = Actor()
Target = ContextActor()
PvpPoints% = Attribute(Player, "PvP")
ChatBox = OpenDialog(Player, Target, "PvP Supplier")
If (PvpPoints >= 10)
DialogOutPut(Player, Chatbox, "I see you have made a few player kills.")
DialogOutPut(Player, ChatBox, "I have some items that you may find usefull, if you can afford them.")
Else
DialogOutPut(Player, Chatbox, "Welcome to Alanon")
DialogOutPut(Player, ChatBox, "I have some items that you may find usefull, if you can afford them.")
Endif
Playerchoice% = DialogInput(Player, ChatBox, "Show me what you have, Any info about the land?, Thats all Thanks.")
DoEvents(1000)
Totalmoney% = Money(Player)
If (Playerchoice = 1)
;open trade menu
ArmItemChoice% = DialogInPut(Player, ChatBox, "Chestplates, Helmets")
If (ArmItemChoice = 1) ;chestplates
ChestItemChoice% = DialogInPut(Player, ChatBox, "Bronze Plate, Dark Plate, Power Chest")
CloseDialog(Player, Chatbox)
If (ChestItemChoice = 1)
chatbox% = OpenDialog(Player, Target, "PvP Supplier", 107) ;change chat background to show helm Icon
DialogOutPut(Player, Chatbox, "cost for item is, 234564g") ;tell player amount needed for item
yesnochoice% = DialoginPut(Player, ChatBox, " Yes,No") ;leave space there evens the yes no text on screen
If (yesnochoice = 1)
uniqueitem% = HasItem(Player, "Bronze Plate") ;player has item
If (uniqueitem = 1)
Dialogoutput(Player, Chatbox, "You already have that item")
DialogInput(Player, ChatBox, "Ok")
CloseDialog(Player, Chatbox)
Return
Endif
If (PvpPoints < 24)
DialogOutPut(Player, ChatBox, "You need 25 PvP points to get this item")
DialogInput(Player, ChatBox, "Ok")
CloseDialog(Player, Chatbox)
Return
Endif
If (Totalmoney < 234564)
DialogOUtPut(Player, ChatBox, "You do not have enough money for that item")
DialogInput(Player, ChatBox, "Ok")
CloseDialog(Player, Chatbox)
Return
Endif
RemovePvppoints% = Attribute(Player, "Pvp") - 25
SetMaxAttribute(Player, "PvP", RemovePvppoints)
SetAttribute(Player, "PvP", RemovePvppoints)
SetMoney(Player, Totalmoney - 234564)
GiveItem(Player, "Bronze Plate")
OutPut(Player, "You have recived, a Bronze Plate", 233, 234, 34)
DoEvents(1000)
CloseDialog(Player, ChatBox)
ElseIf (yesnochoice = 2)
CloseDialog(Player, ChatBox)
Return
Endif
ElseIf (ChestItemChoice = 2) ;give player dark plate
chatbox% = OpenDialog(Player, Target, "PvP Supplier", 108) ;change chat background to show helm Icon
DialogOutPut(Player, Chatbox, "cost for item is, 854345g") ;tell player amount needed for item
yesnochoice% = DialoginPut(Player, ChatBox, " Yes,No") ;leave space there evens the yes no text on screen
If (yesnochoice = 1)
uniqueitem% = HasItem(Player, "Dark Plate") ;player has item
If (uniqueitem = 1)
Dialogoutput(Player, Chatbox, "You already have that item")
DialogInput(Player, ChatBox, "Ok")
CloseDialog(Player, Chatbox)
Return
Endif
If (PvpPoints < 55)
DialogOutPut(Player, ChatBox, "You need 55 PvP points to get this item")
DialogInput(Player, ChatBox, "Ok")
CloseDialog(Player, Chatbox)
Return
Endif
If (Totalmoney < 854345)
DialogOUtPut(Player, ChatBox, "You do not have enough money for that item")
DialogInput(Player, ChatBox, "Ok")
CloseDialog(Player, Chatbox)
Return
Endif
RemovePvppoints% = Attribute(Player, "Pvp") - 55
SetMaxAttribute(Player, "PvP", RemovePvppoints)
SetAttribute(Player, "PvP", RemovePvppoints)
SetMoney(Player, Totalmoney - 854345)
GiveItem(Player, "Dark Plate")
OutPut(Player, "You have recived, a Dark Plate", 233, 234, 34)
DoEvents(1000)
CloseDialog(Player, ChatBox)
Return
ElseIf (yesnochoice = 2)
CloseDialog(Player, ChatBox)
Return
Endif
Elseif (ChestItemChoice = 3) ;give power chest
chatbox% = OpenDialog(Player, Target, "PvP Supplier", 109) ;change chat background to show helm Icon
DialogOutPut(Player, Chatbox, "cost for item is, 9999720g") ;tell player amount needed for item
yesnochoice% = DialoginPut(Player, ChatBox, " Yes,No") ;leave space there evens the yes no text on screen
If (yesnochoice = 1)
uniqueitem% = HasItem(Player, "Power Chest") ;player has item
If (uniqueitem = 1)
Dialogoutput(Player, Chatbox, "You already have that item")
DialogInput(Player, ChatBox, "Ok")
CloseDialog(Player, Chatbox)
Return
Endif
If (PvpPoints < 75)
DialogOutPut(Player, ChatBox, "You need 75 PvP points to get this item")
DialogInput(Player, ChatBox, "Ok")
CloseDialog(Player, Chatbox)
Return
Endif
If (Totalmoney < 9999720)
DialogOUtPut(Player, ChatBox, "You do not have enough money for that item")
DialogInput(Player, ChatBox, "Ok")
CloseDialog(Player, Chatbox)
Return
Endif
RemovePvppoints% = Attribute(Player, "Pvp") - 75
SetMaxAttribute(Player, "PvP", RemovePvppoints)
SetAttribute(Player, "PvP", RemovePvppoints)
SetMoney(Player, Totalmoney - 9999720)
GiveItem(Player, "Power Chest")
OutPut(Player, "You have recived, a Power Chest", 233, 234, 34)
DoEvents(1000)
CloseDialog(Player, ChatBox)
Return
ElseIf (yesnochoice = 2)
CloseDialog(Player, ChatBox)
Return
Endif
Endif
ElseIf (ArmItemChoice = 2) ; Helmets
HelmItemChoice% = DialogInPut(Player, ChatBox, "Bronze Helm, Dark Helm, Power Helm")
CloseDialog(Player, Chatbox)
If (HelmItemChoice = 1) ;Bronze helm
chatbox% = OpenDialog(Player, Target, "PvP Supplier", 106) ;change chat background to show helm Icon
DialogOutPut(Player, Chatbox, "cost for item is, 134532g") ;tell player amount needed for item
yesnochoice% = DialoginPut(Player, ChatBox, " Yes,No") ;leave space there evens the yes no text on screen
If (yesnochoice = 1)
uniqueitem% = HasItem(Player, "Bronze Helm") ;player has item
If (uniqueitem = 1)
Dialogoutput(Player, Chatbox, "You already have that item")
DialogInput(Player, ChatBox, "Ok")
CloseDialog(Player, Chatbox)
Return
Endif
If (PvpPoints < 15)
DialogOutPut(Player, ChatBox, "You need 15 PvP points to get this item")
DialogInput(Player, ChatBox, "Ok")
CloseDialog(Player, Chatbox)
Return
Endif
If (Totalmoney < 134532)
DialogOUtPut(Player, ChatBox, "You do not have enough money for that item")
DialogInput(Player, ChatBox, "Ok")
CloseDialog(Player, Chatbox)
Return
Endif
RemovePvppoints% = Attribute(Player, "Pvp") - 15
SetMaxAttribute(Player, "PvP", RemovePvppoints)
SetAttribute(Player, "PvP", RemovePvppoints)
SetMoney(Player, Totalmoney - 134532)
GiveItem(Player, "Bronze Helm")
OutPut(Player, "You have recived, a Bronze Helm", 233, 234, 34)
DoEvents(1000)
CloseDialog(Player, ChatBox)
ElseIf (yesnochoice = 2)
CloseDialog(Player, ChatBox)
Return
Endif
Elseif (HelmItemChoice = 2) ;dark helm
chatbox% = OpenDialog(Player, Target, "PvP Supplier", 110) ;change chat background to show helm Icon
DialogOutPut(Player, Chatbox, "cost for item is, 645676g") ;tell player amount needed for item
yesnochoice% = DialoginPut(Player, ChatBox, " Yes,No") ;leave space there evens the yes no text on screen
If (yesnochoice = 1)
uniqueitem% = HasItem(Player, "Dark Helm") ;player has item
If (uniqueitem = 1)
Dialogoutput(Player, Chatbox, "You already have that item")
DialogInput(Player, ChatBox, "Ok")
CloseDialog(Player, Chatbox)
Return
Endif
If (PvpPoints < 25)
DialogOutPut(Player, ChatBox, "You need 25 PvP points to get this item")
DialogInput(Player, ChatBox, "Ok")
CloseDialog(Player, Chatbox)
Return
Endif
If (Totalmoney < 645676)
DialogOUtPut(Player, ChatBox, "You do not have enough money for that item")
DialogInput(Player, ChatBox, "Ok")
CloseDialog(Player, Chatbox)
Return
Endif
RemovePvppoints% = Attribute(Player, "Pvp") - 25
SetMaxAttribute(Player, "PvP", RemovePvppoints)
SetAttribute(Player, "PvP", RemovePvppoints)
SetMoney(Player, Totalmoney - 645676)
GiveItem(Player, "Dark Helm")
OutPut(Player, "You have recived, a Dark Helm", 233, 234, 34)
DoEvents(1000)
CloseDialog(Player, ChatBox)
ElseIf (yesnochoice = 2)
CloseDialog(Player, ChatBox)
Return
Endif
Elseif (HelmItemChoice = 3) ; power helm
chatbox% = OpenDialog(Player, Target, "PvP Supplier", 111) ;change chat background to show helm Icon
DialogOutPut(Player, Chatbox, "cost for item is, 5687540g") ;tell player amount needed for item
yesnochoice% = DialoginPut(Player, ChatBox, " Yes,No") ;leave space there evens the yes no text on screen
If (yesnochoice = 1)
uniqueitem% = HasItem(Player, "Power Helm") ;player has item
If (uniqueitem = 1)
Dialogoutput(Player, Chatbox, "You already have that item")
DialogInput(Player, ChatBox, "Ok")
CloseDialog(Player, Chatbox)
Return
Endif
If (PvpPoints < 55)
DialogOutPut(Player, ChatBox, "You need 55 PvP points to get this item")
DialogInput(Player, ChatBox, "Ok")
CloseDialog(Player, Chatbox)
Return
Endif
If (Totalmoney < 5687540)
DialogOUtPut(Player, ChatBox, "You do not have enough money for that item")
DialogInput(Player, ChatBox, "Ok")
CloseDialog(Player, Chatbox)
Return
Endif
RemovePvppoints% = Attribute(Player, "Pvp") - 55
SetMaxAttribute(Player, "PvP", RemovePvppoints)
SetAttribute(Player, "PvP", RemovePvppoints)
SetMoney(Player, Totalmoney - 5687540)
GiveItem(Player, "Power Helm")
OutPut(Player, "You have recived, a Power Helm", 233, 234, 34)
DoEvents(1000)
CloseDialog(Player, ChatBox)
ElseIf (yesnochoice = 2)
CloseDialog(Player, ChatBox)
Return
Endif
Endif
Endif
CloseDialog(Player, ChatBox)
ElseIf (Playerchoice = 2) ;story or lore info
DialogOutPut(Player, Chatbox, "Alanon was created by the Reptilem race.")
DialogOutPut(Player, Chatbox, "This land was made for battle, and battle shall be seen.")
Storychoice% = Dialoginput(Player, Chatbox, "what do we know about the Reptilem Race?, What else can you tell me about the land?, Have any quests for me?, nothing")
If (Storychoice = 1)
DialogOutPut(Player, Chatbox, "The Reptilem Race is a far superior race then any other.")
DialogOutPut(Player, Chatbox, "They have destroyed any race they have come across,")
DialogOutPut(Player, Chatbox, " there is no telling what they will do with who ever survives this war.")
Dialoginput(Player, Chatbox, "thanks for the chat.")
CloseDialog(Player, chatbox)
Return
ElseIf (Storychoice = 2)
DialogOutPut(Player, chatbox, "Little is known about the land of Alanon, besides it was created.")
DialogOutPut(Player, chatbox, "Some belive we are in a virtual world,")
DialogOutPut(Player, chatbox, "who in ther right mines would belive that.")
Dialoginput(Player, Chatbox, "I will explore before I say my opinion")
CloseDialog(Player, chatbox)
Return
ElseIf (Storychoice = 3)
Dialogoutput(Player, chatbox, "I have no quests for you right now.")
DialogInput(Player, Chatbox, "Ok")
;add quest threade executs here, make a quest chain script linked from here to
;check witch quest player is on and threade execut to it.
CloseDialog(Player, chatbox)
Return
ElseIf (Storychoice = 4)
Dialoginput(Player, Chatbox, "Thanks")
CloseDialog(Player, chatbox)
Return
Endif
ElseIf (Playerchoice = 3) ;player picked nothing close script
DialogOutPut(Player, Chatbox, "Enjoy your stay in Alanon")
DoEvents(1555)
CloseDialog(Player, Chatbox)
Endif
End Function[/size]
Basic check to go in your level up. this will give a spell based on your level. Could add attributes to it to if you wanted.
Player = Actor()
Lvl% = ActorLEvel(Player)
If (Lvl = 5)
AddAbility(Player, "Healing Cloud")
OutPut(Player, "You have learned Healing Cloud.", 44, 223, 23)
ElseIf (Lvl = 8)
AddAbility(Player, "Ice Shock")
OutPut(Player, "You have learned Ice Shock.", 44, 223, 23)
ElseIf (Lvl = 13)
AddAbility(Player, "FireBlast")
OutPut(Player, "You have learned FireBlast.", 44, 223, 23)
ElseIf (Lvl = 17)
AddAbility(Player, "Poison")
OutPut(Player, "You have learned Poison.", 44, 223, 23)
EndIf
And another one.
This was used manly for testing purposes. It will display the amount of stats, for items you are wearing.
; Tazgame
; Date/Time: 11:48:56 PM on 3/6/2009
; By Tazco on NADDAZ
Function Main()
Player = Actor()
Target = ContextActor()
;------------------------------------------------------------------------
; Item attribute checks
; item health
FeetHP% = ItemAttribute(ActorFeet(Player), "Health")
HandsHP% = ItemAttribute(ActorHands(Player), "Health")
LegsHP% = ItemAttribute(ActorLegs(Player), "Health")
ChestHP% = ItemAttribute(ActorChest(Player), "Health")
ShieldHP% = ItemAttribute(ActorShield(Player), "Health")
HatHP% = ItemAttribute(ActorHat(Player), "Health")
WeaponHp% = ItemAttribute(ActorWeapon(Player), "Health")
Totalitemhp = FeetHP + HandsHP + LegsHP + ChestHP + Shieldhp + weaponhp
; item mana
Feetmp% = ItemAttribute(ActorFeet(Player), "Mana")
Handsmp% = ItemAttribute(ActorHands(Player), "Mana")
Legsmp% = ItemAttribute(ActorLegs(Player), "Mana")
Chestmp% = ItemAttribute(ActorChest(Player), "Mana")
Shieldmp% = ItemAttribute(ActorShield(Player), "Mana")
Hatmp% = ItemAttribute(ActorHat(Player), "Mana")
Weaponmp% = ItemAttribute(ActorWeapon(Player), "Mana")
Totalitemmp = Feetmp + Handsmp + Legsmp + Chestmp + Shieldmp + weaponmp
;item strength
Feetstr% = ItemAttribute(ActorFeet(Player), "Strength")
Handsstr% = ItemAttribute(ActorHands(Player), "Strength")
Legsstr% = ItemAttribute(ActorLegs(Player), "Strength")
Cheststr% = ItemAttribute(ActorChest(Player), "Strength")
Shieldstr% = ItemAttribute(ActorShield(Player), "Strength")
Hatstr% = ItemAttribute(ActorHat(Player), "Strength")
Weaponstr% = ItemAttribute(ActorWeapon(Player), "Strength")
Totalitemstr = Feetstr + Handsstr + Legsstr + Cheststr + Shieldstr + weaponstr
;Item toughness
Feettou% = ItemAttribute(ActorFeet(Player), "Toughness")
Handstou% = ItemAttribute(ActorHands(Player), "Toughness")
Legstou% = ItemAttribute(ActorLegs(Player), "Toughness")
Chesttou% = ItemAttribute(ActorChest(Player), "Toughness")
Shieldtou% = ItemAttribute(ActorShield(Player), "Toughness")
Hattou% = ItemAttribute(ActorHat(Player), "Toughness")
Weapontou% = ItemAttribute(ActorWeapon(Player), "Toughness")
Totalitemtou = Feettou + Handstou + Legstou + Chesttou + Shieldtou + weapontou
;item agility
Feetagi% = ItemAttribute(ActorFeet(Player), "Agility")
Handsagi% = ItemAttribute(ActorHands(Player), "Agility")
Legsagi% = ItemAttribute(ActorLegs(Player), "Agility")
Chestagi% = ItemAttribute(ActorChest(Player), "Agility")
Shieldagi% = ItemAttribute(ActorShield(Player), "Agility")
Hatagi% = ItemAttribute(ActorHat(Player), "Agility")
Weaponagi% = ItemAttribute(ActorWeapon(Player), "Agility")
Totalitemagi = Feetagi + Handsagi + Legsagi + Chestagi + Shieldagi + weaponagi
;item defence
Feetdef% = ItemAttribute(ActorFeet(Player), "Defence")
Handsdef% = ItemAttribute(ActorHands(Player), "Defence")
Legsdef% = ItemAttribute(ActorLegs(Player), "Defence")
Chestdef% = ItemAttribute(ActorChest(Player), "Defence")
Shielddef% = ItemAttribute(ActorShield(Player), "Defence")
Hatdef% = ItemAttribute(ActorHat(Player), "Defence")
Weapondef% = ItemAttribute(ActorWeapon(Player), "Defence")
Totalitemdef = Feetdef + Handsdef + Legsdef + Chestdef + Shielddef + weapondef
;item dexterity
Feetdex% = ItemAttribute(ActorFeet(Player), "Dexterity")
Handsdex% = ItemAttribute(ActorHands(Player), "Dexterity")
Legsdex% = ItemAttribute(ActorLegs(Player), "Dexterity")
Chestdex% = ItemAttribute(ActorChest(Player), "Dexterity")
Shielddex% = ItemAttribute(ActorShield(Player), "Dexterity")
Hatdex% = ItemAttribute(ActorHat(Player), "Dexterity")
Weapondex% = ItemAttribute(ActorWeapon(Player), "Dexterity")
Totalitemdex = Feetdex + Handsdex + Legsdex + Chestdex + Shielddex + weapondex
;item magic
Feetmag% = ItemAttribute(ActorFeet(Player), "Magic")
Handsmag% = ItemAttribute(ActorHands(Player), "Magic")
Legsmag% = ItemAttribute(ActorLegs(Player), "Magic")
Chestmag% = ItemAttribute(ActorChest(Player), "Magic")
Shieldmag% = ItemAttribute(ActorShield(Player), "Magic")
Hatmag% = ItemAttribute(ActorHat(Player), "Magic")
Weaponmag% = ItemAttribute(ActorWeapon(Player), "Magic")
Totalitemmag = Feetmag + Handsmag + Legsmag + Chestmag + Shieldmag + weaponmag
;item dodge
Feetdod% = ItemAttribute(ActorFeet(Player), "Dodge")
Handsdod% = ItemAttribute(ActorHands(Player), "Dodge")
Legsdod% = ItemAttribute(ActorLegs(Player), "Dodge")
Chestdod% = ItemAttribute(ActorChest(Player), "Dodge")
Shielddod% = ItemAttribute(ActorShield(Player), "Dodge")
Hatdod% = ItemAttribute(ActorHat(Player), "Dodge")
Weapondod% = ItemAttribute(ActorWeapon(Player), "Dodge")
Totalitemdod = Feetdod + Handsdod + Legsdod + Chestdod + Shielddod + weapondod
chatbox = OpenDialog(Player, Target, "Item Stats")
statoption = DialogInPut(Player, chatbox, "Chest, Hat, Weapon, Shield")
If (statoption = 1)
DialogOutPut(Player, chatbox, "Your total Chest Health is " + Chesthp, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Chest Mana is " + Chestmp, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Chest Strength is " + Cheststr, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Chest Toughness is " + Chesttou, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Chest Agility is " + Chestagi, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Chest Defence is " + Chestdef, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Chest Dexterity is " + Chestdex, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Chest Magic is " + Chestmag, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Chest Dodge is " + Chestdod, 255, 45, 55)
done = Dialoginput(Player, chatbox, "Done")
If (done = 1)
DoEvents(1000)
CloseDialog(Player, chatbox)
Endif
ElseIf (statoption = 2)
DialogOutPut(Player, chatbox, "Your total Hat Health is " + hathp, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Hat Mana is " + hatmp, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Hat Strength is " + hatstr, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Hat Toughness is " + hattou, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Hat Agility is " + hatagi, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Hat Defence is " + hatdef, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Hat Dexterity is " + hatdex, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Hat Magic is " + hatmag, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Hat Dodge is " + hatdod, 255, 45, 55)
done = Dialoginput(Player, chatbox, "Done")
If (done = 1)
DoEvents(1000)
CloseDialog(Player, chatbox)
Endif
ElseIf (statoption = 3)
DialogOutPut(Player, chatbox, "Your total Weapon Health is " + weaponhp, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Weapon Mana is " + weaponmp, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Weapon Strength is " + weaponstr, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Weapon Toughness is " + weapontou, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Weapon Agility is " + weaponagi, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Weapon Defence is " + weapondef, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Weapon Dexterity is " + weapondex, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Weapon Magic is " + weaponmag, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Weapon Dodge is " + weapondod, 255, 45, 55)
done = Dialoginput(Player, chatbox, "Done")
If (done = 1)
DoEvents(1000)
CloseDialog(Player, chatbox)
Endif
ElseIf (statoption = 4)
DialogOutPut(Player, chatbox, "Your total Shield Health is " + Shieldhp, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Shield Mana is " + Shieldmp, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Shield Strength is " + Shieldstr, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Shield Toughness is " + Shieldtou, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Shield Agility is " + Shieldagi, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Shield Defence is " + Shielddef, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Shield Dexterity is " + Shielddex, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Shield Magic is " + Shieldmag, 255, 45, 55)
DialogOutPut(Player, chatbox, "Your total Shield Dodge is " + Shielddod, 255, 45, 55)
done = Dialoginput(Player, chatbox, "Done")
If (done = 1)
DoEvents(1000)
CloseDialog(Player, chatbox)
Endif
Endif
End Function