Duel Monsters Code 1

ID:145077
 
Jun 20 2006, 5:19 am (Edited on Jun 20 2006, 5:25 am)
Code:
 obj/var/Chosen = 0
mob/var/Draw = 1
mob/var/Scale = 0
mob/var/Neck = 0
mob/Logout()
    world<<"[usr.name] has logged Out!"
    var/savefile/F = new()//make a new one
    Write(F)
    client.Export(F)
    src<<"saved"
    player-=1
    if(usr.Battle==1)
        var/mob/M = usr.opponent
        M <<"You win!"
        M.FT = 1
        usr.FT = 1
        usr <<"You lose!"
        src.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.verbs-=/mob/proc/PlayCard
        usr.verbs-=/mob/proc/SacrificeCard
        M.verbs-=/mob/proc/PlayCard
        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/SkipTurn
        M.verbs-=/mob/proc/SkipTurn
        sleep 15
    del usr
mob/proc/Help_Im_Without_Cards()
    if(usr.Battle==0)
        usr.deck.Add(usr.pcards+usr.GraveYard+usr.FieldCards)
        usr.pcards.Remove(usr.pcards)
        usr.GraveYard.Remove(usr.GraveYard)
        usr.FieldCards.Remove(usr.FieldCards)
        usr.FT = 1
        usr.Attacked = 0
obj
    var
        Attack = 0
        Defense = 0
        AttackRaise = 0
        DefenseRaise = 0
mob/var/Attacked = 0
mob/var/Kaibasoul = 0
mob
    var
        StarChips = 2
        Terrain = ""
        Saved = 0
        Battle = ""
        LifePoints = 2000
        PlayingCard = ""
        Money = 10000
        Rank = 0
        TW = 0
        RankN = "Newbie Duelist"
        cardupdate=0
    Stat(var/mob/M = usr.opponent,m)
        statpanel("Stats")
        stat("Star Chips: ",usr.StarChips)
        stat("Money: ",usr.Money)
        stat("LifePoints:",usr.LifePoints)
        stat("[usr.RankN]")
        stat("Tournaments Won:",usr.TW)
        stat("---Duels---")
        stat("Duels:",usr.duels)
        stat("Rating:",usr.rating)
        stat("Wins:",usr.wins)
        stat("Loses:",usr.loses)
        statpanel("Inventory")
        stat(usr.contents)
        statpanel("Deck")
        stat(usr.deck)
        stat("Cards in deck:",usr.deck.len)
        if(usr.Battle==0)
            statpanel("Credits")
            stat("DM Programming:","Grand Duelist,Killer22")
            stat("Original Programming:","Buzzyboy")
            stat("Game Testers:","None")
            stat("Icons:","River Wolf")
            stat("Duel System:","Corrupted(Updated by Kanga)")
            stat("24/7 server:","Dr Stoopid")
        if(usr.Battle==1)
            statpanel("Playing Cards")
            stat(usr.pcards)
            statpanel("Field")
            stat(usr.FieldCards)
            statpanel("[M]",M.FieldCards)
            statpanel("GraveYard")
            stat(usr.GraveYard)
            statpanel("MagicField",usr.MField)
        if(usr.view==1)
            if(m:Battle==1)
                if(m:client)
                    statpanel("Playing Cards")
                    stat(m:pcards)
                    statpanel("[m:opponent]")
                    stat(m:FieldCards)
                    statpanel("[m]",m:FieldCards)
                    statpanel("GraveYard")
                    stat(m:GraveYard)
                    statpanel("MagicField",m:MField)
                else
                    usr<<"No client, no view."
        if(usr.check!=null)
            var/mob/O = check
            statpanel("[O]")
            stat(O.contents)
            stat("Deck")
            stat(O.deck)
mob/verb/Remove_AllCards_From_Deck()
    usr.deck.Remove(usr.contents)
