SphereCommunity

Full Version: begging
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
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]
First, can you tell us what is not working?
Skill start then stops? What is wrong?

This saves everyone a lot of time! Smile
skill working but not use this event
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.
(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....
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
Reference URL's