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]

Threaded Mode \| Linear Mode begging
Author	Message