Threaded Mode | Linear Mode

aptillah · 02-14-2014 12:12 AM

hello sorry my english not good .i have a begging.scp but its not working someone help me abouth that

Code:

[EVENTS e_begging]

ON=@SKILLSTART 

IF (<FIXACTION>==skill_begging) 

    IF (<ACT.UID>==<SRC.UID>) 

        SRC.SYSMESSAGE Kendine mi dileneceksin?

        SRC.ANIM 4 

        ACTION -1 

        RETURN 1 

    ELSEIF (<ACT.DISTANCE> > 3)||!(<ACT.CanSeeLOS>) 

        SRC.SYSMESSAGE <ACT.NAME> uzakta kalmis.

        SRC.ANIM 4 

        ACTION -1 

        RETURN 1 

    ELSEIF (<SRC.FINDLAYER(25).TYPE>==t_eq_horse) 

        SRC.SYSMESSAGE Binek uzerinde dilenirsen sana para vermezler!

        SRC.ANIM 4 

        ACTION -1 

        RETURN 1 

    ELSEIF (<SRC.FINDID.i_gold.AMOUNT> > 700) 

        SRC.SYSMESSAGE Cantanda cok para var zaten.

        ACTION -1 

        SRC.ANIM 4 

        RETURN 1 

    ELSEIF (<SRC.KILLS> >= 5)||(<SRC.KARMA> < -4000) 

        SRC.SYSMESSAGE Kotulere kimse para vermez.

        ACTION -1 

        SRC.ANIM 4 

        RETURN 1 

    ENDIF 

    IF (<ACT.BRAIN>==brain_human)||(<ACT.BRAIN>==brain_vendor) 

        ACTION -1 

        VAR.ACTUAL=<ACT.UID> 

        f_beg_npc 

    ELSEIF !((<ACT.BODY> = c_man) || (<ACT.BODY> = c_woman) || (<ACT.BODY> = c_man_nomove) || (<ACT.BODY> = c_woman_nomove))

        ACTION -1 

        SRC.SYSMESSAGE <ACT.NAME> insan olmadigindan ona dilenemezsin.

        SRC.ANIM 4 

    ELSEIF (<ACT.BRAIN>==0) 

        f_frasessegunlvl <EVAL {0 <SRC.BEGGING>/100}> 

        DORAND 6 

        ACT.SYSMESSAGE Hadiii, su zavalli <src.sex adama/kadina> biraz para ver.

        ACT.SYSMESSAGE Zavalli <src.sex adam/kadin>

        ACT.SYSMESSAGE <src.sex Adam/Kadin> ne kadar yardima muhtac degil mi...

        ACT.SYSMESSAGE Biraz para vermek iyi olacaktir, degil mi?

        ACT.SYSMESSAGE Zavalli <SRC.NAME> paraya muhtac, onun gibi olmak istemezdim...

        ACT.SYSMESSAGE <SRC.NAME> ayaklariniza kapanip yardim istiyor.

        ENDDO 

    ENDIF 

ENDIF

[FUNCTION f_beg_npc] 

ACT.FACE 

f_ponledecara 

IF (<SRC.FINDID.i_anteriorpersona.MORE>==<ACT.UID>) 

    SRC.SYSMESSAGE Ona az once dilendin, yuzsuz?!

    SRC.ANIM 4 

    RETURN 1 

ENDIF 

IF (0<SRC.TAG.TENGOBEGTAG>==0) 

    VAR.MAXPASTAAHORA=<EVAL ((<SRC.BEGGING>)/10)+<EVAL {2 60}>> 

    SRC.NEWITEM i_begging_conteitor 

    SRC.ACT.LINK=<SRC.UID> 

    SRC.ACT.MORE2=<VAR.ACTUAL> 

    SRC.ACT.TIMER=180 

    SRC.TAG.TENGOBEGTAG=1 

    SRC.ACT.MORE=<VAR.MAXPASTAAHORA> 

    SRC.ACT.CONT=<SRC.UID> 

    IF (<EVAL <SRC.BEGGING>/10> > RAND(130)) 

        IF (<EVAL <SRC.FINDID.I_begging_conteitor.MORE>> >= 1) 

        VAR.ALEATORIO1=<EVAL {1 23}> 

        SRC.FINDID.i_begging_conteitor.MORE=<SRC.FINDID.i_begging_conteitor.MORE>+(-<VAR.ALEATORIO1>) 

        SRC.BOW //Pasegurarse solo 

        DORAND 6 

        SRC.SAY Tanri seni korusun

        SRC.SAY Cok tesekkurler...

        SRC.SAY Cok sagol, supersin.

        SRC.SAY Bin kere tesekkur ederim!!

        SRC.SAY sagol

        SRC.SAY Sana minnettarim...

        ENDDO 

        SRC.NEWITEM i_gold,<VAR.ALEATORIO1> 

        SRC.ACT.CONT=<SRC.UID> 

        SRC.NEWITEM i_anteriorpersona 

        SRC.ACT.MORE=<VAR.ACTUAL> 

        SRC.ACT.TIMER=20

        SRC.ACT.CONT=<SRC.UID> 

        ENDIF 

    ENDIF 

ELSEIF (<EVAL <SRC.FINDID.I_begging_conteitor.MORE>> <= 0) 

    SRC.SYSMESSAGE Biraz bekle, sonra dilenirsin...

    SRC.ANIM 4 //Anim de nacer na! 

