IRC 허접한 전투스크립트

on 1:text:*:# {
  var %cmd !
  if ($1 == !정보초기화) {
    remini 에너즤.ini HP
    remini 기.ini 기
    msg $chan 정보가 초기화 되었삼
    msg $chan !전투참가 로 참가해주삼
  }
  if ($nick == 미묘군) {
    if ($1 == %cmd $+ 체력올리기) {
      var %HP $readini(에너즤.ini,HP,$2)
      writeini 에너즤.ini HP $2 $calc(%HP + $3)
      msg $chan $dnk($2) 님의 에너즤 3 $3 4 상승!
    }
    if ($1 == %cmd $+ 체력버그) {
      var %HP $readini(에너즤.ini,HP,$nick)
      var %bughp $rand(1297254,45264250)
      writeini 에너즤.ini HP $nick $calc(%HP + %bughp)
      writeini 기.ini 기 $nick 2250
      msg $chan $dnk($nick) 님이 체력버그를 사용하였습니다. 에너즤 3 %bughp 4 상승!
    }
  }
  if ($1 == %cmd $+ 체력회복) {
    var %HP $readini(에너즤.ini,HP,$nick)
    writeini 에너즤.ini HP $nick $calc(%HP + $rand(1,64250))
    msg $chan $dnk($nick) 님이 체력을 회복하였습니다. 에너즤는 3 $readini(에너즤.ini,HP,$nick)
  }
  if ($1 == %cmd $+ 전투참가) {
    writeini 에너즤.ini HP $nick $rand(1,267250)
    writeini 기.ini 기 $nick 1
    msg $chan $dnk($nick) 님은 등록되었습니다. 에너즤는 $readini(에너즤.ini,HP,$nick)
  }
  if ($1 == %cmd $+ 강제전투참가) {
    writeini 에너즤.ini HP $2 $rand(1,267250)
    writeini 기.ini 기 $2 1
    msg $chan $dnk($2) 님은 강제로등록되었습니다. 에너즤는 $readini(에너즤.ini,HP,$2)
    if ($2 == $null) {
      msg $chan 4 대상자가 없음.
    }
  }
  if ($1 == %cmd $+ 스킬공격) {
    if ($2 == $null) {
      msg $chan 4 대상자가 없음.
      halt
    }
    var %skilldmg $rand(26725,687251)
    var %HP $readini(에너즤.ini,HP,$2)
    writeini 에너즤.ini HP $2 $calc(%HP - %skilldmg)
    if (%HP <= 0) {
      msg $chan 7 $dnk($2) 3 << 4 이새낀 이미뒤짐 ㅋ
      halt
    }
    if (%skilldmg > %HP) {
      msg $chan 7  $dnk($nick) 1 이 4 $read(ranskill.txt) 1 스킬사용 ! 4 - $+ %skilldmg !
      msg $chan 7 $dnk($2) 1 님은 사망하셧슴다.
      msg $chan < $+ $dnk($2) $+ > 4 gg 1 여
    }
    if (%HP > %skilldmg) {
      msg $chan 7 $dnk($nick) 1 이 4 $read(ranskill.txt) 1 스킬사용 ! 4 - $+ %skilldmg !
      msg $chan 7 $dnk($2) 1 님의 남은체력 4 $readini(에너즤.ini,HP,$2) !
    }
  }
  if ($1 == %cmd $+ 공격) {
    if ($2 == $null) {
      msg $chan 4 대상자가 없음.
      halt
    }
    var %dmg $rand(1,15420)
    var %HP $readini(에너즤.ini,HP,$2)
    writeini 에너즤.ini HP $2 $calc(%HP - %dmg)
    if (%HP <= 0) {
      msg $chan 7 $dnk($2) 3 << 7 이새낀 이미뒤짐 ㅋ
      halt
    }
    if (%dmg > %HP) {
      msg $chan 7 $dnk($nick) 1 이 7 $dnk($2) 1 에게 공격 4 - $+ %dmg !
      msg $chan 4 $dnk($2) 님은 사망하셧슴다.
      msg $chan < $+ $dnk($2) $+ > 4 gg 1 여
    }
    if (%HP > %dmg) {
      msg $chan 7 $dnk($nick) 1 이 7 $dnk($2) 1 에게 공격 4 - $+ %dmg !
      msg $chan 7 $dnk($2) 1 님의 남은체력 4 $readini(에너즤.ini,HP,$2) !
    }
  }
  if ($1 == %cmd $+ 기모으기) {
    var %force $readini(기.ini,기,$nick)
    if (5 > %force) {
      writeini 기.ini 기 $nick $calc(%force + 1)
      msg $chan < $+ $dnk($nick) $+ > 4 $read(sinum.txt) 1! (기를모았다! 14 %force /4 5 1 )
    }
    if (%force >= 5) {
      msg $chan < $+ $dnk($nick) $+ > 4 $read(sinum.txt) 1! (기를 충분히 모았다! 4 %force /5 1 )
    }
    halt
  }
  if ($1 == %cmd $+ 필살기) {
    if ($2 == $null) {
      msg $chan 4 대상자가 없음.
      halt
    }
    var %force $readini(기.ini,기,$nick)
    if (%force >= 5) {
      var %HP $readini(에너즤.ini,HP,$2)
      var %fsdmg $rand(127521,8754231)
      writeini 에너즤.ini HP $2 $calc(%HP - %fsdmg)
      writeini 기.ini 기 $nick $calc(%force - 4)
      if (%HP <= 0) {
        msg $chan 7 $dnk($2) 3 << 7 이새낀 이미뒤짐 zz
        halt
      }
      if (%fsdmg > %HP) {
        msg $chan < $+ $dnk($nick) $+ > 4 $read(feelsalgi.txt) 1!! 4 - $+ %fsdmg !
        msg $chan 4 $dnk($2) 님은 좆발리셧슴다.
        msg $chan < $+ $dnk($2) $+ > 4 gg 1 여
      }
      if (%HP > %fsdmg) {
        msg $chan < $+ $dnk($nick) $+ > 4 $read(feelsalgi.txt) 1!! 4 - $+ %fsdmg !
        msg $chan 7 $dnk($2) 1 님의 남은체력 4 $readini(에너즤.ini,HP,$2) !
      }
    }
    if (%force < 5) {
      msg $chan 7 $dnk($nick) 1 님, 기가 모자랍니다. 4 !기모으기 1 명령어로 기를모아주세요.
    }
  }
  elseif ( $1 == !명령어) {
    msg $chan 정보초기화, 체력회복, 전투참가, 강제전투참가, 스킬공격, 공격, 기모으기, 필살기
    msg $chan 4※전투참가를 하셨는지 확인바랍니다.
  }
}
ON 1:INVITE:# {
  if ($network == Luatic) {
    .j # | if ($niek != ^^) { .timer 1 1 .msg # $dnk($nick) 이 초대한 전투봇이다. 그럼 듀얼을 시작한다. }
  }
}