obj/card/Rare/BlueEyesWhiteDragon
    icon='Cards4.dmi'
    icon_state="BEWD"
    name = "Blue Eyes White Dragon"
    Attack = 3000
    Defense = 2500
    loss = 3250
    P = 8000
    SNeed = 2
    Attack = "3000"
    suffix = "3000/2500(2)"
mob/var/Sacrifice = 0
mob/var/stime = 0
mob/var/list/MField = list()
mob/proc/MagicCard()
    if(usr.Turn==1)
        usr.MagicCards()
    else
        usr <<"Sorry its your opponents turn now!"
mob/proc/SacrificeCard()
    set category = "Duelling"
    if(usr.FieldCards.len>=1&&usr.Turn==1)
        var/obj/a = input("What do you ant to sacrifice?")in usr.FieldCards
        usr <<"That card has [a.Attack] attack and [a.Defense] defense"
        var/b = input("Are you sure you want to sacrifice?")in list("Yes","No")
        if(b=="Yes" && usr.stime==0)
            usr.GraveYard.Add(a)
            usr.FieldCards.Remove(a)
            usr.Sacrifice += 1
            view() <<"[usr] sacrifices [a]!"
            usr.stime = 1
            usr <<"You now have [usr.Sacrifice] sacrifices"
            usr <<"1 more seconds until you can sacrifice again!"
            sleep(10)
            usr.stime = 0
mob/var/opponent
mob/proc/SkipTurn()
    var/mob/M = usr.opponent
    set category = "Duelling"
    if(usr.Turn==1)
        M <<"Your turn!"
        M.Turn=1
        usr.Turn=0
        M.BDBDDDDDDDX()
        sleep(30)
    if(M.LifePoints<=0||M.deck.len==0)
        usr <<"You win!"
        M <<"You lose!"
        client.eye= src
        usr.wins+=1
        M.loses+=1
        usr.duels+=1
        usr.stuck= null
        M.stuck= null
        M.duels+=1
        usr.rating=usr.wins*usr.duels+usr.rating-usr.loses
        M.rating=M.wins*M.duels+M.rating-M.loses
        usr.Battle = 0
        M.Battle = 0
        usr.Money+=100
        usr.StarChips+=1
        usr.Help_Im_Without_Cards()
        M.Help_Im_Without_Cards()
        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/PlayCard
        usr.verbs-=/mob/proc/SacrificeCard
        M.verbs-=/mob/proc/PlayCard
        M.verbs-=/mob/proc/SacrificeCard
        M.verbs-=/mob/proc/SwitchMode
        usr.verbs-=/mob/proc/SwitchMode
        usr.verbs-=/mob/proc/MagicCard
        M.verbs-=/mob/proc/MagicCard
        usr.LifePoints = 4000
        usr.Rank+=1
        M.Rank+=1
        M.LifePoints = 4000
        usr.opponent = null
        M.opponent = null
        usr.verbs-=/mob/proc/SkipTurn
        M.verbs-=/mob/proc/SkipTurn
        usr.FT = 1
        M.FT = 1
        return 1


Problem description:

Can someone help me fix this code please!!
Jun 20 2006, 5:49 am
1. What's the problem?
2. Half that code is crap.
Jun 20 2006, 5:56 am
In response to Mysame
exactly thts wwhy i need help with it.
Jun 20 2006, 6:00 am
In response to Gebsbo
Make it yourself.

Nothing learns anything from ripping. Nothing is fun in a rip. Nothing is original.
Jun 20 2006, 6:03 am
In response to Mysame
the code aint myn i got it when i asked a friend for it. but my game is 100% original i can guarantee i would like to see anyone who says its a rip and point out the rip.
Jun 20 2006, 6:07 am
In response to Gebsbo
We can. You gave us the ripped code.
Every rippers says theirs is original. But it never is ...
Jun 20 2006, 6:11 am
In response to Mysame
of course the codes ripped i got it froms someone else but i would like you to point one thing in the game you say is ripped because nothin is >_< unless you hate me
Jun 20 2006, 6:23 am
In response to Gebsbo
Gebsbo wrote:
of course the codes ripped i got it froms someone else but i would like you to point one thing in the game you say is ripped because nothin is >_< unless you hate me