ELSEIF (<EVAL <SRC.BEGGING>/10> > RAND(130)) 

    IF (<EVAL <SRC.FINDID.I_begging_conteitor.MORE>> >= 1) 

        VAR.ALEATORIO1=<EVAL {1 23}> 

        SRC.FINDID.i_begging_conteitor.MORE=<SRC.FINDID.i_begging_conteitor.MORE>+(-<VAR.ALEATORIO1>) //FINDID SOLO! DESCUBR 1 

        SRC.BOW //Pasegurarse solo 

        DORAND 6 

        ACT.SAY Onemli degil

        ACT.SAY Calmaktan iyidir, al bakalim... //Horrible translation??? 

        ACT.SAY Rica ederim

        ACT.SAY Hayirseverlik insanin degerini gosterir

        ACT.SAY Al bakalim bugunluk yemek paran

        ACT.SAY Bu parayla biraz yiyebilirsin

        ENDDO 

        SRC.SYSMESSAGE <ACT.NAME> size <EVAL <VAR.ALEATORIO1>> altin verdi.

        SRC.NEWITEM i_gold,<VAR.ALEATORIO1> 

        SRC.ACT.CONT=<SRC.UID> 

        SRC.NEWITEM i_anteriorpersona 

        SRC.ACT.MORE=<VAR.ACTUAL> 

        SRC.ACT.TIMER=13+(-<EVAL <SRC.BEGGING>/250>) 

        SRC.ACT.CONT=<SRC.UID> 

        SRC.NEWITEM i_anteriorpersona 

        SRC.ACT.MORE=<VAR.ACTUAL> 

        SRC.ACT.TIMER=20

        SRC.ACT.CONT=<SRC.UID> 

        DORAND 6 

        SRC.SAY Tanri seni korusun

        SRC.SAY Cok tesekkurler...

        SRC.SAY Cok sagol, supersin.

        SRC.SAY Bin kere tesekkur ederim!!

        SRC.SAY sagol

        SRC.SAY Sana minnettarim...

        ENDDO 

    ENDIF 

ELSE 

    DORAND 3 

    SRC.SAY tamam... 

    SRC.SAY tabii... 

    SRC.SAY ... 

    ENDDO 

    DORAND 4 

    ACT.SAY Sana verecek param yok

    ACT.SAY Kusura bakma bugun para yok

    ACT.SAY Sana hicbirsey vermeyecegim

    ACT.SAY Bugun sanssiz gunundesin, param yok

    ENDDO 

ENDIF 

SRC.UPDATE 

[ITEMDEF i_begging_conteitor] 

ID=i_memory 

TYPE=t_eq_script 

NAME=Money you can get with begging every x secs 

ON=@CREATE 

MORE=0 

COLOR=067 

ON=@TIMER 

LINK.SYSMESSAGE Tekrar dilenebilirsin, hazirci.

LINK.TAG.TENGOBEGTAG=0 

REMOVE 

RETURN 1 

[ITEMDEF i_anteriorpersona] 

ID=i_memory 

TYPE=t_eq_script 

NAME=Last guy 

ON=@TIMER 

REMOVE 

RETURN 1 

[FUNCTION f_frasessegunlvl] 

DOSWITCH <ARGS> 

SRC.SAY Allah rizasi icin biraz para ver

SRC.SAY Cok fakirim, biraz para lutfen

SRC.SAY Saygideger <act.name> biraz para lutfen...

SRC.SAY Bir corba parasi lutfen

SRC.SAY Fakirim, karnim ac, param yok para verir misin?

SRC.SAY Biraz para verir misin asil <act.sex efendim/hanimim>

SRC.SAY Su yasli fakir  <src.sex adama/kadina> biraz para verebilecek misin?

SRC.SAY Birseyler verir misin, asil <act.sex efendim/hanimim>

SRC.SAY <act.sex Yakisikli/Guzel> <act.sex efendim/bayan> birseyler verir misiniz?

SRC.SAY Gozkamastirici guzellikteki <ACT.NAME>, benim gibi fakir bir <src.sex adama/kadina> biraz para verir misin?

ENDDO

[FUNCTION f_ponledecara] 

IF (<ACT.DIR>==0)||(<ACT.DIR>==1)||(<ACT.DIR>==2)||(<ACT.DIR>==3) 

SRC.DIR=<ACT.DIR>+4 

ELSE 

SRC.DIR=<ACT.DIR>+(-4) 

ENDIF 

[FUNCTION FIXACTION] 

return (<ACTION>|0d2000000) 

[EOF]

pinku · 02-14-2014 04:09 AM

First, can you tell us what is not working?
Skill start then stops? What is wrong?

This saves everyone a lot of time! Smile

aptillah · 02-15-2014 03:05 AM

skill working but not use this event

**darksun84** · 02-15-2014 03:08 AM

Maybe you haven't added the event in the player character!
Type .events +e_begging when you are in game then try to use the skill.

aptillah · 02-16-2014 07:21 PM

(02-15-2014 03:08 AM)darksun84 Wrote: Maybe you haven't added the event in the player character!
Type .events +e_begging when you are in game then try to use the skill.

i added and i make what u say but nothing....

~~amonvangrell~~ · 02-17-2014 07:41 AM

use:

Code:

[EVENTS e_begging]

ON=@SKILLSTART 

IF (<FIXACTION> == begging)

but if I remember correct fixation is not needed anymore on the newest versions of sphere.

so u could just use.

Code:

[EVENTS e_begging]

ON=@SKILLSTART 

IF begging

blablabla

but again this will start everytime anyone in your shard use any skill, so this could make lag.
so instead of using like an event.
paste under begging skill with

Code:

on=@start

code

Threaded Mode \| Linear Mode begging
Author	Message