mob/proc/PlayCard2()
var/mob/M = usr.opponent
set category = "Duelling"
if(usr.Turn==1)
if(M.deck.len<=0 || M.LifePoints<=0)
usr <<"You win!"
M <<"You lose!"
client.eye= src
usr.stuck= null
M.stuck= null
usr.Battle = 0
usr.wins+=1
M.loses+=1
usr.duels+=1
M.duels+=1
usr.rating=usr.wins*usr.duels+usr.rating-usr.loses
M.rating=M.wins*M.duels+M.rating-M.loses
M.Battle = 0
usr.Money+=100
usr.StarChips+= 1
usr.deck.Add(usr.FieldCards)
usr.FieldCards.Remove(usr.FieldCards)
usr.deck.Add(usr.GraveYard)
usr.GraveYard.Remove(usr.GraveYard)
M.deck.Add(usr.FieldCards)
M.FieldCards.Remove(usr.FieldCards)
M.deck.Add(usr.GraveYard)
M.GraveYard.Remove(usr.GraveYard)
M.Money+=10
M.StarChips-= 1
usr.verbs-=/mob/proc/PlayCard2
usr.verbs-=/mob/proc/SacrificeCard
M.verbs-=/mob/proc/PlayCard2
M.verbs-=/mob/proc/SacrificeCard
M.verbs-=/mob/proc/SwitchMode
usr.verbs-=/mob/proc/SwitchMode
usr.LifePoints = 4000
usr.Rank+=1
M.Rank+=1
M.LifePoints = 4000
usr.opponent = null
M.opponent = null
usr.verbs-=/mob/proc/SkipTurn2
M.verbs-=/mob/proc/SkipTurn2
M.FT = 1
usr.FT = 1
return 0
sleep(5)
if(usr.Turn==1)
src.Turn = 0
src <<"Status..."
src <<"Sacrifices: [usr.Sacrifice]"
src <<"FieldCards..."
src <<"LifePoints: You: [usr.LifePoints] [M]: [M.LifePoints]"
if(usr.FieldCards.len>=1 && usr.FT==0 && usr.Attacked==0)
var/b = input("Do you want to attack with one of your monsters?")in list("Yes","No")
if(b=="Yes")
var/obj/a = input("Which card do you want to attack with?")in usr.FieldCards
if(a.Attack==1)
usr <<"That monster already attacked!"
else
a.Amode=1
M <<"[usr] plays [a]"
if(usr.FT==0)
var/c = input("Do you want to attack?")in list("Yes","No")
if(c=="Yes")
M <<"[usr] is attacking, if you have no monsters, no lifepoints damage!"
if(M.FieldCards.len>=1)
var/obj/d = input("Which one?")in M.FieldCards + list("Cancel")
if(d=="Cancel")
M <<"[usr] cancels attacking your monsters!"
usr <<"Please press PlayCard again!"
usr.Turn = 1
usr.Attacked = 1
return 0
a.Attacked = 1
usr.Attacked = 1
if(d.Amode==1)
if(a.Attack>d.Attack)
usr <<"You destroy [d]"
M <<"[usr] destroys [d]"
M.GraveYard.Add(d)
M.FieldCards.Remove(d)
M.LifePoints-=d.loss
M<<"Your Turn!"
if(M.LifePoints<=0)
usr <<"You win!"
M <<"You lose!"
M.deck.Add(usr.FieldCards)
M.FieldCards.Remove(usr.FieldCards)
usr.deck.Add(usr.FieldCards)
usr.FieldCards.Remove(usr.FieldCards)
client.eye= src
usr.stuck= null
M.stuck= null
usr.Battle = 0
usr.wins+=1
M.loses+=1
usr.duels+=1
M.duels+=1
usr.rating=usr.wins*usr.duels+usr.rating-usr.loses
M.rating=M.wins*M.duels+M.rating-M.loses
M.Battle = 0
usr.Money+=100
usr.StarChips+=1
usr.deck.Add(usr.FieldCards)
usr.FieldCards.Remove(usr.FieldCards)
usr.deck.Add(usr.GraveYard)
usr.GraveYard.Remove(usr.GraveYard)
M.deck.Add(usr.FieldCards)
M.FieldCards.Remove(usr.FieldCards)
M.deck.Add(usr.GraveYard)
M.GraveYard.Remove(usr.GraveYard)
M.Money+=10
M.StarChips-=1
usr.verbs-=/mob/proc/PlayCard2
usr.verbs-=/mob/proc/SacrificeCard
usr.verbs-=/mob/proc/SwitchMode
M.verbs-=/mob/proc/SwitchMode
M.verbs-=/mob/proc/PlayCard2
M.verbs-=/mob/proc/SacrificeCard
usr.verbs-=/mob/proc/SkipTurn2
M.verbs-=/mob/proc/SkipTurn2
usr.LifePoints = 4000
usr.Rank+=1
M.Rank+=1
M.LifePoints = 4000
usr.opponent = null
M.opponent = null
M.FT = 1
usr.FT = 1
return 0
else if(a.Attack<d.Attack)
usr <<"You destroy your [a]"
M <<"[usr] destroys his [a]"
usr.GraveYard.Add(a)
usr.FieldCards.Remove(a)
usr.LifePoints-=a.loss
src<<"Your Turn!"
if(usr.LifePoints<=0)
M <<"You win!"
usr <<"You lose!"
client.eye= src
usr.stuck= null
M.stuck= null
usr.Battle = 0
usr.wins+=1
M.loses+=1
usr.duels+=1
M.duels+=1
usr.rating=usr.wins*usr.duels+usr.rating-usr.loses
M.rating=M.wins*M.duels+M.rating-M.loses
M.Battle = 0
M.Money+=100
M.StarChips+=1
usr.deck.Add(usr.FieldCards)
usr.FieldCards.Remove(usr.FieldCards)
usr.deck.Add(usr.GraveYard)
usr.GraveYard.Remove(usr.GraveYard)
M.deck.Add(usr.FieldCards)
M.FieldCards.Remove(usr.FieldCards)
M.deck.Add(usr.GraveYard)
M.GraveYard.Remove(usr.GraveYard)
usr.Money+=10
usr.StarChips-=1
usr.verbs-=/mob/proc/PlayCard2
usr.verbs-=/mob/proc/SacrificeCard
M.verbs-=/mob/proc/PlayCard2
usr.verbs-=/mob/proc/SwitchMode
M.verbs-=/mob/proc/SwitchMode
M.verbs-=/mob/proc/SacrificeCard
usr.LifePoints = 4000
M.LifePoints = 4000
usr.Rank+=1
M.Rank+=1
usr.opponent = null
M.opponent = null
usr.verbs-=/mob/proc/SkipTurn2
M.verbs-=/mob/proc/SkipTurn2
usr.FT = 1
M.FT = 1
return 0
else if(d.Dmode==1)
if(a.Attack>d.Defense)
usr <<"You destroy [d]"
M <<"[usr] destroys [d]"
M.GraveYard.Add(d)
M.FieldCards.Remove(d)
src<<"Your Turn!"
if(M.LifePoints<=0)
usr <<"You win!"
M <<"You lose!"
client.eye= src
usr.stuck= null
M.stuck= null
usr.Battle = 0
usr.wins+=1
M.loses+=1
usr.duels+=1
M.duels+=1
usr.rating=usr.wins*usr.duels+usr.rating-usr.loses
M.rating=M.wins*M.duels+M.rating-M.loses
M.Battle = 0
usr.Money+=100
usr.StarChips+=1
usr.deck.Add(usr.FieldCards)
usr.FieldCards.Remove(usr.FieldCards)
usr.deck.Add(usr.GraveYard)
usr.GraveYard.Remove(usr.GraveYard)
M.deck.Add(usr.FieldCards)
M.FieldCards.Remove(usr.FieldCards)
M.deck.Add(usr.GraveYard)
M.GraveYard.Remove(usr.GraveYard)
M.Money+=10
M.StarChips-=1
usr.verbs-=/mob/proc/PlayCard2
usr.verbs-=/mob/proc/SacrificeCard
M.verbs-=/mob/proc/PlayCard2
M.verbs-=/mob/proc/SacrificeCard
usr.verbs-=/mob/proc/SwitchMode
M.verbs-=/mob/proc/SwitchMode
usr.LifePoints = 4000
M.LifePoints = 4000
usr.Rank+=1
M.Rank+=1
usr.opponent = null
M.opponent = null
usr.verbs-=/mob/proc/SkipTurn2
M.verbs-=/mob/proc/SkipTurn2
usr.FT = 1
M.FT = 1
return 0
if(a.Attack<=d.Defense)
usr.LifePoints-=a.loss
src<<"Your Turn!"
if(usr.LifePoints<=0)
M <<"You win!"
usr <<"You lose!"
usr.client.eye= usr
M:client.eye= M
usr.stuck= null
M.stuck= null
usr.Battle = 0
usr.wins+=1
M.loses+=1
usr.duels+=1
M.duels+=1
usr.rating=usr.wins*usr.duels+usr.rating-usr.loses
M.rating=M.wins*M.duels+M.rating-M.loses
M.Battle = 0
M.Money+=100
M.StarChips+=1
usr.deck.Add(usr.FieldCards)
usr.FieldCards.Remove(usr.FieldCards)
usr.deck.Add(usr.GraveYard)
usr.GraveYard.Remove(usr.GraveYard)
M.deck.Add(usr.FieldCards)
M.FieldCards.Remove(usr.FieldCards)
M.deck.Add(usr.GraveYard)
M.GraveYard.Remove(usr.GraveYard)
usr.LifePoints = 4000
usr.Rank+=1
M.Rank+=1
M.LifePoints = 4000
usr.opponent = null
M.opponent = null
usr.Money+=10
usr.StarChips-=1
usr.verbs-=/mob/proc/PlayCard2
usr.verbs-=/mob/proc/SacrificeCard
M.verbs-=/mob/proc/PlayCard2
M.verbs-=/mob/proc/SacrificeCard
usr.verbs-=/mob/proc/SwitchMode
M.verbs-=/mob/proc/SwitchMode
usr.verbs-=/mob/proc/SkipTurn2
M.verbs-=/mob/proc/SkipTurn2
usr.FT = 1
M.FT = 1
return 0
else if(M.FieldCards.len==0)
usr <<"Since he has no monsters, [a.Attack] damage!"
M.LifePoints-=a.Attack
if(M.LifePoints<=0)
usr <<"You win!"
M <<"You lose!"
client.eye= src
usr.stuck= null
M.stuck= null
usr.Battle = 0
usr.wins+=1
M.loses+=1
usr.duels+=1
M.duels+=1
usr.rating=usr.wins*usr.duels+usr.rating-usr.loses
M.rating=M.wins*M.duels+M.rating-M.loses
M.Battle = 0
usr.Money+=100
usr.StarChips+=1
usr.deck.Add(usr.FieldCards)
usr.FieldCards.Remove(usr.FieldCards)
usr.deck.Add(usr.GraveYard)
usr.GraveYard.Remove(usr.GraveYard)
M.deck.Add(usr.FieldCards)
M.FieldCards.Remove(usr.FieldCards)
M.deck.Add(usr.GraveYard)
M.GraveYard.Remove(usr.GraveYard)
M.Money+=10
M.StarChips-=1
usr.verbs-=/mob/proc/PlayCard2
usr.verbs-=/mob/proc/SacrificeCard
usr.verbs-=/mob/proc/SwitchMode
M.verbs-=/mob/proc/SwitchMode
M.verbs-=/mob/proc/PlayCard2
M.verbs-=/mob/proc/SacrificeCard
usr.verbs-=/mob/proc/SkipTurn2
M.verbs-=/mob/proc/SkipTurn2
usr.LifePoints = 4000
usr.Rank+=1
M.Rank+=1
M.LifePoints = 4000
usr.opponent = null
M.opponent = null
M.FT = 1
usr.FT = 1
return 0
var/obj/a = input(usr,"Which card do you want to play?")in usr.pcards+list("Cancel")
if(a=="Cancel")
usr <<"You have canceled your turn!"
usr.Turn = 1
usr.Attacked = 1
return 0
else
if(a.SNeed==0 && a.Magic==0 && a.Trap==0 && usr.ChoseCard==0)
var/obj/card2/kmcard/KM=new(usr.loc)
if(usr.side=="L")
KM.x+=2
KM.y-=2
KM.y+=rand(1,4)
KM.name="[a.name]-[a.Attack]/[a.Defense]"
KM.card=a
KM.owner=usr
else
KM.x-=2
KM.y-=2
KM.y+=rand(1,4)
KM.name="[a.name]-[a.Attack]/[a.Defense]"
KM.card=a
KM.owner=usr
KM.icon=a.icon
KM.icon_state=a.icon_state
KM.info=a.info
if(a.SNeed==0 && a.Magic==0 && a.Trap==0 && usr.ChoseCard==0)
usr.FieldCards.Add(a)
usr.pcards.Remove(a)
usr.ChoseCard =1
var/b = input("Which mode?")in list("A","D")
if(b=="A")
a.Amode=1
M <<"[usr] plays [a]"
if(usr.FT==0)
var/c = input("Do you want to attack?")in list("Yes","No")
if(c=="Yes")
M <<"[usr] is attacking, if you have no monsters, no lifepoints damage!"
if(M.FieldCards.len>=1)
var/obj/d = input("Which one?")in M.FieldCards + list("Cancel")
M <<"[usr] is attacking your [d]!"
if(d=="Cancel")
M <<"[usr] cancels attacking your monsters!"
usr <<"Please press PlayCard again!"
usr.Turn = 1
usr.Attacked = 1
return 0
if(d.Amode==1)
if(a.Attack>d.Attack)
usr <<"You destroy [d]"
M <<"[usr] destroys [d]"
M.GraveYard.Add(d)
M.FieldCards.Remove(d)
M.LifePoints-=d.loss
if(M.LifePoints<=0)
usr <<"You win!"
M <<"You lose!"
client.eye= src
usr.stuck= null
M.stuck= null
usr.Battle = 0
usr.wins+=1
M.loses+=1
usr.duels+=1
M.duels+=1
usr.rating=usr.wins*usr.duels+usr.rating-usr.loses
M.rating=M.wins*M.duels+M.rating-M.loses
M.Battle = 0
usr.Money+=100
usr.StarChips+=1
usr.deck.Add(usr.FieldCards)
usr.FieldCards.Remove(usr.FieldCards)
usr.deck.Add(usr.GraveYard)
usr.GraveYard.Remove(usr.GraveYard)
usr.LifePoints = 4000
usr.Rank+=1
M.Rank+=1
M.LifePoints = 4000
usr.opponent = null
M.opponent = null
M.deck.Add(usr.FieldCards)
M.FieldCards.Remove(usr.FieldCards)
M.deck.Add(usr.GraveYard)
M.GraveYard.Remove(usr.GraveYard)
M.Money+=10
M.StarChips-=1
usr.verbs-=/mob/proc/PlayCard2
usr.verbs-=/mob/proc/SacrificeCard
M.verbs-=/mob/proc/PlayCard2
M.verbs-=/mob/proc/SacrificeCard
usr.verbs-=/mob/proc/SwitchMode
M.verbs-=/mob/proc/SwitchMode
usr.verbs-=/mob/proc/SkipTurn2
M.verbs-=/mob/proc/SkipTurn2
M.FT = 1
usr.FT = 1
return 0
if(a.Attack<=d.Attack)
usr <<"You destroy your [a]"
M <<"[usr] destroys his [a]"
usr.GraveYard.Add(a)
usr.FieldCards.Remove(a)
usr.LifePoints-=a.loss
if(usr.LifePoints<=0)
M <<"You win!"
usr <<"You lose!"
client.eye= src
usr.stuck= null
M.stuck= null
usr.Battle = 0
usr.wins+=1
M.loses+=1
usr.duels+=1
M.duels+=1
usr.rating=usr.wins*usr.duels+usr.rating-usr.loses
M.rating=M.wins*M.duels+M.rating-M.loses
M.Battle = 0
M.Money+=100
M.StarChips+=1
usr.deck.Add(usr.FieldCards)
usr.FieldCards.Remove(usr.FieldCards)
usr.deck.Add(usr.GraveYard)
usr.GraveYard.Remove(usr.GraveYard)
M.deck.Add(usr.FieldCards)
M.FieldCards.Remove(usr.FieldCards)
M.deck.Add(usr.GraveYard)
M.GraveYard.Remove(usr.GraveYard)
usr.Money+=10
usr.StarChips-=1
usr.LifePoints = 4000
usr.Rank+=1
M.Rank+=1
M.LifePoints = 4000
usr.opponent = null
M.opponent = null
usr.verbs-=/mob/proc/PlayCard2
usr.verbs-=/mob/proc/SacrificeCard
M.verbs-=/mob/proc/PlayCard2
M.verbs-=/mob/proc/SacrificeCard
usr.verbs-=/mob/proc/SwitchMode
M.verbs-=/mob/proc/SwitchMode
usr.verbs-=/mob/proc/SkipTurn2
M.verbs-=/mob/proc/SkipTurn2
M.FT = 1
usr.FT = 1
return 0
else if(d.Dmode==1)
if(a.Attack>=d.Defense)
M.GraveYard.Add(d)
M.FieldCards.Remove(d)
if(M.LifePoints<=0)
usr <<"You win!"
M <<"You lose!"
client.eye= src
usr.stuck= null
M.stuck= null
usr.Battle = 0
usr.wins+=1
M.loses+=1
usr.duels+=1
M.duels+=1
usr.rating=usr.wins*usr.duels+usr.rating-usr.loses
M.rating=M.wins*M.duels+M.rating-M.loses
M.Battle = 0
usr.Money+=100
usr.StarChips+=1
usr.deck.Add(usr.FieldCards)
usr.FieldCards.Remove(usr.FieldCards)
usr.deck.Add(usr.GraveYard)
usr.GraveYard.Remove(usr.GraveYard)
M.deck.Add(usr.FieldCards)
M.FieldCards.Remove(usr.FieldCards)
M.deck.Add(usr.GraveYard)
M.GraveYard.Remove(usr.GraveYard)
M.Money+=10
M.StarChips-=1
usr.LifePoints = 4000
usr.Rank+=1
M.Rank+=1
M.LifePoints = 4000
usr.opponent = null
M.opponent = null
usr.verbs-=/mob/proc/PlayCard2
usr.verbs-=/mob/proc/SacrificeCard
M.verbs-=/mob/proc/PlayCard2
M.verbs-=/mob/proc/SacrificeCard
usr.verbs-=/mob/proc/SwitchMode
M.verbs-=/mob/proc/SwitchMode
usr.verbs-=/mob/proc/SkipTurn2
M.verbs-=/mob/proc/SkipTurn2
usr.FT=1
M.FT=1
return 0
else if(a.Attack<d.Defense)
usr.LifePoints-=a.loss
if(usr.LifePoints<=0)
M <<"You win!"
usr <<"You lose!"
client.eye= src
usr.stuck= null
M.stuck= null
usr.Battle = 0
usr.wins+=1
M.loses+=1
usr.duels+=1
M.duels+=1
usr.rating=usr.wins*usr.duels+usr.rating-usr.loses
M.rating=M.wins*M.duels+M.rating-M.loses
M.Battle = 0
M.Money+=100
M.StarChips+=1
usr.deck.Add(usr.FieldCards)
usr.FieldCards.Remove(usr.FieldCards)
usr.deck.Add(usr.GraveYard)
usr.GraveYard.Remove(usr.GraveYard)
M.deck.Add(usr.FieldCards)
M.FieldCards.Remove(usr.FieldCards)
M.deck.Add(usr.GraveYard)
M.GraveYard.Remove(usr.GraveYard)
usr.LifePoints = 4000
M.LifePoints = 4000
usr.Rank+=1
M.Rank+=1
usr.opponent = null
M.opponent = null
usr.Money+=10
usr.StarChips-=1
usr.verbs-=/mob/proc/PlayCard2
usr.verbs-=/mob/proc/SacrificeCard
usr.verbs-=/mob/proc/SwitchMode
M.verbs-=/mob/proc/SwitchMode
M.verbs-=/mob/proc/PlayCard2
M.verbs-=/mob/proc/SacrificeCard
usr.verbs-=/mob/proc/SkipTurn2
M.verbs-=/mob/proc/SkipTurn2
usr.FT=1
M.FT=1
return 0
else if(M.FieldCards.len==0)
usr <<"Since he has no monsters, [a.Attack] damage!"
M.LifePoints-=a.Attack
if(c=="No")
usr <<"Not attacking"
Problem description:
Im not going to post the rest becauuse its far too long but i need help fixing that !!!
Gebsbo