*sigh*. Will you people ever learn? Half that code is completely bugged, and seeing as you don't what the hell is wrong, you better start paying for someone to scan all that text, organize it, debug it, and then plainly give it to you.
Jun 20 2006, 6:29 am
In response to Mysame
I dont care anymore. ive deleted it because people think i ripp games now here ill show you one of ma own codes.


#define TICK_LEN 10
#define SECOND 10/TICK_LEN
#define DEBUG
var
players = 0
max_players = 500
SERVER_REBOOT

world
name = "Duel Monsters GX"
status = "<font size = -2><font color = red>Duel Monsters GX</font> <font color = green>{Version: 1.00.2a}</font>"
hub = "Gebsbo.Duel Monsters GX"
view = 6
version = 1.0
loop_checks = 0

mob/var//combat vars
Money = 500
Wear
worn = 0
doing = 0
safe = 1
Deck
Duel_Deck
Lifepoints = 0
Battle = 0
GraveYard
Activated = 0
AttackRaise = 0
DefenseRaise = 0
Rank = 0

mob
Login()//login proc
usr.name = input("Whats your name Warrior?","Gebbos game test thing!")
usr.icon_state = input("What gender?") in list ("male","female")
if("male")
usr.icon = 'character.dmi'
usr.icon_state = "Character"
usr << "Welcome to Duel Academy GX!"
world << "<font color = red>[name] has reached Duel City"
usr.loc = locate(12,5,1)

mob
Stat()//calling a stat proc...time for stats
statpanel("Stats")
stat("Name:",name)
stat("Lifepoints:",Lifepoints)
stat("----------")
stat("Money:","[Money]")
stat("Rank:","[Rank]")
statpanel("Inventory",usr.contents)
statpanel("Deck",usr.Deck)
statpanel("Duel Deck",usr.Deck)
if(usr.Battle==1)
statpanel("GraveYard")
client
script = "<STYLE>BODY {background: black; color: white} BIG IMG.icon {width: 24px; height: 24px}</STYLE>"

there no one can sey anything about tht coz its myn all myn.
Jun 20 2006, 6:34 am
In response to Gebsbo
Goody. A few pointers.

// When checking TRUE/FALSE values
if(var==1) // wrong
if(var) // right

if(var==0) // wrong
if(!var) // right

// When commenting (The differenes lies within the space)

thing()// Wrong
thing() // Right


Besides that;
- No put usr in procs, ungh. (Except pseudo-verbs and client procs.)
- Don't forget the parent proc ( <code>..()</code> ) when editting a build-in proc. ( Login() , for instance.)

Jun 20 2006, 6:37 am
In response to Mysame
kk thanks :)
Jun 20 2006, 8:14 am
<font color=red size=1337>HAH!</font>
Jun 20 2006, 2:38 pm
In response to Gebsbo
 
usr.icon_state = input("What gender?") in list ("male","female")
if("male")
  usr.icon = 'character.dmi'
  usr.icon_state = "Character"

Wrong...

src.icon_state = input("What gender?") in list ("male","female")
switch(src.icon_state)
  if("male")
    src.icon = 'character.dmi'
    src.icon_state = "Character"

Right...

-Exophus
Jun 20 2006, 8:27 pm
In response to Exophus
Exo, you're already setting the icon state. Ungh.
src.icon='icon.dmi'
src.icon_sate=input("What gender?") in list("male","female")
Jun 22 2006, 12:31 am
In response to Mysame
Wasn't paying attention to which variable he was changing. :\ I am not even completely sure what he wanted either since he did basically the same thing without the switch()... Sorry I got back to this so late... Been playing FF8, heh. Nothing else to do around here. :\

-Exophus