Threaded Mode | Linear Mode

kn4tseb · (06-07-2014)

will try, ty

it actually did it, thank you, XuN, and Extreme for being such a helpful guys, you both rock! xd

God Bless you.

PD: and i must ask most i can 'till next week cause in the case of Extreme i think we are gonna lose him!!!, Jun 12th i guess?? he might know why xDDD =]
OHH and XuN!! you are spanish!!! you are both both gonna be sooo gone!!!, we will take the Dutch out of the cup at the first round (no offense to dutch people) Smile

kn4tseb · 06-07-2014 05:40 AM

okey, one more question, what if i use this inside a Function, do i need to TAG/VAR it?

example:

PHP Code:

on=@TargOn_Item // the corpse to be carved
IF (<ARGO.TYPE> == T_CORPSE) && STRMATCH(*WEAPON*,<TYPE>) // if this is a corpse and is being carved using a sharped weapon
    If (<SRC.ISNEARTYPE <argo.type> 2>)
        if (<argo.timestamp>)
            argo.timestamp=0  
                f_test
        return 1
        elseif (<argo.timestamp>==0)
        return 0
        endif
    else
    SRC.SYSMESSAGE You must be near the corpse to carve it.
    endif
 RETURN 1
ENDIF

[FUNCTION f_test]
LOCAL.TARGET = <argo.p>
LOCAL.BLOOD = { i_blood_2 1 i_blood_smear 1 }
SRC.ANIM 11
SERV.NEWITEM <LOCAL.BLOOD>
NEW.ATTR 02
NEW.P <LOCAL.TARGET>
NEW.TIMER 60
NEW.FIX
SERV.NEWITEM i_blood_pool_large
NEW.ATTR 02
NEW.P <LOCAL.TARGET>
NEW.TIMER 60*3
NEW.FIX 

Because i believe the SRC changes or something, right?

kn4tseb · 06-07-2014 07:41 AM

targetf maybe??

Extreme · 06-07-2014 08:20 AM

Nahh, you don't need to make the function outside the @targon_item trigger, only if you will use this function in another place too.

Try this one...

PHP Code:

on=@TargOn_Item
REF1 <SRC.TARG>
IF (<REF1.TYPE> == T_CORPSE) && STRMATCH(*WEAPON*,<TYPE>) // if this is a corpse and is being carved using a sharped weapon
 IF (<SRC.DISTANCE <REF1> > 2)
  SRC.SYSMESSAGE You must be near the corpse to carve it.
  RETURN 1
 ENDIF
 IF <REF1.TIMESTAMP>
  REF1.TIMESTAMP 0
  SRC.ANIM 11
  SERV.NEWITEM { i_blood_2 1 i_blood_smear 1 }
  NEW.P <REF1>
  NEW.TIMER 60
  NEW.FIX
  SERV.NEWITEM i_blood_pool_large
  NEW.P <REF1>
  NEW.TIMER 60*3
  NEW.FIX
  RETURN 1
 ELSE
  SRC.SYSMESSAGE This body is already carved.
  RETURN 1
 ENDIF
ENDIF 

About the world cup, we brazilian are not very happy with it.
We have a lot of social problems, our health and security system is poor.
We have people dieing in hospitals without assistance or things to help the pacients, our doctors are very responsibles to cure people without the right medicines and tools.
There are the bandits who kills cops, kids stealing and killing, but they don't go to jail because they are "young".

Our govern is going communist, they made a harbor in Cuba using our money, and here in Brazil we don't have a harbor like that one.

They willing to make a coup and turn it in a dictatorship...

In october we have the election and something will happen.

In 12th June I'd be with my gf watching this circe Big Grin

kn4tseb · 06-07-2014 11:15 AM

Ty, REF"erence" worked perfectly.

About the WC, i totally understand, we have had same kind of protests in chile for some years, most of them for educational matters... and iam totally aware about how much money have Brazil spent on stadiums and stuffs... which is insane.... but i still think you will get more money than expended and i hope that money is used for people's cares.
neverless brazil is a beautifull country and i'm glad the world cup is gonna be played there... i want only american teams in the quarter finals xDDD (nothing against europeans, asians or africans) but last 2 world cup have had only euro teams @ semi finals xd....

Smile

Extreme · 06-07-2014 12:02 PM

Hehehe, the point is that FIFA will leave brazil with our money and they will not pay taxes!!!

The things were made with our taxes, the tickets are sold by FIFA and they get all money.

Only the structures will remain here, which they spent 400% more to build hahahahahha.

We are at the bottom of the well Sad

They don't show, but there are a lot of videos on internet showing whats really happening in brazil...

Around the 'new' stadiums, people who lived there, was removed and they don't have any place to live.

@Topic
I'm glad to help. Any question just post it on right section.

kn4tseb · 06-07-2014 02:21 PM

ive seen videos, but too few, totally agreed that some people have been trying to hide the TRUE TRUE of what is really happening nearby stadiums.

@Topic
i think this is the right section for all my questions?? xDD i have a last one for today, promise!

how do i get the defname of a corpse?

PHP Code:

<SERV.CHARDEF.<eval <REF1.MOREX>+<REF1.MOREY>>.name> 

<------ that returns the "name" of the char that it was, in the case of a "C_dragon", it returns "Dragon"
so it wont work... so it must be something with <Def.
but i am not sure if DEF. is able to be used with SERV.CHARDEF...
do you get my point?

kn4tseb · 06-07-2014 05:17 PM