흠.....많이 허접해서 죄송합니다..

어딘가 오류가 있기는 한데 체력버그 쪽이였나 체력올리기쪽이거든요?

그래도 그것만 뺴면 꾀쓸만합니다

잘 모르시겠는분들은 C: > Program Files > IRC (혹은 아얄씨가 깔려있는곳) 로 가셔서 아얄씨 폴더자체를 복사하시구 같은 디텍토리에 붙여넣기 하신후 새로 만드신 복사본 아얄씨를 켜주시구 스크립트 편집기 들어가셔서 복붙해주시면 됩니다.

※그대로 원래 쓰는 아얄씨에 복붙하면 유혈사태가 일어날수도 있음

그리고 만든 스크립트라 약간의 비속어가 포합되어있을수도 있으니 알아서 잘 수정하세요.

그리고 dotnick 부분을 지우고 약간 수정한것을 썼는데 다음과 같습니다.

dnk {
  unset %호출
  set %i 0
  while %i <= $nick(#,0) {
    if (%ic ) { set %ic %호출 }  
    if (%ic == $null ) { set %ic $1- }
    inc %i
    set %ia $nick(#, %i)
    if ($asc($mid(%ia,1)) > 127 ) { set %inick $mid(%ia,1,2) $+ · $+ $mid(%ia,3) }
    else { set %inick $mid(%ia,1,1) $+ · $+ $mid(%ia,2) }
    set %호출 $replace(%ic,%ia,%inick)
  }
  unset %i*
  return %호출
}



엘리아스에 추가해주시면 됩니다. 그외 그렇게 문제될건 안보이네요.

아! 또한 feelsalgi.txt 는 아얄씨가 있는 폴더에 원하는 필살기를 메모장에 리스트형식으로 써놓으시면 됩니다.

ex)23차원심영의고자주머니
     옥수수와 금을 순순히 바꾸는게 좋을껄
     빌리의 게이주머니
     홀롤로할매미 공격 홀로로롤로롤롤
     여러분 이거 다다다다다다다다다
     유혈사태
     비둘기야 밥먹자 구구구구구
     백만고자
     ★★디스크5만원쿠폰
     ★맹박후빨러(나 코렁탕크리임?)
     북한
     천안함 수중어뢰
     몸통박치기
     오 마이 숄더
     트랩카드
     미트스핀

그리고 sinum.txt 도 직접 만드셔야합니다.

ex) 항가항가
     하악하악
     흐흣흣
     아잉
     우훗
     항가
     으오어
     끄아아
     끄어
     이야압
     껒으햏


마지막으로 플루드 걸려서 팅길위험이 있으니 조심하세요..