CYN's site

del()

Thu, 04 Dec 2008 08:10:46 +0000

Code:

        Deletechar()
            if(!src.inprocess)
                switch(input("Which save slot would you like to delete?","Delete",null) in list("Slot 1","Slot 2","Slot 3","Cancel"))
                    if("Slot 1")
                        src.saveslot = 1
                        if(fexists("Save/[src.ckey][src.saveslot]"))
                            del("Save/[src.ckey][src.saveslot]")
                            src.inprocess = 0
                        else
                            src << "There is no save file in this slot."
                            src.inprocess = 0
                    if("Slot 2")
                        src.saveslot = 2
                        if(fexists("Save/[src.ckey][src.saveslot]"))
                            del("Save/[src.ckey][src.saveslot]")
                            src.inprocess = 0
                        else
                            src << "There is no save file in this slot."
                            src.inprocess = 0
                    if("Slot 3")
                        src.saveslot = 3
                        if(fexists("Save/[src.ckey][src.saveslot]"))
                            del("Save/[src.ckey][src.saveslot]")
                            src.inprocess = 0
                        else
                            src << "There is no save file in this slot."
                            src.inprocess = 0
            else
                src << "Please finish what you are doing before starting another task."

Problem description:
runtime error: bad del
proc name: Deletechar (/mob/proc/Deletechar)
usr: CYN (/mob)
src: CYN (/mob)
call stack:
CYN (/mob): Deletechar()
Encartia (/obj/DELETE): Click(Encartia (3,11,2) (/turf/SPLASH), "mapwindow.map", "icon-x=28;icon-y=12;left=1;scr...")

It won't delete the file. I know I'm doing it all wrong so for the love of god help me delete the damn save file -.-

Epic question.

Mon, 01 Dec 2008 08:06:42 +0000

I feel like an idiot for asking but. In an alert, how do I make it drop down a line for long sentences instead of stretching the box...

Javascript problem

Sun, 27 May 2007 19:45:44 +0000

So I am trying to get a page to reload after a random amount of time from 10 to 30 seconds. It only reloads after 27 seconds for some reason. I also suck at javascript so help would be nice. :)

<script language="JavaScript1.2">
var randNumber = Math.round(Math.random()*20)+10;
</script>

<body onLoad=window.setTimeout("location.href='Loader.html'",javas cript:randNumber)>
</body>

Hair

Thu, 04 Jan 2007 10:22:57 +0000

Code:

turf
    hair
        icon = 'hair.png'
        density = 1
        layer = 21
        Click()
            var/mob/M=usr
            if(!M) return
            if(M.hairselected == 1)
                M<<"<font size=1><font color = purple><b>Your current hair has been deleted.</b></font>"
                M.Gethair()
            if(M.hairselected == 0)
                M.Gethair()

mob
    proc
        Gethair()
            var/hairoptions = list("bald","bald2","bald3")
            var/hairchoice = input(hairoptions)
            var/mob/M=usr
            if(!M) return
            if(hairchoice == "bald")
                M<<"you're bald"
            if(hairchoice == "bald2")
                M<<"you're bald2"
            if(hairchoice == "bald3")
                M<<"you're bald3"
            M.hairselected = 1

Problem description:

Compiles fine, runtime error;

runtime error: bad client
proc name: Gethair (/mob/proc/Gethair)
usr: CYN (/mob)
src: CYN (/mob)
call stack:
CYN (/mob): Gethair()
the hair (23,14,2) (/turf/hair): Click(the hair (23,14,2) (/turf/hair))

Name

Fri, 24 Nov 2006 04:13:53 +0000

Code:

mob/proc
    newchar()
        var/user_name = input(usr, "Your name?", "Name")
        if(!user_name)
            return 0
        if(lentext(user_name) > 15)
            src <<"<font size = 1><font color = red><b>System:</b></font><font size = 1><font color = black><b> Your name is too long.</b></font>"
            return 0
        for(var/N in un_wanted_names && html)
            if(findtext(user_name,N) == 0)
                src <<"<font size = 1><font color = red><b>System:</b></font><font size = 1><font color = black><b> Please do not put HTML in names.</b></font>"
                return 0
            else
                src.name = user_name
                world<<"<font size = 1><font color = green><B>Event: <font color = black>[src.name] has logged in</font>"
                src.Save()

var/list/html = list("<",">","font","size")


var
    list
        un_wanted_names = list("blocked_for_forum")

Problem description:

I went back to a names demo and it works fine except for the name "<" That is the only one in the list it won't block.

invalid expression

Thu, 23 Nov 2006 23:04:42 +0000

Code:

mob
    proc //ignore the indentation i added that bit in.
    newchar2()
        var/user_name = ""
        do
            user_name = input(src, "Your name?", "Name") as null|text
        while(isValidName(user_name))
            src.name = user_name
            src.icon = 'M-norm.dmi'
            src.icon_state = "Normal"
            world<<"<font size = 1><font color = green><B>Event: <font color = black>[src.name] has logged in</font>"
            src.Save()

    loadchar2()
        src.Load()
        src.ingame = 1
        world<<"<font size = 1><font color = green><B>Event: <font color = black>[src.name] has logged in</font>"
        return ..()