well mates, i share what i was working in, i hope you like the idea, it still needs alot of work and there might be a thousands of ways to improve it, as you must know ive been learning for a couple weeks though so it was very hard. Had a lot of help from EXTREME and XuN, and also took some ideas from RIDING SKILL so i have no credit at all.

PHP Code:

[DEFNAME SKINNING_SYSTEM] 
skin_c_dragon            400
skin_c_llama            325

[TYPEDEF T_EVENTS_SKINNER]

on=@TargOn_Item // the corpse to be carved
IF (<ARGO.TYPE> == T_CORPSE) && STRMATCH(*WEAPON*,<TYPE>) // if this is a corpse and is being used a sharped weapon
    If (<SRC.ISNEARTYPE <argo.type> 2>)
        if (<argo.timestamp>)
            argo.timestamp=0
            if (<EVAL <DEF.SKIN_C_<SERV.CHARDEF.<eval <ARGO.MOREX>+<ARGO.MOREY>>.name.more1>>> >= <src.skinning>)
                f_skinning_try
                        if (<r<EVAL <DEF.SKIN_C_<SERV.CHARDEF.<eval <ARGO.MOREX>+<ARGO.MOREY>>.name.more1>>>> > <src.skinning>) //success
                        if (<R5> == 1)
                            f_skinning_success
                            if (<src.skilltotal> < <src.skillclass.skillsum>)
                                if (<src.skinning> < <src.skillclass.<serv.skill.skinning.key>>)
                                     if (<r<src.skinning>> <= 10) // gain skill chance
                                        src.skinning += 1
                                        src.sysmessage @0120, Your skill in Skinning has increased by 0.1%. It is now <src.skinning>%
                                    endif
                                endif
                            endif
                        endif
                    
                    else
                        f_skinning_fail
                    endif

            elif (<EVAL <DEF.SKIN_C_<SERV.CHARDEF.<eval <ARGO.MOREX>+<ARGO.MOREY>>.name.more1>>> < <src.skinning>)
                f_skinning_try
                    if (<r<EVAL <DEF.SKIN_C_<SERV.CHARDEF.<eval <ARGO.MOREX>+<ARGO.MOREY>>.name.more1>>>> < <src.skinning>/5) //success
                            f_skinning_success
                            if (<src.skilltotal> < <src.skillclass.skillsum>)
                                if (<src.skinning> < <src.skillclass.<serv.skill.skinning.key>>)
                                     if (<r<src.skinning>> <= 10) // gain skill chance
                                        src.skinning += 1
                                        src.sysmessage @0120, Your skill in Skinning has increased by 0.1%. It is now <src.skinning>%
                                    endif
                                endif
                            endif
                
                    else
                        f_skinning_fail
                    endif
            else
            return 0
            ENDIF
        elseif (<argo.timestamp>==0)
        return 0
        endif
    else
    SRC.SYSMESSAGE You must be near the corpse to carve it.
    endif
 RETURN 1
ENDIF

on=@userskills
IF (<SERV.SKILL.<ARGN1>.NAME> == Skinning)
        src.sysmessage @0120, Your skill in <Serv.skill.<ARGN1>.Name> has changed, it is now <SRC.<ARGN1>>
ENDIF 

[FUNCTION f_skinning_success]
REF1 <SRC.TARG>
ARGS=<SERV.CHARDEF.<eval <REF1.MOREX>+<REF1.MOREY>>.RESOURCES>
WHILE !(<isempty <ARGV[<LOCAL._WHILE>]>>)
SERV.NEWITEM <STREAT <ARGV[<LOCAL._WHILE>]>>,<STRARG <ARGV[<LOCAL._WHILE>]>>
NEW.CONT <REF1> //<SRC.TARG>
ENDWHILE
src.sysmessage You have successfully carved the Corpse!

[FUNCTION f_skinning_fail]
REF1 <SRC.TARG>
ARGS = <SERV.CHARDEF.<eval <REF1.MOREX>+<REF1.MOREY>>.RESOURCES>
SERV.NEWITEM <STREAT <ARGV0>>,<STRARG <ARGV0>>
NEW.CONT <REF1>
src.sysmessage You carve the corpse but find nothing usefull.

[FUNCTION f_skinning_try]
REF1 <SRC.TARG>
LOCAL.BLOOD = { i_blood_2 1 i_blood_smear 1 }
SRC.ANIM 11
SERV.NEWITEM <LOCAL.BLOOD>
NEW.ATTR 02
NEW.P <REF1.p>
NEW.TIMER 60
NEW.FIX
SERV.NEWITEM i_blood_pool_large
NEW.P <REF1.p>
NEW.ATTR 02
NEW.TIMER 60*3
NEW.FIX

[EOF] 

i still need info about gaining skillssum and skilltotal is reached, i dont know what happens, and it still needs some work with else's and elseif's
Enjoy!

PD: on=@userskills trigger doesnt work property, i dont know why, so if you can give me a hand, would be awesome.. TY!

UPDATED Jun 7th

~~amonvangrell~~ · 06-08-2014 06:01 AM

this is an interesting collaborative build script, I would love to see it finished properly, please elders scriptwriters help this young lad to conclude his work. Big Grin

kn4tseb · 06-08-2014 08:17 AM

RE organized a bit
now even if failed, first ARGV from the resources string is gotten, mostly for i_ribs_raw
just updated it a bit Smile

Threaded Mode \| Linear Mode Cutting up monster bodies
Author	Message