Master
59.2997
Önceden yayınladığım bir sistemdi aslında peacemaking ancak arşivi karıştırırken bulduğumda bazı sorunları olduğunu ve stabil halde olmadığını farkettim. Düzenleyip sizlerle tekrardan paylaşmak istedim. Eski sisteme göre daha stabil durumda şu anda.

[Comment Peacemaking]
writer: Slothere
date: 27.07.08 - 15:55
version: 056b+
update: 13.02.09 - 17:40
----------------------------------

on=@SUCCESS
IF (<FLAGS> & statf_war)
  SRC.SYSMESSAGE @55 Savas durumunda iken kullanamazsiniz.
  return 1
ELIF (<SRC.FLAGS> & statf_dead) || (<SRC.FLAGS> & statf_freeze)
  SRC.SYSMESSAGE @55 Su andaki durumunuzda kullanamazsiniz.
  return 1
ELIF (<SRC.FINDID(i_peacemaking_timer)>)
  SRC.SYSMESSAGE @55 Tekrar kullanabilmeniz icin bir sure beklemelisiniz.
  return 1
ENDIF
IF (<R<EVAL 12 - (<SRC.PEACEMAKING>/100)>> == 1)
  FORCHARS <EVAL (<SRC.PEACEMAKING>/100)+2>
    IF !(<ISPLAYER>) && !(<ISEVENT.e_peacemaking>)
        //src.sysmessage @55 <name>: <EVAL (<EVAL (<SRC.PEACEMAKING>/50)>) + (<EVAL (<SRC.INT> * 0.08)/10>) - (<EVAL (<INT> * 0.02)/100>)>sn
        TIMERF = <QVAL (<EVAL (<EVAL (<SRC.PEACEMAKING>/50)>) + (<EVAL (<SRC.INT> * 0.08)/100>) - (<EVAL (<INT> * 0.02)/100>)> < 5) ? 5 : <EVAL (<EVAL (<SRC.PEACEMAKING>/50)>) + (<EVAL (<SRC.INT> * 0.08)/100>) - (<EVAL (<INT> * 0.02)/100>)>>, peacemaking_
        sayua 1153,6,6,0 *uyumaya baslar..*
        EVENTS = +e_peacemaking
        FLAGS &= ~statf_war
        FLAGS |= statf_freeze
        MEMORYFINDTYPE.memory_war_targ.remove
        IF !(<SRC.FINDID(i_peacemaking_timer)>)
          SERV.NEWITEM i_peacemaking_timer
          SRC.EQUIP <NEW>
          NEW.TIMER = 15
        ENDIF
    ENDIF
  ENDFOR
ELSE
  SRC.SYSMESSAGE @55 Basarisiz oldunuz.
  RETURN 1
ENDIF

[EVENTS e_peacemaking]
ON=@GETHIT
EVENTS -E_PEACEMAKING
ATTACK <SRC>

ON=@HITTRY
ACTION -1
RETURN 1

ON=@ATTACK
ACTION -1
RETURN 1

ON=@NPCACTFIGHT
ACTION -1
RETURN 1

[FUNCTION peacemaking_]
IF (<ISEVENT.e_peacemaking>)
  EVENTS = -e_peacemaking
  FLAGS &= ~statf_freeze
  sayua 1153,6,6,0 *uykunun etkisi gecer*
  FORPLAYERS 12
    IF !(<ISGM>)
      SRC.ATTACK <UID>
      RETURN 1
    ENDIF
  ENDFOR
ENDIF

[ITEMDEF i_peacemaking_timer]
ID = i_gold
TYPE = t_eq_script
WEIGHT = 0

on=@Create
ATTR = attr_static|attr_decay|attr_invis

on=@Timer
REMOVE
RETURN 1


Bu konu Slothere tarafından düzenlendi(2009-02-13 18:46, 15 yıl önce)
süper olmuş Gökberk ellerine sağlık.
hmm tek kelimeyle harika.Kodlama tarzı çok hoşuma gitti
Expert
34.0001
eline sağlık üstad

Üye Ol veya Giriş Yap

Bu forum başlığına mesaj atmak istiyorsanız hemen üye olun veya giriş yapın.