proc/isValidName(name)
  if(!name) // return 0 when the conditions do not meet
    return 0
  if(length(name) > 15)
    src << "<font size = 1><font color = red><b>System:</b></font><font size = 1><font color = black><b> Your name is too long.</b></font>"
    return 0
  for(var/i in un_wanted_names + html)
    if(findtext(name, i))
      src << "<font size = 1><font color = red><b>System:</b></font><font size = 1><font color = black><b> Please do not put HTML in names.</b></font>"
      return 0
  return 1 // return true if all the conditions passed

Problem description:

Login.dm:132:error::invalid expression
on

src.name = user_name

if i remove that line it goes to the line under it.

Name Problem

Thu, 09 Nov 2006 01:42:50 +0000

Code:

    newchar2()
        char_name
        var/user_name = input(usr, "Your name?", "Name")
        if(!user_name)
            goto char_name
        if(lentext(user_name) > 20)
            usr <<"<font size = 1><font color = red><b>System:</b></font><font size = 1><font color = black><b> Your name is too long.</b></font>"
            goto char_name
        for(var/N in un_wanted_names && html)
            if(findtext(user_name,N))
                usr<<"<font size = 1><font color = red><b>System:</b></font><font size = 1><font color = black><b> Please do not put HTML in names.</b></font>"
                goto char_name
            else
                src.name = user_name
                usr.icon = 'M-norm.dmi'
                usr.icon_state = "Normal"
                world<<"<font size = 1><font color = green><B>Event: <font color = black>[usr.name] the almighty has logged in</font>"
                usr.Save()

Problem description:
When I create a new character it uses the

world<<"<font size = 1><font color = green><B>Event: <font color = black>[usr.name] the almighty has logged in</font>"

4 times and I only need it to be used once.

world.crash_because_of_loop()

Fri, 03 Nov 2006 21:22:55 +0000

Code:

        C()
            set hidden = 1
            if(usr.resting == 0)
                usr.resting = 1
                while(usr.resting == 1)
                    usr.move = 0
                    spawn(20)
                        usr.hp += rand(2,10)
                        if(src.hp >= src.maxhp)
                            src.move = 1
                            src.hp = src.maxhp
                            src.resting = 0
            if(usr.resting == 1)
                usr.resting = 0
                usr.move = 1
                if(src.hp >= src.maxhp)
                    src.move = 1
                    src.hp = src.maxhp
                    src.resting = 0

Problem description:

I have a feeling I'm creating a loop and crashing it but I can't find out where the loop is. I set the C() verb ad the macro and it's a basic rest command. I want it to check if their hp is less than maxhp and if so, heal. And when they hit C again it stops even ig they aren't full.

Stomp

Tue, 31 Oct 2006 03:50:03 +0000

Code:

        X(mob/M in oview(9))
            set hidden = 1
            if(!M) return
            if(M.dead == 0 && usr.dead == 0 && usr.attacking2 == 0)
                if(usr.setskill == "Powerstomp")
                    var/damage2 = round(max(15, (usr.strength + rand(0,usr.qi)) - (M.defense - rand(0,usr.qi))))
                    usr.attacking2 = 1
                    M.hp -= damage2
                    var/obj/e=new/obj/stompnorth(usr.x,usr.y+1,usr.z)
                    var/obj/f=new/obj/stompsouth(usr.x,usr.y-1,usr.z)
                    var/obj/g=new/obj/stompeast(usr.x+1,usr.y,usr.z)
                    var/obj/h=new/obj/stompwest(usr.x-1,usr.y,usr.z)
                    usr<<"<font size=1><font color = orange><b>You attack [M] for [damage2] damage.</b></font>"
                    M<<"<font size=1><font color = orange><b>[usr] attacks you for [damage2] damage.</b></font>"
                    spawn(10)
                        del(e)
                        del(f)
                        del(g)
                        del(h)
                    if(M.player == 1)
                        deathcheck(M)
                    if(M.player == 0)
                        deathcheckbot(M)
                    levelcheck()
                    spawn(100)
                        usr.attacking2 = 0

Problem description:
I tried to make it so the objects form around the usr but it won't form. The damage is still done though. And is it possible to attack all the mob in oview() ?

Blood

Mon, 30 Oct 2006 04:00:14 +0000

Code:

mob
    proc
        deathcheckbot(mob/M)
            if(M.hp <= 0)
                src.exp += M.level
                src.money += M.money/2
                M.dead = 1
                del(M)
                var/obj/blood/B = new(M.x,M.y,M.z)
                spawn(100)
                    del(B)

Problem description:I want the bot to drop blood when it dies.